Charlie Veniotย 15th November 2022 at 3:26pm

```
' Program by Gadgetjack (https://qb64phoenix.com/forum/showthread.php?tid=1122&pid=9857#pid9857), an MMBASIC program ported to QB64.
' Ported to BASIC Anywhere Machine by Charlie Veniot (changes/additions noted below with a "๐ ")
Screen 12
n = 255
r = (2 * pi) / 235
x = 0
v = 0
t = 0
sz = 200
s = 0
scrw = 640: scrh = 480
sw = scrw / sz: sh = scrh / sz
offset = scrh / 4.5
Do
Cls
For i = 50 To n
For j = 50 To n
u = Sin(i + v) + Sin(r * i + x)
v = Cos(i + v) + Cos(r * i + x)
x = u + t
q = scrw / 2 + u * offset
a = scrh / 2 + v * offset
PSet (q, a), _RGB32(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))
Next j
Next i
_display ' ๐ added to give better "animation"
t = t + .025
Loop
```