'

' This example illustrates how to enumerate the neighbors of

' each triangle in the polygonmesh

'

NewScene , false

set oRoot = Application.ActiveSceneRoot

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

set oGeometry = oCube.ActivePrimitive.Geometry

set oTriangles = oGeometry.Triangles

for each oTriangle in oTriangles

	Application.LogMessage oTriangle.name

	for i=0 to oTriangle.NeighborTriangles.Count - 1

		Application.LogMessage vbTab & oTriangle.NeighborTriangles(i).Name

	next

next

' Expected results:

'INFO : Triangle0

'INFO : 	Triangle5

'INFO : 	Triangle9

'INFO : 	Triangle1

'...

'INFO : Triangle11

'INFO : 	Triangle10

'INFO : 	Triangle8

'INFO : 	Triangle4