#!/usr/bin/perl -w

#use lib("/aodv/bin/lib/site_perl");

use SWF qw(:ALL);

SWF::setVersion(4);

$m = new SWF::Movie;
$m->setDimension(400, 300);

### Morph 1 ###
$morph = new SWF::Morph;

$s1 = $morph->getShape1;
$s1->setLine(40, 0x00, 0x00, 0x00);
$s1->setLeftFill(0,200,200);
$s1->drawLine(100, 0);
$s1->drawLine(0, 200);
$s1->drawLine(-100, 0);
$s1->drawLine(-100, 0);
$s1->drawLine(0, -200);
$s1->drawLine(100, 0);
$s1->setLeftFill();

$s2 = $morph->getShape2;	
$s2->setLine(100, 0xff, 0x99, 0x00);
$s2->setLeftFill(255,0,0);
$s2->drawCurve(60, -50, 40, 40);
$s2->drawCurve(50,50, -100,60);
$s2->drawCurve(-50,30, 0,40);
$s2->drawCurve(0,-50, -50,-10);
$s2->drawCurve(-100,-30,50,-80);
$s2->drawCurve(40, -60, 60, 60);
$s2->setLeftFill();


$morph_inst = $m->add($morph);
$morph_inst->move(200,80);
for($i=0; $i<=1; $i+=0.05){  
	$morph_inst->setRatio($i);  
	$m->nextFrame;  
}
#print('Content-type: application/x-shockwave-flash\n\n');
#$m->output();
$m->save("$0.swf");