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

[SMcNeill]

Code: (Select All)

Screen _NewImage(640, 480, 32)

Dim m As _MEM: m = _MemImage(0)

Dim o As _Offset

Do

    o = 0

    Do

        r = Int(Rnd * 2)

        Select Case r

            Case 0: _MemPut m, m.OFFSET + o, &HFFFFFFFF As _UNSIGNED LONG

            Case 1: _MemPut m, m.OFFSET + o, &HFF000000 As _UNSIGNED LONG

        End Select

        o = o + 4

    Loop Until o = m.SIZE

Loop Until _KeyHit

There's your TV static without the sound. I tend to keep my tv muted when it's got static on it, so this is what mine looks like.