set oObj = ActiveSceneRoot.AddGeometry( "Cube", "MeshSurface" )
set oSegments = oObj.ActivePrimitive.Geometry.Facets(2).Segments
set oFirstSegments = oSegments.Navigate(siFirstComponent)
LogMessage "The associated first segments are "
for each segment in oFirstSegments
LogMessage segment.index & " "
next
set oLastSegments = oSegments.Navigate(siLastComponent)
LogMessage "The associated last segments are "
for each segment in oLastSegments
LogMessage segment.index & " "
next
set oNextSegments = oSegments.Navigate(siNextComponent)
LogMessage "The associated next segments are "
for each segment in oNextSegments
LogMessage segment.index & " "
next
set oPreviousSegments = oSegments.Navigate(siPreviousComponent)
LogMessage "The associated previous segments are "
for each segment in oPreviousSegments
LogMessage segment.index & " "
next