Kaleidoscopeby lawgin (no login)
It works well with qb64, might be a little slow in qb.
d = d + .003
FOR th = 0 TO 60 STEP .003
r = 3 ^ (th * .1)
x = COS(th + d) * r
y = SIN(th + d) * r
xp = COS(th - d) * r
yp = SIN(th - d) * r
PSET (320 + xp, 250 - y), d + 1
PSET (320 + x, 250 - yp), 0
LOOP WHILE INKEY$ = ""
|Response Title||Author and Date|
|*Wow! That's beautiful -- and with so little code! Nice job!||on Dec 30|
|*very cool.||on Dec 30|
|* slow on XP, but unbelievable :)||Lisztfr on Dec 31|