set root = application.activeproject.activescene.root

set obj = root.addgeometry( "Cube", "MeshSurface" )

set triangle = obj.activeprimitive.geometry.Triangles(0)

set Points = triangle.Points

a = triangle.points.array

for i = LBound(a,1) to UBound(a,1)

	logmessage "p.normal = " & a(0) & "," & a(1) & "," & a(2)

next