diff scripts/plot/draw/private/__quiver__.m @ 22366:837df5db5710

Make graphic functions visually compatible w/Matlab. * image.m: Turn "box" on. * legend.m: Use '#' in BIST titles. * area.m: Turn "box" on. Fix transpose operator that was accidentally changed to `"'. * colorbar.m: Turn "box" on. Remove logscale colorbar BIST demo since it doesn't work for Octave or Matlab. * contour.m: Turn "box" on. * fill.m: Turn "box" on. * isosurface.m: Use cell array of strings in annotation box of %!demo to get multi-line strings. Remove newline. * light.m: Use cell array of strings in annotation box of %!demo to get multi-line strings. * loglog.m: Turn "box" on. * loglogerr.m: Turn "box" on. * __bar__.m: Turn "box" on. * __quiver__.m: Rename 'h' to 'hax' for clarity. * quiver.m: Turn "box" on. * semilogx.m: Turn "box" on. * semilogy.m: Turn "box" on. * shrinkfaces.m: Call 'axis auto' to update plot limits before calling 'axis equal'. This is a kludge that should be fixed in axis. * stairs.m: Turn "box" on.
author Rik <rik@octave.org>
date Tue, 23 Aug 2016 10:12:28 -0700
parents bac0d6f07a3e
children a666e3ee6af8
line wrap: on
line diff
--- a/scripts/plot/draw/private/__quiver__.m	Tue Aug 23 15:37:21 2016 +0100
+++ b/scripts/plot/draw/private/__quiver__.m	Tue Aug 23 10:12:28 2016 -0700
@@ -23,7 +23,7 @@
 
 function hg = __quiver__ (varargin)
 
-  h = varargin{1};
+  hax = varargin{1};
   is3d = varargin{2};
 
   autoscale = 0.9;
@@ -147,7 +147,7 @@
     endif
   endif
 
-  hstate = get (h, "nextplot");
+  hstate = get (hax, "nextplot");
   unwind_protect
 
     if (have_line_spec)
@@ -167,7 +167,8 @@
       args = __add_datasource__ ("quiver", hg,
                                  {"x", "y", "z", "u", "v", "w"}, args{:});
     endif
-    hold on;
+
+    hold (hax, "on");
 
     addproperty ("xdata", hg, "data", x);
     addproperty ("ydata", hg, "data", y);
@@ -301,7 +302,7 @@
       set (hg, args{:});
     endif
   unwind_protect_cleanup
-    set (h, "nextplot", hstate);
+    set (hax, "nextplot", hstate);
   end_unwind_protect
 
 endfunction