flash on 2010-1-6

by sharkbox 06 Jan 2010

• Related works: 3
Embed

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

package {
    import flash.display.BitmapData;
    import flash.display.Bitmap;
    import flash.display.Sprite;
    import flash.geom.Rectangle;
    import flash.geom.Point;
    import flash.filters.*;
    import flash.events.Event;
    
    public class Main extends Sprite {
		var rect:Rectangle = new Rectangle(0, 0, stage.stageWidth, stage.stageHeight);
        var point:Point = new Point();
        var perlin:BitmapData = new BitmapData(stage.stageWidth, stage.stageHeight, false, 0xffffff);
        var perlin2:BitmapData = new BitmapData(stage.stageWidth, stage.stageHeight, false, 0xffffff);
		var bmp:BitmapData = new BitmapData(stage.stageWidth, stage.stageHeight, false, 0xffffff);
        var bmp2:BitmapData = new BitmapData(stage.stageWidth, stage.stageHeight, false, 0xffffff);

        public function Main(){
            perlin.perlinNoise(50, 50, 1, Math.random() * 1000, true, true, 1, true);
            this.addChildAt(new Bitmap(bmp2),0);
            bmp.noise(1000,0,255,1|2|4,true);
            bmp.applyFilter(bmp,
            rect,
            point,
            new BlurFilter(20, 1, 5));

            this.addEventListener(Event.ENTER_FRAME, _oef);
        };

		private function _oef($evt:Event) {
        	perlin2.copyPixels(perlin,
	        rect,
	        new flash.geom.Point(-1, 0));
	        perlin2.copyPixels(perlin,
	        new flash.geom.Rectangle(0, 0, 1, stage.stageHeight),
	        new flash.geom.Point(stage.stageWidth - 1, 0));
	        perlin.copyPixels(perlin2, rect, point);
	        bmp2.copyPixels(bmp, rect, point);
	        bmp2.applyFilter(bmp2,
	        rect,
	        point,
	        new flash.filters.DisplacementMapFilter(perlin, point, 1, 1, 2, 10));
        }
    }
}