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)