function rev( scale )

if nargin < 1, scale = 0.75; end

obj = findobj( get(gcf,'Children'), 'flat', 'Type', 'axes');

if ~isempty(obj)
    xlim = get( obj(1), 'XLim' );
    xwin( xlim - scale * diff(xlim) );
end
