WiggleAxis to create a 3D shake for Nuke

CS_WiggleAxis.tcl

set cut_paste_input [stack 0]
version 9.0 v5
push $cut_paste_input
Axis2 {
 translate {{"noise(frame * frequency, seeds.x) * noise(frame * frequency * 0.666, seeds.y) * noise(frame * frequency * 0.333, seeds.z) * amplitude * 8"} {"noise(frame * frequency, seeds.z) * noise(frame * frequency * 0.666, seeds.x) * noise(frame * frequency * 0.333, seeds.y) * amplitude * 8"} {"noise(frame * frequency, seeds.y) * noise(frame * frequency * 0.666, seeds.z) * noise(frame * frequency * 0.333, seeds.x) * amplitude * 8"}}
 name CS_WiggleAxis1
 selected true
 xpos 0
 ypos 0
 addUserKnob {20 Wiggle}
 addUserKnob {7 frequency}
 frequency 0.1
 addUserKnob {7 amplitude}
 amplitude 1
 addUserKnob {13 seeds}
 seeds {758 1508 2405}
 addUserKnob {32 randomizeseeds -STARTLINE T "knob seeds.x \[expr \{ int( rand() * 10000 ) \}]\nknob seeds.y \[expr \{ int( rand() * 10000 ) \}]\nknob seeds.z \[expr \{ int( rand() * 10000 ) \}]"}
}