Mercurial > hg > octave-lyh

comparison scripts/plot/quiver3.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 d65670971cbc
comparison
equal deleted inserted replaced
7214:86d0b16f2bb2 7215:dd88d61d443f
59 ## @seealso{plot} 59 ## @seealso{plot}
60 ## @end deftypefn 60 ## @end deftypefn
61 61
62 function retval = quiver3 (varargin) 62 function retval = quiver3 (varargin)
63 63
64 [h, varargin, nargin] = __plt_get_axis_arg__ ("quiver3", varargin{:});
65
64 if (nargin < 2) 66 if (nargin < 2)
65 print_usage (); 67 print_usage ();
66 elseif (isscalar (varargin{1}) && ishandle (varargin{1})) 68 else
67 h = varargin{1};
68 if (! strcmp (get (h, "type"), "axes"))
69 error ("quiver: expecting first argument to be an axes object");
70 endif
71 oldh = gca (); 69 oldh = gca ();
72 unwind_protect 70 unwind_protect
73 axes (h); 71 axes (h);
74 newplot (); 72 newplot ();
75 tmp = __quiver__ (h, 1, varargin{2:end}); 73 tmp = __quiver__ (h, 1, varargin{:});
76 unwind_protect_cleanup 74 unwind_protect_cleanup
77 axes (oldh); 75 axes (oldh);
78 end_unwind_protect 76 end_unwind_protect
79 else
80 newplot ();
81 tmp = __quiver__ (gca (), 1, varargin{:});
82 endif 77 endif
83 78
84 if (nargout > 0) 79 if (nargout > 0)
85 retval = tmp; 80 retval = tmp;
86 endif 81 endif