Kaleidoscope

[SierraKen]

Possibly the simplest kaleidoscope we have all seen, but I think it came out pretty neat. I was experimenting with circles and came across this. The longer you watch it, the cooler it looks in my opinion. What do you all think? 24 lines of code. lol 

Code: (Select All)

'Kaleidoscope by SierraKen
'May 18, 2022
Screen _NewImage(800, 800, 32)
_Title "Kaleidoscope by SierraKen"
Randomize Timer
cc = 1
Do
    _Limit 25
    If c <> 0 Then cc = c
    c = Rnd * 360
    If c < cc Then
        s = -.25
    Else
        s = .25
    End If
    cl1 = Int(Rnd * 200) + 1
    cl2 = Int(Rnd * 200) + 1
    cl3 = Int(Rnd * 200) + 1
    For t = cc To c Step s
        x = (Sin(t) * t) + 400
        y = (Cos(t) * t) + 400
        Circle (x, y), 2, _RGB32(cl1, cl2, cl3)
    Next t
Loop Until InKey$ = Chr$(27)