Dim vertex_layer_1(0,0)
Dim vertex_layer_2(0,0)
Dim vertex_layer_3(0,0)
Dim vertex_layer_4(0,0)
Dim vertex_layer_5(0,0)
Dim map(128,128)


For i=0 To 128
	For i2=0 To 128
		map(i,i2)=1
	Next
Next 	

Graphics3D 640,480,32,2
SetBuffer BackBuffer()

cam1=CreateCamera()
PositionEntity cam1,5,1,-1
layer1=CreateTileTerrain(8,8)



texture=CreateTexture(256,256)
SetBuffer TextureBuffer(texture)
For i=0 To 1000
Color Rnd(255),Rnd(255),Rnd(255) 
Line Rnd(800),Rnd(600),Rnd(800),Rnd(600)

Next  
SetBuffer BackBuffer() 
EntityTexture layer1,texture

cube=CreateCube()
EntityTexture cube,texture
PositionEntity cube,5,0,5

Repeat



Cls
UpdateWorld
RenderWorld
Dreiecke=TrisRendered ()

Text 2,2,\"FPS \"+fps()+\"    Tris \"+dreiecke




If KeyHit(59) Then Wf=1-wf
WireFrame wf

;funtionsaufrufe
FPS()

Flip 1
Until KeyHit(1)	
End




Global FPS_current
Global FPS_temp
Global FPS_time

Function FPS() 
	ctime = MilliSecs() 
	FPS_temp = FPS_temp + 1 
	If ctime - FPS_time > 1000 
	FPS_current = FPS_temp 
	FPS_temp = 0
	FPS_time = ctime
	EndIf
	Return fps_current
End Function 	
	
Function CreateTileTerrain(sizex%,sizey%,layer%=1)
	mesh=CreateMesh()
	surface=CreateSurface(mesh,brush22)
	Dim vertex_layer_1(sizex+1,sizey+1)
	If layer=2 Dim vertex_layer_2(sizex+1,sizey+1)
    If layer=3 Dim vertex_layer_3(sizex+1,sizey+1)
	If layer=4 Dim vertex_layer_4(sizex+1,sizey+1)
    If layer=5 Dim vertex_layer_5(sizex+1,sizey+1)
	For i=1 To sizex+1
		For i2= 1 To sizey+1
			vertex_layer_1(i,i2)=AddVertex(surface,i,0,i2)
			If  map(i-1,i2-1)=layer
				AddTriangle surface,vertex_layer_1(i-1,i2-1),vertex_layer_1(i-1,i2),vertex_layer_1(i,i2)
				AddTriangle surface,vertex_layer_1(i,i2),vertex_layer_1(i,i2-1),vertex_layer_1(i-1,i2-1)
			EndIf  				
		Next
	Next  
	Return mesh
End Function 	

Function CreateTileTerrain(sizex%,sizey%,layer%=1)
        mesh=CreateMesh()
        surface=CreateSurface(mesh,brush22)
        Dim vertex_layer_1(sizex+1,sizey+1)
	Select layer
		Case 2
       		Dim vertex_layer_2(sizex+1,sizey+1)
		Case 3
   			Dim vertex_layer_3(sizex+1,sizey+1)
		Case 4
       		Dim vertex_layer_4(sizex+1,sizey+1)
		Case 5
   			Dim vertex_layer_5(sizex+1,sizey+1)
	End Select
	
        For i=1 To sizex+1
                For i2= 1 To sizey+1
                        vertex_layer_1(i,i2)=AddVertex(surface,i,0,i2)
                        If  map(i-1,i2-1)=layer
                                AddTriangle surface,vertex_layer_1(i-1,i2-1),vertex_layer_1(i-1,i2),vertex_layer_1(i,i2)
                                AddTriangle surface,vertex_layer_1(i,i2),vertex_layer_1(i,i2-1),vertex_layer_1(i-1,i2-1)
                        EndIf                                 
                Next
        Next 
        Return mesh
End Function