#!/usr/bin/perl use strict; #use lib("/home/peter/ming3/lib/perl5/site_perl"); $|=1; use SWF qw(Movie Shape); SWF::setScale(1.0); my $s = new SWF::Shape; $s->setRightFill($s->addFill(0xff, 0, 0)); $s->movePenTo(-500,-500); $s->drawLineTo(500,-500); $s->drawLineTo(500,500); $s->drawLineTo(-500,500); $s->drawLineTo(-500,-500); my $p = new SWF::MovieClip; my $i = $p->add($s); for(my $j=0; $j<17; ++$j) { $p->nextFrame(); $i->rotate(5); } $p->nextFrame(); my $m = new SWF::Movie; $i = $m->add($p); $i->moveTo(1500,1000); $i->setName("blah"); $m->setBackground(0xff, 0xff, 0x0); $m->setDimension(3000,2000); # decide if its called from commandline or as cgiscript if (exists $ENV{"REQUEST_URI"}){ print "Content-type: application/x-shockwave-flash\n\n"; $m->output(); } else { $m->save("$0.swf"); print "Generated file written to $0.swf\n"; }