'
' This example demonstrates how to set a garbage matte mask for a 
' ColorCorrect operator in the FxTree, and then add, move, delete, 
' and key points on the existing shape.
'
' 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 
set oEar = Add2DShape( oGBMatteOp & ".GarbageShapes", "BSpline" )
Move2DShapePin oEar, 115.5625, 137.5625
Add2DShapePoint oEar, 98, 198
Add2DShapePoint oEar, 143, 197
Add2DShapePoint oEar, 164, 167
Add2DShapePoint oEar, 170, 135
Add2DShapePoint oEar, 163, 98
Add2DShapePoint oEar, 127, 82
Add2DShapePoint oEar, 101, 91
Add2DShapePoint oEar, 111, 116
Add2DShapePoint oEar, 131, 120
Add2DShapePoint oEar, 147, 124
Add2DShapePoint oEar, 123, 132
Add2DShapePoint oEar, 95, 122
Add2DShapePoint oEar, 72, 120
Add2DShapePoint oEar, 61, 144
Add2DShapePoint oEar, 66, 167
Add2DShapePoint oEar, 77, 188
' Add a few more points 
Insert2DShapePoint oEar, 1, 118.967423319817, 197.53405725956
Insert2DShapePoint oEar, 3, 152.865771740675, 182.906040370464
Insert2DShapePoint oEar, 5, 166.637735843658, 152.932075500488
' Move some points
Move2DShapePoint oEar, 2, 138, 195
Move2DShapePoint oEar, 12, 137, 123
' Delete a point
Delete2DShapePoint oEar, 2
' Save keys on the 4th through 7th points
Key2DShapePoints oEar, Array(3, 4, 5, 6)