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 1984-2000 The MathWorks, Inc. 
%   $Revision: 1.4 $  $Date: 2000/06/01 02:53:49 $

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)
