1#!/usr/bin/perl 2use strict; 3 4#use lib("/home/peter/ming3/lib/perl5/site_perl"); 5 6$|=1; 7use SWF qw(Movie Shape); 8 9 10SWF::setScale(1.0); 11 12my $s = new SWF::Shape; 13$s->setRightFill($s->addFill(0xff, 0, 0)); 14$s->movePenTo(-500,-500); 15$s->drawLineTo(500,-500); 16$s->drawLineTo(500,500); 17$s->drawLineTo(-500,500); 18$s->drawLineTo(-500,-500); 19 20my $p = new SWF::MovieClip; 21my $i = $p->add($s); 22 23for(my $j=0; $j<17; ++$j) 24{ 25 $p->nextFrame(); 26 $i->rotate(5); 27} 28$p->nextFrame(); 29 30my $m = new SWF::Movie; 31$i = $m->add($p); 32$i->moveTo(1500,1000); 33$i->setName("blah"); 34 35$m->setBackground(0xff, 0xff, 0x0); 36$m->setDimension(3000,2000); 37 38# decide if its called from commandline or as cgiscript 39if (exists $ENV{"REQUEST_URI"}){ 40 print "Content-type: application/x-shockwave-flash\n\n"; 41 $m->output(); 42} 43else { 44 $m->save("$0.swf"); 45 print "Generated file written to $0.swf\n"; 46} 47