<?
/********************************************************************************
* @ File: f8bevel.php
* @ Original date: March 2007 @ www16.brinkster.com/gazb/ming/
* @ Version: 1.2
* @ Summary: flash 8 bevel - move the mouse to update
* @ 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->setRate(31);
$movie->setDimension(550,400);
$movie->setBackground(rand(0,0xFF),rand(0,0xFF),rand(0,0xFF));

// create a box
$boxwidth=200;
$boxheight=200;

$box=new SWFShape(); 
$box->setRightFill(255,0,0); 
$box->drawLine($boxwidth,0); 
$box->drawLine(0,$boxheight); 
$box->drawLine(-$boxwidth,0); 
$box->drawLine(0,-$boxheight); 

$sp=new SWFSprite(); 
$sp->add($box);
$sp->nextFrame();

$f1=$movie->add($sp);
$f1->setName("box");


// create an actionscript string
$strAction=<<<EOT

box._x=Stage.width/2-box._width/2;
box._y=Stage.height/2-box._height/2;

box.cacheAsBitmap = true;

var listener = new Object();
listener.box = box;
listener.onMouseMove = function() {
var xPercent = (Stage.width/2)-_xmouse;
var yPercent = (Stage.height/2)-_ymouse;
var ffbv=flash.filters.BevelFilter;
var filter = new ffbv(yPercent, 45, 0xFFFF00, 0.8, 0x0000FF, 0.8, xPercent, yPercent, 1, 3, "inner", false);

var filterArray =[];
filterArray.push(filter);
this.box.filters = filterArray;
};

Mouse.addListener(listener);
listener.onMouseMove();

EOT;

// write actionscript string to root frame #1
$movie->add(new SWFAction($strAction));


// save swf with same name as filename
$swfname = basename(__FILE__,".php");
$movie->save($outswf="$swfname.swf",9);
// open movie and set version to 8 
// (hack until it can be set in ming)
$ftmp=fopen($outswf,"r"); $stmp=fread($ftmp,filesize($outswf));
$ftmp=fopen($outswf,"w"); fwrite($ftmp,substr_replace($stmp,chr(8),3,1));
?>