set oObj = ActiveSceneRoot.addgeometry( "Cube", "MeshSurface" )

set oSample = oObj.ActivePrimitive.Geometry.Samples(7)

LogMessage "The first sample of this geometry is of index " & oSample.Navigate(siFirsComponent).Index

LogMessage "The last sample of this geometry is of index " & oSample.Navigate(siLastComponent).Index

LogMessage "The next sample is of index " & oSample.Navigate(siNextComponent).Index

LogMessage "The previous sample is of index " & oSample.Navigate(siPreviousComponent).Index

' Expected results:

'INFO : The first sample of this geometry is of index 8

'INFO : The last sample of this geometry is of index 23

'INFO : The next sample is of index 8

'INFO : The previous sample is of index 6