Mercurial > cortex

comparison org/test-creature.org @ 164:c33a8e5fe7bc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
removed hearing-init-fns requirement, changed names
author Robert McIntyre <rlm@mit.edu>
date Sat, 04 Feb 2012 03:29:59 -0700
parents 985c73659923
children 9e6a30b8c99a
comparison
equal deleted inserted replaced
163:985c73659923 164:c33a8e5fe7bc
182 touch-nerves (touch creature) 182 touch-nerves (touch creature)
183 touch-debug-windows (map (fn [_] (debug-touch-window)) touch-nerves) 183 touch-debug-windows (map (fn [_] (debug-touch-window)) touch-nerves)
184 [init-vision-fns vision-data] (vision creature) 184 [init-vision-fns vision-data] (vision creature)
185 vision-debug (map (fn [_] (debug-vision-window)) vision-data) 185 vision-debug (map (fn [_] (debug-vision-window)) vision-data)
186 me (sphere 0.5 :color ColorRGBA/Blue :physical? false) 186 me (sphere 0.5 :color ColorRGBA/Blue :physical? false)
187 [init-hearing-fns hearing-senses] (hearing! creature) 187 hearing-senses (hearing! creature)
188 hearing-windows (map (fn [_] (debug-hearing-window 50)) 188 hearing-windows (map (fn [_] (debug-hearing-window 50))
189 hearing-senses) 189 hearing-senses)
190 bell (AudioNode. (asset-manager) 190 bell (AudioNode. (asset-manager)
191 "Sounds/pure.wav" false) 191 "Sounds/pure.wav" false)
192 prop (proprioception creature) 192 prop (proprioception creature)
229 }) 229 })
230 (fn [world] 230 (fn [world]
231 (light-up-everything world) 231 (light-up-everything world)
232 (enable-debug world) 232 (enable-debug world)
233 (dorun (map #(% world) init-vision-fns)) 233 (dorun (map #(% world) init-vision-fns))
234 (dorun (map #(% world) init-hearing-fns)) 234 ;;(dorun (map #(% world) init-hearing-fns))
235 235
236 (add-eye world 236 (add-eye world
237 (attach-eye creature (test-eye)) 237 (attach-eye creature (test-eye))
238 (comp (view-image) BufferedImage!)) 238 (comp (view-image) BufferedImage!))
239 239
257 257
258 (dorun 258 (dorun
259 (map #(%1 (%2)) 259 (map #(%1 (%2))
260 vision-debug vision-data)) 260 vision-debug vision-data))
261 (dorun 261 (dorun
262 (map #(%1 (%2)) hearing-windows hearing-senses)) 262 (map #(%1 (%2 world)) hearing-windows hearing-senses))
263 263
264 264
265 ;;(println-repl (vision-data)) 265 ;;(println-repl (vision-data))
266 (.setLocalTranslation me (.getLocation (.getCamera world))) 266 (.setLocalTranslation me (.getLocation (.getCamera world)))
267 267