set oRoot = application.activeproject.activescene.root

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

set oGeometry = oObj.activeprimitive.geometry

for each oPoint in oGeometry.Points

	set oNormal =  oPoint.Normal

	logmessage "Point [" & oPoint.Index & "].normal : " & _

			oNormal.x & ", " & _

			oNormal.y & ", " & _

			oNormal.z 

next