Mercurial > hg > octave-nkf

comparison scripts/plot/ylabel.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 a730e47fda4d
children c18512d0ddb6
comparison
equal deleted inserted replaced
7214:86d0b16f2bb2 7215:dd88d61d443f
23 ## See xlabel. 23 ## See xlabel.
24 ## @end deftypefn 24 ## @end deftypefn
25 25
26 ## Author: jwe 26 ## Author: jwe
27 27
28 function h = ylabel (varargin) 28 function retval = ylabel (varargin)
29 29
30 if (isscalar (varargin{1}) && ishandle (varargin{1})) 30 [h, varargin, nargin] = __plt_get_axis_arg__ ("ylabel", varargin{:});
31 ax = varargin{1}; 31
32 if (! strcmp (get (ax, "type"), "axes")) 32 if (rem (nargin, 2) != 1)
33 error ("ylabel: expecting first argument to be an axes object"); 33 print_usage ();
34 endif
35 if (rem (nargin, 2) == 1)
36 print_usage ();
37 endif
38 oldh = gca ();
39 unwind_protect
40 axes (ax);
41 tmp = __axis_label__ ("ylabel", varargin{2:end});
42 unwind_protect_cleanup
43 axes (oldh);
44 end_unwind_protect
45 else
46 if (rem (nargin, 2) != 1)
47 print_usage ();
48 endif
49 tmp = __axis_label__ ("ylabel", varargin{1:end});
50 endif 34 endif
51 35
36 oldh = gca ();
37 unwind_protect
38 axes (h);
39 tmp = __axis_label__ ("ylabel", varargin{:});
40 unwind_protect_cleanup
41 axes (oldh);
42 end_unwind_protect
43
52 if (nargout > 0) 44 if (nargout > 0)
53 h = tmp; 45 retval = h;
54 endif 46 endif
55 47
56 endfunction 48 endfunction