forked from: forked from: AnimationSample

やりたかったことが無事に解決
円が繰り返し広がるようにしました。

by dakkie 01 Jul 2009

Embed

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

// forked from dakkie's forked from: AnimationSample 
// forked from nutsu's AnimationSample 
// forked from nutsu's TransformSample

//やりたかったことが無事に解決
//円が繰り返し広がるようにしました。

package {
    import frocessing.display.F5MovieClip2D;
    import flash.display.Sprite;
    import flash.events.Event;
    import flash.events.MouseEvent;
    import flash.display.Stage;
    
    [SWF( backgroundColor='0000000', frameRate='30')]
    
    public class AnimationSample extends F5MovieClip2D {
        private var n:int = 30;
        private var r:Number = 2 * Math.PI / n;
        private var a:int = 0;
        private var base:Sprite;
        
        //描画プログラムの初期化(ADDED_TO_STAGE)
        public function setup():void {
            colorMode(HSV, n, 1, 1);
            rectMode(CENTER);
            noStroke();
            }
        
        //一定間隔で描画を実行する(ENTER_FRAME)
        public function draw():void {
            //キャンバスをステージの中心へ移動
            translate(stage.stageWidth / 2, stage.stageHeight / 2);
                       
            //キャンバスを角度a*r回転
            rotate(r * a);
            
                          
            //描画
            for (var i:int = 0; i < n; i++) {
                rotate(r);
                fill(i, 1, 1);
                rect(a, a, 30, 30, 15, 15);
            }
            a++;   
              
            if(isMousePressed) 
                a = 0;
            if(a > 250)
                a = 0;                
         }
    }
}