<?
/********************************************************************************
* @ File: f8perlin.php
* @ Original date: March 2007 @ www16.brinkster.com/gazb/ming/
* @ Version: 1.2
* @ Summary: flash 8 perlin filter - click on the boxes 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 an actionscript string
$strAction=<<<EOT
boxwidth=200;
boxheight=200;

// create references to classes
fdb=flash.display.BitmapData;
fgp=flash.geom.Point;

points = [];
points.push(new Point(50, 50));
points.push(new Point(0, 0));
points.push(new Point(30, 0));
points.push(new Point(10, 70));
points.push(new Point(20, 0));
points.push(new Point(0, 20));


var fdb1 = new fdb(boxwidth, boxheight, false, 0x00CCCCCC);
var fdb2 = new fdb(boxwidth, boxheight, false, 0x00FF0000);

// grey
var mc1 = this.createEmptyMovieClip("mc1", this.getNextHighestDepth());
mc1.attachBitmap(fdb1, this.getNextHighestDepth());
mc1._x=Stage.width/2-boxwidth;
mc1._y=Stage.height/2-boxheight/2;

// color
var mc2 = this.createEmptyMovieClip("mc2", this.getNextHighestDepth());
mc2.attachBitmap(fdb2, this.getNextHighestDepth());
mc2._x = Stage.width/2;
mc2._y=Stage.height/2-boxheight/2;

// grey
mc1.onPress = function() {
    var randomNum = Math.floor(Math.random() * 10);
        fdb1.perlinNoise(200, 200, 6, randomNum, false, true, 1, true, null);
};
// color
mc2.onPress = function() {
    var randomNum = Math.floor(Math.random() * 10);
        fdb2.perlinNoise(200, 200, 4, randomNum, false, false, 15, false, points);	
	
};

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));
?>