[Nerd]

Graphics3D 1024,768, 0, 2
SetBuffer BackBuffer()

p_1=CreateImage(2048,1)
LockBuffer ImageBuffer(p_1)
For i = 0 To 8
    For i2 = 0 To 128
        WritePixelFast i*256+i2,0,$FFFF0000,ImageBuffer(p_1)
    Next
    For i2 = 0 To 128
        WritePixelFast i*256+128+i2,0,$FF000000,ImageBuffer(p_1)
    Next
Next
UnlockBuffer ImageBuffer(p_1)

x# = 700
y# = 500
persp# = 16

While Not KeyHit(1)
Cls

x = x - 0.5

For a = 1 To 64

    DrawImage p_1,x+x*(a/512.0+Tan(a/persp)),y+a
    
Next

Flip

Wend
End