Autodistort copypasta

gistfile1.tcl

set cut_paste_input [stack 0]
version 6.3 v8
push $cut_paste_input
Noise {
 output motion
 cliptype none
 size 3
 gain 1
 gamma 1
 center {1648 1350}
 name Noise1
 selected true
 xpos 2583
 ypos -127
}
Grade {
 channels motion
 black -1
 black_clamp false
 name Grade20
 selected true
 xpos 2742
 ypos -127
}
IDistort {
 uv motion
 uv_scale 2
 name IDistort1
 selected true
 xpos 2742
 ypos -64
}