Subversion Repositories lagranto.wrf

% ----------------------------------------------------------------------
% Plotting of a set of trajectory, coloring with additional field
% ----------------------------------------------------------------------

function plot = plot_trajectory (tra,varargin)

% Set plotting mode
mode=3;

% Handle the input arguments
if ( length(varargin) == 0 ) 
    col.name = 'none';
    pts      = [];
elseif ( length(varargin) == 1 )
    col      = varargin{1};
    pts      = [];
elseif ( length(varargin) == 2 )
    col      = varargin{1};
    pts      = varargin{2};
else
    error('Invalid call to plot_trajectory...');
end

% Set the selection of the trajectories
fn = fieldnames(tra);
if ( any ( strcmp(fn,'select') ) )
    tralist = tra.select;
else
    tralist = (1:tra.ntra)';
end

% Set some default parameters
fn = fieldnames(col);
if ( ~ any ( strcmp(fn,'shift') ) )
    col.shift = 47;
end
if ( ~ any ( strcmp(fn,'name') ) )
    col.name = 'col_table.txt';
end
if ( ~ any ( strcmp(fn,'orientation') ) )
    col.orientation = 'vert';
end
if ( ~ any ( strcmp(fn,'field') ) )
    col.field = 'p';
end
if ( ~ any ( strcmp(fn,'spacing') ) )
    fld = tra.(char(col.field));
    col.spacing = round(linspace(min(fld(:)),max(fld(:)),10));
end

% Get the orientation (order of values) of the colormap
n    = length(col.spacing);
diff = col.spacing(1:n-1)-col.spacing(2:n);
if ( all(diff >= 0) )
    order = 'reverse';
elseif ( all(diff <= 0) )
    order = 'normal';
else
    error('Invalid color spacing...');
end

% Set colormap
if ( ~ strcmp(col.name,'none') ) 
     c_map = col_scale(col.spacing,col.spacing);
     col_load(col.name,c_map.xtick,col.shift);
     c_map.colors = colormap;
     c_map.ncol = length(c_map.colors)
end
     
% ------- Plotting mode 1 -----------------------------------------------------------
if ( mode == 1) 
    
  for j=tralist'
 
  % Extract a single trajectory  
  tim = tra.time              (tra.label==j);
  lat = tra.lat               (tra.label==j);
  lon = tra.lon               (tra.label==j);
  fld = tra.(char(col.field)) (tra.label==j);
    
  % Draw the trajectory (either as a black line or colored with a field)
  for k=2:tra.ntime
    if ( abs(lon(k-1)-lon(k)) < 180 ) 
        
      if ( strcmp(col.name,'none') ) 
         [h]=linem([ lat(k-1) lat(k) ],[ lon(k-1) lon(k) ],'k','Linewidth',  1.0);
      else
         [h]=linem([ lat(k-1) lat(k) ],[ lon(k-1) lon(k) ],'k','Linewidth',  1.0);
         if ( strcmp(order,'normal') ) 
            icol=sum( 0.5*(fld(k-1)+fld(k)) > col.spacing );
         else
            icol=sum( 0.5*(fld(k-1)+fld(k)) < col.spacing );
         end
         if ( (icol>=1) & (icol <= c_map.ncol) )
                set(h,'color',[c_map.colors(icol,1) c_map.colors(icol,2) c_map.colors(icol,3)]);
         else
            set(h,'color','k');
            set(h,'Linestyle',':');
         end
      end
      
    end
  end

  % Set time markers
  for k=1:length(pts)
     mask = (tim == pts(k) );
     if ( any(mask) ) 
        linem([ lat(mask) ],[ lon(mask) ],'marker','o', ...
              'markersize',5,'color','k','MarkerEdgeColor',[.4 .4 .4], ...
                  'MarkerFaceColor','k');
     end
  end
    
  end

end

