Option explicit
option default NONE
dim float x,y,t
dim float a, b, p
input "params a,b,p :",a,b,p
cls
do
x=(a-b)*cos(rad(t))+(b-p)*cos((a-b)/b*rad(t))+mm.hres\2
y=(a-b)*SIN(rad(t))-(b-p)*SIN((a-b)/b*rad(t))+mm.vres\2
pixel x,y
t=t+1
loop while not loc(0)

Option explicit
Option default NONE
Dim float x,y,x0,y0, t
Dim float a, b, h
dim integer d
Input "params a,b,h :",a,b,h
d=gcd(a,b)
Print "Pattern will have ",a\d," petals"
CLS
x0=(a-b)*Cos(Rad(0))+(h)*Cos((a-b)/b*Rad(0))+MM.HRes\2
y0=(a-b)*Sin(Rad(0))-(h)*Sin((a-b)/b*Rad(0))+MM.VRes\2
For t=1 To (a\d-1)*360
x=(a-b)*Cos(Rad(t))+(h)*Cos((a-b)/b*Rad(t))+MM.HRes\2
y=(a-b)*Sin(Rad(t))-(h)*Sin((a-b)/b*Rad(t))+MM.VRes\2
LINE x0,y0, x,y
x0=x
y0=y
Pause 1
Next t

Function gcd(a As integer, b As integer)As integer
' returns greatest common denominator of two numbers
If(b=0)Then
gcd=a
else
gcd=gcd(b, a mod b)
EndIf
End Function

'MatherP's Spirograph - https://www.thebackshed.com/forum/forum_posts.asp?TID=11232&PN=1
'try 200,170,80 as the parameters
'also try inc=2 & inc=4. 2 is LSD-ish and 4 is pretty!

Option explicit
option default NONE

const blue=rgb(blue),green=rgb(green),yellow=rgb(yellow),red=rgb(red),black=rgb(black)
const cyan=rgb(cyan),magenta=rgb(magenta),BRGRAY=rgb(100,100,100),LTGRAY=rgb(60,60,60)

dim float x,y,t
dim float a, b, p
dim integer culla(5)=(blue,green,yellow,red,cyan,magenta),z,inc
'input "params a,b,p :",a,b,p
a=200: b=170: p=80
input "parameter inc = ",inc
cls
change: 'cls
do
x=(a-b)*cos(rad(t))+(b-p)*cos((a-b)/b*rad(t))+mm.hres\2
y=(a-b)*SIN(rad(t))-(b-p)*SIN((a-b)/b*rad(t))+mm.vres\2
pixel x,y,culla(z)
t=t+1
loop while t<6200 'not loc(0)
z=z+1: t=0: p=p+inc
goto change
'---------------------------------

If z=6 then z=0