<?
/********************************************************************************
* @ File: skewxto.php
* @ Original date: October 2003 @ www16.brinkster.com/gazb/ming/
* @ Version: 1.2
* @ Summary: skewXTo example
* @ 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); 

// draw a red square
$squareshape=new SWFShape(); 
$squareshape->setRightFill(255,0,0);
$squareshape->movePenTo(-50,-50); 
$squareshape->drawLine(100,0);  
$squareshape->drawLine(0,100); 
$squareshape->drawLine(-100,0); 
$squareshape->drawLine(0,-100); 

// add  red square to movie
$squaresymbol=$movie->add($squareshape);
$squaresymbol->moveTo(250,200);

// skewXTo is absolute (ie set skew to -1)
// -1 = -45 degree skew,  +1 = +45 degree skew
$squaresymbol->skewXTo (-1);
$movie->nextFrame();

// skew the square forward
for($i=-1; $i<1; $i+=0.05) {
$squaresymbol->skewXTo ($i);
$movie->nextFrame();
}
// skew the square back
for($i=1; $i>-1; $i-=0.05) {
$squaresymbol->skewXTo ($i);
$movie->nextFrame();
}

// save swf with same name as filename
$swfname = basename(__FILE__,".php");
$movie->save("$swfname.swf",9);
?>