home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l460 / 2.ddi / GRAPHICS.DI$ / GRAYMON.M < prev    next >
Encoding:
Text File  |  1993-03-07  |  392 b   |  16 lines
  1. function graymon
  2. %GRAYMON Graphics figure defaults set for gray-scale monitor.
  3. %    GRAYMON changes the default graphics properties to produce
  4. %    legible displays for gray-scale monitors.
  5.  
  6. %    Copyright (c) 1984-93 by The MathWorks, Inc.
  7.  
  8. ch = get(0,'children');
  9. if isempty(ch)
  10.    fig = 0;
  11. else
  12.    fig = [gcf 0];
  13. end
  14. co = [.75 .5 .25]'*ones(1,3);
  15. set(fig,'defaultaxescolororder',co)
  16.