


for( i=1:25 )
  increment = 2;
  nFrames = 3;
  x =  i*increment*cos(66*pi/180);
  y = -i*increment*sin(66*pi/180);
  VBtran = imtranslate(VBbsave{1},[x y]);
  figure;
  VBand = VBbsave{nFrames}.*VBtran;
  imshow( VBand );
  interCount(i) = sum(VBand,'all');
  fprintf('First scan displaced %d, intersection = %d\n',i*increment, ...
      interCount(i));
end

[val indx]=max(interCount)
dist = indx*increment
deltat =  processedScan{nFrames,1} - processedScan{1,1}
if( deltat > 0 )
  fprintf('Speed = %.2f m/s\n',dist/deltat)
end

