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