'

' This example demonstrates how to set a garbage matte mask for a 

' ColorCorrect operator in the FxTree.

'

' Create a new FxTree 

set oTree = CreateFxTree()

' Get the projects path for the current system

sPath = InstallationPath( siProjectPath )

set oClip = CreateImageClip( sPath & "\Pictures\noIcon.pic", "NewClip" )

' Use the clip to create a new image clip operator

set oOperator = AddImageClipFxOp( oTree, oClip )

' Add a Color Correct operator to the same tree

set oCCOp = AddFxOp( oTree, "Color Correct" )

' Connect the two operators

ConnectFxOp oOperator, oCCOp, "1" 

' Since the ConnectFxOp command does not return the new operator,

' you need to get it from the OperatorCollection on the FxTree object

for each oMember in oTree.FxOperators

	if oMember.Name = "ColorCorrect" then

		set oGBMatteOp = oMember

		exit for

	end if

next

' Adjust the HSV Offset and Gain levels so you can see the 

' results of the color correction

SetValue oGBMatteOp.FullName & ".MasterHueShift," _

		& oGBMatteOp.FullName & ".MasterOffset," _

		& oGBMatteOp.FullName & ".MasterGain", _

		Array(0, 0.820731514055631, 0.852844886888196)

' Add the 2D shape (mask shape) to the GarbageMatte and reshape it so you can see

' the shape when you open the Fx Viewer with the ColorCorrect operator selected

set oRotospline = Add2DShape( oGBMatteOp & ".GarbageShapes", "Bezier" )

Move2DShapePin oRotospline, 124.333333333333, 145.166666666667

aPointPositions = Array(56, 207, 196, 170, 179, 85, 132, 142, 108, 105, 75, 162)

Add2DShapePointArray oRotospline, aPointPositions

' Print out the RGB values

getRGBValues oRotospline

' Set new values and print out the new results

setRGBValues oRotospline, 2, 3, 5

getRGBValues oRotospline

' ---------------------- FUNCTIONS ----------------------------------

function getRGBValues( in_roto_name )

	' Get the RGB Values from the rotospline shape

	vRed = GetValue( oRotospline & ".Red", 1 )

	vGreen = GetValue( oRotospline & ".Green", 1 )

	vBlue = GetValue( oRotospline & ".Blue", 1 )

	Application.LogMessage "The RGB values for the " & oRotospline _

			& " are: " & vRed & ", " & vGreen & ", " & vBlue

end function

function setRGBValues( in_roto_name, in_R, in_G, in_B )

	SetValue oRotospline & ".Red", in_R

	SetValue oRotospline & ".Green", in_G

	SetValue oRotospline & ".Blue", in_B

end function



' ------------------------ OUTPUT -----------------------------------

' Output of above script:

'INFO : "The RGB values for the FxTree.ColorCorrect_Image.ColorCorrect.GarbageShapes.Bezier are: 1, 1, 1"

'INFO : "The RGB values for the FxTree.ColorCorrect_Image.ColorCorrect.GarbageShapes.Bezier are: 2, 3, 5"