# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1282288685 14400
# Node ID 4ae2497acf7d0fb1c7d4e6e8934d6e612c40ea75
# Parent  8cc418e04b87743189a0f5904bbf2a400fc18b42
saving progress

diff -r 8cc418e04b87 -r 4ae2497acf7d src/laser/rasterize.clj
--- a/src/laser/rasterize.clj	Fri Aug 20 01:47:28 2010 -0400
+++ b/src/laser/rasterize.clj	Fri Aug 20 03:18:05 2010 -0400
@@ -115,10 +115,12 @@
 
 (defn filter-keys [fun m]
   (select-keys m (filter fun (keys m))))
+
 (def filter-keys (preserve-meta filter-keys))
 
 (defn filter-vals [fun m]
     (into {} (filter (comp fun val) m)))
+
 (def filter-vals (preserve-meta filter-vals))
 
 (defn frame-hash->bufferedImage
@@ -140,6 +142,10 @@
 
 (defn- makePanel [image] (proxy [Panel] [] (paint [g]  (.drawImage g image 0 0 nil))))
 
+(defn select-row [x window]
+  (filter-keys (comp (partial = x) first) window))
+
+
 
 (defmethod display 
   BufferedImage  [image]