' This example illustrates how to print out the
' polygon node normals
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
	for i=LBound( aNormalArray, 2 ) to UBound( aNormalArray, 2 )
		logmessage  "   Node[" & i & "].Normal = " &  _
			aNormalArray(0,i) & "," & aNormalArray(1,i) & "," & aNormalArray(2,i)
	next	
next