Clean bg generator for blue and green screens using pickers.

gistfile1.tcl

set cut_paste_input [stack 0]
version 6.3 v8
CheckerBoard2 {
 inputs 0
 name CheckerBoard1
 selected true
 xpos 1749
 ypos 1599
}
Dot {
 name Dot8
 selected true
 xpos 1783
 ypos 1695
}
set N18c451d0 [stack 0]
Dot {
 name Dot7
 selected true
 xpos 1607
 ypos 1772
}
add_layer {rgb rgb.red rgb.green rgb.blue}
add_layer {rgba rgba.beta rgba.noise redguard1.glow rgba.edgeblur}
Expression {
 expr0 r(point.x,point.y,10,10)
 expr1 g(point.x,point.y,10,10)
 expr2 b(point.x,point.y,10,10)
 expr3 1-hypot((point.x-x),(point.y-y))/width
 name Expression1
 selected true
 xpos 1573
 ypos 1814
 addUserKnob {20 User}
 addUserKnob {12 point t "this is the sample that is going to be used"}
 point {1379 800}
}
push $N18c451d0
Dot {
 name Dot4
 selected true
 xpos 1722
 ypos 1770
}
Expression {
 expr0 r(point.x,point.y,10,10)
 expr1 g(point.x,point.y,10,10)
 expr2 b(point.x,point.y,10,10)
 expr3 1-hypot((point.x-x),(point.y-y))/width
 name Expression2
 selected true
 xpos 1688
 ypos 1814
 addUserKnob {20 User}
 addUserKnob {12 point t "this is the sample that is going to be used"}
 point {388 737}
}
push $N18c451d0
Dot {
 name Dot6
 selected true
 xpos 1833
 ypos 1770
}
Expression {
 expr0 r(point.x,point.y,10,10)
 expr1 g(point.x,point.y,10,10)
 expr2 b(point.x,point.y,10,10)
 expr3 1-hypot((point.x-x),(point.y-y))/width
 name Expression3
 selected true
 xpos 1799
 ypos 1812
 addUserKnob {20 User}
 addUserKnob {12 point t "this is the sample that is going to be used"}
 point {408 180}
}
push $N18c451d0
Dot {
 name Dot9
 selected true
 xpos 1955
 ypos 1768
}
Expression {
 expr0 r(point.x,point.y,10,10)
 expr1 g(point.x,point.y,10,10)
 expr2 b(point.x,point.y,10,10)
 expr3 1-hypot((point.x-x),(point.y-y))/width
 name Expression4
 selected true
 xpos 1921
 ypos 1814
 addUserKnob {20 User}
 addUserKnob {12 point t "this is the sample that is going to be used"}
 point {433 959}
}
MergeExpression {
 inputs 2
 expr0 Aa>=Ba?Ar:Br
 expr1 Aa>=Ba?Ag:Bg
 expr2 Aa>=Ba?Ab:Bb
 expr3 Aa>=Ba?Aa:Ba
 name MergeExpression3
 selected true
 xpos 1799
 ypos 1923
}
MergeExpression {
 inputs 2
 expr0 Aa>=Ba?Ar:Br
 expr1 Aa>=Ba?Ag:Bg
 expr2 Aa>=Ba?Ab:Bb
 expr3 Aa>=Ba?Aa:Ba
 name MergeExpression2
 selected true
 xpos 1688
 ypos 1923
}
MergeExpression {
 inputs 2
 expr0 Aa>=Ba?Ar:Br
 expr1 Aa>=Ba?Ag:Bg
 expr2 Aa>=Ba?Ab:Bb
 expr3 Aa>=Ba?Aa:Ba
 name MergeExpression1
 selected true
 xpos 1573
 ypos 1923
}
set N30e159c0 [stack 0]
Grade {
 channels alpha
 whitepoint 0.1
 black_clamp false
 name Grade2
 selected true
 xpos 1688
 ypos 1987
}
Dot {
 name Dot10
 selected true
 xpos 1703
 ypos 2032
}
push $N30e159c0
Blur {
 inputs 1+1
 size 128
 name Blur1
 selected true
 xpos 1573
 ypos 2073
}
StickyNote {
 inputs 0
 name StickyNote1
 label "<-- add more here"
 selected true
 xpos 1935
 ypos 1928
}