From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Wed, 27 Apr 2005 15:57:53 +0000 (+0000)
Subject: r10484: fix units
X-Git-Tag: v0.13~25
X-Git-Url: http://git.kpe.io/?p=cl-photo.git;a=commitdiff_plain;h=eee792a28a53084a949496f7ea1a87012f13f7ce

r10484: fix units
---

diff --git a/fov.lisp b/fov.lisp
index 43d000f..2b01e82 100644
--- 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