ColorMapsShow.m

function [cmap] = ColorMapsShow

% colorMapsShow - display/select available Matlab colormaps
%
% Example:  figure, colormap(ColorMapsShow), colorbar
%
% See also colorMapsMake, colorbar
%

% $Revision: 1.2 $ $Date: 2007/02/17 03:06:34 $

% Licence:  GNU GPL, no implied or express warranties
% History:  01/99 Uilke Stelwagen, Copyright (C) 1992-1999
%           Institute of Applied Physics, TNO-TPD, The Netherlands.
%           09/01 Darren.Weber_at_radiology.ucsf.edu
%                 - downloaded function from the mathworks, distrib.
%                   under GPL
%                 - adapted function to gui selection of colormap
%                   and return of a prefered map in cmap
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

maps = [
   'hsv        - hue-saturation-value           '
   'hot        - black-red-yellow-white         '
   'gray       - linear gray-scale              '
   'bone       - gray-scale with blue tinge     '
   'copper     - linear copper-tone             '
   'pink       - pastel pinks                   '
   'white      - all white                      '
   'flag       - red, white, blue, & black      '
   'lines      - color map of the line colors   '
   'colorcube  - enhanced color-cube            '
   'jet        - variant HSV (Matlab default)   '
   'prism      - prism                          '
   'cool       - cyan and magenta               '
   'autumn     - red and yellow                 '
   'spring     - magenta and yellow             '
   'winter     - blue and green                 '
   'summer     - green and yellow               '
];

F = figure('menubar','none',...
           'NumberTitle','off',...
           'NextPlot','replace');
movegui center;

h = subplot(1,4,4);
colorbar(h);

map = 1;
ok = 1;
while ok,
    
    colormap(deblank(maps(map,1:10)));
    title(   deblank(maps(map,1:10)));
    
    [map,ok] = listdlg('PromptString','Double-Click ColorMap',...
                       'SelectionMode','single',...
                       'InitialValue',map,...
                       'ListString',maps,...
                       'CancelString','Done',...
                       'uh',30,'fus',5,'ffs',5,...
                       'ListSize',[200 330]);
                   
end
cmap = colormap;
close gcf