#!/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, 0xff);
$g1->addEntry(0.16, 0xff, 0xff, 0xff, 0x7f);
$g1->addEntry(0.32, 0, 0, 0, 0xff);
$g1->addEntry(0.48, 0xff, 0xff, 0xff, 0x7f);
$g1->addEntry(0.64, 0, 0, 0, 0xff);
$g1->addEntry(0.80, 0xff, 0xff, 0xff, 0x7f);
$g1->addEntry(1.00, 0, 0, 0, 0xff);

my $s1 = $p->getShape1();
my $f = $s1->addFill($g1, SWFFILL_RADIAL_GRADIENT);
$f->scaleTo(0.1);
$s1->setLeftFill($f);
$s1->movePenTo(-$width/2, -$height/2);
$s1->drawLine($width, 0);
$s1->drawLine(0, $height);
$s1->drawLine(-$width, 0);
$s1->drawLine(0, -$height);

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

my $s2 = $p->getShape2();
$f = $s2->addFill($g2, SWFFILL_RADIAL_GRADIENT);
$f->scaleTo(0.3);
$f->skewXTo(-0.5);
$s2->setLeftFill($f);
$s2->movePenTo(-$width/2, -$height/2);
$s2->drawLine($width, 0);
$s2->drawLine(0, $height);
$s2->drawLine(-$width, 0);
$s2->drawLine(0, -$height);

my $clip = new SWF::MovieClip();
my $pi = $clip->add($p);

for( my $n=0; $n<=1.001; $n+=0.005) {
  $pi->setRatio($n);
  $clip->nextFrame();
}

my $m = new SWF::Movie();
$m->setDimension($width, $height);
$m->add(new SWF::Action("_quality = 'LOW';"));
my $clipi = $m->add($clip);
$clipi->moveTo($width/2 + 10, $height/2 - 10);
my $clipi2 = $m->add($clip);
$clipi2->moveTo($width/2, $height/2);

$m->nextFrame();

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