r10440: add tables

[cl-photo.git] / cameras.lisp

diff --git a/cameras.lisp b/cameras.lisp
index 6e4e74bd8a713d9821ed78cf0ee33b7b7f4eb54a..2184ebfad510ab94ac64c173e93f84336de61586 100644 (file)
--- a/cameras.lisp
+++ b/cameras.lisp
@@ -20,7 +20,7 @@
 (in-package #:photo)
 
 (defun sensor-dimensions-megapixels (format megapixels)
-  (let* ((dim (format-dimensions format))
+  (let* ((dim (imager-dimensions format))
          (aspect-ratio (/ (car dim) (cdr dim)))
          (width (round (sqrt (* aspect-ratio 1000000 megapixels)))))
     (cons width (round (/ width aspect-ratio)))))