# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1339513945 18000
# Node ID 4c43b2b8d3c052aca2e3d335db52af2d69e79f8b
# Parent  0273c08cd2ffc19ad4eb3a9e5a18fe7e7bb66662
working on confirming accuracy of color map.

diff -r 0273c08cd2ff -r 4c43b2b8d3c0 clojure/com/aurellem/run/image.clj
--- a/clojure/com/aurellem/run/image.clj	Tue Jun 12 08:05:24 2012 -0500
+++ b/clojure/com/aurellem/run/image.clj	Tue Jun 12 10:12:25 2012 -0500
@@ -223,7 +223,11 @@
                     (sort-by
                      (fn euclidean-distance [[r g b]]
                        (Math/sqrt (+ (* r r) (* g g) (* b b))))
-                     (seq (set (vals gb-color-map))))))))
+                     (filter
+                      (fn [[r g b]]
+                        (= (max r g b) b ))
+                     
+                      (seq (set (vals gb-color-map)))))))))
         view (cortex.sense/view-image)
         target (File. user-home "proj/vba-clojure/gb-color-map-unique.png")]
     (dorun (for [x (range 68) y (range 69)]
@@ -271,4 +275,9 @@
       (.write (IIOImage. im nil nil))
       (.dispose))
     im))
-    
+
+
+(count
+ (filter
+  (fn [[r g b]]
+    (= (max r g b) r ))(set (vals gb-color-map))))
diff -r 0273c08cd2ff -r 4c43b2b8d3c0 gb-color-map-unique.png
Binary file gb-color-map-unique.png has changed