Mercurial > cortex

comparison org/self_organizing_touch.clj @ 569:1943a5313f40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix minor problem.
author Robert McIntyre <rlm@mit.edu>
date Mon, 16 Jun 2014 11:26:41 -0400
parents 0b891e0dd809
children
comparison
equal deleted inserted replaced
568:807fb1046a98 569:1943a5313f40
140 ;; remove redundant/subset regions 140 ;; remove redundant/subset regions
141 (map set) 141 (map set)
142 remove-similar))) 142 remove-similar)))
143 143
144 144
145 (def all-touch-coordinates 145 ;; (def all-touch-coordinates
146 (concat 146 ;; (concat
147 (rect-region [0 15] [7 22]) 147 ;; (rect-region [0 15] [7 22])
148 (rect-region [8 0] [14 29]) 148 ;; (rect-region [8 0] [14 29])
149 (rect-region [15 15] [22 22]))) 149 ;; (rect-region [15 15] [22 22])))
150 150
151 (defn view-touch-region [coords] 151 (defn view-touch-region [coords]
152 (let [touched-region 152 (let [touched-region
153 (reduce 153 (reduce
154 (fn [m k] 154 (fn [m k]