#!/usr/bin/perl -w

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

use SWF qw(:ALL);

$morph=new SWF::Morph(); 
 
$s1=$morph->getShape1();  
$s1->setLine(5,0,0,255);  
$s1->drawLine(0,100);
$s1->movePenTo(100,0);
$s1->drawCurveTo(200,100,100,100);  

 
$s2=$morph->getShape2();  
$s2->setLine(100,200,50,50);  
$s2->drawLineTo(100,0);  
$s2->drawLineTo(50,100);  
 
$m=new SWF::Movie();  
$m->setDimension(200,200);  

$morph_inst=$m->add($morph);  
$morph_inst->moveTo(50,50);  

for($i=0; $i<=1; $i+=0.05){  
$morph_inst->setRatio($i);  
$m->nextFrame();  
}  

$m->save("$0.swf");