Mercurial > octave-nkf
diff scripts/image/ind2gray.m @ 15689:14b7679891dd
ind2sub ind2gray: merge common code in private function, expanding fix for images when integers, input check, and expansion of colormap to ind2gray.
author | Carnë Draug <carandraug+dev@gmail.com> |
---|---|
date | Mon, 12 Nov 2012 04:53:42 +0000 |
parents | 1f911333ed3d |
children | a1b634240352 |
line wrap: on
line diff
--- a/scripts/image/ind2gray.m Mon Nov 12 04:21:52 2012 +0000 +++ b/scripts/image/ind2gray.m Mon Nov 12 04:53:42 2012 +0000 @@ -20,6 +20,8 @@ ## @deftypefn {Function File} {} ind2gray (@var{x}) ## @deftypefnx {Function File} {} ind2gray (@var{x}, @var{map}) ## Convert a color indexed image to a gray scale intensity image. +## If the colormap doesn't contain enough colors, pad it with the +## last color in the map. ## If @var{map} is omitted, the current colormap is used to determine the ## intensities. ## @seealso{gray2ind, ind2rgb} @@ -31,20 +33,20 @@ function y = ind2gray (x, map) + ## Do we have the right number of inputs? if (nargin < 1 || nargin > 2) print_usage (); elseif (nargin == 1) map = colormap (); endif - [rows, cols] = size (x); + [x, map] = ind2x ("ind2gray", x, map); ## Convert colormap to intensity values (the first column of the ## result of the call to rgb2ntsc) and then replace indices in ## the input matrix with indexed values in the output matrix (indexed ## values are the result of indexing the intensity values by the ## elements of x(:)). - - y = reshape (((rgb2ntsc (map))(:,1))(x(:)), rows, cols); + y = reshape (((rgb2ntsc (map))(:,1))(x(:)), rows (x), columns (x)); endfunction