flash on 2010-1-28

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

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 FlashTest extends Sprite {
    		private var bmpdata:BitmapData;
    		
        public function FlashTest() {
            // write as3 code here..
            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 = 50;
        private var baseY:Number = 50;
        private var octaves:uint = 3;
        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|BitmapDataChannel.GREEN;
        private var grayScale:Boolean = false;
        private var offset:Array = [new Point(),new Point(),new Point()];
        private function enterframe(e:Event):void {
        		bmpdata.perlinNoise(baseX,baseY,octaves,randomSeed,stitch,fractalNoise,channelOptions,grayScale,offset);
        		offset[0].y += 2;
        		offset[1].y += 1;
        		offset[2].y += 0.5;
        }
    }
}