set oRoot = application.activeproject.activescene.root

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

set oGeometry = oObj.activeprimitive.geometry

' Offset all x positions 

aNormals = oGeometry.Points.NormalArray

for i = LBound(aNormals, 2) to UBound(aNormals, 2)

		logmessage "normal[" & i & "] =" & _

			aNormals(0,i) & _

			"," & aNormals(1,i) & _

			"," & aNormals(2,i)

next