Add model vertices to entity vertex count
This commit is contained in:
parent
b48debe4e2
commit
ce52888a0d
|
@ -615,21 +615,29 @@
|
||||||
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.BaseModel Is Nothing Then
|
If Not Me.Model Is Nothing Then
|
||||||
Dim c As Integer = CInt(Me.BaseModel.vertexBuffer.VertexCount / 3)
|
For Each mesh As ModelMesh In Me.Model.Meshes
|
||||||
Dim min As Integer = 0
|
For Each part As ModelMeshPart In mesh.MeshParts
|
||||||
|
Me._cachedVertexCount += CInt(part.VertexBuffer.VertexCount / 3)
|
||||||
For i = 0 To Me.TextureIndex.Length - 1
|
Next
|
||||||
If i <= c - 1 Then
|
|
||||||
If TextureIndex(i) > -1 Then
|
|
||||||
min += 1
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
Next
|
Next
|
||||||
|
|
||||||
Me._cachedVertexCount = min
|
|
||||||
Else
|
Else
|
||||||
Me._cachedVertexCount = 0
|
If Not Me.BaseModel Is Nothing Then
|
||||||
|
Dim c As Integer = CInt(Me.BaseModel.vertexBuffer.VertexCount / 3)
|
||||||
|
Dim min As Integer = 0
|
||||||
|
|
||||||
|
For i = 0 To Me.TextureIndex.Length - 1
|
||||||
|
If i <= c - 1 Then
|
||||||
|
If TextureIndex(i) > -1 Then
|
||||||
|
min += 1
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
|
||||||
|
Me._cachedVertexCount = min
|
||||||
|
Else
|
||||||
|
Me._cachedVertexCount = 0
|
||||||
|
End If
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
Return Me._cachedVertexCount
|
Return Me._cachedVertexCount
|
||||||
|
|
Loading…
Reference in New Issue