Mercurial > octave-libgccjit

comparison scripts/plot/grid.m @ 11919:66881d20101d release-3-0-x

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
grid.m: handle minor grid option
author Doug Stewart <dastew@sympatico.ca>
date Fri, 16 Jan 2009 07:27:19 +0100
parents 5389a52df87b
children 7118a78a4378
comparison
equal deleted inserted replaced
11918:f2af2233ce7f 11919:66881d20101d
40 persistent grid_on = false; 40 persistent grid_on = false;
41 persistent minor_on = false; 41 persistent minor_on = false;
42 42
43 [ax, varargin, nargs] = __plt_get_axis_arg__ ("grid", varargin{:}); 43 [ax, varargin, nargs] = __plt_get_axis_arg__ ("grid", varargin{:});
44 44
45 if (nargs > 1) 45 if (nargs > 2)
46 print_usage (); 46 print_usage ();
47 elseif (nargs == 0) 47 elseif (nargs == 0)
48 grid_on = ! grid_on; 48 grid_on = ! grid_on;
49 else 49 else
50 x = varargin{1}; 50 x = varargin{1};
52 if (strcmp ("off", x)) 52 if (strcmp ("off", x))
53 grid_on = false; 53 grid_on = false;
54 elseif (strcmp ("on", x)) 54 elseif (strcmp ("on", x))
55 grid_on = true; 55 grid_on = true;
56 elseif (strcmp ("minor", x)) 56 elseif (strcmp ("minor", x))
57 minor_on = ! minor_on; 57 if (nargs == 2)
58 if (minor_on) 58 x2 = varargin{2};
59 grid_on = true; 59 if (strcmpi (x2, "on"))
60 endif 60 minor_on = true;
61 grid_on=true;
62 elseif (strcmpi (x2, "off"))
63 minor_on = false;
64 else
65 print_usage ();
66 endif
67 else
68 minor_on = ! minor_on
69 if (minor_on)
70 grid_on = true;
71 endif
72 endif
61 else 73 else
62 print_usage (); 74 print_usage ();
63 endif 75 endif
64 else 76 else
65 error ("grid: argument must be a string"); 77 error ("grid: argument must be a string");