function graymon
%GRAYMON Set graphics defaults for gray-scale monitors.
%   GRAYMON changes the default graphics properties to produce
%   legible displays for gray-scale monitors.

%   Copyright (c) 1984-98 by The MathWorks, Inc.
%   $Revision: 1.2 $  $Date: 1998/06/09 21:54:27 $

ch = get(0,'children');
if isempty(ch)
   fig = 0;
else
   fig = [gcf 0];
end
co = [.75 .5 .25]'*ones(1,3);
set(fig,'defaultaxescolororder',co)
