Graphics3D 640, 480, 16, 1
SetBuffer BackBuffer()
camera = CreateCamera()
PositionEntity camera, 1, 1, 1
light = CreateLight()
RotateEntity light, 90, 0, 0

terrain = LoadTerrain("testmap.bmp")
TerrainDetail terrain, 4000, True
ScaleEntity terrain, 1, 50, 1
grass_tex = LoadTexture("Grass.bmp")
EntityTexture terrain,grass_tex, 0, 1

While Not KeyHit(1)
   If KeyDown(205) = 1 Then TurnEntity camera, 0, -1, 0
   If KeyDown(203) = 1 Then TurnEntity camera, 0, 1, 0
   If KeyDown(208) = 1 Then MoveEntity camera, 0, 0, -0.1
   If KeyDown(200) = 1 Then MoveEntity camera, 0, 0, 0.1
   x# = EntityX(camera)
   y# = EntityY(camera)
   z# = EntityZ(camera)
   terra_y# = TerrainY(terrain, x#, y#, z#) + 5
   PositionEntity camera, x#, terra_y#, z#
   RenderWorld
   Flip
Wend
End