Fan Dance

[bplus]

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)