Script in ''shift'' OnUpdate
Execute[If[Length[shift]>Length[Vector[(1pixX,1pixY)]],scriptShift,{}]]

pixX: x(Corner[3] - Corner[1]) / x(Corner[5])
pixY: y(Corner[3] - Corner[1]) / y(Corner[5])
shift = Vector(Corner[1] + (35 * pixX, 35 * pixY), (0, 0))
scriptShift: {"CenterView[CopyFreeObject[ Intersect[Line[Corner[3], Corner[1]], Line[Corner[4], Corner[2]]] + shift]]"}