A Little Challenge: Spin the Circle

[bplus]

@NakedApe I modified your code but don't think it runs as smoothly:

Code: (Select All)

Option _Explicit

_Title " A Spinning Circle: bplus mod of NakedApe"

Screen _NewImage(600, 400, 32)

Dim As Integer i, x, start, fini, stepper '                  Playing with Aspects

Dim As Single aspect

Dim As _Unsigned Long col

$Color:32

Dim asp(1 To 8)

i = 1: x = 1: asp(1) = 1 ' make an array of aspect values that double from 1

While x < 70

    i = i + 1: x = x * 2: asp(i) = x

Wend

col = Red: start = 1: fini = 8: stepper = 1

Do

    For i = start To fini Step stepper

        Cls

        Circle (_Width / 2, _Height / 2), 100, White, , , asp(i)

        Paint (_Width / 2, _Height / 2), col, White

        _Limit 5

        _Display

    Next

    If start = 1 Then

        start = 8: fini = 1: stepper = -1

        If col = Red Then col = Green Else col = Red '  flip colors on odd cycles

    Else

        start = 1: fini = 8: stepper = 1

    End If

Loop Until _KeyDown(27)