Subversion Repositories lagranto.ecmwf

function output = col_load(coltable, spacing, shift, varargin)
% Routine handles colortable
%
% coltable  input    string contains ctb-file and its path
%                    e.g. /home/user/matlab/.../file
%
%                    if only file: path = /home/mischa/matlab/ctb/
% 
% date2     input    shifter for colortable
% 
% varargin  input    pointer to define a white space                 
%                  
% output    output   nothing
% 
% ----------------------------------------------------------
%                            Mischa Croci Maspoli (Oct 2004)
% ----------------------------------------------------------

%check if varargin = 1
if length(varargin) == 1
 white=varargin{1};
end
if length(varargin) == 0
 white=0;
end


ctbdefault = '/usr/local/matlabtools/ive_ct/';


% read colortable
if coltable(1) == '/'
 ivecol = load(coltable,'-ascii');
else
 ivecol = load([ctbdefault coltable],'-ascii');
end

% devide values by 255
ivecol = 1./255.*ivecol;

%ivecol=flipdim(ivecol,1);

% number of colors
ncol=length(spacing)-2;

% shifter
shcol=shift;

% define white space
if  length(varargin) == 1
  newmap = ivecol(shcol:ncol+shcol,:);
  newmap(white,:) = 1.;
else
  newmap = ivecol(shcol:ncol+shcol,:);
end

%data=[1:ncol+1;1:1:ncol+1]';
colormap(newmap(:,:));