[Nerd]

С изображением на голом блице не получится - будет сильно тормозить.

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


x# = 0
y# = 500

While Not KeyHit(1)
Cls

x = x - 1.5

    DrawFloor x,y

Flip 0

Wend
End


Function DrawFloor(x,y)
    Color 30,255,100
    Rect 0,y,GraphicsWidth(),GraphicsHeight(),1
    
    hw = GraphicsWidth()/2
    Color 20,40,255
    For i = -5 To 14
        
        For i2 = 0 To 64 
            lx = i*128+i2+(x Mod 512)
            Line lx,y,(lx-hw)*2+hw,GraphicsHeight()
            Line lx,y,(lx-hw)*2+hw+1,GraphicsHeight() ;Это надо переделать, но я сейчас туго соображаю
        Next
        
        
    Next
    
End Function