flash on 2010-3-29

砂嵐つくってみた。これから他の人のコードも読んでみます

なんか重いし不自然な感じがする…

BitmapData.noise()なんてのがあるなんて知らなかった…

by yasai 29 Mar 2010

Tags

BitmapData noise perlinNoise tv
Embed

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

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, 0, true);
			bmd.unlock();
		}
    }
}