forked from: flash on 2010-3-29

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

// forked from yasai's flash on 2010-3-29
package {
    import flash.display.Bitmap;
    import flash.display.BitmapData;
    import flash.display.Sprite;
    import flash.events.Event;
    import net.hires.debug.Stats;
    /**
     * 砂嵐つくってみた。これから他の人のコードも読んでみます
     * 
     * なんか重いし不自然な感じがする…
     * 
     * BitmapData.noise()なんてのがあるなんて知らなかった…
     */
    [SWF(width="465", height="465", frameRate="30")]
    public class FlashTest extends Sprite {
        private var bmd:BitmapData;
        private const H:uint = 465;
        private const W:uint = 465
       
        private var seed:uint;
        
        public function FlashTest() {
            addEventListener(Event.ADDED_TO_STAGE, init);
        }
        
        private function init(e:Event):void {
            removeEventListener(Event.ADDED_TO_STAGE, init);
            
        //    stage.addChild(new Stats());
            
            bmd = new BitmapData(W, H, false, 0x00000000);
            var bm:Bitmap = new Bitmap(bmd);
            addChild(bm);
                        
            addEventListener(Event.ENTER_FRAME, onEnterFrame);
        }
        
        private function onEnterFrame(e:Event):void {
            bmd.lock();
            seed = Math.floor(Math.random() * 0xFFFFFF);
            bmd.perlinNoise(4, 4, 1, seed, false , true, 1, true);
            bmd.unlock();
        }
    }
}