Mercurial > hg > octave-lyh

comparison scripts/plot/shrinkfaces.m @ 15202:f3b5cadfd6d5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix missing semicolons in various .m files * playaudio.m, accumarray.m, accumdim.m, bicubic.m, narginchk.m, nargoutchk.m, nthargout.m, image.m, pkg.m, colorbar.m, hdl2struct.m, legend.m, plotyy.m, private/__go_draw_axes__.m, private/__print_parse_opts__.m, shrinkfaces.m, pchip.m, polyval.m, rundemos.m: Fix lines with missing semicolons.
author John W. Eaton <jwe@octave.org>
date Sun, 19 Aug 2012 10:50:40 -0400
parents c2dbdeaa25df
children b613757ff5be
comparison
equal deleted inserted replaced
15201:efac5593b1de 15202:f3b5cadfd6d5
99 else 99 else
100 print_usage (); 100 print_usage ();
101 endif 101 endif
102 102
103 if (! isscalar (sf) || sf <= 0) 103 if (! isscalar (sf) || sf <= 0)
104 error ("shrinkfaces: scale factor must be a positive scalar") 104 error ("shrinkfaces: scale factor must be a positive scalar");
105 endif 105 endif
106 106
107 n = columns (vertices); 107 n = columns (vertices);
108 if (n < 2 || n > 3) 108 if (n < 2 || n > 3)
109 error ("shrinkfaces: only 2D and 3D patches are supported") 109 error ("shrinkfaces: only 2D and 3D patches are supported");
110 endif 110 endif
111 111
112 m = columns (faces); 112 m = columns (faces);
113 if (m < 3) 113 if (m < 3)
114 error ("shrinkfaces: faces must consist of at least 3 vertices") 114 error ("shrinkfaces: faces must consist of at least 3 vertices");
115 endif 115 endif
116 116
117 v = vertices(faces'(:), :); 117 v = vertices(faces'(:), :);
118 if (isempty (colors) || rows (colors) == rows (faces)) 118 if (isempty (colors) || rows (colors) == rows (faces))
119 c = colors; 119 c = colors;
132 f = reshape (1:sv, m, sv / m)'; 132 f = reshape (1:sv, m, sv / m)';
133 133
134 switch (nargout) 134 switch (nargout)
135 case 0 135 case 0
136 if (ishandle (p)) 136 if (ishandle (p))
137 set (p, "FaceVertexCData", [], "CData", []) # avoid exceptions 137 ## avoid exceptions
138 set (p, "Vertices", v, "Faces", f, "FaceVertexCData", c) 138 set (p, "FaceVertexCData", [], "CData", []);
139 set (p, "Vertices", v, "Faces", f, "FaceVertxCData", c);
139 else 140 else
140 nf = struct ("faces", f, "vertices", v, "facevertexcdata", c); 141 nf = struct ("faces", f, "vertices", v, "facevertexcdata", c);
141 endif 142 endif
142 case 1 143 case 1
143 nf = struct ("faces", f, "vertices", v, "facevertexcdata", c); 144 nf = struct ("faces", f, "vertices", v, "facevertexcdata", c);