Perlinノイズ

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

// forked from shmdmoto's Perlin Noiseを使ったランダム模様
package 
{
    import frocessing.display.F5MovieClip2D;
    /**
     * 円を敷き詰める
     * @author shmdmoto
     */
    public class GraphicExample extends F5MovieClip2D
    {
        public function setup() : void
        {
            var x: int, y:int;
            var noiseScale:Number = 0.05;
            var noiseVal:Number;
            noFill();
            for(y=0; y <= 465; y++) {
                for(x=0; x <= 465; x++) {
                    noiseVal= noise(x*noiseScale, y*noiseScale);
                    stroke(noiseVal*255);
                    point(x, y);
                 }
            }
        }
    }
}