(: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 :cp5900 :make "Nikon" :pixels (2592 . 1944) :imager (7.18 . 5.32) :name "Coolpix 5900")
(: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)
(:format :sd10 :make "Sigma" :pixels (2268 . 1512) :imager (20.7 . 13.8)
:name "SD10")
+ (:format :1/1.8in :imager (7.18 . 5.32) :name "1/1.8\"")
+ (:format :dx :imager (24 . 16) :name "DX")
(:format :35mm :imager (36 . 24) :name "35mm")
(:format :6x4.5cm :imager (60 . 45) :name "6x4.5cm" :nicks (:\645))
(defun mtf-scanner (freq dscan-freq &optional (order 3))
(abs (expt (kmrcl:sinc (* pi (/ freq dscan-freq))) order)))
-(defun freq-mtf-scanner (dscan-freq mtf &optional (order 3))
- (* dscan-freq (/ (asin (* x (exp (/ (log mtf) order)))) pi)))