Good old After effects style offset for nuke

gistfile1.tcl

set cut_paste_input [stack 0]
version 9.0 v3
push $cut_paste_input
Group {
 name AE_Offset
 help "Good Old After Effects style offset.\nSlow as hell."
 tile_color 0xff5f00ff
 selected true
 xpos -64
 ypos -250
 addUserKnob {20 User}
 addUserKnob {41 offsetX T Expression3.offsetX}
 addUserKnob {41 offsetY T Expression3.offsetY}
}
 Input {
  inputs 0
  name Input1
  xpos -497
  ypos -332
 }
 Expression {
  expr0 r((x+offsetX)%width,(y+offsetY)%height)
  expr1 g((x+offsetX)%width,(y+offsetY)%height)
  expr2 b((x+offsetX)%width,(y+offsetY)%height)
  expr3 a((x+offsetX)%width,(y+offsetY)%height)
  name Expression3
  selected true
  xpos -496
  ypos -298
  addUserKnob {20 User}
  addUserKnob {7 offsetX}
  addUserKnob {7 offsetY}
 }
 Output {
  name Output1
  xpos -497
  ypos -192
 }
end_group