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();
}
}
}