Mercurial > hg > octave-thorsten
diff scripts/plot/grid.m @ 9374:6a035159ba0e
grid.m: Add missing semi-colon. Fix grid toggle. Allow minor grid when no minor tick.
author | Ben Abbott <bpabbott@mac.com> |
---|---|
date | Mon, 22 Jun 2009 18:34:41 -0400 |
parents | eb63fbe60fab |
children | 95c3e38098bf |
line wrap: on
line diff
--- a/scripts/plot/grid.m +++ b/scripts/plot/grid.m @@ -39,10 +39,15 @@ function grid (varargin) - persistent grid_on = false; - persistent minor_on = false; + [ax, varargin, nargs] = __plt_get_axis_arg__ ("grid", varargin{:}); - [ax, varargin, nargs] = __plt_get_axis_arg__ ("grid", varargin{:}); + grid_on = (strcmp (get (ax, "xgrid"), "on") + && strcmp (get (ax, "ygrid"), "on") + && strcmp (get (ax, "zgrid"), "on")); + + minor_on = (strcmp (get (ax, "xminorgrid"), "on") + && strcmp (get (ax, "yminorgrid"), "on") + && strcmp (get (ax, "zminorgrid"), "on")); if (nargs > 2) print_usage (); @@ -67,7 +72,7 @@ print_usage (); endif else - minor_on = ! minor_on + minor_on = ! minor_on; if (minor_on) grid_on = true; endif @@ -93,3 +98,25 @@ endif endfunction + +%!demo +%! clf +%! subplot (2,2,1) +%! plot (1:100) +%! grid minor +%! grid minor +%! grid +%! title ("no grid") +%! subplot (2,2,2) +%! plot (1:100) +%! grid +%! title ("grid on") +%! subplot (2,2,3) +%! plot (1:100) +%! grid minor +%! title ("grid minor") +%! subplot (2,2,4) +%! semilogy (1:100) +%! grid minor +%! title ("grid minor") +