Mercurial > octave-nkf
annotate scripts/plot/area.m @ 14872:c2dbdeaa25df
maint: use rows() and columns() to clarify m-files.
* gradient.m, interp1q.m, rat.m, tsearchn.m, image.m, imwrite.m, area.m,
contourc.m, hist.m, isocolors.m, isonormals.m, meshz.m, print.m, __bar__.m,
__go_draw_axes__.m, __interp_cube__.m, __marching_cube__.m, __patch__.m,
__print_parse_opts__.m, __quiver__.m, rose.m, shrinkfaces.m, stairs.m,
surfnorm.m, tetramesh.m, text.m, deconv.m, spline.m, intersect.m, setdiff.m,
setxor.m, union.m, periodogram.m, pcg.m, perms.m: Replace size (x,1) with
rows (x) and size(x,2) with columns(x).
| author | Rik <octave@nomad.inbox5.com> |
|---|---|
| date | Tue, 17 Jul 2012 13:34:19 -0700 |
| parents | 5d3a684236b0 |
| children | ab1c6e6d1be6 |
| rev | line source |
|---|---|
|
14138
72c96de7a403
maint: update copyright notices for 2012
John W. Eaton <jwe@octave.org>
parents:
14001
diff
changeset
|
1 ## Copyright (C) 2007-2012 Michael Goffioul |
| 11523 | 2 ## Copyright (C) 2007-2009 David Bateman |
| 7146 | 3 ## |
| 4 ## This file is part of Octave. | |
| 5 ## | |
| 6 ## Octave is free software; you can redistribute it and/or modify it | |
| 7 ## under the terms of the GNU General Public License as published by | |
| 8 ## the Free Software Foundation; either version 3 of the License, or (at | |
| 9 ## your option) any later version. | |
| 10 ## | |
| 11 ## Octave is distributed in the hope that it will be useful, but | |
| 12 ## WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 13 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
| 14 ## General Public License for more details. | |
| 15 ## | |
| 16 ## You should have received a copy of the GNU General Public License | |
| 17 ## along with Octave; see the file COPYING. If not, see | |
| 18 ## <http://www.gnu.org/licenses/>. | |
| 19 | |
| 20 ## -*- texinfo -*- | |
|
10793
be55736a0783
Grammarcheck the documentation from m-files.
Rik <octave@nomad.inbox5.com>
parents:
10549
diff
changeset
|
21 ## @deftypefn {Function File} {} area (@var{x}, @var{y}) |
| 7146 | 22 ## @deftypefnx {Function File} {} area (@var{x}, @var{y}, @var{lvl}) |
| 23 ## @deftypefnx {Function File} {} area (@dots{}, @var{prop}, @var{val}, @dots{}) | |
| 24 ## @deftypefnx {Function File} {} area (@var{y}, @dots{}) | |
| 25 ## @deftypefnx {Function File} {} area (@var{h}, @dots{}) | |
| 26 ## @deftypefnx {Function File} {@var{h} =} area (@dots{}) | |
|
9040
dbd0c77e575e
Cleanup documentation file plot.texi
Rik <rdrider0-list@yahoo.com>
parents:
8920
diff
changeset
|
27 ## Area plot of cumulative sum of the columns of @var{y}. This shows the |
|
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
28 ## contributions of a value to a sum, and is functionally similar to |
|
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
29 ## @code{plot (@var{x}, cumsum (@var{y}, 2))}, except that the area under |
| 7146 | 30 ## the curve is shaded. |
| 31 ## | |
|
8325
b93ac0586e4b
spelling corrections
Brian Gough<bjg@network-theory.co.uk>
parents:
8056
diff
changeset
|
32 ## If the @var{x} argument is omitted it is assumed to be given by |
|
9040
dbd0c77e575e
Cleanup documentation file plot.texi
Rik <rdrider0-list@yahoo.com>
parents:
8920
diff
changeset
|
33 ## @code{1 : rows (@var{y})}. A value @var{lvl} can be defined that determines |
| 7146 | 34 ## where the base level of the shading under the curve should be defined. |
| 35 ## | |
|
14001
5f0bb45e615c
doc: Update documentation for functions returning a graphics handle h (Bug #34761)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
36 ## Additional arguments to the @code{area} function are passed to |
|
5f0bb45e615c
doc: Update documentation for functions returning a graphics handle h (Bug #34761)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
37 ## @code{patch}. |
|
5f0bb45e615c
doc: Update documentation for functions returning a graphics handle h (Bug #34761)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
38 ## |
|
5f0bb45e615c
doc: Update documentation for functions returning a graphics handle h (Bug #34761)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
39 ## The optional return value @var{h} is a graphics handle to the hggroup |
|
5f0bb45e615c
doc: Update documentation for functions returning a graphics handle h (Bug #34761)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
40 ## object representing the area patch objects. |
| 7146 | 41 ## @seealso{plot, patch} |
| 42 ## @end deftypefn | |
| 43 | |
| 7147 | 44 function h = area (varargin) |
| 7146 | 45 |
| 7215 | 46 [ax, varargin, nargin] = __plt_get_axis_arg__ ("area", varargin{:}); |
| 47 | |
| 7146 | 48 if (nargin > 0) |
| 49 idx = 1; | |
| 50 x = y = []; | |
| 51 bv = 0; | |
| 52 args = {}; | |
| 7147 | 53 ## Check for (X) or (X,Y) arguments and possible base value. |
| 7146 | 54 if (nargin >= idx && ismatrix (varargin{idx})) |
| 55 y = varargin{idx}; | |
| 56 idx++; | |
| 57 if (nargin >= idx) | |
| 58 if (isscalar (varargin{idx})) | |
| 59 bv = varargin{idx}; | |
| 60 idx++; | |
| 61 elseif (ismatrix (varargin{idx})) | |
| 62 x = y; | |
| 63 y = varargin{idx}; | |
| 64 idx++; | |
| 65 if (nargin >= idx && isscalar (varargin{idx})) | |
| 66 bv = varargin{idx}; | |
| 67 idx++; | |
| 68 endif | |
| 69 endif | |
| 70 endif | |
| 71 else | |
| 72 print_usage (); | |
| 73 endif | |
| 7147 | 74 ## Check for additional args. |
| 7146 | 75 if (nargin >= idx) |
| 76 args = {varargin{idx:end}}; | |
| 77 endif | |
| 78 newplot (); | |
| 79 if (isvector (y)) | |
| 80 y = y(:); | |
| 81 endif | |
| 82 if (isempty (x)) | |
|
14872
c2dbdeaa25df
maint: use rows() and columns() to clarify m-files.
Rik <octave@nomad.inbox5.com>
parents:
14868
diff
changeset
|
83 x = repmat ([1:rows(y)]', 1, columns (y)); |
| 7146 | 84 elseif (isvector (x)) |
|
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
85 x = repmat (x(:), 1, columns (y)); |
| 7146 | 86 endif |
| 87 | |
| 7215 | 88 oldax = gca (); |
| 89 unwind_protect | |
| 90 axes (ax); | |
| 7146 | 91 tmp = __area__ (ax, x, y, bv, args{:}); |
| 7215 | 92 unwind_protect_cleanup |
| 93 axes (oldax); | |
| 94 end_unwind_protect | |
| 7146 | 95 |
| 96 if (nargout > 0) | |
| 97 h = tmp; | |
| 98 endif | |
| 99 else | |
| 100 print_usage (); | |
| 101 endif | |
| 102 | |
| 103 endfunction | |
|
9896
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
104 |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
105 function retval = __area__ (ax, x, y, bv, varargin) |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
106 |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
107 y0 = bv * ones (1, rows (y)); |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
108 y0 = zeros (1, rows (y)); |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
109 retval = []; |
|
14872
c2dbdeaa25df
maint: use rows() and columns() to clarify m-files.
Rik <octave@nomad.inbox5.com>
parents:
14868
diff
changeset
|
110 for i = 1: columns (y); |
|
9896
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
111 hg = hggroup (); |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
112 retval = [retval; hg]; |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
113 args = __add_datasource__ ("area", hg, {"x", "y"}, varargin{:}); |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
114 |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
115 x1 = x(:, 1).'; |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
116 y1 = y (:, i).'; |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
117 addproperty ("xdata", hg, "data", x1); |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
118 addproperty ("ydata", hg, "data", y1); |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
119 |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
120 addlistener (hg, "xdata", @update_data); |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
121 addlistener (hg, "ydata", @update_data); |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
122 |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
123 if (i == 1) |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
124 h = patch (ax, [x1(1), x1, fliplr(x1)], [bv, y1, bv*ones(1, length(y1))], |
| 10549 | 125 __next_line_color__ (), "parent", hg); |
|
9896
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
126 else |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
127 y1 = y0 + y1; |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
128 h = patch (ax, [x1(1), x1, fliplr(x1)], [y0(1), y1, fliplr(y0)], |
| 10549 | 129 __next_line_color__ (), "parent", hg); |
|
9896
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
130 endif |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
131 |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
132 y0 = y1; |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
133 |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
134 addproperty ("basevalue", hg, "data", bv); |
|
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
135 addlistener (hg, "basevalue", @move_baseline); |
|
9896
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
136 |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
137 addproperty ("edgecolor", hg, "patchedgecolor", get (h, "edgecolor")); |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
138 addproperty ("linewidth", hg, "patchlinewidth", get (h, "linewidth")); |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
139 addproperty ("linestyle", hg, "patchlinestyle", get (h, "linestyle")); |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
140 addproperty ("facecolor", hg, "patchfacecolor", get (h, "facecolor")); |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
141 |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
142 addlistener (hg, "edgecolor", @update_props); |
|
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
143 addlistener (hg, "linewidth", @update_props); |
|
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
144 addlistener (hg, "linestyle", @update_props); |
|
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
145 addlistener (hg, "facecolor", @update_props); |
|
9896
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
146 |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
147 addproperty ("areagroup", hg, "data"); |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
148 set (retval, "areagroup", retval); |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
149 |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
150 if (! isempty (args)) |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
151 set (hg, args{:}); |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
152 endif |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
153 endfor |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
154 |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
155 endfunction |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
156 |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
157 function update_props (h, d) |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
158 kids = get (h, "children"); |
|
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
159 set (kids, "edgecolor", get (h, "edgecolor"), |
|
9896
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
160 "linewidth", get (h, "linewidth"), |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
161 "linestyle", get (h, "linestyle"), |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
162 "facecolor", get (h, "facecolor")); |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
163 endfunction |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
164 |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
165 function move_baseline (h, d) |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
166 persistent recursion = false; |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
167 |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
168 ## Don't allow recursion |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
169 if (! recursion) |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
170 unwind_protect |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
171 recursion = true; |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
172 hlist = get (h, "areagroup"); |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
173 b0 = get (h, "basevalue"); |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
174 |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
175 for hh = hlist(:)' |
| 10549 | 176 if (hh != h) |
| 177 b1 = get (hh, "basevalue"); | |
| 178 if (b1 != b0) | |
| 179 set (hh, "basevalue", b0); | |
| 180 endif | |
| 181 endif | |
|
9896
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
182 endfor |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
183 update_data (h, d); |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
184 unwind_protect_cleanup |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
185 recursion = false; |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
186 end_unwind_protect |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
187 endif |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
188 endfunction |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
189 |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
190 function update_data (h, d) |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
191 hlist = get (h, "areagroup"); |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
192 bv = get (h, "basevalue"); |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
193 for i = 1 : length (hlist) |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
194 hh = hlist(i); |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
195 x1 = get (hh, "xdata")(:); |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
196 y1 = get (hh, "ydata")(:); |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
197 |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
198 set (get (hh, "children"), "xdata", [x1(1); x1; flipud(x1)]); |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
199 if (i == 1) |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
200 set (get (hh, "children"), "ydata", [bv; y1; bv*ones(length(y1), 1)]); |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
201 else |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
202 y1 = y0 + y1; |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
203 set (get (hh, "children"), "ydata", [y0(1); y1; flipud(y0)]); |
|
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
204 endif |
|
9896
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
205 |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
206 y0 = y1; |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
207 endfor |
|
1aeb39118764
convert some plot functions to subfunctions or make some them private
John W. Eaton <jwe@octave.org>
parents:
9245
diff
changeset
|
208 endfunction |