forked from: flash on 2009-5-14

by hacker_ieu9k33m 20 May 2009

• Forked from publicroots's flash on 2009-5-14
• Diff: 4
• Related works: 2
Embed

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

// forked from publicroots's flash on 2009-5-14
// forked from sr_forest's forked from: flash on 2009-5-10
// forked from hacker_ij48yrxl's flash on 2009-5-10
package 
{
	import flash.display.Bitmap;
	import flash.display.BitmapData;
	import flash.display.Sprite;
	import flash.events.Event;
	import flash.filters.BlurFilter;
	import flash.geom.Point;
        
         [SWF(backgroundColor="#FFFFFF", frameRate=60)]
         
	public class Main extends Sprite 
	{
		
		public static const PERLIN_WIDTH:int = 200;
		public static const PERLIN_HEIGHT:int = 40;
		public static const WIDTH:int = 500;
		public static const HEIGHT:int = 500;
		
		private var px:Number = 0;
		
		public function Main():void 
		{
			if (stage) init();
			else addEventListener(Event.ADDED_TO_STAGE, init);
		}
		
		private function init(e:Event = null):void 
		{
			removeEventListener(Event.ADDED_TO_STAGE, init);
			// entry point
			addEventListener(Event.ENTER_FRAME, loop);
			filters = [new BlurFilter(0,0)];
		}
		
		private function loop(e:Event):void {
			var bmpData :BitmapData = new BitmapData(PERLIN_WIDTH, PERLIN_HEIGHT);
			bmpData.perlinNoise(PERLIN_WIDTH, PERLIN_HEIGHT, 3, 5, true, true, 2 | 1, false, [new Point(px += 0.5, 0), new Point( -px / 2, 0), new Point(0, 0)]);
			graphics.clear();
			graphics.beginFill(0x000000);
			graphics.drawRect(0, 0, WIDTH, HEIGHT);
			graphics.endFill();
			graphics.lineStyle(2, 0xff0000, 0.10);
			for (var j:int = 0; j < PERLIN_HEIGHT - 1; j++) { 
				var value1:int = bmpData.getPixel(0, j);
				value1 = value1 >> 16;
				var value2:int = bmpData.getPixel(0 + 1, j);
				value2 = value2 >> 16;
				graphics.moveTo(0 * WIDTH / (PERLIN_WIDTH -1), value1 + HEIGHT / 2 - 128);
				//graphics.beginFill(0xff0000, 10.10);
				for (var i:int = 0; i < PERLIN_WIDTH - 1; i++) {
					value1 = bmpData.getPixel(i, j);
					value1 = value1 >> 16;
					value2 = bmpData.getPixel(i + 1, j);
					value2 = value2 >> 16;
					
					graphics.curveTo(i * WIDTH / (PERLIN_WIDTH - 1), value1 + HEIGHT / 2 - 128, (i + 1) * WIDTH / (PERLIN_WIDTH - 1), value2 + HEIGHT / 2 - 128);
				}
			}
		}
		
	}
	
}