brush = CreateBrush(255,255,255)
mesh = CreateMesh()
surface = CreateSurface(mesh, brush)

Dim Border_Vertexes(Width,Height)
Dim Border_Vertexes_X#(Width,Height)
Dim Border_Vertexes_Z#(Width,Height)
Dim Border_Vertexes_Y#(Width,Height)

Dim Middle_Vertexes(Width-1,Height-1)
Dim Middle_Vertexes_X#(Width-1,Height-1)
Dim Middle_Vertexes_Z#(Width-1,Height-1)
Dim Middle_Vertexes_Y#(Width-1,Height-1)

Dim Border_Spheres(Width,Height)
Dim Middle_Spheres(Width-1,Height-1)

Feldgroesse = 16

For I1=0 To Width-1
   For I2=0 To Height-1
      Border_Vertexes_X(I1,I2)=I1*Feldgroesse-(Float(Width-1)*Feldgroesse/2)
      Border_Vertexes_Z(I1,I2)=I2*Feldgroesse-(Float(Height-1)*Feldgroesse/2)
      LockBuffer ImageBuffer(Heightmap)
      rgb=ReadPixelFast(I1,I2,ImageBuffer(Heightmap))
      r=(rgb And $FF0000)/$10000 ;in r steht kein wert
      UnlockBuffer ImageBuffer(Heightmap)
      Select r
         Case r = 255
            H# = 0.0
         Case r >= 225
            H# = 0.5
         Case r >= 200
            H# = 1.5
         Case r >= 175
            H# = 2.0
         Case r >= 150
            H# = 2.5
         Case r >= 125
            H# = 3.0
         Case r >= 100
            H# = 3.5
         Case r >= 75
            H# = 4.0
         Case r >= 50
            H# = 4.5
         Case r >= 25
            H# = 5.0
         Case r = 0
            H# = 5.5
      End Select
      ;H#=(255.0/r)/255.0*5.5
      Border_Vertexes_Y(I1,I2)=H
      
      Border_Vertexes(I1,I2)=AddVertex(surface,Border_Vertexes_X(I1,I2),Border_Vertexes_Y(I1,I2),Border_Vertexes_Z(I1,I2))
      Border_Spheres(I1,I2)=CreateSphere()
      PositionEntity(Border_Spheres(I1,I2),Border_Vertexes_X(I1,I2),Border_Vertexes_Y(I1,I2),Border_Vertexes_Z(I1,I2))
      EntityColor Border_Spheres(I1,I2),0,0,255
      EntityAlpha Border_Spheres(I1,I2),1.0
   Next   
Next