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

[bplus]

Ah! Less LOC AND we might be able to do tunnels!

Code: (Select All)

_Title "Time Tunnel 4" ' 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: 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
    _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)