In case Flash no longer exists; a copy of this site is included in the Flashpoint archive's "ultimate" collection.

Dead Code Preservation :: Archived AS3 works from wonderfl.net

flash on 2012-2-9

Get Adobe Flash player
by Solins 09 Feb 2012
    Embed
/**
 * Copyright Solins ( http://wonderfl.net/user/Solins )
 * MIT License ( http://www.opensource.org/licenses/mit-license.php )
 * Downloaded from: http://wonderfl.net/c/uUcD
 */

package {
    import flash.events.Event;
    import flash.geom.Point;
    import flash.display.Sprite;
    import flash.display.BitmapData;
    import flash.display.Bitmap;
    public class PinkPerlin extends Sprite {
        
        private var canvasBitmapData:BitmapData;
        private var canvas:Bitmap;
        private var offsets:Array=[];
        private var speeds:Array=[];
        private var octaves:int=2;
        
        public function PinkPerlin() {
            
            canvasBitmapData = new BitmapData(550,400,true);
            canvas = new Bitmap(canvasBitmapData);
            addChild(canvas);
            
            for(var i:int; i<octaves; i++)
            {
                offsets[i] = new Point(0,0);
            }
            
            speeds[0] = new Point(-2.2,-0.5); speeds[1] = new Point(2.2,0.1);
            
            addEventListener(Event.ENTER_FRAME, tick); 

        }
        
        private function tick(e:Event):void
        {
            for(var i:int=0;i<octaves;i++)
            {
                offsets[i].x += speeds[i].x;
                offsets[i].y += speeds[i].y;
            }
            canvasBitmapData.perlinNoise(174,217,octaves,20950,false,true,13,false,offsets);
        }
    }

}