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

mesh = LoadMesh("native3.b3d")


While Not KeyDown(1)
   Cls
   drawverts(320,240,mesh,2,2)
   Flip
Wend
End

Function DrawVerts(x1,y1,mesh,sx#=1,sy#=1,mode = 1)
   surs = CountSurfaces(mesh)
   For s = 1 To surs
      surface   = GetSurface(mesh,s)
      verts   = CountVertices(surface)-1
      For i=0 To verts
         Select mode
         Case 1
            x = VertexX(surface,i)
            y = -VertexY(surface,i)
         Case 2
            x = VertexX(surface,i)
            y = VertexZ(surface,i)
         Case 3
            x = VertexZ(surface,i)
            y = -VertexY(surface,i)
         End Select
          WritePixel x1+x*sx,y1+y*sy,$FFFFFF
      Next
   Next
End Function

x# = VertexX#(surface, vertex)
y# = VertexY#(surface, vertex)
z# = VertexZ#(surface, vertex)

TFormPoint x#, y#, z#, mesh, 0
x# = TFormedX#()
y# = TFormedY#()
z# = TFormedZ#()

CameraProject camera, x#, y#, z#
If ProjectedZ() = 1 Then
   xScreen = ProjectedX()
   yScreen = ProjectedY()
Else
   ; Vertex ist nicht sichtab(liegt hinter der Kamera)
EndIf