Global CLSred , CLSgreen , CLSblue
Global fogmin, fogmax, camrange

CLSred = 120
CLSgreen = 120
CLSblue = 150

fogmin = 500
fogmax = 1000
camrange = 1000

Graphics3D 800,600,0,1

SetBuffer BackBuffer()   

terrain=LoadTerrain("TestTerrain.bmp")   
ScaleEntity terrain,10,200,10
PositionEntity Terrain,0,0,0

;Colormap mit Scapemaker generiert
cmap = LoadTexture("TestCol.png",8)

;Struktur für die Nähe, hier zweimal die selbe
smap1 = LoadTexture("Struktur01.png",8)
smap2 = LoadTexture("Struktur01.png",8)

;Colormap so groß wie die Heightmap scalieren
ScaleTexture   cmap, 512, 512

;Bestes Ergebnis ausprobieren 
ScaleTexture   smap1, 10.0, 20.0
ScaleTexture   smap2 , 1.0 , 1.0

TextureBlend cmap, 1
EntityTexture terrain,cmap,0,1   

TextureBlend smap1, 2
EntityTexture terrain,smap1,0,2   

TextureBlend smap2, 5
EntityTexture terrain,smap2,0,3 


piv = CreatePivot()
camera=CreateCamera(piv) 
PositionEntity piv,1300,40,1320
PositionEntity camera,0,4,0
EntityParent camera,piv,1

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

CameraRange camera,0.1,camrange
CameraFogMode camera,1
CameraFogRange camera,fogmin,fogmax
CameraFogColor camera, CLSred, CLSgreen, CLSblue
CameraClsColor camera , CLSred, CLSgreen, CLSblue

While Not KeyDown(1)   
   
   Cls
    mxs# = 0-MouseXSpeed()/4.0   
   mx=MouseX()
    my=MouseY()
   
   TurnEntity piv,0,mxs#,0
   
   mys#=MouseYSpeed()/4.0
   MoveMouse GraphicsWidth()/2,GraphicsHeight()/2
   ;camxa#=camxa+mxs ;Mod 360
   
   TurnEntity camera,mys,0,0        
   
   If MouseDown(2) Then MoveEntity piv,0,0,0.25
    If MouseDown(2) And KeyDown(29) Then MoveEntity piv,0,0,1.25
   
    x#=EntityX(piv)
    y#=EntityY(piv)
    z#=EntityZ(piv) 
    terra_y#=TerrainY(terrain,x#,y#,z#)
    PositionEntity piv,x#,terra_y#,z# 
   
    UpdateWorld
    RenderWorld
   
    Text 10,10, "rechter Mousebutten = vorwärts bewegen"
    Text 10,30, x# + "  " + y# + "  " + z#
    Flip
   
Wend