<?
/********************************************************************************
* @ File: swfmorph.php
* @ Original date: June 2004 @ www16.brinkster.com/gazb/ming/
* @ Version: 1.2
* @ Summary: making a shape tween by morphing with ming and stopping at end mousedown to replay
* @ 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); 

// basic playback control
$movie->add(new SWFAction("
onMouseDown=function(){
play();
};
"));
$mymorph = new SWFMorph();

// draw first shape
$shapeToMorphFrom = $mymorph->getShape1();
$shapeToMorphFrom->setLine(4,0,0,0);
$shapeToMorphFrom->setLeftFill(0,0,0x66);
$shapeToMorphFrom->movePenTo(-50,-50);
$shapeToMorphFrom->drawLine(50,-20);  
$shapeToMorphFrom->drawLine(50,20);
$shapeToMorphFrom->drawLine(20,50);  
$shapeToMorphFrom->drawLine(-20,50);
$shapeToMorphFrom->drawLine(-50,20);  
$shapeToMorphFrom->drawLine(-50,-20); 
$shapeToMorphFrom->drawLine(-20,-50);  
$shapeToMorphFrom->drawLine(20,-50);

// draw second shape
$shapeToMorphTo = $mymorph->getShape2();
$shapeToMorphTo->setLine(4,0,0,0);
$shapeToMorphTo->setLeftFill(0x66,0,0);
$shapeToMorphTo->drawCircle(100);

// add morph to movie
$morph = $movie->add($mymorph);
$morph->moveTo(275,200);

// shape tween the morph over 50 frames using setratio
for($i=0;$i<=50;$i++){
$morph->setRatio($i/50);
$movie->nextFrame();
}

///##############STOP AT END OF TWEEN##############
$movie->add(new SWFAction("stop();"));
$movie->nextFrame();
///##############STOP AT END OF TWEEN##############

// save swf with same name as filename
$swfname = basename(__FILE__,".php");
$movie->save("$swfname.swf",9);
?>