# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1339506324 18000
# Node ID 0273c08cd2ffc19ad4eb3a9e5a18fe7e7bb66662
# Parent  8b8053ccb33c231d2bc3be5de106ea7bcb6e4df1
discovered that the gb has far fewer unique colors than I initially thought.

diff -r 8b8053ccb33c -r 0273c08cd2ff clojure/com/aurellem/run/image.clj
--- a/clojure/com/aurellem/run/image.clj	Tue Jun 12 03:36:47 2012 -0500
+++ b/clojure/com/aurellem/run/image.clj	Tue Jun 12 08:05:24 2012 -0500
@@ -155,7 +155,7 @@
              (.setRGB im x y (pix (+ x (* 160 y))))))
     (view im)))
 
-(defn-memo gb-rgb->vga-rgb [[r g b]]
+(defn gb-rgb->vga-rgb [[r g b]]
   (let [vga-rgb  
         (first (pixels
                 (run-moves
@@ -200,7 +200,7 @@
 
 
 (defn gen-gb-color-image! []
-  (let [im (BufferedImage. 181 182 BufferedImage/TYPE_INT_RGB)
+  (let [im (BufferedImage. 68 69 BufferedImage/TYPE_INT_RGB)
         pix (vec
 
              (reduce
@@ -219,15 +219,15 @@
                              (+ 1000 (- b) r))]
                         det)))
                    (partition
-                    181 181 []
+                    68 68 []
                     (sort-by
                      (fn euclidean-distance [[r g b]]
                        (Math/sqrt (+ (* r r) (* g g) (* b b))))
-                     (vals gb-color-map))))))
+                     (seq (set (vals gb-color-map))))))))
         view (cortex.sense/view-image)
-        target (File. user-home "proj/vba-clojure/gb-color-map.png")]
-    (dorun (for [x (range 181) y (range 182)]
-             (let [[r g b] (get pix (+ x (* 181 y)) [0 0 0])
+        target (File. user-home "proj/vba-clojure/gb-color-map-unique.png")]
+    (dorun (for [x (range 68) y (range 69)]
+             (let [[r g b] (get pix (+ x (* 68 y)) [0 0 0])
                    rgb (+ (bit-shift-left r 16)
                           (bit-shift-left g 8)
                           b)]
@@ -271,4 +271,4 @@
       (.write (IIOImage. im nil nil))
       (.dispose))
     im))
-  
\ No newline at end of file
+    
diff -r 8b8053ccb33c -r 0273c08cd2ff gb-color-map-unique.png
Binary file gb-color-map-unique.png has changed