' 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