forked from: forked from: FrocessingSample

see http://gihyo.jp/design/feature/01/frocessing/0001

by naoto5959 04 Oct 2009

• Forked from nutsu's forked from: FrocessingSample
• Diff: 10
• Related works: 31
Embed

// forked from nutsu's forked from: FrocessingSample
// forked from nutsu's FrocessingSample
// see http://gihyo.jp/design/feature/01/frocessing/0001
package {
    import flash.filters.BlurFilter;
    import flash.geom.Point;
    import flash.display.StageQuality;
    import frocessing.display.*;
    
    [SWF(width="465", height="465", frameRate="30")]
    public class FrocessingSample extends F5MovieClip2DBmp
    {
        private var stage_width:Number  = 465;
        private var stage_height:Number = 465;
        private var n:int    = 5;
        private var t:Number = 0;
        private var c:Number = 0;
        public function FrocessingSample ()
        {
            
            super();
            stage.quality = StageQuality.HIGH;
        }
        
        public function setup():void
        {
            size( stage_width, stage_height );
            background( 0 );
            noFill();
            colorMode( HSV, 2, 1, 1 );
        }
        
        public function draw():void
        {
            if( isMousePressed )
                background( 0 );
            
            translate( 0, stage_height/2 );
            
            stroke( t, 1, 0.75, 0.2 );
            beginShape();
            curveVertex( -100, 0 );
            for( var i:int=0; i<=n; i++ ) {
                var xx:Number = i * stage_width / n;
                var yy:Number = noise( i * 0.25, t ) * 300 - 150;
                curveVertex( xx, yy );
            }
            curveVertex( stage_width+100, 0 );
            endShape();
            
            t+=0.01;
            c++;
            if (c % 10 == 0) bitmapData.applyFilter(bitmapData, bitmapData.rect, new Point(), new BlurFilter(1.1, 1.1, 2));
        }
    }
}