#!/usr/bin/perl -w
use strict;

use SWF qw(:ALL);
use SWF::Constants qw(:Fill);

#use CGI;
#my $query = new CGI;
#my $string = $query->param('string') || "todbot";

my $width=320;
my $height=240;


my $p = new SWF::Morph();

my $g1 = new SWF::Gradient();
$g1->addEntry(0.0, 0, 0, 0);
$g1->addEntry(0.16, 0xff, 0xff, 0xff);
$g1->addEntry(0.32, 0, 0, 0);
$g1->addEntry(0.48, 0xff, 0xff, 0xff);
$g1->addEntry(0.64, 0, 0, 0);
$g1->addEntry(0.80, 0xff, 0xff, 0xff);
$g1->addEntry(1.00, 0, 0, 0);

my $s1 = $p->getShape1();
my $f = $s1->addFill($g1, SWFFILL_RADIAL_GRADIENT);
$f->scaleTo(0.1);
$s1->setLeftFill($f);
$s1->movePenTo(-160, -120);
$s1->drawLine(320, 0);
$s1->drawLine(0, 240);
$s1->drawLine(-320, 0);
$s1->drawLine(0, -240);

my $g2 = new SWF::Gradient();
$g2->addEntry(0.0, 0, 0, 0);
$g2->addEntry(0.16, 0xff, 0, 0);
$g2->addEntry(0.32, 0, 0, 0);
$g2->addEntry(0.48, 0, 0xff, 0);
$g2->addEntry(0.64, 0, 0, 0);
$g2->addEntry(0.80, 0, 0, 0xff);
$g2->addEntry(1.00, 0, 0, 0);

my $s2 = $p->getShape2();
$f = $s2->addFill($g2, SWFFILL_RADIAL_GRADIENT);
$f->scaleTo(0.16);
$f->skewXTo(-0.5);
$s2->setLeftFill($f);
$s2->movePenTo(-160, -120);
$s2->drawLine(320, 0);
$s2->drawLine(0, 240);
$s2->drawLine(-320, 0);
$s2->drawLine(0, -240);

my $m = new SWF::Movie();
$m->setDimension($width, $height);
my $i = $m->add($p);
$i->moveTo($width/2, $height/2);

for( my $n=0; $n<=1.001; $n+=0.01) {
  $i->setRatio($n);
  $m->nextFrame();
}

print "Content-type: application/x-shockwave-flash\n\n";
$m->output();