(:format :d2hs :make "Nikon" :pixels (2464 . 1632) :imager (23.3 . 15.5) :name "D2Hs")
(:format :d2x :make "Nikon" :pixels (4288 . 2848) :imager (23.7 . 15.6) :name "D2X")
+ (:format :cp7900 :make "Nikon" :pixels (3072 . 2304) :imager (7.18 . 5.32) :name "Coolpix 7900")
+
(:format :*ist-d :make "Pentax" :pixels (3008 . 2008) :imager (36 . 24)
:name "*ist D")
(:format :*ist-ds :make "Pentax" :pixels (3008 . 2008) :imager (36 . 24)
"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))