Graphics3D 640,480
SetBuffer BackBuffer()
camera=CreateCamera()
PositionEntity camera, 10,10,10

light=CreateLight()
RotateEntity light,120,0,0

terrain=CreateTerrain(128)
grass_tex=LoadTexture(\"d:\mk.bmp\")
grass=LoadTexture(\"d:\grass.bmp\")

cube=CreateCube()
cubeA=CreateCube()

cyl1=CreateCylinder(20,1)



EntityTexture terrain,grass_tex,0,1
TerrainDetail terrain,4000,True



ScaleEntity cube, 5,50,20 ;objecte vergrössern
ScaleEntity cubeA, 15,20,9 ;objecte vergrössern
ScaleEntity cyl1,8,60,4


EntityTexture cube,grass,0,1 ;textur

EntityColor cubeA,100,100,255 ;farbe
EntityColor cyl1,255,0,0 ;farbe



While Not KeyDown(1)
   If KeyDown(203)=True Then x#=x#-0.1
PositionEntity cube,10,1,40
PositionEntity cubeA,40,1,40
PositionEntity cyl1,70,1,60
  
   If KeyDown(205)=True Then TurnEntity camera,0,-1,0
   If KeyDown(203)=True Then TurnEntity camera,0,1,0
   If KeyDown(208)=True Then MoveEntity camera,0,0,-0.1
   If KeyDown(200)=True Then MoveEntity camera,0,0,0.1
   
   If KeyDown(201)=True Then TurnEntity camera,1,0,0
   If KeyDown(209)=True Then TurnEntity camera,-1,0,0


   x#=EntityX(camera)
   y#=EntityY(camera)
   z#=EntityZ(camera)
   terra_y#=TerrainY(terrain,x#,y#,z#)+5
   PositionEntity camera,x#,terra_y#,z#
   x#=EntityX(camera)
   y#=EntityY(camera)
   z#=EntityZ(camera)
   RenderWorld

   Flip
Wend
End