Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Fan Dance
#1
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 + ...
Reply


Messages In This Thread
Fan Dance - by bplus - 12-09-2024, 11:38 PM
RE: Fan Dance - by bplus - 12-11-2024, 12:35 AM
RE: Fan Dance - by SierraKen - 12-11-2024, 01:19 AM
RE: Fan Dance - by bplus - 12-11-2024, 01:32 AM
RE: Fan Dance - by bplus - 12-11-2024, 06:04 AM
RE: Fan Dance - by SierraKen - 12-12-2024, 02:18 AM



Users browsing this thread: 1 Guest(s)