The grass - 芝生に石灰でライン引き

芝生に石灰を撒けます
時々途切れるのは粉詰まりってことで・・・
重いですね。はい。

by Susisu 16 May 2010

Embed

//芝生に石灰を撒けます
//時々途切れるのは粉詰まりってことで・・・
//重いですね。はい。
package{
	import flash.display.*;
	import flash.events.Event;
	import flash.geom.*;
	import net.hires.debug.Stats;
	[SWF(width="512", height="512", backgroundColor="0x000000", frameRate="60")]
	public class Flying extends Sprite{
		private var bmd:BitmapData=new BitmapData(512,512,true,0xff000000);
		private var bmp:Bitmap=new Bitmap(bmd,PixelSnapping.AUTO,true);
		private var op:Number;
		private var re:Rectangle=new Rectangle(0,0,512,1);
		public function Flying(){
			addChild(bmp);
			var st:Stats=new Stats();
			st.alpha=0.5;
			addChild(st);
			Wonderfl.capture_delay(10);
			addEventListener("enterFrame", loop);
		}
		private function loop(e:Event):void{
			bmd.lock();
			bmd.scroll(0,1);
			bmd.fillRect(re,0xff000000);
			for(var i:uint=0;i<1024;i++){//大きいと滑らかに、小さいと粗くなる感じです
				bmd.setPixel32(Math.random()*512,0,Math.random()*256<<24|0x008000);
			}
			for(i=0;i<256;i++){//白線も弾ける
				bmd.setPixel32(mouseX+Math.random()*(op-mouseX)+Math.random()*10-5,Math.random()*10,Math.random()*256<<24|0xffffff);
			}
			op=mouseX;
			bmd.unlock();
		}
	}
}