|
Curlies
Jun 14, 2024 6:10:07 GMT -5
Post by bplus on Jun 14, 2024 6:10:07 GMT -5
found a version of this from 7 years ago, still pretty cool Screen _NewImage(1200, 700, 12) _ScreenMove 40, 20 Color 15, 4 For j = 3.14 To 6.28 Step .0314 Cls: c = c + 1: Print c, "press any..." x = 600: x1 = x: y = 350: f = 0 For z = 1 To 200000 f = f + j: g = f * f * .25 x = x + Cos(g): x1 = x1 - Cos(g) y = y + Sin(g): p = z Mod 255 PSet (x, y), _RGB(p, p, p) PSet (x1, y), _RGB(p, p, p) Next Sleep Next ![](//storage.proboards.com/7218696/thumbnailer/jRjQCKtIAqQHIlVehlGX.png)
|
|