' This example illustrates how to print out the
' polygon node indices for each polygon this can be
' useful when trying to map vertexcolors to polygonnodes
' since the sample point cluster containing the 
' vertex color cluster property maps cluster
' elements to polygon node indices.
set oObject = Application.ActiveProject.ActiveScene.Root.AddGeometry("Cube","MeshSurface")
set oPolygonMesh = oObject.ActivePrimitive.Geometry
for each oPolygonFace in oPolygonMesh.Polygons	
	logmessage "Polygon[" & oPolygonFace.Index & "]"
	aNormalArray = oPolygonFace.Nodes.NormalArray
	i=0		
	for each oPolygonNode in oPolygonFace.Nodes
		logmessage  "   Node[" & i & "].Index = " &  oPolygonNode.Index
		i=i+1
	next	
next