revert to VB and update to new project file format

Pilz.Simple3DFileParser/Model/Mesh.vb

@@ -0,0 +1,42 @@
+Imports System.Numerics
+
+Public Class Mesh
+
+    Public ReadOnly Property Vertices As New List(Of Vertex)
+    Public ReadOnly Property Normals As New List(Of Normal)
+    Public ReadOnly Property UVs As New List(Of UV)
+    Public ReadOnly Property VertexColors As New List(Of VertexColor)
+    Public ReadOnly Property Faces As New List(Of Face)
+
+    Public Sub CenterModel()
+        CenterModel({Me})
+    End Sub
+
+    Public Shared Sub CenterModel(meshes As IEnumerable(Of Mesh))
+        Dim avgX As Integer = 0
+        Dim avgY As Integer = 0
+        Dim avgZ As Integer = 0
+        Dim vertsCount As Long = 0
+
+        For Each m As Mesh In meshes
+            For Each v As Vertex In m.Vertices
+                avgX += v.X
+                avgY += v.Y
+                avgZ += v.Z
+            Next
+            vertsCount += m.Vertices.Count
+        Next
+
+        Dim avg As New Vector3(avgX, avgY, avgZ)
+        avg /= New Vector3(vertsCount)
+
+        For Each m As Mesh In meshes
+            For Each v As Vertex In m.Vertices
+                v.X -= avg.X
+                v.Y -= avg.Y
+                v.Z -= avg.Z
+            Next
+        Next
+    End Sub
+
+End Class