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