Swf.pl

use SWF::Builder;

my $swf= SWF::Builder->new( FrameRate => 15, FrameSize => [0, 0, 400, 400], BackgroundColor => 'ffffff' );

1. Red triangle

my $shape = $swf->new_shape ->fillstyle('ff0000') ->linestyle(1, '000000') ->moveto(0,-11) ->lineto(10,6) ->lineto(-10,6) ->lineto(0,-11); my $instance = $shape->place; for ( my $x = 0; $x < 400; $x++ ) { $instance->rotate(15)->moveto( $x, 200 ) } $swf->save( "$::peer.swf" );