% ------- Plotting mode 2 -----------------------------------------------------------
if ( mode == 2) 
    
  for j=tralist'
      
  % Extract a single trajectory  
  tim = tra.time              (tra.label==j);
  lat = tra.lat               (tra.label==j);
  lon = tra.lon               (tra.label==j);
  fld = tra.(char(col.field)) (tra.label==j);
    
  % Extract coordinates 
  lat1 = lat(2:tra.ntime);
  lat2 = lat(1:(tra.ntime-1));
  lon1 = lon(2:tra.ntime);
  lon2 = lon(1:(tra.ntime-1));

  % Get the color code for the line segments
  if ( strcmp(col.name,'none') ) 
    icol = zeros(size(fld1));
  else
    fld1 = fld(2:tra.ntime);
    fld2 = fld(1:(tra.ntime-1));
    ccol = kron(col.spacing,ones(size(fld1)));
    cfld = kron(0.5*(fld1+fld2),ones(size(col.spacing)));
    if ( strcmp(order,'normal') ) 
       icol = sum( cfld > ccol, 2);
    else
       icol = sum( cfld < ccol, 2);
    end
    icol( (icol<1) | (icol>c_map.ncol) ) = -1;
  end    

  % Draw colored line segments (loop through all colors)
  for i=1:c_map.ncol
     mask = (icol == i);
     if ( any(mask) ) 
  %      [h]=linem( [ lat1(mask) lat2(mask) ],[ lon1(mask) lon2(mask) ],'k','Linewidth',  1.0);
        [h]=linem( [ lat1(mask) lat2(mask) ]',[ lon1(mask) lon2(mask) ]','k','Linewidth',  1.0);
        set(h,'color',[c_map.colors(i,1) c_map.colors(i,2) c_map.colors(i,3)])
     end
  end

  % Draw line sgements outside the color range
  mask = (icol == -1);
  if ( any(mask) ) 
      [h]=linem([ lat1(mask) lat2(mask) ]',[ lon1(mask) lon2(mask) ]','k','Linewidth',  1.0);
      set(h,'color','r');
      set(h,'Linestyle','-');
  end

  % Draw black line segments (if no color is needed)
  mask = (icol == 0);
  if ( any(mask) ) 
      [h]=linem([ lat1(mask) lat2(mask) ]',[ lon1(mask) lon2(mask) ]','k','Linewidth',  1.0);
  end
  
  % Set time markers
  for k=1:length(pts)
     mask = (tim == pts(k) );
     if ( any(mask) ) 
        linem([ lat(mask) ],[ lon(mask) ],'marker','o', ...
              'markersize',5,'color','k','MarkerEdgeColor',[.4 .4 .4], ...
                  'MarkerFaceColor','k');
     end
  end

  end 
end

% ------- Plotting mode 2 -----------------------------------------------------------
if ( mode == 3 ) 
  
  % Set the total number of coordinates
  n = tra.ntime * tra.ntra;  
  
  % Extract trajectories  
  tim = tra.time;
  lat = tra.lat;
  lon = tra.lon;
  fld = tra.(char(col.field));
  
  % Mark different trajectories
  gaps = (1:tra.ntra) * tra.ntime;
  lat( gaps ) = NaN;
  lon( gaps ) = NaN;
  
  % Extract coordinates 
  lat1 = lat(2:n);
  lat2 = lat(1:(n-1));
  lon1 = lon(2:n);
  lon2 = lon(1:(n-1));

  % Get the color code for the line segments
  if ( strcmp(col.name,'none') ) 
    icol = zeros(size(fld1));
  else
    fld1 = fld(2:n);
    fld2 = fld(1:(n-1));
    ccol = kron(col.spacing,ones(size(fld1)));
    cfld = kron(0.5*(fld1+fld2),ones(size(col.spacing)));
    if ( strcmp(order,'normal') ) 
       icol = sum( cfld > ccol, 2);
    else
       icol = sum( cfld < ccol, 2);
    end
    icol( (icol<1) | (icol>c_map.ncol) ) = -1;
  end    

  % Draw colored line segments (loop through all colors)
  for i=1:c_map.ncol
     mask = (icol == i);
     if ( any(mask) ) 
        [h]=linem( [ lat1(mask) lat2(mask) ]',[ lon1(mask) lon2(mask) ]','k','Linewidth',  1.0);
        set(h,'color',[c_map.colors(i,1) c_map.colors(i,2) c_map.colors(i,3)])
     end
  end

  % Draw line sgements outside the color range
  mask = (icol == -1);
  if ( any(mask) ) 
      [h]=linem([ lat1(mask) lat2(mask) ]',[ lon1(mask) lon2(mask) ]','k','Linewidth',  1.0);
      set(h,'color','r');
      set(h,'Linestyle','-');
  end

  % Draw black line segments (if no color is needed)
  mask = (icol == 0);
  if ( any(mask) ) 
      [h]=linem([ lat1(mask) lat2(mask) ]',[ lon1(mask) lon2(mask) ]','k','Linewidth',  1.0);
  end
  
  % Set time markers
  for k=1:length(pts)
     mask = (tim == pts(k) );
     if ( any(mask) ) 
        n = length(lat(mask));
        lat3( 1:(2*n) ) = NaN; lat3( 1:2:(2*n) ) = lat(mask);
        lon3( 1:(2*n) ) = NaN; lon3( 1:2:(2*n) ) = lon(mask);
        linem([ lat3 ],[ lon3 ],'marker','o', ...
              'markersize',5,'color','k','MarkerEdgeColor',[.4 .4 .4], ...%
                  'MarkerFaceColor','k');
     end
  end
end

% ------- Plotting colorbar -----------------------------------------------------------

if ( ~ strcmp(col.name,'none') ) 
   caxis(c_map.caxis);
   if ( strcmp(col.orientation,'hori') ) 
      q=colorbar('hori');
      set(q,'xtick',c_map.xtick,'XTickLabel',c_map.label);
   elseif ( strcmp(col.orientation,'vert') ) 
      q=colorbar('vert');
      set(q,'ytick',c_map.xtick,'YTickLabel',c_map.label);
   end
end

% Return status
plot = 1;