mirror of
https://github.com/P3D-Legacy/P3D-Legacy.git
synced 2025-04-08 18:35:09 +02:00
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
|
||||
Get
|
||||
If Me._cachedVertexCount = -1 Then
|
||||
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
|
||||
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
|
||||
|
||||
Me._cachedVertexCount = min
|
||||
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
|
||||
Return Me._cachedVertexCount
|
||||
|
Loading…
x
Reference in New Issue
Block a user