Nuke: Get frequency detail from an image and add it to another

gistfile1.tcl

set cut_paste_input [stack 0]
version 8.0 v6
push 0
push $cut_paste_input
Group {
inputs 2
name Recover_Frequencies3
tile_color 0xe0671fff
selected true
xpos -15688
ypos -5338
addUserKnob {20 User}
addUserKnob {41 size_1 l Min_Radius T Blur2.size}
addUserKnob {41 size l Max_Radius T Blur8.size}
addUserKnob {41 filter T Blur2.filter}
addUserKnob {41 quality l "" -STARTLINE T Blur2.quality}
addUserKnob {26 "" +STARTLINE}
addUserKnob {4 MixBack t "Mixes the original frequencies back" M {No Plus MaxAbs}}
MixBack MaxAbs
addUserKnob {7 multiplyDarks l mixBackShadows}
multiplyDarks 0.4
addUserKnob {7 multiplyBrights l mixBackLights}
multiplyBrights 1
addUserKnob {26 "" +STARTLINE}
addUserKnob {6 Luma_Only +STARTLINE}
addUserKnob {7 Mix}
Mix 1
}
Input {
inputs 0
name mask
xpos 1112
ypos 1526
number 2
}
Input {
inputs 0
name To
xpos 344
ypos -10
}
Dot {
name Dot49
xpos 377
ypos 89
}
set Nafb6990 [stack 0]
Dot {
name Dot1
xpos 377
ypos 953
}
set Nafbade0 [stack 0]
Dot {
name Dot14
xpos 377
ypos 1049
}
set Nf5a01d0 [stack 0]
Dot {
name Dot13
xpos 569
ypos 1049
}
Colorspace {
colorspace_out HSV
name Colorspace1
xpos 536
ypos 1094
}
push $Nafbade0
push $Nafb6990
Blur {
filter box
quality 4
name Blur2
xpos 440
ypos 176
}
push $Nafb6990
Blur {
size 2
filter {{Blur2.filter}}
quality {{parent.Blur2.quality}}
name Blur8
selected true
xpos 680
ypos 272
}
Merge2 {
inputs 2
operation minus
name Merge32
xpos 536
ypos 326
}
Saturation {
saturation 0
name Saturation7
xpos 536
ypos 374
disable true
}
Dot {
name Dot11
xpos 569
ypos 425
}
Dot {
name Dot5
xpos 569
ypos 761
}
set Nafff940 [stack 0]
Merge2 {
inputs 2
operation minus
name Merge33
xpos 536
ypos 950
}
push $Nafff940
Dot {
name Dot7
xpos 953
ypos 761
}
set Nb010fb0 [stack 0]
Dot {
name Dot6
xpos 1097
ypos 761
}
Input {
inputs 0
name From
xpos 824
ypos -10
number 1
}
Dot {
name Dot50
xpos 857
ypos 89
}
set Nb01d880 [stack 0]
Blur {
size {{parent.Blur2.size}}
filter {{Blur2.filter}}
quality {{parent.Blur8.quality}}
name Blur1
selected true
xpos 824
ypos 176
}
push $Nb01d880
Blur {
size {{parent.Blur8.size}}
filter {{Blur2.filter}}
quality {{parent.Blur8.quality}}
name Blur9
selected true
xpos 1016
ypos 272
}
Merge2 {
inputs 2
operation minus
name Merge34
xpos 824
ypos 326
}
set Nb038d70 [stack 0]
Saturation {
saturation 0
name Saturation8
xpos 1064
ypos 374
disable true
}
set Nb0461b0 [stack 0]
Clamp {
minimum_enable false
maximum 0
name Clamp3
xpos 920
ypos 464
}
Multiply {
channels rgb
value {{parent.multiplyDarks}}
name Multiply2
xpos 920
ypos 518
}
push $Nb0461b0
Clamp {
maximum_enable false
name Clamp2
xpos 1208
ypos 464
}
Multiply {
channels rgb
value {{parent.multiplyBrights}}
name Multiply1
xpos 1208
ypos 518
}
Merge2 {
inputs 2
operation plus
name Merge2
xpos 1064
ypos 614
}
Dot {
name Dot2
xpos 857
ypos 713
}
Dot {
name Dot4
xpos 1001
ypos 713
}
set Nb054980 [stack 0]
Dot {
name Dot3
xpos 1145
ypos 713
}
MergeExpression {
inputs 2
expr0 abs(Ar)>abs(Br)?Ar:Br
expr1 abs(Ag)>abs(Bg)?Ag:Bg
expr2 abs(Ab)>abs(Bb)?Ab:Bb
expr3 abs(Aa)>abs(Ba)?Aa:Ba
name MaxAbs
xpos 1112
ypos 806
}
Dot {
name Dot8
xpos 1145
ypos 905
}
push $Nb010fb0
push $Nb054980
Merge2 {
inputs 2
operation plus
name Merge1
xpos 968
ypos 806
}
Dot {
name Dot9
xpos 1001
ypos 857
}
push $Nb038d70
Switch {
inputs 3
which {{parent.MixBack}}
name Switch2
xpos 824
ypos 902
}
Merge2 {
inputs 2
operation plus
name Merge35
xpos 824
ypos 950
}
Clamp {
maximum_enable false
name Clamp1
xpos 824
ypos 992
}
set Nb0924c0 [stack 0]
Colorspace {
colorspace_out HSV
name Colorspace2
xpos 728
ypos 1094
}
ShuffleCopy {
inputs 2
red red
green green
name ShuffleCopy1
label "\[value in] to \[value out]"
xpos 632
ypos 1184
}
Colorspace {
colorspace_in HSV
name Colorspace3
xpos 728
ypos 1286
}
push $Nb0924c0
Switch {
inputs 2
which {{parent.Luma_Only}}
name Switch1
xpos 824
ypos 1382
}
push $Nf5a01d0
Dot {
name Dot10
xpos 377
ypos 1385
}
Dot {
name Dot12
xpos 713
ypos 1385
}
Dissolve {
inputs 2+1
which {{Recover_Frequencies3.Mix}}
name Dissolve1
xpos 824
ypos 1520
}
Output {
name Output1
xpos 824
ypos 1622
}
push $Nb0924c0
push 0
push 0
Viewer {
inputs 3
frame 1002
input_number 2
colour_sample_bbox {0.3697868288 -0.06580166519 0.3707136214 -0.06487488747}
viewerProcess None
name Viewer1
xpos 1400
ypos 1622
}
end_group