diff --git a/src/Aardvark.SceneGraph/Pools/ManagedPool.fs b/src/Aardvark.SceneGraph/Pools/ManagedPool.fs index 85121d38..2ad6f3fa 100644 --- a/src/Aardvark.SceneGraph/Pools/ManagedPool.fs +++ b/src/Aardvark.SceneGraph/Pools/ManagedPool.fs @@ -24,15 +24,14 @@ type AdaptiveGeometry = InstanceAttributes : Map } -[] -type PooledGeometry = - { - FaceVertexCount : int - VertexCount : int - Indices : voption - VertexAttributes : SymbolDict - InstanceAttributes : SymbolDict - } +/// NOTE: temporary data structure to avoid conflicts and will be reworked in 5.6 (probably become record) +[] +type PooledGeometry (faceVertexCount : int, vertexCount : int, indices : voption, vertexAttributes : SymbolDict, instanceAttributes : SymbolDict) = + member x.FaceVertexCount = faceVertexCount + member x.VertexCount = vertexCount + member x.Indices = indices + member x.VertexAttributes = vertexAttributes + member x.InstanceAttributes = instanceAttributes type GeometrySignature = { @@ -53,7 +52,7 @@ module GeometrySignature = [] module AdaptiveGeometry = - let ofIndexedGeometry (instanceAttributes : list) (ig : IndexedGeometry) : AdaptiveGeometry = + let ofIndexedGeometry (instanceAttributes : list) (ig : IndexedGeometry) = let anyAtt = (ig.IndexedAttributes |> Seq.head).Value let faceVertexCount, index =