静止画課題3

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

// forked from bluecomet021's 静止画課題２
// forked from shmdmoto's 五芒星形を描く
// forked from shmdmoto's 曲線を描く
package 
{
    import frocessing.display.F5MovieClip2D;
    /**
     * 五芒星形を描く
     * @author shmdmoto
     */
    public class GraphicExample extends F5MovieClip2D
    {
        public function setup() : void
        {
            var i:int, j:int;
            colorMode(HSB, 360, 100, 100, 100);
            noStroke();
            for( i = 0 ; i < 100 ; i++ ){
                for( j = 0 ; j <= 8 ; j++ ){
                    fill(random(0,60), 80, 100, 70);
                    drawPentagram(60 * j,60 * i,50);  
                }
            }
        }
        // 五芒星形を描く
        // x,y : 中心点の座標
        // r : 半径
        private function drawPentagram( x:Number, y:Number, r:Number) : void
        {
            var i:int;
            var small_r:Number;
            
            small_r = r * (3. - sqrt(5))/2.
            beginShape();
            for( i = 0 ; i < 5 ; i++) {
                vertex( x + r * sin( 2.0 * PI / 5 * i),
                        y - r * cos( 2.0 * PI / 5 * i) );
                vertex( x + small_r * sin( 2.0 * PI / 5 * i + PI / 5.),
                        y - small_r * cos( 2.0 * PI / 5 * i + PI / 5.) );
            }
            endShape(CLOSE);
 
        }
    }
}