Mercurial > hg > octave-lyh

comparison scripts/plot/grid.m @ 7215:dd88d61d443f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-29 16:44:45 by jwe]
author jwe
date Thu, 29 Nov 2007 16:46:40 +0000
parents a1dbe9d80eee
children 5389a52df87b
comparison
equal deleted inserted replaced
7214:86d0b16f2bb2 7215:dd88d61d443f
33 33
34 ## Author: jwe 34 ## Author: jwe
35 35
36 ## PKG_ADD: mark_as_command grid 36 ## PKG_ADD: mark_as_command grid
37 37
38 function grid (x, y) 38 function grid (varargin)
39 39
40 persistent grid_on = false; 40 persistent grid_on = false;
41 persistent minor_on = false; 41 persistent minor_on = false;
42 42
43 nargs = nargin; 43 [ax, varargin, nargs] = __plt_get_axis_arg__ ("grid", varargin{:});
44 44 if (nargs > 1)
45 if (nargs == 2) 45 print_usage ();
46 if (ishandle (x)) 46 elseif (nargs == 0)
47 ax = x; 47 grid_on = ! grid_on;
48 x = y;
49 nargs--;
50 if (! strcmp (get (ax, "type"), "axes"))
51 error ("grid: expecting first argument to be an axes object");
52 endif
53 else
54 print_usage ();
55 endif
56 else 48 else
57 ax = gca (); 49 x = varargin{1};
58 endif
59
60 if (nargs == 0)
61 grid_on = ! grid_on;
62 elseif (nargs == 1)
63 if (ischar (x)) 50 if (ischar (x))
64 if (strcmp ("off", x)) 51 if (strcmp ("off", x))
65 grid_on = false; 52 grid_on = false;
66 elseif (strcmp ("on", x)) 53 elseif (strcmp ("on", x))
67 grid_on = true; 54 grid_on = true;
74 print_usage (); 61 print_usage ();
75 endif 62 endif
76 else 63 else
77 error ("grid: argument must be a string"); 64 error ("grid: argument must be a string");
78 endif 65 endif
79 else
80 print_usage ();
81 endif 66 endif
82 67
83 if (grid_on) 68 if (grid_on)
84 set (ax, "xgrid", "on", "ygrid", "on", "zgrid", "on"); 69 set (ax, "xgrid", "on", "ygrid", "on", "zgrid", "on");
85 if (minor_on) 70 if (minor_on)