%    Copyright (C) 1995-1998
%    Massachussetts Institute of Technology
%    Sea Grant AUV Laboratory
%    $Id: fwd.m,v 1.2 1998/10/21 21:43:34 bamoran Exp $	

function fwd( 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
