forked from: forked from:インクforked from: FrocessingSample

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

// forked from yabuchany's forked from:インクforked from: FrocessingSample
// forked from yabuchany's 水彩画forked from: FrocessingSample
// forked from nutsu's FrocessingSample
//see http://gihyo.jp/design/feature/01/frocessing/0001
//インクっぽい
package {
	import frocessing.display.*;
	
	[SWF(width="465", height="465", frameRate="60")]
	public class FrocessingSample extends F5MovieClip3DBmp
	{
		private var stage_width:Number  = 465;
		private var stage_height:Number = 465;
		private var n:int    = 5;
		private var t:Number = 0;
		
		public function FrocessingSample ()
		{
			super();
		}
		
		public function setup():void
		{
			size( stage_width, stage_height );
			background( 255 );
			noFill();
			
		}
		
		public function draw():void
		{
			background( 255 )
			var s:Number =second();
			strokeWeight(100);
			stroke( (s+545)*80, 1,mouseY );
			if( isMousePressed )
				background( 255 );
			
			translate( 0, stage_height/2,s );
			
			beginShape();
			curveVertex( -100, 0 );
			for( var i:int=0; i<=s; i++ ) {
				var xx:Number = i * stage_width / s;
				var yy:Number = noise( i * 0.25, t ) * 300 - 150;
				curveVertex( xx, yy );
			}
			curveVertex( stage_width+100, 0 );
			endShape();
			
			t+=0.01;
		}
	}
}