Post by bplus on Mar 1, 2023 20:03:24 GMT -5
Another sb snippet Charlie should be able to easily do on BAM:
Screenshot hardly does it justice but here is one:
'_Title "The Hypotrochoid Show" 'for QB64 B+ 2019-07-18 trans to sb 2023-02-26
c2 = RGB(200,0,0)
xc = xmax / 2: yc = ymax / 2: r = yc * .5: st = 3 / (2 * Pi * r)
n = 0: m = 3
While 1
m = m + 1
For n = 5 To 30 Step .05
Cls
k = Inkey ' <<< Good god does this slow things down!!!
If k = "q" Then End
For a = 0 To 2 * Pi Step st
xReturn = xc + r * (Cos(a) + Cos(n * a) / 3 + Sin(m * a) / 2)
yReturn = yc + r * (Sin(a) + Sin(n * a) / 3 + Cos(m * a) / 2)
Circle xReturn, yReturn, 10, 1, RGB(0, 200, 0)
Next
Print "m = "; m;" q to quit"
ShowPage
Next
WendScreenshot hardly does it justice but here is one:
