From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Thu, 28 Apr 2005 19:44:11 +0000 (+0000)
Subject: r10494: add cp5900, formats, remove incorrect function
X-Git-Tag: v0.13~21
X-Git-Url: http://git.kpe.io/?p=cl-photo.git;a=commitdiff_plain;h=5e38a707983711121425bcb9f5f6a88baf832bfc

r10494: add cp5900, formats, remove incorrect function
---

diff --git a/cameras.lisp b/cameras.lisp
index 745ea0a..54d3895 100644
--- a/cameras.lisp
+++ b/cameras.lisp
@@ -91,6 +91,7 @@
     (: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)
@@ -103,6 +104,8 @@
     (: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))
diff --git a/dof.lisp b/dof.lisp
index ee9250a..b937da0 100644
--- a/dof.lisp
+++ b/dof.lisp
@@ -133,5 +133,3 @@ Output: NEAR-POINT, FAR-POINT, TOTAL-DOF, MAGNIFICATION, BLUR-SIZE-OF-INFINITY-P
 (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)))