Mercurial > vba-clojure

changeset 501:4c43b2b8d3c0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
working on confirming accuracy of color map.
author Robert McIntyre <rlm@mit.edu>
date Tue, 12 Jun 2012 10:12:25 -0500
parents 0273c08cd2ff
children e9a63daf680a
files clojure/com/aurellem/run/image.clj gb-color-map-unique.png
diffstat 2 files changed, 11 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/run/image.clj	Tue Jun 12 08:05:24 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/image.clj	Tue Jun 12 10:12:25 2012 -0500
     1.3 @@ -223,7 +223,11 @@
     1.4                      (sort-by
     1.5                       (fn euclidean-distance [[r g b]]
     1.6                         (Math/sqrt (+ (* r r) (* g g) (* b b))))
     1.7 -                     (seq (set (vals gb-color-map))))))))
     1.8 +                     (filter
     1.9 +                      (fn [[r g b]]
    1.10 +                        (= (max r g b) b ))
    1.11 +                     
    1.12 +                      (seq (set (vals gb-color-map)))))))))
    1.13          view (cortex.sense/view-image)
    1.14          target (File. user-home "proj/vba-clojure/gb-color-map-unique.png")]
    1.15      (dorun (for [x (range 68) y (range 69)]
    1.16 @@ -271,4 +275,9 @@
    1.17        (.write (IIOImage. im nil nil))
    1.18        (.dispose))
    1.19      im))
    1.20 -    
    1.21 +
    1.22 +
    1.23 +(count
    1.24 + (filter
    1.25 +  (fn [[r g b]]
    1.26 +    (= (max r g b) r ))(set (vals gb-color-map))))

     2.1 Binary file gb-color-map-unique.png has changed