Graphics3D 800,600,0,2

Type TVertex
   Field x,y,z
End Type


output$="mesh.bmp"
mesh=LoadMesh("mesh.3ds")










If Not mesh Then RuntimeError "MeshLoading failed"





surface=GetSurface(mesh,1)
vertexcount=CountVertices(surface)
Local x,y,z
For i=0 To vertexcount-1
   Local vertex.TVertex = New TVertex
   vertex\x=VertexX#(surface,i)
   vertex\y=VertexY#(surface,i)
   vertex\z=VertexZ#(surface,i)
   x=vertex\x
   y=vertex\y
   z=vertex\z
Next




Global varx,varz
For vertex.Tvertex = Each TVertex
   If vertex <> Last Tvertex Then
   If varx=0 Then varx=Abs(vertex\x-x)
   If varz=0 Then varz=Abs(vertex\z-z)
   If Abs(vertex\x-x)<varx Then varx=Abs(vertex\x-x)
   If Abs(vertex\z-z)<varz Then varz=Abs(vertex\z-z)
   EndIf
Next


Local maxheight,minheight
Local countx,countz
For vertex.TVertex = Each TVertex
   x=vertex\x / varx
   z=vertex\z / varx
   If x>countx Then countx=x
   If z>countz Then countz=z
   vertex\x=x
   vertex\z=z
   If vertex\y < minheight Then minheight = vertex\y
   If vertex\y > maxheight Then maxheight = vertex\y
Next



image = CreateImage(countx,countz)
SetBuffer ImageBuffer(image)

For vertex.TVertex = Each TVertex
   col=(vertex\y-minheight)/(Abs(minheight-maxheight)/255.0)
   Color col,col,col
   Plot vertex\x+(countx/2),vertex\z+(countz/2)
Next

SaveImage(image,output)

SetBuffer FrontBuffer()
DrawImage image,0,0
Color 255,255,255
Text 400,400,"Operation finished. Press Any KEy to exit"
WaitKey
End