(let* ((d-width (* 2 object-distance (tan (degrees->radians (/ aov-width 2)))))
(d-height (* 2 object-distance (tan (degrees->radians (/ aov-height 2)))))
(d-diagonal (* 2 object-distance (tan (degrees->radians (/ aov-diagonal 2))))))
- (values (mm->length d-width units)
- (mm->length d-height units)
- (mm->length d-diagonal units)
- mag
- object-distance
- image-distance)))))
+ (values d-width d-height d-diagonal mag object-distance image-distance)))))
(defun fov (focal-length frame-width frame-height
&key object-distance image-distance magnification