sub d {
    l @_, 0,  0,  20, -10, 20, 10, -20, 10, $i->colorAllocate( 153, 153, 153, );
    l @_, 20, 10, 20, -10, 0,  20, -20, 10, $i->colorAllocate( 20,  0,   0 );
}