<?
/********************************************************************************
* @ File: gradient.php
* @ Original date: March 2003 @ www16.brinkster.com/gazb/ming/
* @ Version: 1.2
* @ Summary: creating a gradient in ming
* @ 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(600,400);
$movie->setBackground(rand(0,0xFF),rand(0,0xFF),rand(0,0xFF));
$movie->setRate(31);

// gradient
$gradient=new SWFGradient(); 
$gradient->addEntry(0.0,255,0,0); 
$gradient->addEntry(1.0,0,0,255); 

// circle shape
$circleShape =new SWFShape();
$fill=$circleShape->addFill($gradient, SWFFILL_LINEAR_GRADIENT); 
$fill->scaleTo(0.25); 
//$fill->moveTo(230,0); 

$circleShape->setRightFill($fill);
$circleShape->drawCircle(95);
$i=$movie->add($circleShape);
$i->moveTo(200,200); 
//
//  square shape
$squareShape =new SWFShape();
$fill2=$squareShape->addFill($gradient, SWFFILL_LINEAR_GRADIENT); 
$fill2->scaleTo(0.125); 
$fill2->moveTo(-30,0); 
$squareShape->setLine(0,0,0,0); 
$squareShape->setRightFill($fill2);
$squareShape->drawLine(100,0); 
$squareShape->drawLine(0,100); 
$squareShape->drawLine(-100,0);
$squareShape->drawLine(0,-100); 
$i=$movie->add($squareShape);
$i->moveTo(300,100); 

// save swf with same name as filename
$swfname = basename(__FILE__,".php");
$movie->save("$swfname.swf",9);
?>