Function AddRect(mesh,surf,x#,y#,w#,h#,u1#,v1#,u2#,v2#)
 Local ve1 = AddVertex(surf,x#,0,y#,u1#,v2#)
 Local ve2 = AddVertex(surf,x#,0,y#+h#,u1#,v1#)
 Local ve3 = AddVertex(surf,x#+w#,0,y#+h#,u2#,v1#)
 AddTriangle(surf,ve1,ve2,ve3)
 Local ve4 = AddVertex(surf,x#+w#,0,y#+h#,u2#,v1#)
 Local ve5 = AddVertex(surf,x#+w#,0,y#,u2#,v2#)
 Local ve6 = AddVertex(surf,x#,0,y#,u1#,v2#)
 AddTriangle(surf,ve4,ve5,ve6)
End Function

Dim map(1,1)
file = ReadFile(\"map0.txt\")
mapw = ReadInt(file)
maph = ReadInt(file)
Dim map(mapw-1,maph-1)
For x = 0 To mapw-1
 For y = 0 To maph-1
  map(x,y) = ReadShort(file)
 Next
Next

Graphics3D(800,600,32,2)
SetBuffer BackBuffer()

CamPivot = CreatePivot()
Cam = CreateCamera(CamPivot)
TranslateEntity(Cam,0,3,0)
MoveEntity(Cam,0,0,-3)
TurnEntity(Cam,35,0,0)

tex1 = LoadTexture(\"tex1.png\")

mesh1 = CreateMesh()
surf1 = CreateSurface(mesh1)
For x = 0 To mapw-1
 For y = 0 To maph-1
  Select map(x,y)
   Case 1
    AddRect(mesh1,surf1,x,y,1,1,0,0.5,0.5,1)
   Case 2
    
   Case 3
    
   Case 4
    
  End Select
 Next
Next

UpdateNormals(mesh1)

EntityTexture(mesh1,tex1)

Global zeit#,timer=MilliSecs()

Repeat

zeit# = (MilliSecs()-timer)/1000.0
timer = MilliSecs()

Cls

 If KeyDown(203) Then
  TurnEntity(CamPivot,0,45*zeit#,0)
 EndIf
 If KeyDown(205) Then
  TurnEntity(CamPivot,0,-45*zeit#,0)
 EndIf
 If KeyDown(200) Then
  MoveEntity(CamPivot,0,0,4*zeit#)
 EndIf
 If KeyDown(208) Then
  MoveEntity(CamPivot,0,0,-4*zeit#)
 EndIf

 UpdateWorld
 RenderWorld

Flip
Until KeyHit(1)

End