#!/usr/bin/perl
use strict;

use SWF qw(:ALL);

#SWF::setScale(1.0);
print "Content-type: application/x-shockwave-flash\n\n";

my $s = new SWF::Shape();
my $f = $s->addFill(0xff, 0, 0);
$s->setRightFill($f);

$s->movePenTo(-500,-500);
$s->drawLineTo(500,-500);
$s->drawLineTo(500,500);
$s->drawLineTo(-500,500);
$s->drawLineTo(-500,-500);

#my $p = new SWF::Sprite();
my $p = new SWF::MovieClip();
my $i = $p->add($s);
$i->setDepth(1);
$p->nextFrame();

for(my $n=0; $n<5; ++$n) {
  $i->rotate(-15);
  $p->nextFrame();
}

my $m = new SWF::Movie();
$m->setBackground(0xff, 0xff, 0xff);
$m->setDimension(6000,4000);

my $j = $m->add($p);
$j->setDepth(1);
$j->moveTo(-500,2000);
$j->setName('todboxclip');

my $j2 = $m->add($p);
$j2->setDepth(2);
$j2->moveTo(-500,1500);
$j2->setName('todboxclip2');

$m->add( new SWF::Action("x=-100;") );
$m->nextFrame();
$m->add( new SWF::Action('x+=40; todboxclip._x=x; todboxclip._y -= 10; ') );
$m->nextFrame();
$m->add( new SWF::Action("gotoFrame(1); play();"));
$m->nextFrame();

$m->output();