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