From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Sat, 23 Apr 2005 02:38:23 +0000 (+0000)
Subject: r10451: add digital cameras
X-Git-Tag: v0.13~35
X-Git-Url: http://git.kpe.io/?p=cl-photo.git;a=commitdiff_plain;h=fa6f225e030638160cbd91d19cebd29f741068e8

r10451: add digital cameras
---

diff --git a/cameras.lisp b/cameras.lisp
index c10e283..c084fec 100644
--- a/cameras.lisp
+++ b/cameras.lisp
@@ -80,6 +80,26 @@
    #.(make-output-format 24 36)
   ))
 
+(defvar *digital-cameras*
+  (sort (loop for format in +format-db+
+	      when (getf format :pixels)
+	      collect format)
+	(lambda (a b)
+	  (block nil
+	    (when (and (getf a :make) (getf b :make))
+	      (cond
+               ((string-greaterp (getf a :make) (getf b :make))
+                (return t))
+               ((string-lessp (getf a :make) (getf b :make))
+                (return nil))))
+	    (when (and (getf a :name) (getf b :name))
+	      (cond
+               ((string-lessp (getf a :name) (getf b :name))
+                (return t))
+               ((string-greaterp (getf a :name) (getf b :name))
+                (return nil))))))))
+  
+
 (defun format-match-p (format-spec format)
   (when (or (eql format-spec (getf format :format))
             (member format-spec (getf format :nicks)))
diff --git a/package.lisp b/package.lisp
index 7c6f447..c1171e9 100644
--- a/package.lisp
+++ b/package.lisp
@@ -28,7 +28,8 @@
    #:pixel-dimensions
    #:imager-dimensions
    #:output-dimensions
-   
+   #:*digital-cameras*
+
    ;; fov.lisp
    #:aov
    #:aov-format