anchor.diff:     (38.0d0 669.3626651434224d0 409.71025002804396d0)
      (45.0d0 676.1558194809563d0 410.7305574257181d0)))
   
  -(rt:deftest epipolar/3
  +(rt:deftest epipolar/2
       (let ((global-car-reference-point   ; pic 13
              '(641754.64076d0 5638452.77658d0 296.79691d0
                -0.2235410d0 -0.6600010d0 214.0967730d0
  
positive.code:    (14.0 756.7466949303281 844.56505998819)
     (14.5 760.5779428663861 844.685762945345)
     (15.0 764.1559084493797 844.7983237485788)))
  
  (rt:deftest multi-car-position/1
      (progn
  
negative.code:       (apply #'add-cam *cam-right*)
        (prog1
            (loop
               for i from 4d0 upto 30d0 by .5d0
               do
                 (set-distance-for-epipolar-line i)
                 (calculate)
  