forked from: FrocessingSample

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

by Aiaigasa 05 Aug 2009

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

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

// 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 F5MovieClip2DBmp 
    { 
        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( 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; 
        } 
    } 
}