function setimagescale(ax, xlim, ylim, xlab)
%SETIMAGESCALE Set the image x axis scale

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

global H FontName FontSize FontWeight

axes(ax);
set(ax,  'YTick', [], 'AspectRatio', [1 1], 'box', 'on');
set(ax, 'XTickMode', 'auto');
set(ax, 'XLim', xlim, 'YLim', ylim);
set(ax, 'FontName', FontName, 'FontSize', FontSize, 'FontWeight', FontWeight);
xlabel(xlab);