PerlinNoise01

by b23 03 May 2010

Embed

/**
 * Copyright b23 ( http://wonderfl.net/user/b23 )
 * MIT License ( http://www.opensource.org/licenses/mit-license.php )
 * Downloaded from: http://wonderfl.net/c/d96g
 */

package {
    import flash.display.Sprite;
    import flash.display.BitmapData;
    import flash.display.Bitmap;
    import flash.display.BitmapDataChannel;
    import flash.geom.Point;
    import flash.events.Event;

    [SWF(width=465, height=465, backgroundColor = 0)]
    public class BitmapDataSample9 extends Sprite {
    	
        private var bmpdata:BitmapData;
     
        public function BitmapDataSample9() {
            //BitmapDataを作成して表示リストに追加
            bmpdata = new BitmapData(120,120,false,0);
            var bmp:Bitmap = new Bitmap(bmpdata);
            bmp.scaleX = bmp.scaleY = 4;
            addChild(bmp);
            //イベント
            addEventListener( Event.ENTER_FRAME,enterframe);
        }
        
        private var baseX:Number  = 80;
        private var baseY:Number  = 80;
        private var octaves:uint  = 2;
        private var randomSeed:int = Math.random() * 0xFFFFFFFF;
        private var stitch:Boolean = false;
        private var fractalNoise:Boolean = false;
	    private var channelOptions:int =  BitmapDataChannel.RED |BitmapDataChannel.BLUE;
        private var grayScale:Boolean = true;
        private var offset:Array = [new Point(), new Point(), new Point()];
        
        private function enterframe(e:Event):void {
        		//PerlinNoise
        		bmpdata.perlinNoise( baseX, baseY, octaves, randomSeed, stitch, fractalNoise, channelOptions, grayScale, offset );
        		offset[0].y += 2;
        		offset[1].y += 1;
        		offset[2].y += 0.5;
        }
        
    }
}