' This example illustrates how to enumerate the triangles

' of a polygon mesh an print out the position of each

' triangle vertex

set oRoot = Application.ActiveProject.ActiveScene.root

set oCube = oRoot.AddGeometry( "Cube", "MeshSurface" )

set oGeometry = oCube.ActivePrimitive.Geometry

set oTriangles = oGeometry.Triangles

Application.LogMessage "Object: " & oCube.Name

Application.LogMessage "Number of triangles: " & oTriangles.Count

for each oTriangle in oTriangles

	Application.LogMessage oTriangle.Name

	for each oVertex in oTriangle.Points

		set oPosition = oVertex.Position

		Application.LogMessage vbTab & oPosition.x & "," & _

			oPosition.y & "," & _

			oPosition.z

	next

next