Mercurial > cortex

comparison org/touch.org @ 189:facc2ef3fe5c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added hearing debug view.
author Robert McIntyre <rlm@mit.edu>
date Sat, 04 Feb 2012 10:13:15 -0700
parents 22548d48cc85
children e5db1d2ff9a8
comparison
equal deleted inserted replaced
188:22548d48cc85 189:facc2ef3fe5c
299 (map touch-fn 299 (map touch-fn
300 (filter #(isa? (class %) Geometry) 300 (filter #(isa? (class %) Geometry)
301 (node-seq creature))))) 301 (node-seq creature)))))
302 302
303 (defn view-touch 303 (defn view-touch
304 "Creates a function which accepts touch sensor-data and displays it 304 "Creates a function which accepts a list of touch sensor-data and
305 to the screen." 305 displays each element to the screen."
306 [] 306 []
307 (view-sense 307 (view-sense
308 (fn 308 (fn
309 [[coords sensor-data]] 309 [[coords sensor-data]]
310 (let [image (points->image coords)] 310 (let [image (points->image coords)]