$morph = new SWFMorph();

$shape1 = $morph->getShape1();
$shape2 = $morph->getShape2();

$shape1->setLine(2, 0xff, 0x0, 0x0);
$shape1->movePenTo(200,200);
$shape1->drawCircle(100);

$shape2->setLine(1, 0x0, 0x0, 0xff);
$shape2->movePenTo(200, 200);
$shape2->drawLine(1,1);

$dMorph = $movie->add($morph);

for($r=0.0; $r<=1.0; $r+=0.02) {
    $dMorph->setRatio($r);
    $movie->nextFrame();
}