' 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