noise

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

package {
    import flash.events.Event;
    import flash.display.BlendMode;
    import flash.display.Bitmap;
    import flash.display.BitmapData;
    import flash.display.Sprite;
    import frocessing.color.ColorHSV;
    public class FlashTest extends Sprite {
        public function FlashTest() {
            // write as3 code here..
            var base:BitmapData=new BitmapData(465,465,true,0xff990000);
            addChild(new Bitmap(base));
            var rust:BitmapData=new BitmapData(465,465,true);
            rust.perlinNoise(100,100,3,10,true,false,7,true);
            var color:ColorHSV=new ColorHSV();
            for(var y:int=0;y<465;y++){
                for(var x:int=0;x<465;x++){
                    color.value=rust.getPixel(x,y);
                    color.h=Math.random()*360*(color.r/255);
                    color.s=0.9;
                    color.v=0.9;
                    color.a=1;
                    if(color.h>40){
                        color.value=0x0;
                    }
                    rust.setPixel(x,y,color.value);
                }
            }
            var rustBitmap:Bitmap=new Bitmap(rust);
            rustBitmap.blendMode=BlendMode.ADD
            addChild(rustBitmap);
        }
    }
}