'

' This example demonstrates how to access a vertex color cluster property

'

set oRoot = Application.ActiveSceneRoot

set oObj = oRoot.AddGeometry("Cube", "MeshSurface")

CreateVertexColorSupport, , oObj

set oGeom = oObj.ActivePrimitive.Geometry

set oSamplePointClusters = oGeom.Clusters.Filter("sample")

' Find vertexcolor for list of sample points

set oVertexColor = Nothing

for each oSamplePointCluster in oSamplePointClusters 

	set oVertexColor = oSamplePointCluster.Properties.Find("vertexcolor")

	if TypeName(oVertexColor) <> "Nothing" then

		exit for

	end if

next

aClusterToGeometryMapping = oSamplePointCluster.Elements.Array

aRGBA = oVertexColor.Elements.Array

' Print out the first 10 elements of the ClusterProperty

' (to go though the whole array use "0 to ubound(aRGBA,2)" )

for iIndex = 0 to 9 

	Application.LogMessage "Sample [" &_

		aClusterToGeometryMapping(iIndex) &_

		"] has RGBA(" & _

		round( aRGBA(0,iIndex), 2) & "," & _

		round( aRGBA(1,iIndex), 2) & "," & _

		round( aRGBA(2,iIndex), 2) & "," & _

		round( aRGBA(3,iIndex), 2) & ")"

next

' Results of this script:

'INFO : "Sample [0] has RGBA(0.75,0.75,0.75,1)"

'INFO : "Sample [1] has RGBA(0.75,0.75,0.75,1)"

'INFO : "Sample [2] has RGBA(0.75,0.75,0.75,1)"

'INFO : "Sample [3] has RGBA(0.75,0.75,0.75,1)"

'INFO : "Sample [4] has RGBA(0.75,0.75,0.75,1)"

'INFO : "Sample [5] has RGBA(0.75,0.75,0.75,1)"

'INFO : "Sample [6] has RGBA(0.75,0.75,0.75,1)"

'INFO : "Sample [7] has RGBA(0.75,0.75,0.75,1)"

'INFO : "Sample [8] has RGBA(0.75,0.75,0.75,1)"

'INFO : "Sample [9] has RGBA(0.75,0.75,0.75,1)"

'vbscript example that randomizes the length of hairs on a sphere

'by modifying a weight map cluster property

option explicit

'Step 1 - Create a little scene

newscene ,false

dim oObj, oObjVertexCluster, oWM, oWMOnHair, oHair

set oObj = ActiveSceneRoot.AddGeometry("Grid","MeshSurface")

SetValue oObj & ".polymsh.geom.subdivu", 4

SetValue oObj & ".polymsh.geom.subdivv", 1

ApplyHairOp oObj.Name

set oHair = oObj.Children( "Hair" )

'Step 2 - Create the weight map and connect it to the hair

set oObjVertexCluster= oObj.ActivePrimitive.Geometry.AddCluster( siVertexCluster, "MyCluster" ) 

'Create the weightmap on the sphere

CreateWeightMap , oObjVertexCluster.FullName, "MyWeightMap"

set oWM = oObjVertexCluster.Properties( "MyWeightMap" )

PropertyTransfer oHair, oWM.FullName

'Get pointer to the weight map that has been transfered

set oWMOnHair = oHair.ActivePrimitive.Geometry.Clusters( "MyCluster" ).Properties( "MyWeightMap" )

'Connect the weightmap to the Cut parameter.  The tricky thing is specifying the

'three different objects that will be connected - the original weight map, the cut parameter

'and transfered weight map on the qhair cluster.  However once the relationship is

'established we just work with the original weight map

ApplyOp "MapCompOp",  oWM.FullName & ";" & oHair.Name & ".hair.Cut;" & oWMOnHair

'Step 3 - set random values in the original weight map

dim oWMElements

set oWMElements = oWM.Elements  

dim Cnt

Cnt = oWMElements.count

'Get an array of all the weights (it has dimensions 1 x NumberElements)

dim ElArray

ElArray = oWMElements.Array

'We can adjust the values in this array as we see fit			

Randomize

dim i

for i = 0 to Cnt - 1

	'Pick a number between 0 and 1

	ElArray( 0, i ) = rnd

	'Tip: To Pick a random number between 0.2 and 1.0

	'the forumula would be 0.2 + (0.8 * rnd ) instead

next

'Set the values back

oWMElements.Array = ElArray

'If you render the hair now you will see that the lengths

'have been randomized