' 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"//