function theLims = TernLims(theAxes)
 
% Copyright (C) 1996 Dr. Charles R. Denham, ZYDECO.
% All Rights Reserved.
 
% Version of 12-Sep-96 at 11:33:23.5.

if nargin < 1, theAxes = gca; end

theMin = -0.01; theMax = 1.01;
lim = [theMin theMax];

if nargout < 1
   axes(theAxes)
   set(theAxes, 'XLim', lim, 'YLim', lim, 'ZLim', lim)
  else
   theLims = lim;
end
