flash on 2011-12-19

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

package {
    import flash.display.Sprite;
    public class FlashTest extends Sprite {
      import flash.display.BitmapData;
var rect:flash.geom.Rectangle = new flash.geom.Rectangle(0, 0, Stage.width, Stage.height);
var point:flash.geom.Point = new flash.geom.Point();
var perlin:BitmapData = new BitmapData(Stage.width, Stage.height, false, 0xffffff);
var perlin2:BitmapData = new BitmapData(Stage.width, Stage.height, false, 0xffffff);
perlin.perlinNoise(50, 50, 1, Math.random() * 1000, true, true, 1, true);
var bmp:BitmapData = new BitmapData(Stage.width, Stage.height, false, 0xffffff);
var bmp2:BitmapData = new BitmapData(Stage.width, Stage.height, false, 0xffffff);
_root.attachBitmap(bmp2,0);

bmp.noise(1000,0,255,1|2|4,true);
bmp.applyFilter(bmp,
rect,
point,
new flash.filters.BlurFilter(20, 1, 5));

function onEnterFrame()
{
perlin2.copyPixels(perlin,
rect,
new flash.geom.Point(-1, 0));
perlin2.copyPixels(perlin,
new flash.geom.Rectangle(0, 0, 1, Stage.height),
new flash.geom.Point(Stage.width - 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));
}
    }
}