Function saveMeshLm3D(filename$,surf)
speichern=WriteFile(filename)
WriteInt speichern,CountVertices(surf)
WriteInt speichern,CountTriangles(surf)
For v.vertex=Each vertex
   WriteFloat speichern,v\x
   WriteFloat speichern,v\y
   WriteFloat speichern,v\z
Next
For t.tri=Each tri
   WriteFloat speichern,t\vx1
   WriteFloat speichern,t\vy1
   WriteFloat speichern,t\vz1
   WriteFloat speichern,t\vx2
   WriteFloat speichern,t\vy2
   WriteFloat speichern,t\vz2
   WriteFloat speichern,t\vx3
   WriteFloat speichern,t\vy3
   WriteFloat speichern,t\vz3
Next
CloseFile speichern
End Function

Function LoadMeshLm3d(filename$,surf)
laden=ReadFile(filename$)
numver=ReadInt(laden)
numtri=ReadInt(laden)
For i=1 To numver
   x#=ReadFloat(laden)
   y#=ReadFloat(laden)
   z#=ReadFloat(laden)
   createVertex(surf,x,y,z)
Next
For i=1 To numtri/2
   For v.vertex=Each vertex
      x#=ReadFloat(laden)
      y#=ReadFloat(laden)
      z#=ReadFloat(laden)
      If VertexX(surf,v\ver)=x
         If VertexY(surf,v\ver)=y
            If VertexZ(surf,v\ver)=z
               v1=v\ver
            EndIf
         EndIf
      EndIf
      x#=ReadFloat(laden)
      y#=ReadFloat(laden)
      z#=ReadFloat(laden)
      If VertexX(surf,v\ver)=x
         If VertexY(surf,v\ver)=y
            If VertexZ(surf,v\ver)=z
               v2=v\ver
            EndIf
         EndIf
      EndIf
      x#=ReadFloat(laden)
      y#=ReadFloat(laden)
      z#=ReadFloat(laden)
      If VertexX(surf,v\ver)=x
         If VertexY(surf,v\ver)=y
            If VertexZ(surf,v\ver)=z
               v3=v\ver
            EndIf
         EndIf
      EndIf
   Next
      createTriangle(surf,v1,v2,v3)
Next

CloseFile laden
End Function

Function createTriangle(surf,v1,v2,v3)
t.tri=New tri
t\vx1=VertexX(surf,v1)
t\vy1=VertexY(surf,v1)
t\vz1=VertexZ(surf,v1)
t\vx2=VertexX(surf,v2)
t\vy2=VertexY(surf,v2)
t\vz2=VertexZ(surf,v2)
t\vx3=VertexX(surf,v3)
t\vy3=VertexY(surf,v3)
t\vz3=VertexZ(surf,v3)
t\tria=AddTriangle(surf,v1,v2,v3)
t\tria2=AddTriangle(surf,v3,v2,v1)
End Function