Skip to content

Instantly share code, notes, and snippets.

@draconiansolo

draconiansolo/gist:8ccc336efd33bd4bd7a7

Created December 23, 2014 12:23
Download ZIP

Revisions

  1. draconiansolo created this gist Dec 23, 2014.
    72 changes: 72 additions & 0 deletions gistfile1.tcl
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,72 @@
    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