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