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