function summary(x,y)
%
%   The function summary(x,y) overlays a plot of the current float
%   on the summary figure.  The beginning of the data 
%   (launching position is defined by a 'o', every data point is 
%   shown with '.', and every 'step' days with a cross.
%
%-------------------------------------------------------------------
%   Written by Mike Sparrow & Vassilis Zervakis, whilst at
%              AINCO - Interocean, Madrid, Spain.
%-------------------------------------------------------------------
%
global sumfigure lowpassdone tjump
global flstep linecolor startsymbol startcolor
global stepsymbol stepcolor temp pres ltemp lpres 
%
flstep=flstep*tjump;
linecolor = num2str(linecolor);
start = [startcolor startsymbol];
steps = [stepcolor stepsymbol];
colordot = [linecolor '.'];
isstr(colordot);
isstr(start);
isstr(steps);
kl = 1;
if flstep ~= 0.,
    for kk = 1:flstep:length(x)
      x1(kl) = x(kk); 
      y1(kl) = y(kk); 
      kl = kl + 1;
    end
    line('Xdata',x,'Ydata',y,'Color',linecolor,'Erasemode','none','LineWidth',1.0);
    line('Xdata',x(1),'Ydata',y(1),'Color',startcolor,'LineStyle',startsymbol,'Erasemode','none','LineWidth',1.0);
    line('Xdata',x1,'Ydata',y1,'Color',stepcolor,'LineStyle',stepsymbol,'Erasemode','none','LineWidth',1.0);
    clear x1;
    clear y1;
  else
    line('Xdata',x,'Ydata',y,'Color',linecolor,'Erasemode','none','LineWidth',1.0);
    line('Xdata',x(1),'Ydata',y(1),'Color',startcolor,'LineStyle',startsymbol,'Erasemode','none','LineWidth',1.0);
end
end
  if (lowpassdone(1:2) == 'of'),
  tp(temp,pres,'wee');
  else,
  tp(ltemp,lpres,'wee');
  end
end
