1#!/usr/bin/perl -w 2 3use SWF qw(:ALL); 4use SWF::Constants qw(:Shape); 5 6$m = SWF::Movie::newSWFMovieWithVersion(8); 7 8$morph = new SWF::Morph(); 9 10$shape1 = $morph->getShape1(); 11$shape2 = $morph->getShape2(); 12 13$shape1->setLine(4, 25, 0, 0, 128); 14$shape1->movePenTo(5, 5); 15$shape1->drawLineTo(50, 30); 16 17$shape2->setLine(4, 25, 0, 0, 128); 18$shape2->movePenTo(5, 5); 19$shape2->drawLineTo(50, 130); 20 21$item = $m->add($morph); 22for ($i = 0; $i < 10; $i++ ) 23{ 24 $item->setRatio(0.1 * $i); 25 $m->nextFrame(); 26} 27 28$m->save("test01.swf"); 29