function c2 = makec2f

% function c2 = makec2f
% 	Creates a colormap.
% USAGE:   colormap(makec2f)
% by Steven L. Jacques, Jan. 2008
% Oregon Health & Sciences University, Portland, OR, USA

% ----> c2(64,3)
%  red
%  yellow
%  green
%  blue
%  black
c2 = zeros(64,3);

for ii=1:10   % black to grey
	c2(ii,1) = 0.1 + 0.4*ii/10;    % red
	c2(ii,2) = 0.1 + 0.4*ii/10;    % green
	c2(ii,3) = 0.1 + 0.4*ii/10;     % blue
end
for ii=11:20   % grey to blue
	c2(ii,1) = 0.5*(1-(ii-10)/10);    % red
	c2(ii,2) = 0.5*(1-(ii-10)/10);    % green
	c2(ii,3) = 0.5 + 0.5*(ii-10)/10; % blue
end
a = 21; b = 32;
for ii=a:b % blue to cyan
	c2(ii,1) = 0;   
	c2(ii,2) = (ii-a+1)/(b-a+1);   
	c2(ii,3) = 1; 
end
a = 33; b = 45;
for ii=a:b % green to yellow
	c2(ii,1) = (ii-a+1)/(b-a+1);   
	c2(ii,2) = 1;  
	c2(ii,3) = 0; 
end
a = 46; b = 53;
for ii=a:b % yellow
	c2(ii,1) = 1;   
	c2(ii,2) = 1;   
	c2(ii,3) = 0; 
end
a = 54; b = 64;
for ii=a:b % yellow to red
	c2(ii,1) = 1;   
	c2(ii,2) = 1 - (ii-a+1)/(b-a+1);  
	c2(ii,3) = 0; 
end