%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% warp.m subroutine for Affine Parameter Calculation
% -------------------------------------------------
% AUTHOR: Maher Khoury
% DATE: March 1, 1999
% PURPOSE:
% Motion
Compensates frame2 using input u and v vectors
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
function warped = warp(im, k);
[x, y] = meshgrid(1:size(im,2), 1:size(im,1));
u = k(1).*x + k(2).*y + k(3);
v = -k(2).*x + k(1).*y + k(4);
x_warped = x + u;
y_warped = y + v;
warped = interp2(x, y, im, x_warped, y_warped, 'linear');
warped(isnan(warped)) = 0;