2007年5月6日日曜日

リサージュ曲線を描画する

リサージュ曲線を描画するスクリプト。

#const RADIUS 200
#const PI     3.14159
    a = 3
    b = 2
    posCenterX = double(RADIUS + 50)
    posCenterY = double(RADIUS + 50)
    screen 0, posCenterX * 2, posCenterY * 2
    i = 0.0
    pos posCenterX + RADIUS, posCenterY
    while i <= PI * 2
        line posCenterX + cos(i * a) * RADIUS, posCenterY - sin(i * b) * RADIUS
        i += 0.01
        ; await 1
    wend
    title "finish"
    stop

0 件のコメント: