From eee792a28a53084a949496f7ea1a87012f13f7ce Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Wed, 27 Apr 2005 15:57:53 +0000 Subject: [PATCH] r10484: fix units --- fov.lisp | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) 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 -- 2.34.1