Mercurial > octave-nkf
diff scripts/image/hot.m @ 11587:c792872f8942
all script files: untabify and strip trailing whitespace
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Thu, 20 Jan 2011 17:35:29 -0500 |
parents | fd0a3ac60b0e |
children | 72c96de7a403 |
line wrap: on
line diff
--- a/scripts/image/hot.m Thu Jan 20 17:24:59 2011 -0500 +++ b/scripts/image/hot.m Thu Jan 20 17:35:29 2011 -0500 @@ -19,9 +19,9 @@ ## -*- texinfo -*- ## @deftypefn {Function File} {@var{map} =} hot () ## @deftypefnx {Function File} {@var{map} =} hot (@var{n}) -## Create color colormap. This colormap ranges from black through dark red, -## red, orange, yellow, to white. -## The argument @var{n} must be a scalar. +## Create color colormap. This colormap ranges from black through dark red, +## red, orange, yellow, to white. +## The argument @var{n} must be a scalar. ## If unspecified, the length of the current colormap, or 64, is used. ## @seealso{colormap} ## @end deftypefn @@ -32,7 +32,7 @@ if (nargin == 0) n = rows (colormap); - elseif (nargin == 1) + elseif (nargin == 1) if (! isscalar (n)) error ("hot: argument must be a scalar"); endif @@ -41,7 +41,7 @@ endif if (n == 1) - map = [0, 0, 0]; + map = [0, 0, 0]; elseif (n > 1) x = linspace (0, 1, n)'; r = (x < 2/5) .* (5/2 * x) + (x >= 2/5);