はーと

以下のWebサイトを参考にしました。
http://www.mathcurve.com/courbes2d/ornementales/ornementales.shtml

by sakef 05 Apr 2011

Embed

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

package
{
    import flash.display.Sprite;
    
    [SWF(width="465", height="465", backgroundColor="0xFFFFFF", frameRate="40")]
    public class Main extends Sprite
    {
        public function Main()
        {
            graphics.lineStyle(5,0x000000);
            graphics.beginFill(0xff0000,1);
            graphics.moveTo(232,250);
            
            for(var i:int=1 ; i<180 ; i++)
            {
                var theta:Number = i*Math.PI/180;
                var tan:Number = Math.abs(Math.tan(theta));
                var r:Number = 150*Math.pow(tan, 1/tan);
                var x:Number =  Math.cos(theta)*r;
                var y:Number = -Math.sin(theta)*r;
                graphics.lineTo(232+x, 250+y);
            }
        }
    }
}