r10451: add digital cameras

diff --git a/cameras.lisp b/cameras.lisp
index c10e2839f8447821c247a1fb8cc5a5d73ace2719..c084fec013014d84e4b17cd20e6014a7247577f1 100644 (file)
--- 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 7c6f44758f1a76552d5089074abc3361c64038f3..c1171e904e985f1ff6e4ba3e1464d8090055e26e 100644 (file)
--- a/package.lisp
+++ b/package.lisp
@@ -28,7 +28,8 @@
    #:pixel-dimensions
    #:imager-dimensions
    #:output-dimensions
-   
+   #:*digital-cameras*
+
    ;; fov.lisp
    #:aov
    #:aov-format