set root = Application.ActiveProject.ActiveScene.Root

set obj = root.AddGeometry( "Cube", "MeshSurface" )

set triangles = obj.ActivePrimitive.Geometry.Triangles

for i=0 to triangles.count - 1

	set t = triangles(i)

	a = t.IndexArray

	for j=LBound( a, 1 ) to UBound( a, 1 )

		Application.LogMessage "t" & i & ".p" & j & ".index: " & a(j)

	next

next