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