octave-nkf: scripts/plot/draw/private/__quiver_

annotate scripts/plot/draw/private/quiver.m @ 19405:009191dbc76d

quiver: fix initialization error when called with zeros (bug #43686) * __quiver__.m: initialize uu, vv and ww, and compute arrows length first.

author	Pantxo Diribarne <pantxo.diribarne@gmail.com>
date	Thu, 27 Nov 2014 21:49:55 +0100
parents	d63878346099
children	db92e7e28e1f

rev	line source
17744 d63878346099 maint: Update copyright notices for release. John W. Eaton <jwe@octave.org> parents: 17671 diff changeset	1 ## Copyright (C) 2007-2013 David Bateman
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	2 ##
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	3 ## This file is part of Octave.
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	4 ##
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	5 ## Octave is free software; you can redistribute it and/or modify it
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	6 ## under the terms of the GNU General Public License as published by
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	7 ## the Free Software Foundation; either version 3 of the License, or (at
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	8 ## your option) any later version.
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	9 ##
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	10 ## Octave is distributed in the hope that it will be useful, but
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	11 ## WITHOUT ANY WARRANTY; without even the implied warranty of
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	13 ## General Public License for more details.
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	14 ##
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	15 ## You should have received a copy of the GNU General Public License
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	16 ## along with Octave; see the file COPYING. If not, see
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	17 ## <http://www.gnu.org/licenses/>.
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	18
8812 7d48766c21a5 use consistent format for doc strings of internal functions John W. Eaton <jwe@octave.org> parents: 8532 diff changeset	19 ## -- texinfo --
7d48766c21a5 use consistent format for doc strings of internal functions John W. Eaton <jwe@octave.org> parents: 8532 diff changeset	20 ## @deftypefn {Function File} {@var{hg} =} __quiver__ (@dots{})
7d48766c21a5 use consistent format for doc strings of internal functions John W. Eaton <jwe@octave.org> parents: 8532 diff changeset	21 ## Undocumented internal function.
7d48766c21a5 use consistent format for doc strings of internal functions John W. Eaton <jwe@octave.org> parents: 8532 diff changeset	22 ## @end deftypefn
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	23
8056 9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	24 function hg = __quiver__ (varargin)
7191 b48a21816f2e [project @ 2007-11-26 21:24:32 by jwe] jwe parents: 7189 diff changeset	25
b48a21816f2e [project @ 2007-11-26 21:24:32 by jwe] jwe parents: 7189 diff changeset	26 h = varargin{1};
b48a21816f2e [project @ 2007-11-26 21:24:32 by jwe] jwe parents: 7189 diff changeset	27 is3d = varargin{2};
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	28
8056 9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	29 autoscale = 0.9;
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	30 ## Matlab uses 0.2, but Octave's algorithm produces equivalent visual
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	31 ## results if arrowsize=0.33. Since this is just a non-dimensional
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	32 ## scaling factor we scale the arrowsize property value by 0.33/0.20
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	33 ## in order to get equivalent visual results while keeping equivalent
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	34 ## property values.
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	35 arrowsize = 0.20;
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	36
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	37 firstnonnumeric = find (! cellfun ("isnumeric", varargin(3:nargin)), 1);
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	38 if (isempty (firstnonnumeric))
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	39 firstnonnumeric = Inf;
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	40 else
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	41 firstnonnumeric += 2;
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	42 endif
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	43
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	44 ioff = 3;
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	45 if (nargin < (6 + is3d) \|\| firstnonnumeric < (6 + is3d))
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	46 u = varargin{ioff++};
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	47 v = varargin{ioff++};
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	48 if (is3d)
11589 b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11587 diff changeset	49 w = varargin{ioff++};
14872 c2dbdeaa25df maint: use rows() and columns() to clarify m-files. Rik <octave@nomad.inbox5.com> parents: 14868 diff changeset	50 [x, y, z] = meshgrid (1:columns (u), 1:rows (u), 1:max (size (w)));
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	51 else
14872 c2dbdeaa25df maint: use rows() and columns() to clarify m-files. Rik <octave@nomad.inbox5.com> parents: 14868 diff changeset	52 [x, y] = meshgrid (1:columns (u), 1:rows (u));
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	53 endif
7191 b48a21816f2e [project @ 2007-11-26 21:24:32 by jwe] jwe parents: 7189 diff changeset	54 if (nargin >= ioff && isnumeric (varargin{ioff})
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9896 diff changeset	55 && isscalar (varargin{ioff}))
8056 9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	56 autoscale = varargin{ioff++};
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	57 endif
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	58 else
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	59 x = varargin{ioff++};
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	60 y = varargin{ioff++};
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	61 if (is3d)
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	62 z = varargin{ioff++};
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	63 endif
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	64 u = varargin{ioff++};
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	65 v = varargin{ioff++};
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	66 if (is3d)
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	67 w = varargin{ioff++};
7191 b48a21816f2e [project @ 2007-11-26 21:24:32 by jwe] jwe parents: 7189 diff changeset	68 if (isvector (x) && isvector (y) && isvector (z)
14868 5d3a684236b0 maint: Use Octave coding conventions for cuddling parentheses in scripts directory Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	69 && (! isvector (u) \|\| ! isvector (v) \|\| ! isvector (w)))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9896 diff changeset	70 [x, y, z] = meshgrid (x, y, z);
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	71 endif
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	72 else
7191 b48a21816f2e [project @ 2007-11-26 21:24:32 by jwe] jwe parents: 7189 diff changeset	73 if (isvector (x) && isvector (y) && (! isvector (u) \|\| ! isvector (v)))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9896 diff changeset	74 [x, y] = meshgrid (x, y);
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	75 endif
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	76 endif
7191 b48a21816f2e [project @ 2007-11-26 21:24:32 by jwe] jwe parents: 7189 diff changeset	77 if (nargin >= ioff && isnumeric (varargin{ioff})
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9896 diff changeset	78 && isscalar (varargin{ioff}))
8056 9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	79 autoscale = varargin{ioff++};
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	80 endif
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	81 endif
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	82
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	83 have_filled = false;
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	84 have_line_spec = false;
8070 3b53b25e2550 Add data sources and line series David Bateman <dbateman@free.fr> parents: 8056 diff changeset	85 args = {};
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	86 while (ioff <= nargin)
7191 b48a21816f2e [project @ 2007-11-26 21:24:32 by jwe] jwe parents: 7189 diff changeset	87 arg = varargin{ioff++};
17405 3f0ed69d21c6 Replace unnecessary instances of strncmp with strcmp. Rik <rik@octave.org> parents: 17338 diff changeset	88 if (ischar (arg) && strcmpi (arg, "filled"))
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	89 have_filled = true;
17462 177147bf7b55 Overhaul use of __pltopt__.m to correctly check for cellstr, not just cell. Rik <rik@octave.org> parents: 17405 diff changeset	90 elseif ((ischar (arg) \|\| iscellstr (arg))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9896 diff changeset	91 && ! have_line_spec)
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	92 [linespec, valid] = __pltopt__ ("quiver", arg, false);
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	93 if (valid)
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9896 diff changeset	94 have_line_spec = true;
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	95 if (isempty (linespec.linestyle) \|\| strcmp (linespec.linestyle, "none"))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9896 diff changeset	96 linespec.linestyle = "-";
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9896 diff changeset	97 endif
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	98 else
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	99 args{end+1} = arg;
8070 3b53b25e2550 Add data sources and line series David Bateman <dbateman@free.fr> parents: 8056 diff changeset	100 if (ioff <= nargin)
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	101 args{end+1} = varargin{ioff++};
8070 3b53b25e2550 Add data sources and line series David Bateman <dbateman@free.fr> parents: 8056 diff changeset	102 endif
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	103 endif
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	104 else
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	105 args{end+1} = arg;
8070 3b53b25e2550 Add data sources and line series David Bateman <dbateman@free.fr> parents: 8056 diff changeset	106 if (ioff <= nargin)
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	107 args{end+1} = varargin{ioff++};
8070 3b53b25e2550 Add data sources and line series David Bateman <dbateman@free.fr> parents: 8056 diff changeset	108 endif
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	109 endif
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	110 endwhile
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	111
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	112 ## Normalize 0.20 to 1/3 for plotting
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	113 arrowsize /= 0.20 * 3;
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	114
19405 009191dbc76d quiver: fix initialization error when called with zeros (bug #43686) Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: 17744 diff changeset	115 ## Scale the arrows to fit in the grid
009191dbc76d quiver: fix initialization error when called with zeros (bug #43686) Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: 17744 diff changeset	116 uu = u;
009191dbc76d quiver: fix initialization error when called with zeros (bug #43686) Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: 17744 diff changeset	117 vv = v;
009191dbc76d quiver: fix initialization error when called with zeros (bug #43686) Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: 17744 diff changeset	118 if (is3d)
009191dbc76d quiver: fix initialization error when called with zeros (bug #43686) Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: 17744 diff changeset	119 ww = w;
009191dbc76d quiver: fix initialization error when called with zeros (bug #43686) Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: 17744 diff changeset	120 len = max (sqrt (u(:).^2 + v(:).^2 + w(:).^2));
009191dbc76d quiver: fix initialization error when called with zeros (bug #43686) Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: 17744 diff changeset	121 else
009191dbc76d quiver: fix initialization error when called with zeros (bug #43686) Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: 17744 diff changeset	122 len = max (sqrt (u(:).^2 + v(:).^2));
009191dbc76d quiver: fix initialization error when called with zeros (bug #43686) Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: 17744 diff changeset	123 endif
009191dbc76d quiver: fix initialization error when called with zeros (bug #43686) Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: 17744 diff changeset	124 if (len > 0 && autoscale && numel (u) > 1)
12554 4040a95a586d Revamp quiver autoscaling algorithm (bug #32836). Rik <octave@nomad.inbox5.com> parents: 11589 diff changeset	125 if (isvector (x))
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	126 nx = ny = sqrt (length (x));
12554 4040a95a586d Revamp quiver autoscaling algorithm (bug #32836). Rik <octave@nomad.inbox5.com> parents: 11589 diff changeset	127 else
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	128 [ny, nx] = size (x); # assume meshgrid fmt, x in columns, y in rows
12554 4040a95a586d Revamp quiver autoscaling algorithm (bug #32836). Rik <octave@nomad.inbox5.com> parents: 11589 diff changeset	129 endif
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	130 dx = (max (x(:)) - min (x(:))) / nx;
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	131 dy = (max (y(:)) - min (y(:))) / ny;
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	132 if (is3d)
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	133 dz = (max (z(:)) - min (z(:))) / max (nx, ny);
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	134 else
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	135 dz = 0;
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	136 endif
19405 009191dbc76d quiver: fix initialization error when called with zeros (bug #43686) Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: 17744 diff changeset	137 sd = sqrt (dx.^2 + dy.^2 + dz.^2) / len;
009191dbc76d quiver: fix initialization error when called with zeros (bug #43686) Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: 17744 diff changeset	138 if (sd != 0)
009191dbc76d quiver: fix initialization error when called with zeros (bug #43686) Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: 17744 diff changeset	139 s = autoscale * sd;
009191dbc76d quiver: fix initialization error when called with zeros (bug #43686) Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: 17744 diff changeset	140 else # special case of identical points with multiple vectors
009191dbc76d quiver: fix initialization error when called with zeros (bug #43686) Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: 17744 diff changeset	141 s = autoscale;
8056 9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	142 endif
19405 009191dbc76d quiver: fix initialization error when called with zeros (bug #43686) Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: 17744 diff changeset	143 uu = s * u;
009191dbc76d quiver: fix initialization error when called with zeros (bug #43686) Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: 17744 diff changeset	144 vv = s * v;
8315 e9687c313d5f Fix callbacks in stem and quiver for change in order of children. Fix for scaling in quiver for single arrow David Bateman <dbateman@free.fr> parents: 8190 diff changeset	145 if (is3d)
19405 009191dbc76d quiver: fix initialization error when called with zeros (bug #43686) Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: 17744 diff changeset	146 ww = s * w;
8315 e9687c313d5f Fix callbacks in stem and quiver for change in order of children. Fix for scaling in quiver for single arrow David Bateman <dbateman@free.fr> parents: 8190 diff changeset	147 endif
8056 9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	148 endif
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	149
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	150 hstate = get (h, "nextplot");
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	151 unwind_protect
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	152
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	153 if (have_line_spec)
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	154 ls = linespec.linestyle;
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	155 lc = linespec.color;
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	156 else
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	157 ls = "-";
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	158 lc = __next_line_color__ ();
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	159 endif
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	160
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	161 ## Must occur after __next_line_color__ in order to work correctly.
8056 9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	162 hg = hggroup ();
8070 3b53b25e2550 Add data sources and line series David Bateman <dbateman@free.fr> parents: 8056 diff changeset	163 if (is3d)
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	164 args = __add_datasource__ ("quiver3", hg,
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9896 diff changeset	165 {"x", "y", "z", "u", "v", "w"}, args{:});
8070 3b53b25e2550 Add data sources and line series David Bateman <dbateman@free.fr> parents: 8056 diff changeset	166 else
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	167 args = __add_datasource__ ("quiver", hg,
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9896 diff changeset	168 {"x", "y", "z", "u", "v", "w"}, args{:});
8070 3b53b25e2550 Add data sources and line series David Bateman <dbateman@free.fr> parents: 8056 diff changeset	169 endif
8056 9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	170 hold on;
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	171
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	172 addproperty ("xdata", hg, "data", x);
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	173 addproperty ("ydata", hg, "data", y);
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	174
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	175 addproperty ("udata", hg, "data", u);
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	176 addproperty ("vdata", hg, "data", v);
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	177 if (is3d)
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	178 addproperty ("zdata", hg, "data", z);
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	179 addproperty ("wdata", hg, "data", w);
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	180 else
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	181 addproperty ("zdata", hg, "data", []);
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	182 addproperty ("wdata", hg, "data", []);
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	183 endif
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	184
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	185 addlistener (hg, "xdata", @update_data);
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	186 addlistener (hg, "ydata", @update_data);
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	187 addlistener (hg, "zdata", @update_data);
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	188 addlistener (hg, "udata", @update_data);
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	189 addlistener (hg, "vdata", @update_data);
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	190 addlistener (hg, "wdata", @update_data);
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	191
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	192 x = x(:);
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	193 y = y(:);
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	194 xend = x + uu(:);
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	195 yend = y + vv(:);
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	196 if (is3d)
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	197 z = z(:);
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	198 zend = z + ww(:);
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	199 endif
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	200
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	201 ## Draw arrow shaft as one line object
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	202 if (is3d)
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	203 h1 = plot3 ([x.'; xend.'; NaN(1, length (x))](:),
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	204 [y.'; yend.'; NaN(1, length (y))](:),
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	205 [z.'; zend.'; NaN(1, length (z))](:),
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	206 "linestyle", ls, "color", lc, "parent", hg);
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	207 else
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	208 h1 = plot ([x.'; xend.'; NaN(1, length (x))](:),
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	209 [y.'; yend.'; NaN(1, length (y))](:),
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	210 "linestyle", ls, "color", lc, "parent", hg);
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	211 endif
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	212
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	213 xtmp = x + uu(:) * (1 - arrowsize);
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	214 ytmp = y + vv(:) * (1 - arrowsize);
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	215
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	216 if (is3d)
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	217 xydist = sqrt (uu(:).^2 + vv(:).^2 + ww(:).^2) ./ ...
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	218 (sqrt (uu(:).^2 + vv(:).^2) + eps);
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	219 xarrw1 = xtmp + vv(:) .* xydist * arrowsize / 4;
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	220 xarrw2 = xtmp - vv(:) .* xydist * arrowsize / 4;
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	221 yarrw1 = ytmp - uu(:) .* xydist * arrowsize / 4;
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	222 yarrw2 = ytmp + uu(:) .* xydist * arrowsize / 4;
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	223 zarrw1 = zarrw2 = zend - ww(:) * arrowsize;
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	224 else
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	225 xarrw1 = xtmp + vv(:) * arrowsize / 3;
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	226 xarrw2 = xtmp - vv(:) * arrowsize / 3;
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	227 yarrw1 = ytmp - uu(:) * arrowsize / 3;
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	228 yarrw2 = ytmp + uu(:) * arrowsize / 3;
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	229 endif
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	230
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	231 ## Draw arrowhead as one line object
8056 9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	232 if (have_line_spec)
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	233 if (! isempty (linespec.marker) && ! strcmp (linespec.marker, "none"))
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	234 ls = "none"; # No arrowhead drawn when marker present
8056 9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	235 endif
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	236 endif
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	237
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	238 if (is3d)
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	239 h2 = plot3 ([xarrw1.'; xend.'; xarrw2.'; NaN(1, length (x))](:),
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9896 diff changeset	240 [yarrw1.'; yend.'; yarrw2.'; NaN(1, length (y))](:),
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9896 diff changeset	241 [zarrw1.'; zend.'; zarrw2.'; NaN(1, length (z))](:),
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	242 "linestyle", ls, "color", lc, "parent", hg);
8056 9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	243 else
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	244 h2 = plot ([xarrw1.'; xend.'; xarrw2.'; NaN(1, length (x))](:),
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9896 diff changeset	245 [yarrw1.'; yend.'; yarrw2.'; NaN(1, length (y))](:),
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	246 "linestyle", ls, "color", lc, "parent", hg);
8056 9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	247 endif
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	248
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	249 ## Draw arrow base marker as a third line object
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	250 if (! have_line_spec \|\| isempty (linespec.marker))
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	251 mk = "none";
8056 9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	252 else
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	253 mk = linespec.marker;
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	254 endif
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	255 if (is3d)
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	256 h3 = plot3 (x, y, z, "linestyle", "none", "marker", mk, "parent", hg);
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	257 else
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	258 h3 = plot (x, y, "linestyle", "none", "marker", mk, "parent", hg);
8056 9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	259 endif
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	260 if (have_filled)
17070 d465f9970c02 quiver.m, quiver3.m: Upgrade to use new __plt_get_axis_arg__. Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: 15803 diff changeset	261 ## FIXME: gnuplot doesn't respect the markerfacecolor field
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	262 set (h3, "markerfacecolor", get (h1, "color"));
8056 9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	263 endif
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	264
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	265 ## Set up the hggroup properties and listeners
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	266 if (autoscale)
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	267 addproperty ("autoscale", hg, "radio", "{on}\|off", "on");
11589 b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11587 diff changeset	268 addproperty ("autoscalefactor", hg, "data", autoscale);
8056 9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	269 else
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	270 addproperty ("autoscale", hg, "radio", "{on}\|off", "off");
11589 b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11587 diff changeset	271 addproperty ("autoscalefactor", hg, "data", 1.0);
8056 9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	272 endif
11589 b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11587 diff changeset	273 addlistener (hg, "autoscale", @update_data);
b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11587 diff changeset	274 addlistener (hg, "autoscalefactor", @update_data);
8056 9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	275
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	276 addproperty ("maxheadsize", hg, "data", arrowsize * .20*3);
8056 9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	277 addlistener (hg, "maxheadsize", @update_data);
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	278
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	279 addproperty ("showarrowhead", hg, "radio", "{on}\|off", "on");
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	280 addlistener (hg, "showarrowhead", @update_props);
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	281
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	282 addproperty ("color", hg, "linecolor", get (h1, "color"));
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	283 addproperty ("linestyle", hg, "linelinestyle", get (h1, "linestyle"));
8056 9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	284 addproperty ("linewidth", hg, "linelinewidth", get (h1, "linewidth"));
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	285 addproperty ("marker", hg, "linemarker", get (h3, "marker"));
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	286 addproperty ("markerfacecolor", hg, "linemarkerfacecolor",
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9896 diff changeset	287 get (h3, "markerfacecolor"));
8056 9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	288 addproperty ("markersize", hg, "linemarkersize", get (h3, "markersize"));
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	289
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	290 addlistener (hg, "color", @update_props);
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	291 addlistener (hg, "linestyle", @update_props);
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	292 addlistener (hg, "linewidth", @update_props);
c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	293 addlistener (hg, "marker", @update_props);
c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	294 addlistener (hg, "markerfacecolor", @update_props);
8056 9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	295 addlistener (hg, "markersize", @update_props);
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	296
17527 76614e624818 Add "HitTestArea" property to certain hggroups for Matlab compatibility Rik <rik@octave.org> parents: 17462 diff changeset	297 ## Matlab property, although Octave does not implement it.
76614e624818 Add "HitTestArea" property to certain hggroups for Matlab compatibility Rik <rik@octave.org> parents: 17462 diff changeset	298 addproperty ("hittestarea", hg, "radio", "on\|{off}", "off");
76614e624818 Add "HitTestArea" property to certain hggroups for Matlab compatibility Rik <rik@octave.org> parents: 17462 diff changeset	299
8079 082fa7859574 Additional do not call set with empty arguments fixes David Bateman <dbateman@free.fr> parents: 8075 diff changeset	300 if (! isempty (args))
082fa7859574 Additional do not call set with empty arguments fixes David Bateman <dbateman@free.fr> parents: 8075 diff changeset	301 set (hg, args{:});
082fa7859574 Additional do not call set with empty arguments fixes David Bateman <dbateman@free.fr> parents: 8075 diff changeset	302 endif
8056 9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	303 unwind_protect_cleanup
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	304 set (h, "nextplot", hstate);
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	305 end_unwind_protect
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	306
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	307 endfunction
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	308
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	309 function update_data (h, ~)
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	310
8056 9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	311 x = get (h, "xdata");
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	312 y = get (h, "ydata");
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	313 z = get (h, "zdata");
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	314
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	315 u = get (h, "udata");
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	316 v = get (h, "vdata");
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	317 w = get (h, "wdata");
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	318
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	319 s = get (h, "autoscalefactor");
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	320 arrowsize = get (h, "maxheadsize");
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	321 arrowsize /= 0.20 * 3;
8056 9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	322
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	323 kids = get (h, "children");
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	324
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	325 if (isempty (z) \|\| isempty (w))
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	326 is3d = false;
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	327 else
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	328 is3d = true;
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	329 endif
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	330
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	331 if (strcmp (get (h, "autoscale"), "on") && s != 0)
8056 9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	332 ## Scale the arrows to fit in the grid
12554 4040a95a586d Revamp quiver autoscaling algorithm (bug #32836). Rik <octave@nomad.inbox5.com> parents: 11589 diff changeset	333 if (isvector (x))
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	334 nx = ny = sqrt (length (x));
12554 4040a95a586d Revamp quiver autoscaling algorithm (bug #32836). Rik <octave@nomad.inbox5.com> parents: 11589 diff changeset	335 else
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	336 [ny, nx] = size (x);
12554 4040a95a586d Revamp quiver autoscaling algorithm (bug #32836). Rik <octave@nomad.inbox5.com> parents: 11589 diff changeset	337 endif
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	338 dx = (max (x(:)) - min (x(:))) / nx;
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	339 dy = (max (y(:)) - min (y(:))) / ny;
8056 9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	340 if (is3d)
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	341 dz = (max (z(:)) - min (z(:))) / max (nx, ny);
12554 4040a95a586d Revamp quiver autoscaling algorithm (bug #32836). Rik <octave@nomad.inbox5.com> parents: 11589 diff changeset	342 len = max (sqrt (u(:).^2 + v(:).^2 + w(:).^2));
8056 9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	343 else
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	344 dz = 0;
12554 4040a95a586d Revamp quiver autoscaling algorithm (bug #32836). Rik <octave@nomad.inbox5.com> parents: 11589 diff changeset	345 len = max (sqrt (u(:).^2 + v(:).^2));
8056 9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	346 endif
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	347 if (len > 0)
12554 4040a95a586d Revamp quiver autoscaling algorithm (bug #32836). Rik <octave@nomad.inbox5.com> parents: 11589 diff changeset	348 sd = sqrt (dx.^2 + dy.^2 + dz.^2) / len;
4040a95a586d Revamp quiver autoscaling algorithm (bug #32836). Rik <octave@nomad.inbox5.com> parents: 11589 diff changeset	349 if (sd != 0)
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	350 s *= sd;
12554 4040a95a586d Revamp quiver autoscaling algorithm (bug #32836). Rik <octave@nomad.inbox5.com> parents: 11589 diff changeset	351 endif
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	352 u = s * u;
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	353 v = s * v;
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	354 if (is3d)
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	355 w = s * w;
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	356 endif
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	357 endif
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	358 endif
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	359
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	360 x = x(:);
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	361 y = y(:);
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	362 xend = x + u(:);
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	363 yend = y + v(:);
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	364 if (is3d)
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	365 z = z(:);
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	366 zend = z + w(:);
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	367 endif
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	368
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	369 set (kids(3), "xdata", [x.'; xend.'; NaN(1, length (x))](:));
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	370 set (kids(3), "ydata", [y.'; yend.'; NaN(1, length (y))](:));
8056 9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	371 if (is3d)
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	372 set (kids(3), "zdata", [z.'; zend.'; NaN(1, length (z))](:));
8056 9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	373 endif
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	374
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	375 xtmp = x + u(:) * (1 - arrowsize);
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	376 ytmp = y + v(:) * (1 - arrowsize);
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	377
8056 9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	378 if (is3d)
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	379 xydist = sqrt (u(:).^2 + v(:).^2 + w(:).^2) ./ ...
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	380 (sqrt (u(:).^2 + v(:).^2) + eps);
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	381 xarrw1 = xtmp + v(:) .* xydist * arrowsize / 4;
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	382 xarrw2 = xtmp - v(:) .* xydist * arrowsize / 4;
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	383 yarrw1 = ytmp - u(:) .* xydist * arrowsize / 4;
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	384 yarrw2 = ytmp + u(:) .* xydist * arrowsize / 4;
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	385 zarrw1 = zarrw2 = zend - w(:) * arrowsize;
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	386 else
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	387 xarrw1 = xtmp + v(:) * arrowsize / 3;
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	388 xarrw2 = xtmp - v(:) * arrowsize / 3;
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	389 yarrw1 = ytmp - u(:) * arrowsize / 3;
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	390 yarrw2 = ytmp + u(:) * arrowsize / 3;
8056 9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	391 endif
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	392
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	393 set (kids(2), "xdata", [x.'; xend.'; NaN(1, length (x))](:));
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	394 set (kids(2), "ydata", [y.'; yend.'; NaN(1, length (y))](:));
8056 9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	395 if (is3d)
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	396 set (kids(2), "zdata", [z.'; zend.'; NaN(1, length (z))](:));
8056 9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	397 endif
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	398
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	399 set (kids(2), "xdata", [xarrw1.'; xend.'; xarrw2.'; NaN(1, length (x))](:));
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	400 set (kids(2), "ydata", [yarrw1.'; yend.'; yarrw2.'; NaN(1, length (y))](:));
8056 9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	401 if (is3d)
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	402 set (kids(2), "zdata", [zarrw1.'; zend.'; zarrw2.'; NaN(1, length (z))](:));
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	403 endif
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	404
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	405 set (kids(1), "xdata", x);
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	406 set (kids(1), "ydata", y);
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	407 if (is3d)
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	408 set (kids(1), "zdata", z);
8056 9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	409 endif
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	410
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: diff changeset	411 endfunction
8056 9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	412
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	413 function update_props (h, ~)
8056 9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	414 kids = get (h, "children");
9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	415
17671 ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	416 set (kids([3 2]), {"color", "linestyle", "linewidth"},
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	417 get (h, {"color", "linestyle", "linewidth"}));
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	418 set (kids(2), "visible", get (h, "showarrowhead"));
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	419 set (kids(1), {"color", "marker", "markerfacecolor", "markersize"},
ddfc1600a311 Overhaul quiver/quiver3 functions. Rik <rik@octave.org> parents: 17572 diff changeset	420 get (h, {"color", "marker", "markerfacecolor", "markersize"}));
8056 9a6f4713f765 Add area, bar, quiver and stair series graphics objects. Document them David Bateman <dbateman@free.fr> parents: 7768 diff changeset	421 endfunction
17338 1c89599167a6 maint: End m-files with 1 blank line. Rik <rik@octave.org> parents: 17070 diff changeset	422

Mercurial > octave-nkf

annotate scripts/plot/draw/private/__quiver__.m @ 19405:009191dbc76d

annotate scripts/plot/draw/private/quiver.m @ 19405:009191dbc76d