Mercurial > hg > octave-nkf
annotate scripts/plot/shrinkfaces.m @ 17281:bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Macro handles options ("on") or properties ("position") more elegantly
than @code{"text"}.
* doc/interpreter/macros.texi: Add new @qcode macro.
* doc/interpreter/tips.txi: Add documentation about @qcode macro.
* doc/interpreter/basics.txi, doc/interpreter/container.txi,
doc/interpreter/emacs.txi, doc/interpreter/errors.txi,
doc/interpreter/eval.txi, doc/interpreter/expr.txi,
doc/interpreter/external.txi, doc/interpreter/func.txi,
doc/interpreter/grammar.txi, doc/interpreter/image.txi,
doc/interpreter/install.txi, doc/interpreter/interp.txi,
doc/interpreter/io.txi, doc/interpreter/matrix.txi,
doc/interpreter/numbers.txi, doc/interpreter/oop.txi,
doc/interpreter/package.txi, doc/interpreter/plot.txi,
doc/interpreter/quad.txi, doc/interpreter/sparse.txi,
doc/interpreter/strings.txi, doc/interpreter/system.txi,
doc/interpreter/vectorize.txi, libinterp/corefcn/balance.cc,
libinterp/corefcn/bitfcns.cc, libinterp/corefcn/cellfun.cc,
libinterp/corefcn/conv2.cc, libinterp/corefcn/data.cc,
libinterp/corefcn/debug.cc, libinterp/corefcn/defaults.cc,
libinterp/corefcn/dirfns.cc, libinterp/corefcn/dlmread.cc,
libinterp/corefcn/error.cc, libinterp/corefcn/file-io.cc,
libinterp/corefcn/find.cc, libinterp/corefcn/gammainc.cc,
libinterp/corefcn/graphics.cc, libinterp/corefcn/help.cc,
libinterp/corefcn/hex2num.cc, libinterp/corefcn/input.cc,
libinterp/corefcn/load-path.cc, libinterp/corefcn/load-save.cc,
libinterp/corefcn/ls-oct-ascii.cc, libinterp/corefcn/lu.cc,
libinterp/corefcn/luinc.cc, libinterp/corefcn/matrix_type.cc,
libinterp/corefcn/oct-hist.cc, libinterp/corefcn/pager.cc,
libinterp/corefcn/pr-output.cc, libinterp/corefcn/pt-jit.cc,
libinterp/corefcn/qz.cc, libinterp/corefcn/rand.cc,
libinterp/corefcn/regexp.cc, libinterp/corefcn/schur.cc,
libinterp/corefcn/sighandlers.cc, libinterp/corefcn/sparse.cc,
libinterp/corefcn/spparms.cc, libinterp/corefcn/str2double.cc,
libinterp/corefcn/svd.cc, libinterp/corefcn/symtab.cc,
libinterp/corefcn/syscalls.cc, libinterp/corefcn/toplev.cc,
libinterp/corefcn/tril.cc, libinterp/corefcn/typecast.cc,
libinterp/corefcn/utils.cc, libinterp/corefcn/variables.cc,
libinterp/dldfcn/__init_fltk__.cc, libinterp/dldfcn/chol.cc,
libinterp/dldfcn/colamd.cc, libinterp/dldfcn/fftw.cc, libinterp/dldfcn/qr.cc,
libinterp/dldfcn/symbfact.cc, libinterp/octave-value/ov-base.cc,
libinterp/octave-value/ov-fcn-handle.cc,
libinterp/octave-value/ov-fcn-inline.cc, libinterp/octave-value/ov-java.cc,
libinterp/octave-value/ov-range.cc, libinterp/octave-value/ov-struct.cc,
libinterp/octave-value/ov-usr-fcn.cc, libinterp/parse-tree/oct-parse.in.yy,
libinterp/parse-tree/pt-binop.cc, libinterp/parse-tree/pt-eval.cc,
libinterp/parse-tree/pt-mat.cc, scripts/@ftp/ftp.m,
scripts/deprecated/java_convert_matrix.m, scripts/deprecated/java_debug.m,
scripts/deprecated/java_unsigned_conversion.m, scripts/deprecated/shell_cmd.m,
scripts/general/dblquad.m, scripts/general/display.m,
scripts/general/genvarname.m, scripts/general/idivide.m,
scripts/general/interp1.m, scripts/general/interp2.m,
scripts/general/interp3.m, scripts/general/interpn.m, scripts/general/isa.m,
scripts/general/profexplore.m, scripts/general/profile.m,
scripts/general/quadgk.m, scripts/general/randi.m, scripts/general/structfun.m,
scripts/general/subsindex.m, scripts/general/triplequad.m,
scripts/geometry/griddata.m, scripts/geometry/griddata3.m,
scripts/geometry/griddatan.m, scripts/geometry/voronoi.m, scripts/help/help.m,
scripts/help/lookfor.m, scripts/image/cmpermute.m, scripts/image/colormap.m,
scripts/image/image.m, scripts/image/imagesc.m, scripts/image/imfinfo.m,
scripts/image/imformats.m, scripts/image/imread.m, scripts/image/imshow.m,
scripts/image/imwrite.m, scripts/image/ind2gray.m, scripts/image/lines.m,
scripts/image/rgb2ind.m, scripts/image/spinmap.m, scripts/io/dlmwrite.m,
scripts/io/strread.m, scripts/io/textread.m, scripts/io/textscan.m,
scripts/java/javaclasspath.m, scripts/java/usejava.m,
scripts/miscellaneous/bzip2.m, scripts/miscellaneous/computer.m,
scripts/miscellaneous/copyfile.m, scripts/miscellaneous/debug.m,
scripts/miscellaneous/dos.m, scripts/miscellaneous/edit.m,
scripts/miscellaneous/gzip.m, scripts/miscellaneous/license.m,
scripts/miscellaneous/mkoctfile.m, scripts/miscellaneous/movefile.m,
scripts/miscellaneous/parseparams.m, scripts/miscellaneous/unix.m,
scripts/optimization/fminbnd.m, scripts/optimization/fminsearch.m,
scripts/optimization/fminunc.m, scripts/optimization/fsolve.m,
scripts/optimization/fzero.m, scripts/optimization/glpk.m,
scripts/optimization/lsqnonneg.m, scripts/optimization/optimset.m,
scripts/optimization/pqpnonneg.m, scripts/pkg/pkg.m, scripts/plot/allchild.m,
scripts/plot/ancestor.m, scripts/plot/area.m, scripts/plot/axis.m,
scripts/plot/bar.m, scripts/plot/barh.m, scripts/plot/box.m,
scripts/plot/caxis.m, scripts/plot/cla.m, scripts/plot/clabel.m,
scripts/plot/clf.m, scripts/plot/close.m, scripts/plot/colorbar.m,
scripts/plot/daspect.m, scripts/plot/ezmesh.m, scripts/plot/ezmeshc.m,
scripts/plot/ezsurf.m, scripts/plot/ezsurfc.m, scripts/plot/findall.m,
scripts/plot/findobj.m, scripts/plot/gcbo.m, scripts/plot/gcf.m,
scripts/plot/gco.m, scripts/plot/grid.m, scripts/plot/guihandles.m,
scripts/plot/hdl2struct.m, scripts/plot/hidden.m, scripts/plot/hold.m,
scripts/plot/isonormals.m, scripts/plot/isosurface.m, scripts/plot/legend.m,
scripts/plot/mesh.m, scripts/plot/meshc.m, scripts/plot/meshz.m,
scripts/plot/newplot.m, scripts/plot/orient.m, scripts/plot/pareto.m,
scripts/plot/patch.m, scripts/plot/pbaspect.m, scripts/plot/pcolor.m,
scripts/plot/plot.m, scripts/plot/print.m,
scripts/plot/private/__add_default_menu__.m, scripts/plot/quiver.m,
scripts/plot/quiver3.m, scripts/plot/refreshdata.m, scripts/plot/saveas.m,
scripts/plot/scatter.m, scripts/plot/scatter3.m, scripts/plot/shading.m,
scripts/plot/shrinkfaces.m, scripts/plot/slice.m, scripts/plot/stem.m,
scripts/plot/stem3.m, scripts/plot/struct2hdl.m, scripts/plot/subplot.m,
scripts/plot/surf.m, scripts/plot/surfc.m, scripts/plot/surfl.m,
scripts/plot/tetramesh.m, scripts/plot/uigetfile.m, scripts/plot/uimenu.m,
scripts/plot/uiputfile.m, scripts/plot/waterfall.m, scripts/plot/whitebg.m,
scripts/plot/xlim.m, scripts/plot/ylim.m, scripts/plot/zlim.m,
scripts/polynomial/conv.m, scripts/polynomial/polyout.m,
scripts/polynomial/splinefit.m, scripts/set/ismember.m, scripts/set/powerset.m,
scripts/set/setdiff.m, scripts/set/union.m, scripts/set/unique.m,
scripts/signal/detrend.m, scripts/signal/filter2.m, scripts/signal/freqz.m,
scripts/signal/periodogram.m, scripts/signal/spectral_adf.m,
scripts/signal/spectral_xdf.m, scripts/sparse/eigs.m, scripts/sparse/svds.m,
scripts/specfun/legendre.m, scripts/special-matrix/gallery.m,
scripts/statistics/base/mean.m, scripts/statistics/base/moment.m,
scripts/statistics/tests/cor_test.m,
scripts/statistics/tests/kolmogorov_smirnov_test.m,
scripts/statistics/tests/kolmogorov_smirnov_test_2.m,
scripts/statistics/tests/kruskal_wallis_test.m,
scripts/statistics/tests/prop_test_2.m, scripts/statistics/tests/sign_test.m,
scripts/statistics/tests/t_test.m, scripts/statistics/tests/t_test_2.m,
scripts/statistics/tests/t_test_regression.m,
scripts/statistics/tests/u_test.m, scripts/statistics/tests/var_test.m,
scripts/statistics/tests/welch_test.m,
scripts/statistics/tests/wilcoxon_test.m, scripts/statistics/tests/z_test.m,
scripts/statistics/tests/z_test_2.m, scripts/strings/base2dec.m,
scripts/strings/index.m, scripts/strings/isstrprop.m,
scripts/strings/mat2str.m, scripts/strings/regexptranslate.m,
scripts/strings/rindex.m, scripts/strings/str2num.m, scripts/strings/strcat.m,
scripts/strings/strjust.m, scripts/strings/strmatch.m,
scripts/strings/validatestring.m, scripts/testfun/demo.m,
scripts/testfun/example.m, scripts/testfun/test.m, scripts/time/addtodate.m,
scripts/time/asctime.m, scripts/time/datestr.m, scripts/time/datetick.m,
scripts/time/weekday.m, scripts/ui/errordlg.m, scripts/ui/helpdlg.m,
scripts/ui/inputdlg.m, scripts/ui/listdlg.m, scripts/ui/msgbox.m,
scripts/ui/questdlg.m, scripts/ui/warndlg.m: Use new @qcode macro.
| author | Rik <rik@octave.org> |
|---|---|
| date | Mon, 19 Aug 2013 20:46:38 -0700 |
| parents | eaab03308c0b |
| children |
| rev | line source |
|---|---|
| 14574 | 1 ## Copyright (C) 2012 Martin Helm |
| 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 | |
| 19 ## -*- texinfo -*- | |
|
14620
cd375519eab0
doc: Periodic grammar check of documentation
Rik <octave@nomad.inbox5.com>
parents:
14574
diff
changeset
|
20 ## @deftypefn {Function File} {} shrinkfaces (@var{p}, @var{sf}) |
| 14574 | 21 ## @deftypefnx {Function File} {@var{nfv} =} shrinkfaces (@var{p}, @var{sf}) |
| 22 ## @deftypefnx {Function File} {@var{nfv} =} shrinkfaces (@var{fv}, @var{sf}) | |
| 23 ## @deftypefnx {Function File} {@var{nfv} =} shrinkfaces (@var{f}, @var{v}, @var{sf}) | |
| 24 ## @deftypefnx {Function File} {[@var{nf}, @var{nv}] =} shrinkfaces (@dots{}) | |
| 25 ## | |
| 26 ## Reduce the faces area for a given patch, structure or explicit faces | |
| 27 ## and points matrices by a scale factor @var{sf}. The structure | |
|
17281
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17122
diff
changeset
|
28 ## @var{fv} must contain the fields @qcode{"faces"} and @qcode{"vertices"}. |
|
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17122
diff
changeset
|
29 ## If the factor @var{sf} is omitted then a default of 0.3 is used. |
| 14574 | 30 ## |
| 31 ## Given a patch handle as the first input argument and no output | |
| 32 ## parameters, perform the shrinking of the patch faces in place and | |
| 33 ## redraw the patch. | |
| 34 ## | |
| 35 ## If called with one output argument, return a structure with fields | |
|
17281
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17122
diff
changeset
|
36 ## @qcode{"faces"}, @qcode{"vertices"}, and @qcode{"facevertexcdata"} |
|
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17122
diff
changeset
|
37 ## containing the data after shrinking which can then directly be used as an |
|
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17122
diff
changeset
|
38 ## input argument for the @code{patch} function. |
| 14574 | 39 ## |
| 40 ## Performing the shrinking on faces which are not convex can lead to | |
| 41 ## undesired results. | |
| 42 ## | |
|
14620
cd375519eab0
doc: Periodic grammar check of documentation
Rik <octave@nomad.inbox5.com>
parents:
14574
diff
changeset
|
43 ## For example, |
| 14574 | 44 ## |
| 45 ## @example | |
| 46 ## @group | |
| 47 ## [phi r] = meshgrid (linspace (0, 1.5*pi, 16), linspace (1, 2, 4)); | |
| 48 ## tri = delaunay (phi(:), r(:)); | |
| 49 ## v = [r(:).*sin(phi(:)) r(:).*cos(phi(:))]; | |
| 50 ## clf () | |
| 51 ## p = patch ("Faces", tri, "Vertices", v, "FaceColor", "none"); | |
| 52 ## fv = shrinkfaces (p); | |
| 53 ## patch (fv) | |
| 54 ## axis equal | |
| 55 ## grid on | |
| 56 ## @end group | |
| 57 ## @end example | |
| 58 ## | |
| 59 ## @noindent | |
|
14621
1804d5422f61
doc: Periodic spellcheck of documentation.
Rik <octave@nomad.inbox5.com>
parents:
14620
diff
changeset
|
60 ## draws a triangulated 3/4 circle and the corresponding shrunken |
| 14574 | 61 ## version. |
| 62 ## @seealso{patch} | |
| 63 ## @end deftypefn | |
| 64 | |
| 65 ## Author: Martin Helm <martin@mhelm.de> | |
| 66 | |
| 67 function [nf, nv] = shrinkfaces (varargin) | |
| 68 | |
| 69 if (nargin < 1 || nargin > 3 || nargout > 2) | |
| 70 print_usage (); | |
| 71 endif | |
| 72 | |
| 73 sf = 0.3; | |
| 74 p = varargin{1}; | |
| 75 colors = []; | |
| 76 | |
| 77 if (ishandle (p) && nargin < 3) | |
| 78 faces = get (p, "Faces"); | |
| 79 vertices = get (p, "Vertices"); | |
| 80 colors = get (p, "FaceVertexCData"); | |
| 81 if (nargin == 2) | |
| 82 sf = varargin{2}; | |
| 83 endif | |
| 84 elseif (isstruct (p) && nargin < 3) | |
| 85 faces = p.faces; | |
| 86 vertices = p.vertices; | |
| 87 if (isfield (p, "facevertexcdata")) | |
| 88 colors = p.facevertexcdata; | |
| 89 endif | |
| 90 if (nargin == 2) | |
| 91 sf = varargin{2}; | |
| 92 endif | |
| 93 elseif (ismatrix (p) && nargin >= 2 && ismatrix (varargin{2})) | |
| 94 faces = p; | |
| 95 vertices = varargin{2}; | |
| 96 if (nargin == 3) | |
| 97 sf = varargin{3}; | |
| 98 endif | |
| 99 else | |
| 100 print_usage (); | |
| 101 endif | |
| 102 | |
| 103 if (! isscalar (sf) || sf <= 0) | |
|
15202
f3b5cadfd6d5
fix missing semicolons in various .m files
John W. Eaton <jwe@octave.org>
parents:
14872
diff
changeset
|
104 error ("shrinkfaces: scale factor must be a positive scalar"); |
| 14574 | 105 endif |
| 106 | |
|
14872
c2dbdeaa25df
maint: use rows() and columns() to clarify m-files.
Rik <octave@nomad.inbox5.com>
parents:
14621
diff
changeset
|
107 n = columns (vertices); |
| 14574 | 108 if (n < 2 || n > 3) |
|
17122
eaab03308c0b
doc: Rewrite docstrings for most plot functions.
Rik <rik@octave.org>
parents:
16828
diff
changeset
|
109 error ("shrinkfaces: only 2-D and 3-D patches are supported"); |
| 14574 | 110 endif |
| 111 | |
|
14872
c2dbdeaa25df
maint: use rows() and columns() to clarify m-files.
Rik <octave@nomad.inbox5.com>
parents:
14621
diff
changeset
|
112 m = columns (faces); |
| 14574 | 113 if (m < 3) |
|
15202
f3b5cadfd6d5
fix missing semicolons in various .m files
John W. Eaton <jwe@octave.org>
parents:
14872
diff
changeset
|
114 error ("shrinkfaces: faces must consist of at least 3 vertices"); |
| 14574 | 115 endif |
| 116 | |
| 117 v = vertices(faces'(:), :); | |
|
14872
c2dbdeaa25df
maint: use rows() and columns() to clarify m-files.
Rik <octave@nomad.inbox5.com>
parents:
14621
diff
changeset
|
118 if (isempty (colors) || rows (colors) == rows (faces)) |
| 14574 | 119 c = colors; |
|
14872
c2dbdeaa25df
maint: use rows() and columns() to clarify m-files.
Rik <octave@nomad.inbox5.com>
parents:
14621
diff
changeset
|
120 elseif (rows (colors) == rows (vertices)) |
| 14574 | 121 c = colors(faces'(:), :); |
| 122 else | |
| 123 ## Discard inconsistent color data. | |
| 124 c = []; | |
| 125 endif | |
|
14872
c2dbdeaa25df
maint: use rows() and columns() to clarify m-files.
Rik <octave@nomad.inbox5.com>
parents:
14621
diff
changeset
|
126 sv = rows (v); |
| 14574 | 127 ## we have to deal with a probably very large number of vertices, so |
| 128 ## use sparse we use as midpoint (1/m, ..., 1/m) in generalized | |
| 129 ## barycentric coordinates. | |
| 130 midpoints = full (kron ( speye (sv / m), ones (m, m) / m) * sparse (v)); | |
| 131 v = sqrt (sf) * (v - midpoints) + midpoints; | |
| 132 f = reshape (1:sv, m, sv / m)'; | |
| 133 | |
| 134 switch (nargout) | |
| 135 case 0 | |
| 136 if (ishandle (p)) | |
|
15202
f3b5cadfd6d5
fix missing semicolons in various .m files
John W. Eaton <jwe@octave.org>
parents:
14872
diff
changeset
|
137 ## avoid exceptions |
|
f3b5cadfd6d5
fix missing semicolons in various .m files
John W. Eaton <jwe@octave.org>
parents:
14872
diff
changeset
|
138 set (p, "FaceVertexCData", [], "CData", []); |
|
15332
b613757ff5be
Fix typo in shrinkfaces.m (thanks Marco Atzeri)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
15202
diff
changeset
|
139 set (p, "Vertices", v, "Faces", f, "FaceVertexCData", c); |
| 14574 | 140 else |
| 141 nf = struct ("faces", f, "vertices", v, "facevertexcdata", c); | |
| 142 endif | |
| 143 case 1 | |
| 144 nf = struct ("faces", f, "vertices", v, "facevertexcdata", c); | |
| 145 case 2 | |
| 146 nf = f; | |
| 147 nv = v; | |
| 148 endswitch | |
| 149 | |
| 150 endfunction | |
| 151 | |
|
16828
ddac88d32d6a
Make demos in plot m-files compatible with Matlab for running comparison script.
Rik <rik@octave.org>
parents:
15332
diff
changeset
|
152 |
| 14574 | 153 %!demo |
|
16828
ddac88d32d6a
Make demos in plot m-files compatible with Matlab for running comparison script.
Rik <rik@octave.org>
parents:
15332
diff
changeset
|
154 %! clf; |
| 14574 | 155 %! faces = [1 2 3; 1 3 4]; |
| 156 %! vertices = [0 0; 1 0; 1 1; 0 1]; | |
|
16828
ddac88d32d6a
Make demos in plot m-files compatible with Matlab for running comparison script.
Rik <rik@octave.org>
parents:
15332
diff
changeset
|
157 %! patch ('Faces', faces, 'Vertices', vertices, 'FaceColor', 'none'); |
| 14574 | 158 %! fv = shrinkfaces (faces, vertices, 0.25); |
|
16828
ddac88d32d6a
Make demos in plot m-files compatible with Matlab for running comparison script.
Rik <rik@octave.org>
parents:
15332
diff
changeset
|
159 %! patch (fv); |
|
ddac88d32d6a
Make demos in plot m-files compatible with Matlab for running comparison script.
Rik <rik@octave.org>
parents:
15332
diff
changeset
|
160 %! axis equal; |
| 14574 | 161 |
| 162 %!demo | |
|
16828
ddac88d32d6a
Make demos in plot m-files compatible with Matlab for running comparison script.
Rik <rik@octave.org>
parents:
15332
diff
changeset
|
163 %! clf; |
| 14574 | 164 %! faces = [1 2 3 4; 5 6 7 8]; |
| 165 %! vertices = [0 0; 1 0; 2 1; 1 1; 2 0; 3 0; 4 1; 3.5 1]; | |
|
16828
ddac88d32d6a
Make demos in plot m-files compatible with Matlab for running comparison script.
Rik <rik@octave.org>
parents:
15332
diff
changeset
|
166 %! patch ('Faces', faces, 'Vertices', vertices, 'FaceColor', 'none'); |
| 14574 | 167 %! fv = shrinkfaces (faces, vertices, 0.25); |
|
16828
ddac88d32d6a
Make demos in plot m-files compatible with Matlab for running comparison script.
Rik <rik@octave.org>
parents:
15332
diff
changeset
|
168 %! patch (fv); |
|
ddac88d32d6a
Make demos in plot m-files compatible with Matlab for running comparison script.
Rik <rik@octave.org>
parents:
15332
diff
changeset
|
169 %! axis equal; |
|
ddac88d32d6a
Make demos in plot m-files compatible with Matlab for running comparison script.
Rik <rik@octave.org>
parents:
15332
diff
changeset
|
170 %! grid on; |
| 14574 | 171 |
| 172 %!demo | |
|
16828
ddac88d32d6a
Make demos in plot m-files compatible with Matlab for running comparison script.
Rik <rik@octave.org>
parents:
15332
diff
changeset
|
173 %! clf; |
| 14574 | 174 %! faces = [1 2 3 4]; |
| 175 %! vertices = [-1 2; 0 0; 1 2; 0 1]; | |
|
16828
ddac88d32d6a
Make demos in plot m-files compatible with Matlab for running comparison script.
Rik <rik@octave.org>
parents:
15332
diff
changeset
|
176 %! patch ('Faces', faces, 'Vertices', vertices, 'FaceColor', 'none'); |
| 14574 | 177 %! fv = shrinkfaces (faces, vertices, 0.25); |
|
16828
ddac88d32d6a
Make demos in plot m-files compatible with Matlab for running comparison script.
Rik <rik@octave.org>
parents:
15332
diff
changeset
|
178 %! patch (fv); |
|
ddac88d32d6a
Make demos in plot m-files compatible with Matlab for running comparison script.
Rik <rik@octave.org>
parents:
15332
diff
changeset
|
179 %! axis equal; |
|
ddac88d32d6a
Make demos in plot m-files compatible with Matlab for running comparison script.
Rik <rik@octave.org>
parents:
15332
diff
changeset
|
180 %! grid on; |
|
ddac88d32d6a
Make demos in plot m-files compatible with Matlab for running comparison script.
Rik <rik@octave.org>
parents:
15332
diff
changeset
|
181 %! title 'faces which are not convex are clearly not allowed' |
| 14574 | 182 |
| 183 %!demo | |
|
16828
ddac88d32d6a
Make demos in plot m-files compatible with Matlab for running comparison script.
Rik <rik@octave.org>
parents:
15332
diff
changeset
|
184 %! clf; |
| 14574 | 185 %! [phi r] = meshgrid (linspace (0, 1.5*pi, 16), linspace (1, 2, 4)); |
| 186 %! tri = delaunay (phi(:), r(:)); | |
| 187 %! v = [r(:).*sin(phi(:)) r(:).*cos(phi(:))]; | |
|
16828
ddac88d32d6a
Make demos in plot m-files compatible with Matlab for running comparison script.
Rik <rik@octave.org>
parents:
15332
diff
changeset
|
188 %! p = patch ('Faces', tri, 'Vertices', v, 'FaceColor', 'none'); |
| 14574 | 189 %! fv = shrinkfaces (p); |
|
16828
ddac88d32d6a
Make demos in plot m-files compatible with Matlab for running comparison script.
Rik <rik@octave.org>
parents:
15332
diff
changeset
|
190 %! patch (fv); |
|
ddac88d32d6a
Make demos in plot m-files compatible with Matlab for running comparison script.
Rik <rik@octave.org>
parents:
15332
diff
changeset
|
191 %! axis equal; |
|
ddac88d32d6a
Make demos in plot m-files compatible with Matlab for running comparison script.
Rik <rik@octave.org>
parents:
15332
diff
changeset
|
192 %! grid on; |
| 14574 | 193 |
| 194 %!demo | |
|
16828
ddac88d32d6a
Make demos in plot m-files compatible with Matlab for running comparison script.
Rik <rik@octave.org>
parents:
15332
diff
changeset
|
195 %! clf; |
|
ddac88d32d6a
Make demos in plot m-files compatible with Matlab for running comparison script.
Rik <rik@octave.org>
parents:
15332
diff
changeset
|
196 %! N = 10; % N intervals per axis |
| 14574 | 197 %! [x, y, z] = meshgrid (linspace (-4,4,N+1)); |
| 198 %! val = x.^3 + y.^3 + z.^3; | |
| 199 %! fv = isosurface (x, y, z, val, 3, z); | |
| 200 %! | |
|
16828
ddac88d32d6a
Make demos in plot m-files compatible with Matlab for running comparison script.
Rik <rik@octave.org>
parents:
15332
diff
changeset
|
201 %! p = patch ('Faces', fv.faces, 'Vertices', fv.vertices, 'FaceVertexCData', ... |
|
ddac88d32d6a
Make demos in plot m-files compatible with Matlab for running comparison script.
Rik <rik@octave.org>
parents:
15332
diff
changeset
|
202 %! fv.facevertexcdata, 'FaceColor', 'interp', 'EdgeColor', 'black'); |
|
ddac88d32d6a
Make demos in plot m-files compatible with Matlab for running comparison script.
Rik <rik@octave.org>
parents:
15332
diff
changeset
|
203 %! axis equal; |
|
ddac88d32d6a
Make demos in plot m-files compatible with Matlab for running comparison script.
Rik <rik@octave.org>
parents:
15332
diff
changeset
|
204 %! view (115, 30); |
|
ddac88d32d6a
Make demos in plot m-files compatible with Matlab for running comparison script.
Rik <rik@octave.org>
parents:
15332
diff
changeset
|
205 %! drawnow; |
| 14574 | 206 %! shrinkfaces (p, 0.6); |
| 207 | |
| 208 %!shared faces, vertices, nfv, nfv2 | |
| 209 %! faces = [1 2 3]; | |
| 210 %! vertices = [0 0 0; 1 0 0; 1 1 0]; | |
| 211 %! nfv = shrinkfaces (faces, vertices, 0.7); | |
| 212 %! nfv2 = shrinkfaces (nfv, 1/0.7); | |
|
16828
ddac88d32d6a
Make demos in plot m-files compatible with Matlab for running comparison script.
Rik <rik@octave.org>
parents:
15332
diff
changeset
|
213 %!assert (isfield (nfv, "faces")) |
|
ddac88d32d6a
Make demos in plot m-files compatible with Matlab for running comparison script.
Rik <rik@octave.org>
parents:
15332
diff
changeset
|
214 %!assert (isfield (nfv, "vertices")) |
|
ddac88d32d6a
Make demos in plot m-files compatible with Matlab for running comparison script.
Rik <rik@octave.org>
parents:
15332
diff
changeset
|
215 %!assert (size (nfv.faces), [1 3]) |
|
ddac88d32d6a
Make demos in plot m-files compatible with Matlab for running comparison script.
Rik <rik@octave.org>
parents:
15332
diff
changeset
|
216 %!assert (size (nfv.vertices), [3 3]) |
|
ddac88d32d6a
Make demos in plot m-files compatible with Matlab for running comparison script.
Rik <rik@octave.org>
parents:
15332
diff
changeset
|
217 %!assert (norm (nfv2.vertices - vertices), 0, 2*eps) |
|
ddac88d32d6a
Make demos in plot m-files compatible with Matlab for running comparison script.
Rik <rik@octave.org>
parents:
15332
diff
changeset
|
218 |