%
% Some fun viewing of mathematicians/numerical analysts from the
% 60's, with different colormaps.
%
load gatlin;
whos
pause

psychedelia = strvcat( ...
'default',...
'autumn',...
'bone',...
'colorcube',...
'cool',...
'copper',...
'flag',...
'hot',...
'hsv',...
'jet',...
'lines',...
'pink',...
'prism',...
'spring',...
'summer', ...
'vga',...
'winter', ...
'gray'...
);

n = size(psychedelia, 1);

for k = 1:n

    figure;
    gatlin_handle = image(X);
    axis('image');

    caption_handle = xlabel(caption);
    set(caption_handle,'FontWeight', 'bold');
    set(caption_handle,'FontSize', 8);

    current_color = deblank(psychedelia(k,:));
    colormap(current_color);
    cmap_string = ['Colormap: ', current_color];

    title_handle = title(cmap_string);
    set(title_handle, 'Color', 'red');
    set(title_handle, 'FontSize', 16, 'FontWeight', 'bold');

    % pause(1);

end

unstack;