Proggies

[bplus]

@hsiangch_ong

Your "fix" breaks the ability for it to spin! Pressing any key (spacebar was the intended key) was needed to spin the thing.
After I got code working I wanted to take snapshots to show off different aspects so I used a spacebar key press to spin the thing to a point where I wanted to take a snapshot. The +/- keys were for just adding or subtracting arcs to spinner while it was spinning.

Just add line to main loop like this:

Code: (Select All)

While 1
    Cls , &HFFDDDDFF
    b = b + 1
    For r = 10 To 330 Step stepper ' tsh73 suggested fix for inner most
        a = _D2R(b * r / (2 * stepper))
        If Int(r / stepper) Mod 2 Then K = &HFF00AA66 Else K = &HFF000066
        FArc 350, 350, r, .4 * stepper, a, a + _Pi, K
    Next
    _Display
    kh = 0
    While kh = 0: kh = _KeyHit: Wend
    If kh = 13 Then _SaveImage "spinner2.png": End
    If kh = 43 Then stepper = stepper + 1
    If kh = 45 Then stepper = stepper - 1
    If kh = 27 Then System ' <<<<<<<<<<<<<<<<<<<<<<<< add line for escape
Wend