forked from: Sea

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

// forked from shohei909's Sea
//海を描く。17行のコード。

package {
    import flash.geom.Point;
    import flash.display.*;
    [SWF(backgroundColor="0x114488")]
    public class Cloud extends Sprite {
        function Cloud() {
            var map: BitmapData, arr: Array = [new Point, new Point, new Point];
            addChild( new Bitmap(map = new BitmapData(465, 265)) ).y = 200;
            addEventListener( "enterFrame", function(e:*): void {
                for (var i: int = 0; i < 3; i++) arr[i].x += (((i * 3) % 4) - 2);
                map.perlinNoise(256, 64, 3, 0, true, false, 8, false, arr);
            });
        }
    }
}