Mercurial > hg > octave-lyh

comparison scripts/plot/pie.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 5389a52df87b
comparison
equal deleted inserted replaced
7214:86d0b16f2bb2 7215:dd88d61d443f
42 ## Very roughly based on pie.m from octave-forge whose author was 42 ## Very roughly based on pie.m from octave-forge whose author was
43 ## Daniel Heiserer <Daniel.heiserer@physik.tu-muenchen.de> 43 ## Daniel Heiserer <Daniel.heiserer@physik.tu-muenchen.de>
44 44
45 function retval = pie (varargin) 45 function retval = pie (varargin)
46 46
47 [h, varargin] = __plt_get_axis_arg__ ("pie", varargin{:});
48
47 if (nargin < 1) 49 if (nargin < 1)
48 print_usage (); 50 print_usage ();
49 elseif (isscalar (varargin{1}) && ishandle (varargin{1})) 51 else
50 h = varargin{1};
51 if (! strcmp (get (h, "type"), "axes"))
52 error ("pie: expecting first argument to be an axes object");
53 endif
54 oldh = gca (); 52 oldh = gca ();
55 unwind_protect 53 unwind_protect
56 axes (h); 54 axes (h);
57 newplot (); 55 newplot ();
58 tmp = __pie__ (h, varargin{2:end}); 56 tmp = __pie__ (h, varargin{:});
59 unwind_protect_cleanup 57 unwind_protect_cleanup
60 axes (oldh); 58 axes (oldh);
61 end_unwind_protect 59 end_unwind_protect
62 else
63 newplot ();
64 tmp = __pie__ (gca (), varargin{:});
65 endif 60 endif
61
66 62
67 if (nargout > 0) 63 if (nargout > 0)
68 retval = tmp; 64 retval = tmp;
69 endif 65 endif
70 66