190930

Pilz.Simple3DFileParser/Model/Object3D.vb

@@ -179,22 +179,17 @@ Public Class Object3D
     End Function
 
     Public Sub CenterModel()
-        Dim avg As Vector3 = Vector3.Zero
-        Dim vertsCount As ULong = 0
-
-        For Each m As Mesh In Meshes
-            avg += m.GetCenterModelAvg
-            vertsCount += m.Vertices.Count
-        Next
-
-        avg /= vertsCount
-
-        CenterModel(avg)
+        Mesh.CenterModel(Meshes)
     End Sub
-    Public Sub CenterModel(avg As Vector3)
-        For Each m As Mesh In Meshes
-            m.CenterModel(avg)
+
+    Public Shared Sub CenterModel(objs As IEnumerable(Of Object3D))
+        Dim meshes As New List(Of Mesh)
+
+        For Each obj As Object3D In objs
+            meshes.AddRange(obj.Meshes)
         Next
+
+        Mesh.CenterModel(meshes)
     End Sub
 
 End Class