同心円 by frocessing

参考　http://blog.alt-scape.com/archives/138
マウスのX位置で変化します。

by tsu_droid 19 Apr 2011

Embed

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

package {
    
    import flash.display.*;
    import frocessing.display.F5MovieClip2D;
    
    [SWF(width = "480", height = "480", backgroundColor = "0", fps = "50")] 

    public class ConcentricCircles01 extends F5MovieClip2D {

        private var count:int = 50;
        private var addNum:int = 1;
        
        public function ConcentricCircles01() {

            super();
            QBest();
        }

        public function draw():void {
            clear();

            size(480,480);
            colorMode(HSB,360,100,100,100);

            background(0,0,0,100);

            noStroke();
            fill(210,100,100,10);
            translate(0,0);

            var ellipse_size:int = 400;
            var left:int = 270;
            var top:int = 200;

            //同心円を描いて行く 
            for (var i:int = 0; i < 16; i++) {
                ellipse(left,top,ellipse_size,ellipse_size);
                ellipse_size = ellipse_size - count + mouseX / 10;
            }

            if (count > 100) {
                addNum = -2;
            } else if (count < 50) {
                addNum = 2;
            }
            count += addNum;
        }
    }
}