Charlie Veniotย 15th October 2022 at 12:34am
' This BASIC Anywhere Machine program by Charlie Veniot
' Based on the "Flower Wheel" QBJS program by bplus (https://qb64.boards.net/thread/27/bplus-collection)
' ๐ Subroutines
Sub drawc (x, y, r, a, n, o)
dim t, xx, yy
If n > 0 Then
For t = 0 To _Pi(2) Step _Pi(1 / 3)
xx = x + r * Cos(t + o)
yy = y + r * Sin(t + o)
Circle (xx, yy), r
drawc xx, yy, a * r, a, n - 1, -o - n * _Pi / 180
Next
End If
End Sub
' ๐ Main program
myW = 640
myH = 560
Screen _newimage(myW, myH, 12)
dim o
Do
Cls
o = o + _Pi / 180
drawc myW / 2, myH / 2, myW / 5, .25, 4, o
_display
Loop