12-09-2024, 11:38 PM
b+ Mod of Aurel's thingy from VB
Code: (Select All)
_Title "Fan Dance" 'b+ 2024-12-09 inspired and mod of Aurel Thingy
Screen _NewImage(900, 640, 32)
_ScreenMove 240, 60
xradius = 170: yradius = 150
cx = 450: cy = 320
scale = 1
xfactor = 10
yfactor = 7
Do
Cls
scale = 1
While scale < 150
angle = 1
While angle < 720
x = (xradius + scale * Sin(_D2R(xfactor * angle))) * Cos(_D2R(angle))
y = (yradius + scale * Sin(_D2R(yfactor * angle))) * Sin(_D2R(angle))
PSet (cx + x, cy + y)
angle = angle + .5
Wend
scale = scale + .5
Wend
_Display
_Limit 30
xfactor = xfactor + .01
yfactor = yfactor - .01
Loop Until _KeyDown(27)
b = b + ...