perlin noise fractal true/false

by jax
♥0 | Line 34 | Modified 2014-11-15 20:34:01 | MIT License
play

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
    }
}