Add model vertices to entity vertex count
This commit is contained in:
parent
b48debe4e2
commit
ce52888a0d
|
@ -615,6 +615,13 @@
|
||||||
Public ReadOnly Property VertexCount() As Integer
|
Public ReadOnly Property VertexCount() As Integer
|
||||||
Get
|
Get
|
||||||
If Me._cachedVertexCount = -1 Then
|
If Me._cachedVertexCount = -1 Then
|
||||||
|
If Not Me.Model Is Nothing Then
|
||||||
|
For Each mesh As ModelMesh In Me.Model.Meshes
|
||||||
|
For Each part As ModelMeshPart In mesh.MeshParts
|
||||||
|
Me._cachedVertexCount += CInt(part.VertexBuffer.VertexCount / 3)
|
||||||
|
Next
|
||||||
|
Next
|
||||||
|
Else
|
||||||
If Not Me.BaseModel Is Nothing Then
|
If Not Me.BaseModel Is Nothing Then
|
||||||
Dim c As Integer = CInt(Me.BaseModel.vertexBuffer.VertexCount / 3)
|
Dim c As Integer = CInt(Me.BaseModel.vertexBuffer.VertexCount / 3)
|
||||||
Dim min As Integer = 0
|
Dim min As Integer = 0
|
||||||
|
@ -632,6 +639,7 @@
|
||||||
Me._cachedVertexCount = 0
|
Me._cachedVertexCount = 0
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
End If
|
||||||
Return Me._cachedVertexCount
|
Return Me._cachedVertexCount
|
||||||
End Get
|
End Get
|
||||||
End Property
|
End Property
|
||||||
|
|
Loading…
Reference in New Issue