X-Git-Url: http://git.kpe.io/?p=cl-photo.git;a=blobdiff_plain;f=cameras.lisp;h=2184ebfad510ab94ac64c173e93f84336de61586;hp=6e4e74bd8a713d9821ed78cf0ee33b7b7f4eb54a;hb=4c11fbdc404582b4b8590dca68e80db9f19a77b2;hpb=3c1c551f36fe090936bf5d21e7eb65acbcc0d457 diff --git a/cameras.lisp b/cameras.lisp index 6e4e74b..2184ebf 100644 --- 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)))))