set root = application.activeproject.activescene.root
set obj = root.addgeometry( "Cube", "MeshSurface" )
CreateVertexColorSupport ,, obj
set triangle = obj.activeprimitive.geometry.triangles(0)
for each p in triangle.Points
        a = p.ColorArray
        logmessage "p.color: " & a(0) & "," & a(1) & "," & a(2) & "," & a(3)
next