MITgcm_contrib/jmc_script/change_colmap.m

function [col,mapC]=change_colmap(kchg);
% CHANGE_COLMAP :: simple function to modify the default colormap
%   [col,mapC]=change_colmap(-1) :: replace 1rst color with white
%   [col,mapC]=change_colmap(2)  :: I don't remember ...

% $Header:  $
% $Name:  $

 col=[1:64];
 colormap('default'); mapC=colormap; 
if kchg == -1,
  mapC(1,:)=[1 1 1]; colormap(mapC);
elseif kchg == 2,
 col(3:18)=[46 33 44 27 42:-2:20] ; col(9)=51; col(13)=50; col(16)=35;
 col(19:34)=[58 49:-2:37 23 48 31 43 30 25:-2:21]; col(23)=52;
 col(35:47)=[29 53:64]; col(41)=38;
 col(48:64)=19:-1:3;
 map2=zeros(64,3); map2([1:64],:)=mapC(col([1:64]),:); mapC=map2;
 mapC(1,:)=[1 1 1]; colormap(mapC);
end
return

1	function [col,mapC]=change_colmap(kchg);
2	% CHANGE_COLMAP :: simple function to modify the default colormap
3	% [col,mapC]=change_colmap(-1) :: replace 1rst color with white
4	% [col,mapC]=change_colmap(2) :: I don't remember ...
5
6	% $Header: $
7	% $Name: $
8
9	col=[1:64];
10	colormap('default'); mapC=colormap;
11	if kchg == -1,
12	mapC(1,:)=[1 1 1]; colormap(mapC);
13	elseif kchg == 2,
14	col(3:18)=[46 33 44 27 42:-2:20] ; col(9)=51; col(13)=50; col(16)=35;
15	col(19:34)=[58 49:-2:37 23 48 31 43 30 25:-2:21]; col(23)=52;
16	col(35:47)=[29 53:64]; col(41)=38;
17	col(48:64)=19:-1:3;
18	map2=zeros(64,3); map2([1:64],:)=mapC(col([1:64]),:); mapC=map2;
19	mapC(1,:)=[1 1 1]; colormap(mapC);
20	end
21	return
22