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