function plot_scans(v,t,Scans);
 % PLOT_SCANS: a function to plot velocity scans
 % prepared for geoph326, M.D.Sacchi

  [n1,n2] = size(Scans);

  nv = length(v);
  nstep = n2/nv;

  x= 1:1:n2;

  imagesc(x,t,Scans);

  dt = t(2)-t(1);
  for k=1:nv;
   text((k-1)*nstep+1,0.4 + 0.1*(-1)^k, strcat(num2str(round(v(k)/10)/100),' k/s'));
  end;

  return
~