Mercurial > hg > octave-nkf
diff scripts/plot/grid.m @ 7215:dd88d61d443f
[project @ 2007-11-29 16:44:45 by jwe]
author | jwe |
---|---|
date | Thu, 29 Nov 2007 16:46:40 +0000 |
parents | a1dbe9d80eee |
children | 5389a52df87b |
line wrap: on
line diff
--- a/scripts/plot/grid.m +++ b/scripts/plot/grid.m @@ -35,31 +35,18 @@ ## PKG_ADD: mark_as_command grid -function grid (x, y) +function grid (varargin) persistent grid_on = false; persistent minor_on = false; - nargs = nargin; - - if (nargs == 2) - if (ishandle (x)) - ax = x; - x = y; - nargs--; - if (! strcmp (get (ax, "type"), "axes")) - error ("grid: expecting first argument to be an axes object"); - endif - else - print_usage (); - endif + [ax, varargin, nargs] = __plt_get_axis_arg__ ("grid", varargin{:}); + if (nargs > 1) + print_usage (); + elseif (nargs == 0) + grid_on = ! grid_on; else - ax = gca (); - endif - - if (nargs == 0) - grid_on = ! grid_on; - elseif (nargs == 1) + x = varargin{1}; if (ischar (x)) if (strcmp ("off", x)) grid_on = false; @@ -76,8 +63,6 @@ else error ("grid: argument must be a string"); endif - else - print_usage (); endif if (grid_on)