<?
/********************************************************************************
* @ File: morph.php
* @ Original date: October 2003 @ www16.brinkster.com/gazb/ming/
* @ Version: 1.2
* @ Summary: based on the example from the docs at ming.sourceforge.net
* @ Updated:  small improvements and summary text
* @ Copyright (c) 2003-2007, www.gazbming.com - all rights reserved.
* @ Author: gazb.ming [[@]] gmail.com - www.gazbming.com 
* @ Released under GNU Lesser General Public License - http://www.gnu.org/licenses/lgpl.html
********************************************************************************/

// some typical movie variables
Ming_setScale(20.0000000);
ming_useswfversion(6);
$movie=new SWFMovie();
$movie->setDimension(550,400);
$movie->setBackground(rand(0,0xFF),rand(0,0xFF),rand(0,0xFF));
$movie->setRate(31); 

$p = new SWFMorph();
$s = $p->getShape1();
$s->setLine(0,0,0,0);

$s->setLeftFill($s->addFill(0xff, 0, 0));
$s->movePenTo(-50,-50);
$s->drawLine(100,0);
$s->drawLine(0,100);
$s->drawLine(-100,0);
$s->drawLine(0,-100);

$s = $p->getShape2();
$s->setLine(60,0,0,0);
$s->setLeftFill($s->addFill(0, 0, 0xff));
$s->movePenTo(0,-50);
$s->drawLine(50,50);
$s->drawLine(-50,50);
$s->drawLine(-50,-50);
$s->drawLine(50,-50);

$i = $movie->add($p);
$i->moveTo(250,200);

for($r=0.0; $r<=1.0; $r+=0.02)
{
$i->setRatio($r);
$movie->nextFrame();
}

// save swf with same name as filename
$swfname = basename(__FILE__,".php");
$movie->save("$swfname.swf",9);
?>