' This example demonstrates how Cluster indices are mapped to indices of the points
' on the Geometry via the Cluster.Elements property
NewScene ,false
set oSphere = ActiveSceneRoot.AddGeometry( "Sphere", "MeshSurface" )
' Create a cluster that only contains some of the points.
set oCluster = oSphere.ActivePrimitive.Geometry.AddCluster( _
siVertexCluster, "MyFrontPoints", Array( 5,10,12 ) )
set oClusterElements = oCluster.Elements
aElements = oClusterElements.Array
for iElement=lbound(aElements,1) to ubound(aElements,1)
logmessage "Cluster item " & iElement & _
" refers to point " & aElements(iElement) & " on the Geometry"
next
'Output of this script is:
'INFO : "Cluster item 0 refers to point 5 on the Geometry"
'INFO : "Cluster item 1 refers to point 10 on the Geometry"
'INFO : "Cluster item 2 refers to point 12 on the Geometry"//
|