sub l {
    $p = new GD::Polygon;
    $x=shift;
    $y=shift;

    $p->addPt( ( $x += shift ), ( $y += shift ) ) while $#_;
    $i->filledPolygon( $p, shift );
}