реалистичная вода во flash

[Ksoo]

Как то так наверное

package 
{
	import flash.display.Bitmap;
	import flash.display.BitmapData;
	import flash.display.Sprite;
	import flash.events.Event;
	import flash.display.StageScaleMode;
	import flash.filters.DisplacementMapFilter;
	import flash.geom.Point;
 
	/**
	 * ...
	 * @author Ksoo
	 */
	public class Main extends Sprite 
	{
		[Embed(source = 'image.jpg')]
		private var waterImage:Class;
		private var water_mc:Bitmap;
		private var myfilters:Array;
		private var myBitmap:BitmapData;
		private var i:int;
		public function Main():void 
		{
			if (stage) init();
			else addEventListener(Event.ADDED_TO_STAGE, init);
		}
 
		private function init(e:Event = null):void 
		{
			removeEventListener(Event.ADDED_TO_STAGE, init);
			// entry point
			filters = new Array();			
			stage.scaleMode = StageScaleMode.NO_SCALE;
 
			addEventListener(Event.ENTER_FRAME, anim);
			myBitmap = new BitmapData(390,293,false,0);
			var pt:Point = new Point(0,0);
			var mpoint :Point = new Point(0,0);
			var myDispl:DisplacementMapFilter = new DisplacementMapFilter(myBitmap, mpoint, 1, 2, 10, 50);
			water_mc = new waterImage();
			myfilters = new Array();
			myfilters.push(myDispl);
			water_mc.filters = myfilters;
			addChild(water_mc);
			i = 1;
 
		}
 
		private function anim(e:Event):void {
			var filterList:Array = water_mc.filters;
			var offset:Array;
			offset = new Array();
			offset.push(new Point(0, 0));
			offset.push(new Point(i,i/4));
			myBitmap.perlinNoise(50, 5, 2, 50, true, false, 7, true, offset);
			//myBitmap.perlinNoise(
			filterList.mapBitmap = myBitmap;
			water_mc.filters = filterList;
			i++;
		}
 
	}
 
}