perlin noise fractal true/false
♥0 |
Line 34 |
Modified 2014-11-15 20:34:01 |
MIT License
archived:2017-03-20 09:15:51
ActionScript3 source code
/**
* Copyright jax ( http://wonderfl.net/user/jax )
* MIT License ( http://www.opensource.org/licenses/mit-license.php )
* Downloaded from: http://wonderfl.net/c/pBNY
*/
package {
import flash.utils.setInterval;
import flash.geom.Point;
import flash.filters.ColorMatrixFilter;
import flash.display.BitmapDataChannel;
import flash.display.Bitmap;
import flash.events.Event;
import flash.display.BitmapData;
import flash.display.Sprite;
public class FlashTest extends Sprite {
private var bd:BitmapData;
public function FlashTest() {
stage.frameRate = 60;
bd = new BitmapData(stage.stageWidth,stage.stageHeight, false);
addChild(new Bitmap(bd));
update();
addEventListener(Event.ENTER_FRAME, update);
//setInterval(update,10);
}
private var i:int = 0;
private function update(e:Event = null):void
{
var fract:Boolean = ++i % 2 && false;
var inv:Boolean = (int(i/2) % 2) > 0;
bd.perlinNoise(128,128,1,0, false,fract,2,false, [new Point(i,i)]);
if(fract)
bd.applyFilter(bd,bd.rect,new Point,new ColorMatrixFilter([
1,0,0,0,0,
0,inv?-2:2,0,0,inv?255:-255,
0,0,1,0,0,
0,0,0,1,0]));
}
bd.threshold(bd
}
}