Animeret Perlin noise

// settings for the perlin noise renderer
// size of areas, integers, higher = smaller areas = more detailed
OptimizedPerlin.octaves = 3;
// smoothing, values: 0-1, lower = more smooth
OptimizedPerlin.falloff = 0.5;
// generate perlin seed(randomness)
OptimizedPerlin.seed = Math.round(Math.random() * 123);

// create bitmapdata that we will draw perlin map onto, keep size small for fast render
_perlinData = new BitmapData(50,25,false,0x000000);
 
// create bitmap for perlin bitmapdata, smoothing is important cause it will be scaled
var perlinBitmap:Bitmap = new Bitmap(_perlinData,"auto",true);

// DRAW PERLIN
private function drawPerlin():void
{
	// lock the bitmapdata (block updates)
	_perlinData.lock();
 
	// run through each pixel in the bitmapdata
	for (var i:Number = 0; i < _perlinData.width; ++i) 
	{
		for (var j:Number = 0; j < _perlinData.height; ++j) 
		{
			// get value from perlin noise (0-1)
			var noiseValue:Number = OptimizedPerlin.noise( i/_perlinData.width, j/_perlinData.height, _zValue );
			// convert value to color amount (0-255)
			var noiseColorValue:int = int( (.5+1.*(noiseValue-.5))*255 );
			// create blue color between full blue and full white
			var color:uint = noiseColorValue << 16 | noiseColorValue << 8 | 255;
			// set color on bitmapdata pixel
			_perlinData.setPixel(i, j, color);
		}
	}
 
	//unlock the bitmapdata
	_perlinData.unlock();
}

// ENTER FRAME HANDLER
private function enterFrameHandler(event:Event):void
{
	// draw perlin map
	drawPerlin();
 
	// increment z value used for perlin map
	_zValue += 0.04;
}

package 
{
	// IMPORTS
	import flash.display.Sprite;
	import flash.display.StageScaleMode;
	import flash.display.StageAlign;
	import flash.display.BitmapData;
	import flash.display.Bitmap;
	import flash.events.Event;
	import nl.ronvalstar.math.OptimizedPerlin;
 
	// CLASS
	public class PerlinAnim extends Sprite
	{
		//PRIVATE VARS
		private var _perlinData:BitmapData;
		private var _perlinHolder:Sprite;
		private var _zValue:Number = 1;
 
		// CONSTRUCTOR
		public function PerlinAnim()
		{
			// set stage scale and align
			stage.scaleMode = StageScaleMode.NO_SCALE;
			stage.align = StageAlign.TOP_LEFT;
 
			// initialize
			init();
		}
 
		// INIT
		private function init():void
		{
			// create the perlin bitmaps etc.
			setupPerlin();
 
			// listen for stage resize and enter frame
			stage.addEventListener(Event.RESIZE, stageResizeHandler, false, 0, true);
			addEventListener(Event.ENTER_FRAME, enterFrameHandler, false, 0, true);
		}
 
		// SETUP PERLIN
		private function setupPerlin():void
		{
			// settings for the perlin noise renderer
			// size of areas, integers, higher = smaller areas = more detailed
			OptimizedPerlin.octaves = 3;
			// smoothing, values: 0-1, lower = more smooth
			OptimizedPerlin.falloff = 0.5;
			// generate perlin seed(randomness)
			OptimizedPerlin.seed = Math.round(Math.random() * 123);
 
			// create bitmapdata that we will draw perlin map onto, keep size small for fast render
			_perlinData = new BitmapData(50,25,false,0x000000);
 
			// create bitmap for perlin bitmapdata, smoothing is important cause it will be scaled
			var perlinBitmap:Bitmap = new Bitmap(_perlinData,"auto",true);
 
			// setup holder and add to stage
			_perlinHolder = new Sprite();
			_perlinHolder.addChild(perlinBitmap);
			addChild(_perlinHolder);
 
			// scale perlin holder to stage size
			stageResizeHandler(null);
		}
 
		// DRAW PERLIN
		private function drawPerlin():void
		{
			// lock the bitmapdata (block updates)
			_perlinData.lock();
 
			// run through each pixel in the bitmapdata
			for (var i:Number = 0; i < _perlinData.width; ++i) 
			{
				for (var j:Number = 0; j < _perlinData.height; ++j) 
				{
					// get value from perlin noise (0-1)
					var noiseValue:Number = OptimizedPerlin.noise( i/_perlinData.width, j/_perlinData.height, _zValue );
					// convert value to color amount (0-255)
					var noiseColorValue:int = int( (.5+1.*(noiseValue-.5))*255 );
					// create blue color between full blue and full white
					var color:uint = noiseColorValue << 16 | noiseColorValue << 8 | 255;
					// set color on bitmapdata pixel
					_perlinData.setPixel(i, j, color);
				}
			}
 
			//unlock the bitmapdata
			_perlinData.unlock();
		}
 
		// ENTER FRAME HANDLER
		private function enterFrameHandler(event:Event):void
		{
			// draw perlin map
			drawPerlin();
 
			// increment z value used for perlin map
			_zValue += 0.04;
		}
 
		// STAGE RESIZE HANDLER
		private function stageResizeHandler(event:Event):void
		{
			// scale perlin holder to stage
			_perlinHolder.scaleX = stage.stageWidth/_perlinData.width;
			_perlinHolder.scaleY = stage.stageHeight/_perlinData.height;
		}
	}
}