set oObj = ActiveSceneRoot.addgeometry( "Cube", "MeshSurface" )
set oPoints = oObj.ActivePrimitive.Geometry.Facets(2).Points
set oFirstPoints = oPoints.Navigate(siFirstComponent)
logmessage "The associated first points are "
for each point in oFirstPoints
                logmessage point.index & " "
next
set oLastPoints = oPoints.Navigate(siLastComponent)
logmessage "The associated last points are "
for each point in oLastPoints
                logmessage point.index & " "
next
set oNextPoints = oPoints.Navigate(siNextComponent)
logmessage "The associated next points are "
for each point in oNextPoints
                logmessage point.index & " "
next
set oPreviousPoints = oPoints.Navigate(siPreviousComponent)
logmessage "The associated previous points are "
for each point in oPreviousPoints
                logmessage point.index & " "
next