package {



        import flash.display.Sprite;

        import flash.display.Bitmap;

        import flash.display.BitmapData;

        import flash.events.MouseEvent;

        import flash.events.Event;

        import flash.geom.Point;

        import frocessing.math.PerlinNoise;

        import frocessing.color.ColorHSV;

        //import org.libspark.utils.GeomUtil;



        [SWF(backgroundColor="#000000", width="465", height="465", frameRate="30")]



        public class Main13 extends Sprite {

                private var canvas:Sprite;

                private var bitmap:Bitmap;

                private var bitmapData:BitmapData;

                private static var bWidth:uint = 600;

                private static var bHeight:uint = 600;

                private static var segments:uint = 5;

                private static var ratio:Number = 1/segments;

                private static var colors:uint = 360;

                private var perlin:PerlinNoise;

                private var color:ColorHSV;

                private var t:Number = 0;

                private var c:uint = 0;

                private static var tightness:uint = 40;



                public function Main13() {

                        //Wonderfl.capture_delay(30);

                        stage.frameRate = 120;

                        init();

                }



                private function init():void {

                        graphics.beginFill(0x000000);

                        graphics.drawRect(0, 0, 465, 465);

                        graphics.endFill();

                        canvas = new Sprite();

                        bitmapData = new BitmapData(bWidth, bHeight, true, 0x00000000);

                        bitmap = new Bitmap(bitmapData);

                        addChild(bitmap);

                        bitmap.y = uint((bWidth - bHeight)/2);

                        perlin = new PerlinNoise();

                        color = new ColorHSV();

                        addEventListener(Event.ENTER_FRAME, draw, false, 0, true);

                        stage.addEventListener(MouseEvent.CLICK, reset, false, 0, true);

                }

                private function draw(evt:Event):void {

                        canvas.graphics.clear();

                        color.h = c;

                        canvas.graphics.lineStyle(0, color.value, 0.2);

                        c ++;

                        c %= colors;

                        bitmapData.lock();

                        var points:Array = new Array();

                        points.push(new Point(-bWidth*ratio, bHeight*0.5));

                        for (var n:uint = 1; n <= segments+1; n++) {

                                var xPos:Number = n*bWidth*ratio;

                                var yPos:Number = perlin.noise(n*0.25, t)*bHeight;

                                points.push(new Point(xPos-bWidth*ratio, yPos));

                        }

                        t += 0.01;

                        points.push(new Point(bWidth*(1+ratio), bHeight*0.5));

                        points.unshift(points[0]);

                        points.push(points[points.length-1]);

                        canvas.graphics.moveTo(points[0].x, points[0].y);

                        for (var p:uint = 0; p < points.length-3; p++) {

                                var p0:Point = points[p];

                                var p1:Point = points[p+1];

                                var p2:Point = points[p+2];

                                var p3:Point = points[p+3];

                                for (var s:uint = 1; s < tightness+1; s++) {

                                        //var px:Number = GeomUtil.spline(p0.x, p1.x, p2.x, p3.x, s/tightness);

                                        //var py:Number = GeomUtil.spline(p0.y, p1.y, p2.y, p3.y, s/tightness);

                                        var px:Number = spline(p0.x, p1.x, p2.x, p3.x, s/tightness);

                                        var py:Number = spline(p0.y, p1.y, p2.y, p3.y, s/tightness);

                                        canvas.graphics.lineTo(px, py);

                                }

                        }

                        bitmapData.draw(canvas);

                        bitmapData.scroll(0,1);                

                        bitmapData.unlock();

                }

                private function spline(p0:Number, p1:Number, p2:Number, p3:Number, t:Number):Number {

                        var v0:Number = (p2 - p0) * 0.5;

                        var v1:Number = (p3 - p1) * 0.5;

                        var t2:Number = t * t;

                        var t3:Number = t2 * t;

                        return (2 * p1 - 2 * p2 + v0 + v1) * t3 + ( -3 * p1 + 3 * p2 - 2 * v0 - v1) * t2 + v0 * t + p1;

                }

                private function reset(evt:MouseEvent):void {

                        bitmapData.lock();

                        bitmapData.fillRect(bitmapData.rect, 0x00000000);

                        bitmapData.unlock();

                }



        }



}