Mercurial > hg > octave-lyh
annotate scripts/plot/plot3.m @ 14237:11949c9795a0
Revamp %!demos in m-files to use Octave coding conventions on spacing, etc.
Add clf() to all demos using plot features to get reproducibility.
Use 64 as input to all colormaps (jet (64)) to get reproducibility.
* bicubic.m, cell2mat.m, celldisp.m, cplxpair.m, interp1.m, interp2.m,
interpft.m, interpn.m, profile.m, profshow.m, convhull.m, delaunay.m,
griddata.m, inpolygon.m, voronoi.m, autumn.m, bone.m, contrast.m, cool.m,
copper.m, flag.m, gmap40.m, gray.m, hot.m, hsv.m, image.m, imshow.m, jet.m,
ocean.m, pink.m, prism.m, rainbow.m, spring.m, summer.m, white.m, winter.m,
condest.m, onenormest.m, axis.m, clabel.m, colorbar.m, comet.m, comet3.m,
compass.m, contour.m, contour3.m, contourf.m, cylinder.m, daspect.m,
ellipsoid.m, errorbar.m, ezcontour.m, ezcontourf.m, ezmesh.m, ezmeshc.m,
ezplot.m, ezplot3.m, ezpolar.m, ezsurf.m, ezsurfc.m, feather.m, fill.m,
fplot.m, grid.m, hold.m, isosurface.m, legend.m, loglog.m, loglogerr.m,
pareto.m, patch.m, pbaspect.m, pcolor.m, pie.m, pie3.m, plot3.m, plotmatrix.m,
plotyy.m, polar.m, quiver.m, quiver3.m, rectangle.m, refreshdata.m, ribbon.m,
rose.m, scatter.m, scatter3.m, semilogx.m, semilogxerr.m, semilogy.m,
semilogyerr.m, shading.m, slice.m, sombrero.m, stairs.m, stem.m, stem3.m,
subplot.m, surf.m, surfc.m, surfl.m, surfnorm.m, text.m, title.m, trimesh.m,
triplot.m, trisurf.m, uigetdir.m, uigetfile.m, uimenu.m, uiputfile.m,
waitbar.m, xlim.m, ylim.m, zlim.m, mkpp.m, pchip.m, polyaffine.m, spline.m,
bicgstab.m, cgs.m, gplot.m, pcg.m, pcr.m, treeplot.m, strtok.m, demo.m,
example.m, rundemos.m, speed.m, test.m, calendar.m, datestr.m, datetick.m,
weekday.m: Revamp %!demos to use Octave coding conventions on spacing, etc.
| author | Rik <octave@nomad.inbox5.com> |
|---|---|
| date | Fri, 20 Jan 2012 12:59:53 -0800 |
| parents | b33589ef9213 |
| children | 4506eade9f04 |
| rev | line source |
|---|---|
|
14138
72c96de7a403
maint: update copyright notices for 2012
John W. Eaton <jwe@octave.org>
parents:
14092
diff
changeset
|
1 ## Copyright (C) 1996-2012 John W. Eaton |
| 5837 | 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 | |
| 7016 | 7 ## the Free Software Foundation; either version 3 of the License, or (at |
| 8 ## your option) any later version. | |
| 5837 | 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 | |
| 7016 | 16 ## along with Octave; see the file COPYING. If not, see |
| 17 ## <http://www.gnu.org/licenses/>. | |
| 5837 | 18 |
| 19 ## -*- texinfo -*- | |
| 5910 | 20 ## @deftypefn {Function File} {} plot3 (@var{args}) |
| 6895 | 21 ## Produce three-dimensional plots. Many different combinations of |
| 22 ## arguments are possible. The simplest form is | |
| 5837 | 23 ## |
| 24 ## @example | |
| 25 ## plot3 (@var{x}, @var{y}, @var{z}) | |
| 26 ## @end example | |
| 27 ## | |
| 28 ## @noindent | |
| 6895 | 29 ## in which the arguments are taken to be the vertices of the points to |
|
9040
dbd0c77e575e
Cleanup documentation file plot.texi
Rik <rdrider0-list@yahoo.com>
parents:
8920
diff
changeset
|
30 ## be plotted in three dimensions. If all arguments are vectors of the |
|
dbd0c77e575e
Cleanup documentation file plot.texi
Rik <rdrider0-list@yahoo.com>
parents:
8920
diff
changeset
|
31 ## same length, then a single continuous line is drawn. If all arguments |
| 6895 | 32 ## are matrices, then each column of the matrices is treated as a |
| 7001 | 33 ## separate line. No attempt is made to transpose the arguments to make |
| 6895 | 34 ## the number of rows match. |
| 5837 | 35 ## |
| 6895 | 36 ## If only two arguments are given, as |
| 5910 | 37 ## |
| 38 ## @example | |
| 39 ## plot3 (@var{x}, @var{c}) | |
| 40 ## @end example | |
| 41 ## | |
| 6895 | 42 ## @noindent |
| 43 ## the real and imaginary parts of the second argument are used | |
| 44 ## as the @var{y} and @var{z} coordinates, respectively. | |
| 5910 | 45 ## |
| 46 ## If only one argument is given, as | |
| 47 ## | |
| 48 ## @example | |
| 49 ## plot3 (@var{c}) | |
| 50 ## @end example | |
| 51 ## | |
| 6895 | 52 ## @noindent |
| 5910 | 53 ## the real and imaginary parts of the argument are used as the @var{y} |
| 54 ## and @var{z} values, and they are plotted versus their index. | |
| 55 ## | |
| 6895 | 56 ## Arguments may also be given in groups of three as |
| 5837 | 57 ## |
| 58 ## @example | |
| 6146 | 59 ## plot3 (@var{x1}, @var{y1}, @var{z1}, @var{x2}, @var{y2}, @var{z2}, @dots{}) |
| 5837 | 60 ## @end example |
|
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
61 ## |
| 5837 | 62 ## @noindent |
| 7001 | 63 ## in which each set of three arguments is treated as a separate line or |
| 5910 | 64 ## set of lines in three dimensions. |
| 65 ## | |
| 6895 | 66 ## To plot multiple one- or two-argument groups, separate each group |
| 67 ## with an empty format string, as | |
| 5910 | 68 ## |
| 69 ## @example | |
| 6895 | 70 ## plot3 (@var{x1}, @var{c1}, "", @var{c2}, "", @dots{}) |
| 5910 | 71 ## @end example |
| 5837 | 72 ## |
| 6895 | 73 ## An example of the use of @code{plot3} is |
| 5837 | 74 ## |
| 75 ## @example | |
| 76 ## @group | |
| 77 ## z = [0:0.05:5]; | |
| 6895 | 78 ## plot3 (cos(2*pi*z), sin(2*pi*z), z, ";helix;"); |
| 79 ## plot3 (z, exp(2i*pi*z), ";complex sinusoid;"); | |
| 5837 | 80 ## @end group |
| 81 ## @end example | |
|
8286
6f2d95255911
fix @seealso references to point to existing anchors
Thorsten Meyer <thorsten.meyier@gmx.de>
parents:
8257
diff
changeset
|
82 ## @seealso{plot, xlabel, ylabel, zlabel, title, print} |
| 5837 | 83 ## @end deftypefn |
| 84 | |
| 85 ## Author: Paul Kienzle | |
| 86 ## (modified from __plt__.m) | |
| 87 | |
| 6302 | 88 function retval = plot3 (varargin) |
| 5837 | 89 |
| 6560 | 90 newplot (); |
| 91 | |
| 6257 | 92 x_set = 0; |
| 93 y_set = 0; | |
| 94 z_set = 0; | |
| 6459 | 95 property_set = 0; |
| 96 fmt_set = 0; | |
| 97 properties = {}; | |
|
10995
e81914f3921f
Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents:
10549
diff
changeset
|
98 tlgnd = {}; |
|
e81914f3921f
Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents:
10549
diff
changeset
|
99 hlgnd = []; |
| 6302 | 100 idx = 0; |
| 101 | |
| 6257 | 102 ## Gather arguments, decode format, and plot lines. |
| 6459 | 103 arg = 0; |
| 104 while (arg++ < nargin) | |
| 6257 | 105 new = varargin{arg}; |
| 6459 | 106 new_cell = varargin(arg); |
| 107 | |
| 108 if (property_set) | |
| 109 properties = [properties, new_cell]; | |
| 110 property_set = 0; | |
| 111 continue; | |
| 112 endif | |
| 6004 | 113 |
| 6257 | 114 if (ischar (new)) |
| 115 if (! z_set) | |
| 10549 | 116 if (! y_set) |
| 117 if (! x_set) | |
| 118 error ("plot3: needs x, [ y, [ z ] ]"); | |
| 119 else | |
| 120 z = imag (x); | |
| 121 y = real (x); | |
| 122 y_set = 1; | |
| 123 z_set = 1; | |
| 124 if (rows(x) > 1) | |
| 125 x = repmat ((1:rows(x))', 1, columns(x)); | |
| 126 else | |
| 127 x = 1:columns(x); | |
| 128 endif | |
| 129 endif | |
| 130 else | |
| 131 z = imag (y); | |
| 132 y = real (y); | |
| 133 z_set = 1; | |
| 134 endif | |
| 5837 | 135 endif |
| 6459 | 136 |
| 137 if (! fmt_set) | |
| 10549 | 138 [options, valid] = __pltopt__ ("plot3", new, false); |
| 139 if (! valid) | |
| 140 properties = [properties, new_cell]; | |
| 141 property_set = 1; | |
| 142 continue; | |
| 143 else | |
| 144 fmt_set = 1; | |
| 145 while (arg < nargin && ischar (varargin{arg+1})) | |
| 146 if (nargin - arg < 2) | |
| 147 error ("plot3: properties must appear followed by a value"); | |
| 148 endif | |
| 149 properties = [properties, varargin(arg+1:arg+2)]; | |
| 150 arg += 2; | |
| 151 endwhile | |
| 152 endif | |
| 6459 | 153 else |
| 10549 | 154 properties = [properties, new_cell]; |
| 155 property_set = 1; | |
| 156 continue; | |
| 6459 | 157 endif |
| 6004 | 158 |
| 159 if (isvector (x) && isvector (y)) | |
| 10549 | 160 if (isvector (z)) |
| 161 x = x(:); | |
| 162 y = y(:); | |
| 163 z = z(:); | |
| 164 elseif (length (x) == rows (z) && length (y) == columns (z)) | |
| 165 [x, y] = meshgrid (x, y); | |
| 166 else | |
| 167 error ("plot3: [length(x), length(y)] must match size(z)"); | |
| 168 endif | |
| 6004 | 169 endif |
| 170 | |
| 7292 | 171 if (! size_equal (x, y, z)) |
| 10549 | 172 error ("plot3: x, y, and z must have the same shape"); |
|
14184
b33589ef9213
plot3.m: Throw error if the input data exceeds two dimensions.
Ben Abbott <bpabbott@mac.com>
parents:
14138
diff
changeset
|
173 elseif (ndims (x) > 2) |
|
b33589ef9213
plot3.m: Throw error if the input data exceeds two dimensions.
Ben Abbott <bpabbott@mac.com>
parents:
14138
diff
changeset
|
174 error ("plot3: x, y, and z must not have more than two dimensions"); |
| 6004 | 175 endif |
| 176 | |
|
8078
4665276ff7f6
correctly plot matrices in plot3
David Bateman <dbateman@free.fr>
parents:
8075
diff
changeset
|
177 for i = 1 : columns (x) |
|
10135
4516a0c97ced
Handle linestyleorder. Remove @ markers. Treat edgecolor, markeredgecolor and markerfacecolor correctly in scatter.
David Bateman <dbateman@free.fr>
parents:
9385
diff
changeset
|
178 linestyle = options.linestyle; |
|
4516a0c97ced
Handle linestyleorder. Remove @ markers. Treat edgecolor, markeredgecolor and markerfacecolor correctly in scatter.
David Bateman <dbateman@free.fr>
parents:
9385
diff
changeset
|
179 marker = options.marker; |
| 10549 | 180 if (isempty (marker) && isempty (linestyle)) |
| 181 [linestyle, marker] = __next_line_style__ (); | |
| 182 endif | |
| 183 color = options.color; | |
|
10995
e81914f3921f
Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents:
10549
diff
changeset
|
184 if (isempty (color)) |
| 10549 | 185 color = __next_line_color__ (); |
| 186 endif | |
|
8078
4665276ff7f6
correctly plot matrices in plot3
David Bateman <dbateman@free.fr>
parents:
8075
diff
changeset
|
187 |
|
10995
e81914f3921f
Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents:
10549
diff
changeset
|
188 tmp(++idx) = line (x(:, i), y(:, i), z(:, i), |
| 10549 | 189 "color", color, "linestyle", linestyle, |
| 190 "marker", marker, properties{:}); | |
|
10995
e81914f3921f
Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents:
10549
diff
changeset
|
191 key = options.key; |
|
e81914f3921f
Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents:
10549
diff
changeset
|
192 if (! isempty (key)) |
|
e81914f3921f
Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents:
10549
diff
changeset
|
193 hlgnd = [hlgnd, tmp(idx)]; |
|
e81914f3921f
Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents:
10549
diff
changeset
|
194 tlgnd = {tlgnd{:}, key}; |
|
e81914f3921f
Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents:
10549
diff
changeset
|
195 endif |
|
8078
4665276ff7f6
correctly plot matrices in plot3
David Bateman <dbateman@free.fr>
parents:
8075
diff
changeset
|
196 endfor |
| 6004 | 197 |
| 6257 | 198 x_set = 0; |
| 199 y_set = 0; | |
| 200 z_set = 0; | |
| 6459 | 201 fmt_set = 0; |
| 202 properties = {}; | |
| 6257 | 203 elseif (! x_set) |
| 204 x = new; | |
| 205 x_set = 1; | |
| 206 elseif (! y_set) | |
| 207 y = new; | |
| 208 y_set = 1; | |
| 209 elseif (! z_set) | |
| 210 z = new; | |
| 211 z_set = 1; | |
| 212 else | |
| 213 if (isvector (x) && isvector (y)) | |
| 10549 | 214 if (isvector (z)) |
| 215 x = x(:); | |
| 216 y = y(:); | |
| 217 z = z(:); | |
| 218 elseif (length (x) == rows (z) && length (y) == columns (z)) | |
| 219 [x, y] = meshgrid (x, y); | |
| 220 else | |
| 221 error ("plot3: [length(x), length(y)] must match size(z)"); | |
| 222 endif | |
| 6257 | 223 endif |
| 224 | |
| 7292 | 225 if (! size_equal (x, y, z)) |
| 10549 | 226 error ("plot3: x, y, and z must have the same shape"); |
|
14184
b33589ef9213
plot3.m: Throw error if the input data exceeds two dimensions.
Ben Abbott <bpabbott@mac.com>
parents:
14138
diff
changeset
|
227 elseif (ndims (x) > 2) |
|
b33589ef9213
plot3.m: Throw error if the input data exceeds two dimensions.
Ben Abbott <bpabbott@mac.com>
parents:
14138
diff
changeset
|
228 error ("plot3: x, y, and z must not have more than two dimensions"); |
| 6257 | 229 endif |
| 230 | |
| 6459 | 231 options = __default_plot_options__ (); |
|
8078
4665276ff7f6
correctly plot matrices in plot3
David Bateman <dbateman@free.fr>
parents:
8075
diff
changeset
|
232 for i = 1 : columns (x) |
|
10135
4516a0c97ced
Handle linestyleorder. Remove @ markers. Treat edgecolor, markeredgecolor and markerfacecolor correctly in scatter.
David Bateman <dbateman@free.fr>
parents:
9385
diff
changeset
|
233 linestyle = options.linestyle; |
|
4516a0c97ced
Handle linestyleorder. Remove @ markers. Treat edgecolor, markeredgecolor and markerfacecolor correctly in scatter.
David Bateman <dbateman@free.fr>
parents:
9385
diff
changeset
|
234 marker = options.marker; |
| 10549 | 235 if (isempty (marker) && isempty (linestyle)) |
| 236 [linestyle, marker] = __next_line_style__ (); | |
| 237 endif | |
| 238 color = options.color; | |
| 239 if (isempty (color)) | |
| 240 color = __next_line_color__ (); | |
| 241 endif | |
|
8078
4665276ff7f6
correctly plot matrices in plot3
David Bateman <dbateman@free.fr>
parents:
8075
diff
changeset
|
242 |
|
10995
e81914f3921f
Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents:
10549
diff
changeset
|
243 tmp(++idx) = line (x(:, i), y(:, i), z(:, i), |
| 10549 | 244 "color", color, "linestyle", linestyle, |
| 245 "marker", marker, properties{:}); | |
|
10995
e81914f3921f
Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents:
10549
diff
changeset
|
246 key = options.key; |
|
e81914f3921f
Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents:
10549
diff
changeset
|
247 if (! isempty (key)) |
|
e81914f3921f
Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents:
10549
diff
changeset
|
248 hlgnd = [hlgnd, tmp(idx)]; |
|
e81914f3921f
Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents:
10549
diff
changeset
|
249 tlgnd = {tlgnd{:}, key}; |
|
e81914f3921f
Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents:
10549
diff
changeset
|
250 endif |
|
8078
4665276ff7f6
correctly plot matrices in plot3
David Bateman <dbateman@free.fr>
parents:
8075
diff
changeset
|
251 endfor |
| 6257 | 252 |
| 253 x = new; | |
| 254 y_set = 0; | |
| 255 z_set = 0; | |
| 6459 | 256 fmt_set = 0; |
| 257 properties = {}; | |
| 5837 | 258 endif |
| 6257 | 259 |
| 6459 | 260 endwhile |
| 261 | |
| 262 if (property_set) | |
| 263 error ("plot3: properties must appear followed by a value"); | |
| 264 endif | |
| 6257 | 265 |
| 266 ## Handle last plot. | |
| 267 | |
| 268 if (x_set) | |
| 269 if (y_set) | |
| 270 if (! z_set) | |
| 10549 | 271 z = imag (y); |
| 272 y = real (y); | |
| 273 z_set = 1; | |
| 6257 | 274 endif |
| 275 else | |
| 276 z = imag (x); | |
| 277 y = real (x); | |
| 278 y_set = 1; | |
| 279 z_set = 1; | |
| 280 if (rows (x) > 1) | |
| 10549 | 281 x = repmat ((1:rows (x))', 1, columns(x)); |
| 6257 | 282 else |
| 10549 | 283 x = 1:columns(x); |
| 6257 | 284 endif |
| 5837 | 285 endif |
| 6257 | 286 |
| 287 if (isvector (x) && isvector (y)) | |
| 288 if (isvector (z)) | |
| 10549 | 289 x = x(:); |
| 290 y = y(:); | |
| 291 z = z(:); | |
| 6257 | 292 elseif (length (x) == rows (z) && length (y) == columns (z)) |
| 10549 | 293 [x, y] = meshgrid (x, y); |
| 6257 | 294 else |
| 10549 | 295 error ("plot3: [length(x), length(y)] must match size(z)"); |
| 6257 | 296 endif |
| 297 endif | |
| 298 | |
| 7292 | 299 if (! size_equal (x, y, z)) |
| 6257 | 300 error ("plot3: x, y, and z must have the same shape"); |
|
14184
b33589ef9213
plot3.m: Throw error if the input data exceeds two dimensions.
Ben Abbott <bpabbott@mac.com>
parents:
14138
diff
changeset
|
301 elseif (ndims (x) > 2) |
|
b33589ef9213
plot3.m: Throw error if the input data exceeds two dimensions.
Ben Abbott <bpabbott@mac.com>
parents:
14138
diff
changeset
|
302 error ("plot3: x, y, and z must not have more than two dimensions"); |
| 6257 | 303 endif |
| 304 | |
| 6459 | 305 options = __default_plot_options__ (); |
|
8078
4665276ff7f6
correctly plot matrices in plot3
David Bateman <dbateman@free.fr>
parents:
8075
diff
changeset
|
306 |
|
4665276ff7f6
correctly plot matrices in plot3
David Bateman <dbateman@free.fr>
parents:
8075
diff
changeset
|
307 for i = 1 : columns (x) |
|
10135
4516a0c97ced
Handle linestyleorder. Remove @ markers. Treat edgecolor, markeredgecolor and markerfacecolor correctly in scatter.
David Bateman <dbateman@free.fr>
parents:
9385
diff
changeset
|
308 linestyle = options.linestyle; |
|
4516a0c97ced
Handle linestyleorder. Remove @ markers. Treat edgecolor, markeredgecolor and markerfacecolor correctly in scatter.
David Bateman <dbateman@free.fr>
parents:
9385
diff
changeset
|
309 marker = options.marker; |
|
4516a0c97ced
Handle linestyleorder. Remove @ markers. Treat edgecolor, markeredgecolor and markerfacecolor correctly in scatter.
David Bateman <dbateman@free.fr>
parents:
9385
diff
changeset
|
310 if (isempty (marker) && isempty (linestyle)) |
| 10549 | 311 [linestyle, marker] = __next_line_style__ (); |
|
10135
4516a0c97ced
Handle linestyleorder. Remove @ markers. Treat edgecolor, markeredgecolor and markerfacecolor correctly in scatter.
David Bateman <dbateman@free.fr>
parents:
9385
diff
changeset
|
312 endif |
|
8078
4665276ff7f6
correctly plot matrices in plot3
David Bateman <dbateman@free.fr>
parents:
8075
diff
changeset
|
313 color = options.color; |
|
4665276ff7f6
correctly plot matrices in plot3
David Bateman <dbateman@free.fr>
parents:
8075
diff
changeset
|
314 if (isempty (color)) |
| 10549 | 315 color = __next_line_color__ (); |
|
8078
4665276ff7f6
correctly plot matrices in plot3
David Bateman <dbateman@free.fr>
parents:
8075
diff
changeset
|
316 endif |
|
4665276ff7f6
correctly plot matrices in plot3
David Bateman <dbateman@free.fr>
parents:
8075
diff
changeset
|
317 |
|
10995
e81914f3921f
Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents:
10549
diff
changeset
|
318 tmp(++idx) = line (x(:, i), y(:, i), z(:, i), |
| 10549 | 319 "color", color, "linestyle", linestyle, |
| 320 "marker", marker, properties{:}); | |
|
10995
e81914f3921f
Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents:
10549
diff
changeset
|
321 key = options.key; |
|
e81914f3921f
Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents:
10549
diff
changeset
|
322 if (! isempty (key)) |
|
e81914f3921f
Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents:
10549
diff
changeset
|
323 hlgnd = [hlgnd, tmp(idx)]; |
|
e81914f3921f
Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents:
10549
diff
changeset
|
324 tlgnd = {tlgnd{:}, key}; |
|
e81914f3921f
Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents:
10549
diff
changeset
|
325 endif |
|
8078
4665276ff7f6
correctly plot matrices in plot3
David Bateman <dbateman@free.fr>
parents:
8075
diff
changeset
|
326 endfor |
| 6257 | 327 endif |
| 328 | |
|
10995
e81914f3921f
Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents:
10549
diff
changeset
|
329 if (!isempty (hlgnd)) |
|
e81914f3921f
Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents:
10549
diff
changeset
|
330 legend (gca(), hlgnd, tlgnd); |
|
e81914f3921f
Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents:
10549
diff
changeset
|
331 endif |
|
e81914f3921f
Update legend code to support fltk (fixes #29348 and partially fixes #30461)
David Bateman <dbateman@free.fr>
parents:
10549
diff
changeset
|
332 |
| 6257 | 333 set (gca (), "view", [-37.5, 30]); |
| 5837 | 334 |
| 6302 | 335 if (nargout > 0 && idx > 0) |
| 336 retval = tmp; | |
| 337 endif | |
| 338 | |
| 5837 | 339 endfunction |
| 7245 | 340 |
|
14237
11949c9795a0
Revamp %!demos in m-files to use Octave coding conventions on spacing, etc.
Rik <octave@nomad.inbox5.com>
parents:
14184
diff
changeset
|
341 |
| 7245 | 342 %!demo |
|
14237
11949c9795a0
Revamp %!demos in m-files to use Octave coding conventions on spacing, etc.
Rik <octave@nomad.inbox5.com>
parents:
14184
diff
changeset
|
343 %! clf; |
| 7245 | 344 %! z = [0:0.05:5]; |
| 345 %! plot3 (cos(2*pi*z), sin(2*pi*z), z, ";helix;"); | |
| 346 %! plot3 (z, exp(2i*pi*z), ";complex sinusoid;"); | |
|
14237
11949c9795a0
Revamp %!demos in m-files to use Octave coding conventions on spacing, etc.
Rik <octave@nomad.inbox5.com>
parents:
14184
diff
changeset
|
347 |