'
' 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