Mercurial > hg > octave-lyh

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