function R=pix2axes(px)
%PIX2AXES Convert pixel units in the axes scale units

%
% Copyright (c) 1995 by Claudio Rivetti and Mark Young
% claudio@alice.uoregon.edu,    mark@alice.uoregon.edu
%

global Handlefig Handleimgax


oldu=get(Handleimgax, 'units');
set(Handleimgax, 'units', 'pixels');
axpos=get(Handleimgax, 'position');
ax=axis;
set(Handleimgax, 'units', oldu);

BX=px(1)-axpos(1);
BD=axpos(3);
XF=px(2)-axpos(2);
FG=axpos(4);
GX=FG-XF;

BXnm=ax(1)+ (BX/BD)*(ax(2)-ax(1));
GXnm=ax(3)+ (GX/FG)*(ax(4)-ax(3));

R=[BXnm GXnm];

return