С изображением на голом блице не получится - будет сильно тормозить.
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