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

[bplus]

Now some curve for the tunnel:

Code: (Select All)

_Title "Time Tunnel 5" ' bplus 2024-09-21
Screen _NewImage(600, 600, 32)
_FullScreen
c& = _NewImage(1200, 1200, 32)
_Dest c&
Circle (600, 600), 550, &HFFFFFFFF
Circle (600, 600), 500, &HFFFFFFFF
Paint (1125, 600), &HFFFFFFFF, &HFFFFFFFF
_Dest 0
max = 1000: dr = .1
Do
    Cls
    w = max: w2 = w / 2: r = 10
    While w > 15 Or _KeyDown(27)
        a = a + .5: r = r * 1.1
        x = 300 + r * Cos(_D2R(a)): y = 300 + r * Sin(_D2R(a))
        _PutImage (x - w2, y - w2)-Step(w, w), c&, 0
        w = w * .8: w2 = w * .5
    Wend
    _Display
    _Limit 10
Loop Until _KeyDown(27)

And even less LOC!