Mercurial > octave-nkf
diff scripts/plot/draw/shrinkfaces.m @ 19630:0e1f5a750d00
maint: Periodic merge of gui-release to default.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Tue, 20 Jan 2015 10:24:46 -0500 |
parents | d3a223128efc 446c46af4b42 |
children | 4197fc428c7d |
line wrap: on
line diff
--- a/scripts/plot/draw/shrinkfaces.m Tue Jan 20 09:55:41 2015 -0500 +++ b/scripts/plot/draw/shrinkfaces.m Tue Jan 20 10:24:46 2015 -0500 @@ -71,7 +71,7 @@ if (nargin < 1 || nargin > 3 || nargout > 2) print_usage (); endif - + sf = 0.3; colors = []; p = varargin{1}; @@ -102,7 +102,7 @@ else print_usage (); endif - + if (! isscalar (sf) || sf <= 0) error ("shrinkfaces: scale factor must be a positive scalar"); endif @@ -131,7 +131,7 @@ midpoints = full (kron (speye (sv / m), ones (m, m) / m) * sparse (v)); v = sqrt (sf) * (v - midpoints) + midpoints; f = reshape (1:sv, m, sv / m)'; - + switch (nargout) case 0 if (ishandle (p))