function choose_colormap
%CHOOSE_COLORMAP Wrapper for colormap; user chooses a color look-up table

%     Copyright J. V. Mansbridge, CSIRO, Tue Aug  2 11:51:30 EST 1994

name = ['default          ',
	'bone             ',
	'cool             ',
	'copper           ',
	'flag             ',
	'gray             ',
	'hot              ',
	'hsv              ',
	'jet              ',
	'pink             ',
	'prism            ',
	'white            ',
	'xblue_mag_red    ',
	'xgray            ',
	'xrainbow         ',
	'xred_yellow_white',
	'xrepeat          ',
	'xtemperature     '];
k = menu ('Choose a colormap', name(1, :), name(2, :), name(3, :), ...
	  name(4, :), name(5, :) , name(6, :) , name(7, :) , name(8, :) , ...
	  name(9, :) , name(10, :) , name(11, :) , name(12, :) , ...
	  name(13, :) , name(14, :) , name(15, :) , name(16, :) , ...
	  name(17, :) , name(18, :) );
if k == 1
  colormap('default');
else
  str = ['colormap(' name(k, :) ');'];
  eval(str)
end
  
