SyntaxBomb - Indie Coders


' Are the Dots Spinning b+ trans 2023-02-16
x0 = xmax / 2: y0 = ymax / 2: a24 = Pi*(2 / 24): r = 240
While 1
    If loopcnt < 2 Then stopit = 11: locate 1, 1 : ? "Are the dots rotating like a wheel?"
    If loopcnt = 2 Then stopit = 0 : locate 2, 1 : ? "No!"
    If loopcnt > 2 Then
        If stopit < 11 Then stopit = stopit + 1
    End If
    For a = 0 To Pi*2 Step Pi / 180
        circle x0, y0, 251, 1, 12 Filled
        For i = 0 To stopit
            If loopcnt > 1 Then
                xs = x0 + r * Cos(a24 * i)
                ys = y0 + r * Sin(a24 * i)
                xe = x0 + r * Cos(a24 * i + Pi)
                ye = y0 + r * Sin(a24 * i + Pi)
                Line xs, ys, xe, ye, 15
            End If
            x = x0 + Cos(a + Pi * (i / 12)) * r * Cos(a24 * i)
            y = y0 + Cos(a + Pi * (i / 12)) * r * Sin(a24 * i)
            circle x, y, 10, 1, 15 filled
        Next
        Showpage
        delay 10
    Next
    loopcnt = loopcnt + 1
Wend


Great Program!!!
Thanks b+ !
I did not expect that, I expected some kind of loops!
kk

@kay64

Thanks back to you, I am BIG fan of little snippets