Mercurial > octave
annotate scripts/plot/private/__stem__.m @ 10549:95c3e38098bf
Untabify .m scripts
| author | Rik <code@nomad.inbox5.com> |
|---|---|
| date | Fri, 23 Apr 2010 11:28:50 -0700 |
| parents | 4516a0c97ced |
| children | 988d2bd6bacd |
| rev | line source |
|---|---|
| 8920 | 1 ## Copyright (C) 2006, 2007, 2008, 2009 Michel D. Schmid |
| 7217 | 2 ## |
| 3 ## This file is part of Octave. | |
| 4 ## | |
| 5 ## Octave is free software; you can redistribute it and/or modify it | |
| 6 ## under the terms of the GNU General Public License as published by | |
| 7 ## the Free Software Foundation; either version 3 of the License, or (at | |
| 8 ## your option) any later version. | |
| 9 ## | |
| 10 ## Octave is distributed in the hope that it will be useful, but | |
| 11 ## WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
| 13 ## General Public License for more details. | |
| 14 ## | |
| 15 ## You should have received a copy of the GNU General Public License | |
| 16 ## along with Octave; see the file COPYING. If not, see | |
| 17 ## <http://www.gnu.org/licenses/>. | |
| 18 | |
|
8812
7d48766c21a5
use consistent format for doc strings of internal functions
John W. Eaton <jwe@octave.org>
parents:
8507
diff
changeset
|
19 ## -*- texinfo -*- |
|
7d48766c21a5
use consistent format for doc strings of internal functions
John W. Eaton <jwe@octave.org>
parents:
8507
diff
changeset
|
20 ## @deftypefn {Function File} {@var{h} =} __stem__ (@var{have_z}, @var{varargin}) |
|
7d48766c21a5
use consistent format for doc strings of internal functions
John W. Eaton <jwe@octave.org>
parents:
8507
diff
changeset
|
21 ## Undocumented internal function. |
|
7d48766c21a5
use consistent format for doc strings of internal functions
John W. Eaton <jwe@octave.org>
parents:
8507
diff
changeset
|
22 ## @end deftypefn |
| 7217 | 23 |
| 24 ## Author: Michel D. Schmid <michaelschmid@users.sourceforge.net> | |
| 25 ## Adapted-by: jwe | |
| 26 | |
| 27 function h = __stem__ (have_z, varargin) | |
| 28 | |
| 7218 | 29 if (have_z) |
| 30 caller = "stem3"; | |
| 31 else | |
| 32 caller = "stem"; | |
| 33 endif | |
| 7217 | 34 |
| 7218 | 35 [ax, varargin, nargin] = __plt_get_axis_arg__ (caller, varargin{:}); |
| 7217 | 36 |
|
8070
3b53b25e2550
Add data sources and line series
David Bateman <dbateman@free.fr>
parents:
8056
diff
changeset
|
37 [x, y, z, dofill, llc, ls, mmc, ms, varargin] = ... |
|
3b53b25e2550
Add data sources and line series
David Bateman <dbateman@free.fr>
parents:
8056
diff
changeset
|
38 check_stem_arg (have_z, varargin{:}); |
| 7217 | 39 |
| 40 oldax = gca (); | |
| 41 unwind_protect | |
| 42 axes (ax); | |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
43 hold_state = get (ax, "nextplot"); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
44 newplot (); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
45 h = []; |
| 7217 | 46 |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
47 nx = rows (x); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
48 for i = 1: columns (x) |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
49 if (have_z) |
| 10549 | 50 xt = x(:)'; |
| 51 xt = [xt; xt; NaN(1, nx)](:); | |
| 52 yt = y(:)'; | |
| 53 yt = [yt; yt; NaN(1, nx)](:); | |
| 54 zt = z(:)'; | |
| 55 zt = [zeros(1, nx); zt; NaN(1, nx)](:); | |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
56 else |
| 10549 | 57 xt = x(:, i)'; |
| 58 xt = [xt; xt; NaN(1, nx)](:); | |
| 59 yt = y(:, i)'; | |
| 60 yt = [zeros(1, nx); yt; NaN(1, nx)](:); | |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
61 endif |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
62 |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
63 hg = hggroup (); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
64 h = [h; hg]; |
|
8075
a028a5960e18
Fix for hold with no figures/axes. Set prop/val pairs to hggroups rather than underlying objects. Fix for equality test in array_property
David Bateman <dbateman@free.fr>
parents:
8070
diff
changeset
|
65 args = __add_datasource__ (caller, hg, {"x", "y", "z"}, varargin{:}); |
|
8070
3b53b25e2550
Add data sources and line series
David Bateman <dbateman@free.fr>
parents:
8056
diff
changeset
|
66 |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
67 if (i == 1) |
| 10549 | 68 set (ax, "nextplot", "add"); |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
69 endif |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
70 |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
71 if (isempty (llc)) |
| 10549 | 72 lc = __next_line_color__ (); |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
73 else |
| 10549 | 74 lc = llc; |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
75 endif |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
76 |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
77 if (isempty (mmc)) |
| 10549 | 78 mc = lc; |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
79 else |
| 10549 | 80 mc = mmc; |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
81 endif |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
82 |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
83 if (dofill) |
| 10549 | 84 fc = mc; |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
85 else |
| 10549 | 86 fc = "none"; |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
87 endif |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
88 |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
89 if (have_z) |
| 10549 | 90 h_stems = plot3 (xt, yt, zt, "color", lc, "linestyle", ls, |
| 91 "parent", hg, x, y, z, "color", mc, | |
| 92 "marker", ms, "linestyle", "none", | |
| 93 "markerfacecolor", fc, "parent", hg); | |
| 7217 | 94 |
| 10549 | 95 h_baseline = []; |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
96 else |
| 10549 | 97 h_stems = plot (xt, yt, "color", lc, "linestyle", ls, |
| 98 "parent", hg, x(:,i), y(:, i), "color", mc, "marker", | |
| 99 ms, "linestyle", "none", "markerfacecolor", | |
| 100 fc, "parent", hg); | |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
101 |
| 10549 | 102 if (i == 1) |
| 103 x_axis_range = get (ax, "xlim"); | |
| 104 h_baseline = line (x_axis_range, [0, 0], "color", [0, 0, 0]); | |
| 105 set (h_baseline, "handlevisibility", "off"); | |
| 106 set (h_baseline, "xliminclude", "off"); | |
| 107 addlistener (ax, "xlim", @update_xlim); | |
| 108 addlistener (h_baseline, "ydata", @update_baseline); | |
| 109 addlistener (h_baseline, "visible", @update_baseline); | |
| 110 endif | |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
111 endif |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
112 |
| 8506 | 113 ## Setup the hggroup and listeners. |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
114 addproperty ("showbaseline", hg, "radio", "{on}|off"); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
115 addproperty ("basevalue", hg, "data", 0); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
116 addproperty ("baseline", hg, "data", h_baseline); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
117 |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
118 if (!have_z) |
| 10549 | 119 addlistener (hg, "showbaseline", @show_baseline); |
| 120 addlistener (hg, "basevalue", @move_baseline); | |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
121 endif |
| 7217 | 122 |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
123 addproperty ("color", hg, "linecolor", lc); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
124 addproperty ("linewidth", hg, "linelinewidth", 0.5); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
125 addproperty ("linestyle", hg, "linelinestyle", ls); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
126 addproperty ("marker", hg, "linemarker", ms); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
127 addproperty ("markerfacecolor", hg, "linemarkerfacecolor", fc); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
128 addproperty ("markersize", hg, "linemarkersize", 6); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
129 |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
130 addlistener (hg, "color", @update_props); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
131 addlistener (hg, "linewidth", @update_props); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
132 addlistener (hg, "linestyle", @update_props); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
133 addlistener (hg, "marker", @update_props); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
134 addlistener (hg, "markerfacecolor", @update_props); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
135 addlistener (hg, "markersize", @update_props); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
136 |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
137 addproperty ("xdata", hg, "data", x(:, i)); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
138 addproperty ("ydata", hg, "data", y(:, i)); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
139 if (have_z) |
| 10549 | 140 addproperty ("zdata", hg, "data", z(:, i)); |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
141 else |
| 10549 | 142 addproperty ("zdata", hg, "data", []); |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
143 endif |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
144 |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
145 addlistener (hg, "xdata", @update_data); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
146 addlistener (hg, "ydata", @update_data); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
147 addlistener (hg, "zdata", @update_data); |
|
8075
a028a5960e18
Fix for hold with no figures/axes. Set prop/val pairs to hggroups rather than underlying objects. Fix for equality test in array_property
David Bateman <dbateman@free.fr>
parents:
8070
diff
changeset
|
148 |
|
8079
082fa7859574
Additional do not call set with empty arguments fixes
David Bateman <dbateman@free.fr>
parents:
8075
diff
changeset
|
149 if (! isempty (args)) |
| 10549 | 150 set (hg, args{:}); |
|
8079
082fa7859574
Additional do not call set with empty arguments fixes
David Bateman <dbateman@free.fr>
parents:
8075
diff
changeset
|
151 endif |
|
8075
a028a5960e18
Fix for hold with no figures/axes. Set prop/val pairs to hggroups rather than underlying objects. Fix for equality test in array_property
David Bateman <dbateman@free.fr>
parents:
8070
diff
changeset
|
152 if (i == 1 && !isempty(h_baseline)) |
| 10549 | 153 set (h_baseline, "parent", get (hg, "parent")); |
|
8075
a028a5960e18
Fix for hold with no figures/axes. Set prop/val pairs to hggroups rather than underlying objects. Fix for equality test in array_property
David Bateman <dbateman@free.fr>
parents:
8070
diff
changeset
|
154 endif |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
155 endfor |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
156 |
| 7217 | 157 unwind_protect_cleanup |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
158 set (ax, "nextplot", hold_state); |
| 7217 | 159 axes (oldax); |
| 160 end_unwind_protect | |
| 161 endfunction | |
| 162 | |
|
8070
3b53b25e2550
Add data sources and line series
David Bateman <dbateman@free.fr>
parents:
8056
diff
changeset
|
163 function [x, y, z, dofill, lc, ls, mc, ms, newargs] = check_stem_arg (have_z, varargin) |
| 7217 | 164 |
| 8506 | 165 ## FIXME -- there seems to be a lot of duplicated code in this |
| 166 ## function. It seems like it should be possible to simplify things | |
| 167 ## by combining some of the nearly identical code sections into | |
| 168 ## additional subfunctions. | |
| 169 | |
| 7218 | 170 if (have_z) |
| 171 caller = "stem3"; | |
| 172 else | |
| 173 caller = "stem"; | |
| 174 endif | |
| 175 | |
| 8506 | 176 ## Remove prop/val pairs from data to consider. |
|
8070
3b53b25e2550
Add data sources and line series
David Bateman <dbateman@free.fr>
parents:
8056
diff
changeset
|
177 i = 2; |
|
3b53b25e2550
Add data sources and line series
David Bateman <dbateman@free.fr>
parents:
8056
diff
changeset
|
178 newargs = {}; |
|
3b53b25e2550
Add data sources and line series
David Bateman <dbateman@free.fr>
parents:
8056
diff
changeset
|
179 while (i < length (varargin)) |
|
8190
73d6b71788c0
use case-insensitive comparison for graphics properties; misc style fixes
John W. Eaton <jwe@octave.org>
parents:
8079
diff
changeset
|
180 if (ischar (varargin{i}) && !(strcmpi ("fill", varargin{i}) |
| 10549 | 181 || strcmpi ("filled", varargin{i}))) |
|
8070
3b53b25e2550
Add data sources and line series
David Bateman <dbateman@free.fr>
parents:
8056
diff
changeset
|
182 newargs{end + 1} = varargin{i}; |
|
3b53b25e2550
Add data sources and line series
David Bateman <dbateman@free.fr>
parents:
8056
diff
changeset
|
183 newargs{end + 1} = varargin{i + 1}; |
|
3b53b25e2550
Add data sources and line series
David Bateman <dbateman@free.fr>
parents:
8056
diff
changeset
|
184 nargin = nargin - 2; |
|
3b53b25e2550
Add data sources and line series
David Bateman <dbateman@free.fr>
parents:
8056
diff
changeset
|
185 varargin(i:i+1) = []; |
|
3b53b25e2550
Add data sources and line series
David Bateman <dbateman@free.fr>
parents:
8056
diff
changeset
|
186 else |
|
3b53b25e2550
Add data sources and line series
David Bateman <dbateman@free.fr>
parents:
8056
diff
changeset
|
187 i++; |
|
3b53b25e2550
Add data sources and line series
David Bateman <dbateman@free.fr>
parents:
8056
diff
changeset
|
188 endif |
|
3b53b25e2550
Add data sources and line series
David Bateman <dbateman@free.fr>
parents:
8056
diff
changeset
|
189 endwhile |
|
3b53b25e2550
Add data sources and line series
David Bateman <dbateman@free.fr>
parents:
8056
diff
changeset
|
190 |
| 8506 | 191 ## set specifiers to default values. |
| 7217 | 192 [lc, ls, mc, ms] = set_default_values (); |
| 193 dofill = 0; | |
| 194 fill_2 = 0; | |
| 195 linespec_2 = 0; | |
| 196 z = []; | |
| 197 | |
| 8506 | 198 ## Check input arguments. |
| 7217 | 199 if (nargin == 2) |
| 200 if (have_z) | |
| 201 z = varargin{1}; | |
| 7218 | 202 x = 1:rows (z); |
| 203 y = 1:columns (z); | |
| 7217 | 204 else |
| 205 y = varargin{1}; | |
| 206 if (isvector (y)) | |
| 10549 | 207 x = 1:length (y); |
| 7217 | 208 elseif (ismatrix (y)) |
| 10549 | 209 x = 1:rows (y); |
| 7217 | 210 else |
| 10549 | 211 error ("stem: Y must be a matrix"); |
| 7217 | 212 endif # in each case, x & y will be defined |
| 213 endif | |
| 214 elseif (nargin == 3) | |
| 8506 | 215 ## Several possibilities |
| 216 ## | |
| 7217 | 217 ## 1. the real y data |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
218 ## 2. 'filled' |
| 7217 | 219 ## 3. line spec |
| 220 if (ischar (varargin{2})) | |
| 8506 | 221 ## Only 2. or 3. possible. |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
222 if (strcmpi ("fill", varargin{2}) || strcmpi ("filled", varargin{2})) |
| 10549 | 223 dofill = 1; |
| 7217 | 224 else |
| 10549 | 225 ## Parse the linespec. |
| 226 [lc, ls, mc, ms] = stem_line_spec (caller, varargin{2}); | |
| 7217 | 227 endif |
| 228 if (have_z) | |
| 10549 | 229 z = varargin{1}; |
| 230 x = 1:rows (z); | |
| 231 y = 1:columns (z); | |
| 7217 | 232 else |
| 10549 | 233 y = varargin{1}; |
| 234 if (isvector (y)) | |
| 235 x = 1:length (y); | |
| 236 elseif (ismatrix (y)) | |
| 237 x = 1:rows (y); | |
| 238 else | |
| 239 error ("stem: Y must be a matrix"); | |
| 240 endif # in each case, x & y will be defined | |
| 7217 | 241 endif |
| 242 else | |
| 243 if (have_z) | |
| 10549 | 244 error ("stem3: must define X, Y and Z"); |
| 7217 | 245 else |
| 10549 | 246 ## Must be the real y data. |
| 247 x = varargin{1}; | |
| 248 y = varargin{2}; | |
| 249 if (! (ismatrix (x) && ismatrix (y))) | |
| 250 error ("stem: X and Y must be matrices"); | |
| 251 endif | |
| 7217 | 252 endif |
| 253 endif | |
| 254 elseif (nargin == 4) | |
| 8506 | 255 ## Again, several possibilities: |
| 256 ## | |
| 7217 | 257 ## arg2 1. real y |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
258 ## arg2 2. 'filled' or linespec |
| 7217 | 259 ## arg3 1. real z |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
260 ## arg3 2. 'filled' or linespec |
| 7217 | 261 if (ischar (varargin{2})) |
| 8506 | 262 ## Only arg2 2. / arg3 1. & arg3 3. are possible. |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
263 if (strcmpi ("fill", varargin{2}) || strcmpi ("filled", varargin{2})) |
| 10549 | 264 dofill = 1; |
| 265 fill_2 = 1; # Be sure, no second "fill" is in the arguments. | |
| 7217 | 266 else |
| 10549 | 267 ## Must be a linespec. |
| 268 [lc, ls, mc, ms] = stem_line_spec (caller, varargin{2}); | |
| 269 linespec_2 = 1; | |
| 7217 | 270 endif |
| 271 if (have_z) | |
| 10549 | 272 z = varargin{1}; |
| 273 x = 1:rows (z); | |
| 274 y = 1:columns (z); | |
| 7217 | 275 else |
| 10549 | 276 y = varargin{1}; |
| 277 if (isvector (y)) | |
| 278 x = 1:length (y); | |
| 279 elseif (ismatrix (y)) | |
| 280 x = 1:rows (y); | |
| 281 else | |
| 282 error ("stem: Y must be a matrix"); | |
| 283 endif # in each case, x & y will be defined | |
| 7217 | 284 endif |
| 285 else | |
| 286 if (have_z) | |
| 10549 | 287 x = varargin{1}; |
| 288 y = varargin{2}; | |
| 289 z = varargin{3}; | |
| 290 if (! (ismatrix (x) && ismatrix (y) && ismatrix (z))) | |
| 291 error ("stem3: X, Y and Z must be matrices"); | |
| 292 endif | |
| 7217 | 293 else |
| 10549 | 294 ## must be the real y data. |
| 295 x = varargin{1}; | |
| 296 y = varargin{2}; | |
| 297 if (! (ismatrix (x) && ismatrix (y))) | |
| 298 error ("stem: X and Y must be matrices"); | |
| 299 endif | |
| 7217 | 300 endif |
| 301 endif # if ischar(varargin{2}) | |
| 302 if (! have_z) | |
| 8506 | 303 ## varargin{3} must be char. |
| 304 ## Check for "fill. | |
|
8190
73d6b71788c0
use case-insensitive comparison for graphics properties; misc style fixes
John W. Eaton <jwe@octave.org>
parents:
8079
diff
changeset
|
305 if ((strcmpi (varargin{3}, "fill") || strcmpi (varargin{3}, "filled")) |
| 10549 | 306 && fill_2) |
| 307 error ("stem: duplicate fill argument"); | |
|
8190
73d6b71788c0
use case-insensitive comparison for graphics properties; misc style fixes
John W. Eaton <jwe@octave.org>
parents:
8079
diff
changeset
|
308 elseif (strcmpi ("fill", varargin{3}) && linespec_2) |
| 10549 | 309 ## Must be "fill". |
| 310 dofill = 1; | |
| 311 fill_2 = 1; | |
|
8190
73d6b71788c0
use case-insensitive comparison for graphics properties; misc style fixes
John W. Eaton <jwe@octave.org>
parents:
8079
diff
changeset
|
312 elseif ((strcmpi (varargin{3}, "fill") || strcmpi (varargin{3}, "filled")) |
| 10549 | 313 && !linespec_2) |
| 314 ## Must be "fill". | |
| 315 dofill = 1; | |
| 316 fill_2 = 1; | |
| 7217 | 317 elseif (! linespec_2) |
| 10549 | 318 ## Must be linespec. |
| 319 [lc, ls, mc, ms] = stem_line_spec (caller, varargin{3}); | |
| 320 linespec_2 = 1; | |
| 7217 | 321 endif |
| 322 endif | |
| 323 elseif (nargin == 5) | |
| 324 if (have_z) | |
| 325 x = varargin{1}; | |
| 326 y = varargin{2}; | |
| 327 z = varargin{3}; | |
| 328 if (! (ismatrix (x) && ismatrix (y) && ismatrix (z))) | |
| 10549 | 329 error ("stem3: X, Y and Z must be matrices"); |
| 7217 | 330 endif |
| 331 else | |
| 332 x = varargin{1}; | |
| 333 y = varargin{2}; | |
| 334 if (! (ismatrix (x) && ismatrix (y))) | |
| 10549 | 335 error ("stem: X and Y must be matrices"); |
| 7217 | 336 endif |
| 337 endif | |
| 338 | |
| 339 if (! have_z) | |
|
8190
73d6b71788c0
use case-insensitive comparison for graphics properties; misc style fixes
John W. Eaton <jwe@octave.org>
parents:
8079
diff
changeset
|
340 if (strcmpi (varargin{3}, "fill") || strcmpi (varargin{3}, "filled")) |
| 10549 | 341 dofill = 1; |
| 342 fill_2 = 1; # Be sure, no second "fill" is in the arguments. | |
| 7217 | 343 else |
| 10549 | 344 ## Must be a linespec. |
| 345 [lc, ls, mc, ms] = stem_line_spec (caller, varargin{3}); | |
| 346 linespec_2 = 1; | |
| 7217 | 347 endif |
| 348 endif | |
| 349 | |
| 8506 | 350 ## Check for "fill". |
|
8190
73d6b71788c0
use case-insensitive comparison for graphics properties; misc style fixes
John W. Eaton <jwe@octave.org>
parents:
8079
diff
changeset
|
351 if ((strcmpi (varargin{4}, "fill") || strcmpi (varargin{4}, "filled")) |
| 10549 | 352 && fill_2) |
| 7218 | 353 error ("%s: duplicate fill argument", caller); |
|
8190
73d6b71788c0
use case-insensitive comparison for graphics properties; misc style fixes
John W. Eaton <jwe@octave.org>
parents:
8079
diff
changeset
|
354 elseif ((strcmpi (varargin{4}, "fill") || strcmpi (varargin{4}, "filled")) |
| 10549 | 355 && linespec_2) |
| 8506 | 356 ## Must be "fill". |
| 7217 | 357 dofill = 1; |
| 358 fill_2 = 1; | |
|
8190
73d6b71788c0
use case-insensitive comparison for graphics properties; misc style fixes
John W. Eaton <jwe@octave.org>
parents:
8079
diff
changeset
|
359 elseif (!strcmpi (varargin{4}, "fill") && !strcmpi (varargin{4}, "filled") |
| 10549 | 360 && !linespec_2) |
| 8506 | 361 ## Must be linespec. |
| 7218 | 362 [lc, ls, mc, ms] = stem_line_spec (caller, varargin{4}); |
| 7217 | 363 linespec_2 = 1; |
| 364 endif | |
| 365 elseif (nargin == 6 && have_z) | |
| 366 x = varargin{1}; | |
| 367 y = varargin{2}; | |
| 368 z = varargin{3}; | |
| 369 if (! (ismatrix (x) && ismatrix (y) && ismatrix (z))) | |
| 370 error ("stem3: X, Y and Z must be matrices"); | |
| 371 endif | |
| 372 | |
|
8190
73d6b71788c0
use case-insensitive comparison for graphics properties; misc style fixes
John W. Eaton <jwe@octave.org>
parents:
8079
diff
changeset
|
373 if (strcmpi (varargin{4}, "fill") || strcmpi (varargin{4}, "filled")) |
| 7217 | 374 dofill = 1; |
| 375 fill_2 = 1; # be sure, no second "fill" is in the arguments | |
| 376 else | |
| 8506 | 377 ## Must be a linespec. |
| 7218 | 378 [lc, ls, mc, ms] = stem_line_spec (caller, varargin{4}); |
| 7217 | 379 linespec_2 = 1; |
| 380 endif | |
| 381 | |
| 382 ## check for "fill" .. | |
|
8190
73d6b71788c0
use case-insensitive comparison for graphics properties; misc style fixes
John W. Eaton <jwe@octave.org>
parents:
8079
diff
changeset
|
383 if ((strcmpi (varargin{5}, "fill") || strcmpi (varargin{5}, "filled")) |
| 10549 | 384 && fill_2) |
| 7218 | 385 error ("stem3: duplicate fill argument"); |
|
8190
73d6b71788c0
use case-insensitive comparison for graphics properties; misc style fixes
John W. Eaton <jwe@octave.org>
parents:
8079
diff
changeset
|
386 elseif ((strcmpi (varargin{5}, "fill") || strcmpi (varargin{5}, "filled")) |
| 10549 | 387 && linespec_2) |
| 8506 | 388 ## Must be "fill". |
| 7217 | 389 dofill = 1; |
| 390 fill_2 = 1; | |
|
8190
73d6b71788c0
use case-insensitive comparison for graphics properties; misc style fixes
John W. Eaton <jwe@octave.org>
parents:
8079
diff
changeset
|
391 elseif (!strcmpi (varargin{5}, "fill") && !strcmpi (varargin{5}, "filled") |
| 10549 | 392 && !linespec_2) |
| 8506 | 393 ## Must be linespec. |
| 7218 | 394 [lc, ls, mc, ms] = stem_line_spec (caller, varargin{5}); |
| 7217 | 395 linespec_2 = 1; |
| 396 endif | |
| 397 else | |
| 7218 | 398 error ("%s: incorrect number of arguments", caller); |
| 7217 | 399 endif |
| 400 | |
| 8506 | 401 ## Check sizes of x, y and z. |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
402 if (have_z) |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
403 if (!size_equal (x, y, z)) |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
404 error ("stem3: inconsistent size of x, y and z"); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
405 else |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
406 x = x(:); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
407 y = y(:); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
408 z = z(:); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
409 endif |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
410 else |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
411 if (isvector (x)) |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
412 x = x(:); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
413 if (isvector (y)) |
| 10549 | 414 if (length (x) != length (y)) |
| 415 error ("stem: inconsistent size of x and y"); | |
| 416 else | |
| 417 y = y(:); | |
| 418 endif | |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
419 else |
| 10549 | 420 if (length (x) == rows (y)) |
| 421 x = repmat (x(:), 1, columns (y)); | |
| 422 else | |
| 423 error ("stem: inconsistent size of x and y"); | |
| 424 endif | |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
425 endif |
| 8507 | 426 elseif (!size_equal (x, y)) |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
427 error ("stem: inconsistent size of x and y"); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
428 endif |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
429 endif |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
430 |
| 7217 | 431 endfunction |
| 432 | |
| 7218 | 433 function [lc, ls, mc, ms] = stem_line_spec (caller, str) |
| 7217 | 434 if (! ischar (str)) |
| 7218 | 435 error ("%s: expecting argument to be \"fill\" or a string of specifiers", |
| 10549 | 436 caller); |
| 7217 | 437 endif |
| 438 [lc, ls, mc, ms] = set_default_values (); | |
| 439 ## Parse the line specifier string. | |
| 440 cur_props = __pltopt__ ("stem", str, false); | |
| 441 for i = 1:length(cur_props) | |
| 442 if (isfield (cur_props(i), "color") && ! isempty (cur_props(i).color)); # means line color | |
| 443 mc = lc = cur_props(i).color; | |
| 444 elseif (isfield (cur_props(i), "linestyle")) | |
| 445 ls = cur_props(i).linestyle; | |
|
10135
4516a0c97ced
Handle linestyleorder. Remove @ markers. Treat edgecolor, markeredgecolor and markerfacecolor correctly in scatter.
David Bateman <dbateman@free.fr>
parents:
9896
diff
changeset
|
446 if (isempty (ls)) |
|
4516a0c97ced
Handle linestyleorder. Remove @ markers. Treat edgecolor, markeredgecolor and markerfacecolor correctly in scatter.
David Bateman <dbateman@free.fr>
parents:
9896
diff
changeset
|
447 ls = __next_line_style__ (); |
|
4516a0c97ced
Handle linestyleorder. Remove @ markers. Treat edgecolor, markeredgecolor and markerfacecolor correctly in scatter.
David Bateman <dbateman@free.fr>
parents:
9896
diff
changeset
|
448 endif |
|
8190
73d6b71788c0
use case-insensitive comparison for graphics properties; misc style fixes
John W. Eaton <jwe@octave.org>
parents:
8079
diff
changeset
|
449 elseif (isfield (cur_props(i), "marker") && ! strcmpi (cur_props(i).marker, "none")) |
| 7217 | 450 ms = cur_props(i).marker; |
|
10135
4516a0c97ced
Handle linestyleorder. Remove @ markers. Treat edgecolor, markeredgecolor and markerfacecolor correctly in scatter.
David Bateman <dbateman@free.fr>
parents:
9896
diff
changeset
|
451 if (isempty (ms)) |
|
4516a0c97ced
Handle linestyleorder. Remove @ markers. Treat edgecolor, markeredgecolor and markerfacecolor correctly in scatter.
David Bateman <dbateman@free.fr>
parents:
9896
diff
changeset
|
452 [dummy, ms] = __next_line_style__ (); |
|
4516a0c97ced
Handle linestyleorder. Remove @ markers. Treat edgecolor, markeredgecolor and markerfacecolor correctly in scatter.
David Bateman <dbateman@free.fr>
parents:
9896
diff
changeset
|
453 endif |
| 7217 | 454 endif |
| 455 endfor | |
| 456 endfunction | |
| 457 | |
| 458 function [lc, ls, mc, ms] = set_default_values () | |
| 459 ## set default values | |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
460 mc = []; |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
461 lc = []; |
| 7217 | 462 ls = "-"; |
| 463 ms = "o"; | |
| 464 endfunction | |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
465 |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
466 function update_xlim (h, d) |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
467 kids = get (h, "children"); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
468 xlim = get (h, "xlim"); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
469 |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
470 for i = 1 : length (kids) |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
471 obj = get (kids (i)); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
472 if (strcmp (obj.type, "hggroup") && isfield (obj, "baseline")) |
|
8056
9a6f4713f765
Add area, bar, quiver and stair series graphics objects. Document them
David Bateman <dbateman@free.fr>
parents:
8052
diff
changeset
|
473 if (any (get (obj.baseline, "xdata") != xlim)) |
| 10549 | 474 set (obj.baseline, "xdata", xlim); |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
475 endif |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
476 endif |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
477 endfor |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
478 endfunction |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
479 |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
480 function update_baseline (h, d) |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
481 visible = get (h, "visible"); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
482 ydata = get (h, "ydata")(1); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
483 |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
484 kids = get (get (h, "parent"), "children"); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
485 for i = 1 : length (kids) |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
486 obj = get (kids (i)); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
487 if (strcmp (obj.type, "hggroup") && isfield (obj, "baseline") |
| 10549 | 488 && obj.baseline == h) |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
489 ## Only alter if changed to avoid recursion of the listener functions |
|
8190
73d6b71788c0
use case-insensitive comparison for graphics properties; misc style fixes
John W. Eaton <jwe@octave.org>
parents:
8079
diff
changeset
|
490 if (! strcmpi (get (kids(i), "showbaseline"), visible)) |
| 10549 | 491 set (kids (i), "showbaseline", visible); |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
492 endif |
|
8190
73d6b71788c0
use case-insensitive comparison for graphics properties; misc style fixes
John W. Eaton <jwe@octave.org>
parents:
8079
diff
changeset
|
493 if (! strcmpi (get (kids(i), "basevalue"), visible)) |
| 10549 | 494 set (kids (i), "basevalue", ydata); |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
495 endif |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
496 endif |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
497 endfor |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
498 endfunction |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
499 |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
500 function show_baseline (h, d) |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
501 set (get (h, "baseline"), "visible", get (h, "showbaseline")); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
502 endfunction |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
503 |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
504 function move_baseline (h, d) |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
505 b0 = get (h, "basevalue"); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
506 bl = get (h, "baseline"); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
507 |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
508 if (get (bl, "ydata") != [b0, b0]) |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
509 set (bl, "ydata", [b0, b0]); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
510 endif |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
511 |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
512 kids = get (h, "children"); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
513 yt = get(h, "ydata")(:)'; |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
514 ny = length (yt); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
515 yt = [b0 * ones(1, ny); yt; NaN(1, ny)](:); |
|
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:
8238
diff
changeset
|
516 set (kids(2), "ydata", yt); |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
517 endfunction |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
518 |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
519 function update_props (h, d) |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
520 kids = get (h, "children"); |
|
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:
8238
diff
changeset
|
521 set (kids(2), "color", get (h, "color"), |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
522 "linewidth", get (h, "linewidth"), |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
523 "linestyle", get (h, "linestyle")); |
|
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:
8238
diff
changeset
|
524 set (kids(1), "color", get (h, "color"), |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
525 "marker", get (h, "marker"), |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
526 "markerfacecolor", get (h, "markerfacecolor"), |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
527 "markersize", get (h, "markersize")); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
528 endfunction |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
529 |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
530 function update_data (h, d) |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
531 x = get (h, "xdata"); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
532 y = get (h, "ydata"); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
533 z = get (h, "zdata"); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
534 |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
535 if (!isempty (z) && size_equal (x, y, z)) |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
536 error ("stem3: inconsistent size of x, y and z"); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
537 elseif (numel(x) != numel (y)) |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
538 error ("stem: inconsistent size of x and y"); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
539 else |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
540 bl = get (h, "basevalue"); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
541 nx = numel (x); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
542 x = x(:)'; |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
543 xt = [x; x; NaN(1, nx)](:); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
544 if (! isempty (z)) |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
545 y = y(:)'; |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
546 yt = [y; y; NaN(1, nx)](:); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
547 z = z(:)'; |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
548 zt = [bl * ones(1, nx); z; NaN(1, nx)](:); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
549 else |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
550 y = y(:)'; |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
551 yt = [bl * ones(1, nx); y; NaN(1, nx)](:); |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
552 zt = []; |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
553 endif |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
554 |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
555 kids = get (h, "children"); |
|
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:
8238
diff
changeset
|
556 set (kids(2), "xdata", xt, "ydata", yt, "zdata", zt) |
|
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:
8238
diff
changeset
|
557 set (kids(1), "xdata", x, "ydata", y, "zdata", z) |
|
8052
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
558 endif |
|
961d4c52ffae
Convert stem and stem3 to use stem series objects
David Bateman <dbateman@free.fr>
parents:
7218
diff
changeset
|
559 endfunction |