r10484: fix units

diff --git a/fov.lisp b/fov.lisp
index 43d000fa4006e5d80a928d398af975c78e40a21a..2b01e8293c35d223b8e4cfbd8836551277e65024 100644 (file)
--- a/fov.lisp
+++ b/fov.lisp
@@ -94,12 +94,7 @@ and image distance (mm) for a given image (mm) and object distance (mm)."
       (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