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