From 69714017bc3f5e6085872e24790c19fd65d6862b Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sat, 23 Apr 2005 15:19:08 +0000 Subject: [PATCH] r10463: update cameras --- cameras.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/cameras.lisp b/cameras.lisp index 814e387..d914d0b 100644 --- a/cameras.lisp +++ b/cameras.lisp @@ -184,8 +184,10 @@ so the proper aspect ratio is used." "Return pixel size in micrometers." (let ((pixel-dim (pixel-dimensions format-spec)) (imager-dim (imager-dimensions format-spec))) - (values (* 1000 (/ (car imager-dim) (car pixel-dim))) - (* 1000 (/ (cdr imager-dim) (cdr pixel-dim)))))) + (when (and pixel-dim imager-dim) + (values (* 1000 (/ (car imager-dim) (car pixel-dim))) + (* 1000 (/ (cdr imager-dim) (cdr pixel-dim))))))) + (defun output-dimensions (format-spec) "Returns the output dimensions in mm of a FORMAT." (getf (find-format format-spec) :output)) -- 2.34.1