GrainCheck

gistfile1.tcl

set cut_paste_input [stack 0]
version 8.0 v6
push $cut_paste_input
Group {
name GrainQC
selected true
xpos 7496
ypos 16022
addUserKnob {20 User}
addUserKnob {41 size l Radius T Blur7.size}
}
Input {
inputs 0
name Input1
xpos 466
ypos 207
}
Dot {
name Dot229
xpos 498
ypos 247
}
set N303b0f30 [stack 0]
push $N303b0f30
Blur {
size 2
name Blur7
xpos 390
ypos 274
}
Merge2 {
inputs 2
operation divide
name Merge20
xpos 466
ypos 360
}
Constant {
inputs 0
color 1
name Constant2
xpos 610
ypos 302
}
Merge2 {
inputs 2
operation minus
name Merge23
xpos 514
ypos 426
}
Expression {
expr0 abs(r)
expr1 abs(g)
expr2 abs(b)
expr3 abs(a)
name Abs
xpos 514
ypos 475
}
Grade {
white 10
name Grade6
xpos 514
ypos 525
}
Output {
name Output1
xpos 488
ypos 566
}
end_group