<?
  $p = new SWFMorph();

  $s1 = $p->getShape1();
  $l = $s1->addLineStyle(0,0,0,0);
  $f = $s1->addSolidFill(0xff, 0, 0);
  $s1->setLineStyle($l);
  $s1->setFillStyle0($f);
  $s1->movePenTo(-1000,-1000);
  $s1->drawLine(2000,0);
  $s1->drawLine(0,2000);
  $s1->drawLine(-2000,0);
  $s1->drawLine(0,-2000);

  $s2 = $p->getShape2();
  $l = $s2->addLineStyle(60,0,0,0);
  $f = $s2->addSolidFill(0, 0, 0xff);
  $s2->setLineStyle($l);
  $s2->setFillStyle0($f);
  $s2->movePenTo(0,-1000);
  $s2->drawLine(1000,1000);
  $s2->drawLine(-1000,1000);
  $s2->drawLine(-1000,-1000);
  $s2->drawLine(1000,-1000);

  $m = new SWFMovie();
  $m->setDimension(3000,2000);
  $m->setBackground(0xff, 0xff, 0xff);

  $i = $m->add($p);
  $i->moveTo(1500,1000);

  for($r=0.0; $r<=1.0; $r+=0.1)
  {
    $i->setRatio($r);
    $m->nextFrame();
  }

  header('Content-type: application/x-shockwave-flash');
  $m->output();
?>