forked from: 円を縦横に並べる

円を敷き詰める
@author shmdmoto

by sy_redit 20 May 2011

Embed

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

// 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;
            ellipseMode(CORNER);
            for( i = 0 ; i <= 8 ; i++ ) {
                for( j = 0 ; j <= 8 ; j++ ) {
                    ellipse(50 * j, 50 * i, 50, 50);
                }
            }
            
            var k:int, l:int;
            for ( k = 1 ; k <= 9 ; k++ ){
                for ( l = 1 ; l <= 9 ; l++) {
                    rectMode(CENTER);
                    noFill();
                    rect(50*k-25, 50*l-25, 30, 30);
                }

            }
            ellipseMode(CENTER);
            var m:int, n:int;
            for (m=1;m<=9;m++) {
                for (n=1;n<=m;n++){
                    ellipse(50*n-25,50*m-25,20,20);
                }

            }

        }
    }
}