View.Set ("nocursor,nobuttonbar,title:Spirograph")

var R : real := Rand.Int (20, 35)
var r : real := Rand.Int (20, 35)
var O : real := Rand.Int (5, 10)
var T : real := Rand.Int (100, 400)
var x, y, oldx, oldy : real := 0
var g : string (1)

loop
    put "1. Random\n2. Specify"
    getch (g)
    exit when g = '1' or g = '2'
end loop
if g = '2' then
    put "R [Fixed circle radius]: " ..
    get R
    put "r [Moving circle radius]: " ..
    get r
    put "O [Offset of the moving circle]: " ..
    get O
    put "T [# of circles]: " ..
    get T
end if
cls

put "\nR: ", R ..
put "\nr: ", r ..
put "\nO: ", O ..
put "\nT: ", T ..

for t : 1 .. round (T)
    oldx := x
    oldy := y
    x := (R + r) * cos (t) - (r + O) * cos (((R + r) / r) * t)
    y := (R + r) * sin (t) - (r + O) * sin (((R + r) / r) * t)

    if t > 1 then
        drawline (round (x) + maxx div 2, round (y) + maxy div 2, round (oldx) + maxx div 2, round (oldy) + maxy div 2, 255)
    end if
end for