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 + ...