comparison org/test-creature.org @ 98:5b23961433e3

going to create bitmaps for touch sensing
author Robert McIntyre <rlm@mit.edu>
date Wed, 11 Jan 2012 21:30:26 -0700
parents 2ff8c7c4e64d
children b7a3ba5e879b
comparison
equal deleted inserted replaced
97:2ff8c7c4e64d 98:5b23961433e3
248 (float 1)))] 248 (float 1)))]
249 249
250 (.addControl geom physics-control))) 250 (.addControl geom physics-control)))
251 (filter #(isa? (class %) Geometry ) 251 (filter #(isa? (class %) Geometry )
252 (node-seq pieces)))) 252 (node-seq pieces))))
253
254 (dorun 253 (dorun
255 (map 254 (map
256 (fn [joint] 255 (fn [joint]
257 (let [[obj-a obj-b] 256 (let [[obj-a obj-b]
258 (joint-targets pieces joint)] 257 (joint-targets pieces joint)]