' This example illustrates how to enumerate the triangles

' of a polygon mesh and print out the RGBA values at each

' triangle vertex

set oRoot = Application.ActiveProject.ActiveScene.root

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

CreateVertexColorSupport ,, oCube

set oGeometry = oCube.activeprimitive.geometry

set oTriangles = oGeometry.Triangles

for each oTriangle in oTriangles

	logmessage oTriangle.Name 

	for each oVertex in oTriangle.Points

		set oColor = oVertex.Color

		logmessage vbTab & "RGBA(" & _

			oColor.red & "," & _

			oColor.green & "," & _

			oColor.blue & "," & _

			oColor.alpha & ")"

	next

next