my_colors.m

％The Metabolic Networks Toolbox contains functions to create, ％modify, display, and simulate bioche

function jj=my_colors(n,white)

% aus read_colors.pl
j=[25,25,132;...
   20,20,168;...
   0,0,205;...
   0,0,245;...
   15,100,255;...
   30,144,255;...
   95,184,255;...
   125,215,255;...
   152,245,255;...
   187,255,255;...
   255,250,205;...
   255,246,143;...
   255,225,80;...
   255,193,37;...
   255,160,20;...
   255,120,0;...
   255,69,0;...
   238,0,0;...
   205,0,0;...
   175,0,0;
   139,0,0;]/256;

if ~exist('n'), n=250; end

  jj = zeros(n,3);

for i=1:n
k= floor((i-1)/(n)*20);
l= (i-1)/(n)*20 - k;
jj(i,:)= (1-l)*j(k+1,:)+ l*j(k+2,:);
end

%if exist('white','var'), jj(ceil(n/2),:) = [1 1 1]; end

%jj=[[0 0 0]; jj ; ];