time tunnel animation - can this be done as high res and smooth as the video?

[bplus]

just in case you aren't nauseous yet...

Code: (Select All)

_Title "Time Tunnel 3" ' bplus 2024-09-21
Screen _NewImage(600, 600, 32)
'_ScreenMove 250, 60
_FullScreen
c& = _NewImage(1200, 1200, 32)
_Dest c&
FC3 600, 600, 550, &HFFFFFFFF
FC3 600, 600, 500, &HFF000000
_Dest 0
max = 1000: dr = .1
Do
    w = max: w2 = w / 2: a = a + 5
    x = 300 + r * Cos(_D2R(a)): y = 300 + r * Sin(_D2R(a))
    While w > 30
        _PutImage (x - w2, y - w2)-Step(w, w), c&, 0
        w = w * .81: w2 = w * .5
    Wend
    FC3 x, y, 13, &HFFFFFFFF
    FC3 x, y, 12, &HFF000000
    _Display
    max = max + 4: r = r + dr
    If r > 100 Then r = 100: dr = -dr
    If r < -100 Then r = -100: dr = -dr
    If max >= 1230 Then max = 1000
Loop Until _KeyDown(27)

Sub FC3 (cx As Long, cy As Long, r As Long, clr~&) ' all types integer due to float errors
    Dim As Long r2, x, y ' for Option _Explicit
    If r < 1 Then Exit Sub
    Line (cx - r, cy)-(cx + r, cy), clr~&, BF
    r2 = r * r
    Do
        y = y + 1
        x = Sqr(r2 - y * y)
        Line (cx - x, cy + y)-(cx + x, cy + y), clr~&, BF
        Line (cx - x, cy - y)-(cx + x, cy - y), clr~&, BF
    Loop Until y = r
End Sub