Swf.pl
From Organic Design wiki
my $movie = SWF::Builder->new(FrameRate => 15, FrameSize => [0, 0, 400, 400], BackgroundColor => 'ffffff'); my $shape = $movie->new_shape # red triangle. ->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)} $movie->save('triangle.swf');
