' 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