<?
/********************************************************************************
* @ File: circle.php
* @ Original date: February 2003  @ www16.brinkster.com/gazb/ming/
* @ Version: 1.2
* @ Summary: a circle with a bitmap fill
* @ 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); 

// get bitmap for fill
// tux bitmap from http://www.mandrakelinux.com/en/
$bitmapfilename="ic-tuxgeneric.jpg";
$fob = fopen($bitmapfilename,"rb");
$img = new SWFBitmap($fob); 

// draw circle shape add bitmap fill
$circleshape = new SWFShape();
$myfill=$circleshape->addFill($img, SWFFILL_TILED_BITMAP); 
$circleshape->setRightFill($myfill);
$circleshape->drawCircle(100);

// add circle shape to movie and move to _x=100 _y=100
$circlesymbol=$movie->add($circleshape);
$circlesymbol->moveTo(100,100);

// save swf with same name as filename
$swfname = basename(__FILE__,".php");
$movie->save("$swfname.swf",9);
?>