' 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