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