このコレクションのトライアングルポイントのカラー座標を、各TrianglePointの R、G、B、A 値の 2DArray([r,g,b,a values][TrianglePoint])として戻します。
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.colorarray for i = LBound(a,2) to UBound(a,2) logmessage "p.color = " & a(0,i) & "," & a(1,i) & "," & a(2,i) & "," & a(3,i) next |