Mercurial > octave-nkf

comparison scripts/plot/grid.m @ 10549:95c3e38098bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Untabify .m scripts
author Rik <code@nomad.inbox5.com>
date Fri, 23 Apr 2010 11:28:50 -0700
parents 6a035159ba0e
children be55736a0783
comparison
equal deleted inserted replaced
10548:479536c5bb10 10549:95c3e38098bf
55 grid_on = ! grid_on; 55 grid_on = ! grid_on;
56 else 56 else
57 x = varargin{1}; 57 x = varargin{1};
58 if (ischar (x)) 58 if (ischar (x))
59 if (strcmpi (x, "off")) 59 if (strcmpi (x, "off"))
60 grid_on = false; 60 grid_on = false;
61 elseif (strcmpi (x, "on")) 61 elseif (strcmpi (x, "on"))
62 grid_on = true; 62 grid_on = true;
63 elseif (strcmpi (x, "minor")) 63 elseif (strcmpi (x, "minor"))
64 if (nargs == 2) 64 if (nargs == 2)
65 x2 = varargin{2}; 65 x2 = varargin{2};
66 if (strcmpi (x2, "on")) 66 if (strcmpi (x2, "on"))
67 minor_on = true; 67 minor_on = true;
68 grid_on = true; 68 grid_on = true;
69 elseif (strcmpi (x2, "off")) 69 elseif (strcmpi (x2, "off"))
70 minor_on = false; 70 minor_on = false;
71 else 71 else
72 print_usage (); 72 print_usage ();
73 endif 73 endif
74 else 74 else
75 minor_on = ! minor_on; 75 minor_on = ! minor_on;
76 if (minor_on) 76 if (minor_on)
77 grid_on = true; 77 grid_on = true;
78 endif 78 endif
79 endif 79 endif
80 else 80 else
81 print_usage (); 81 print_usage ();
82 endif 82 endif
83 else 83 else
84 error ("grid: argument must be a string"); 84 error ("grid: argument must be a string");
85 endif 85 endif
86 endif 86 endif