Distance keyer

gistfile1.tcl

set cut_paste_input [stack 0]
version 7.0 v9
push 0
push $cut_paste_input
Group {
inputs 2
name DistanceKeyer
tile_color 0x3a892eff
label "of despair"
selected true
xpos -688
ypos 254
addUserKnob {20 User}
addUserKnob {41 value_1 l offset T Add2.value}
addUserKnob {41 value l gain T Multiply13.value}
}
Input {
inputs 0
name Input2
xpos -496
ypos 158
number 1
}
Input {
inputs 0
name Input1
xpos -688
ypos 158
}
MergeExpression {
inputs 2
temp_name0 diffr
temp_expr0 Ar-Br
temp_name1 diffg
temp_expr1 Ag-Bg
temp_name2 diffb
temp_expr2 Ab-Bb
expr3 sqrt(pow(diffr,2)+pow(diffg,2)+pow(diffb,2))
name MergeExpression1
selected true
xpos -605
ypos 245
}
Add {
channels alpha
value -0.17
name Add2
xpos -605
ypos 271
}
Multiply {
channels alpha
name Multiply13
xpos -605
ypos 309
}
Clamp {
channels alpha
name Clamp5
xpos -605
ypos 347
}
Output {
name Output1
xpos -605
ypos 422
}
end_group