flash on 2010-11-23

by aruerula
http://blog.alt-scape.com/archives/138
♥0 | Line 39 | Modified 2010-11-23 11:52:30 | MIT License
play

ActionScript3 source code

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

package

{
    //http://blog.alt-scape.com/archives/138
    import flash.display.*;
    import frocessing.display.F5MovieClip2D;

    public class frocessing1 extends F5MovieClip2D
    {

        private var count:int = 50;
        private var addNum:int = 1;

        public function frocessing1()
        {

            stage.frameRate = 30;
            stage.align = StageAlign.TOP_LEFT;
            stage.scaleMode = StageScaleMode.NO_SCALE;
            super();
            QBest();

        }

        public function draw():void
        {

            clear();
            size(550, 400);
            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;

        }

    }

}