function [xdata,ydata]=shft_dat(h,oldx,oldy,newx,newy)

% function [xdata,ydata]=shft_dat(h,oldx,oldy,newx,newy)
%
% This function is used in conjunction with FD3.  It returns the 'xdata' and
% 'ydata' which would result if object 'h' were shifted from being centered
% at ['oldx', 'oldy'] to being centered at ['newx', 'newy'].
%
% ACP

% Last update:  July 11, 1993
% Author:       Adrian C. Penisson

xdata=get(h,'Xdata');
ydata=get(h,'Ydata');

xdata=xdata-oldx+newx;
ydata=ydata-oldy+newy;
