Graphics3D 800,600,16,2

Local mx, my, mr, scroll_speed# = 0.2
Local grid_size      = 128
Local grid         = CreateTexture(grid_size, grid_size)
Local grid_plane   = CreatePlane()
Local camera      = CreateCamera()
Local light         = CreateLight()

RotateEntity light, 30, 0, 30
PositionEntity camera, 0, 4, 0
RotateEntity camera, 90, 0, 0
SetBuffer TextureBuffer(grid)
Color 255, 0, 255
Rect 0, 0, grid_size, grid_size, 0
;ScaleTexture grid, grid_size, grid_size
EntityTexture grid_plane, grid

test=CreateCube()
SetBuffer BackBuffer()
While Not KeyHit(1)
   mx = MouseX()
   my = MouseY()
   If mx < 32
      TranslateEntity camera, -scroll_speed#, 0, 0
   ElseIf mx > 768
      TranslateEntity camera, scroll_speed#, 0, 0
   EndIf
   
   If my < 32
      TranslateEntity camera, 0, 0, scroll_speed#
   ElseIf my > 568
      TranslateEntity camera, 0, 0, -scroll_speed#
   EndIf
   
   mr = MouseZSpeed()
   If mr > 0
      TranslateEntity camera, 0, 1, 0
   ElseIf mr < 0
      TranslateEntity camera, 0, -1, 0
   EndIf
   
   If KeyDown(17) Then TurnEntity camera,1,0,0
   UpdateWorld:RenderWorld
   Flip:Cls
Wend