comparison org/test-creature.org @ 167:9e6a30b8c99a

renamed some functions in eyes.org
author Robert McIntyre <rlm@mit.edu>
date Sat, 04 Feb 2012 04:07:25 -0700
parents c33a8e5fe7bc
children 94b79c191fc7
comparison
equal deleted inserted replaced
166:e4c2cc79a171 167:9e6a30b8c99a
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
240 (add-eye world (.getCamera world) no-op) 240 (add-eye! world (.getCamera world) no-op)
241 ;;(set-gravity world (Vector3f. 0 0 0)) 241 ;;(set-gravity world (Vector3f. 0 0 0))
242 ;;(com.aurellem.capture.Capture/captureVideo 242 ;;(com.aurellem.capture.Capture/captureVideo
243 ;; world (file-str "/home/r/proj/ai-videos/hand")) 243 ;; world (file-str "/home/r/proj/ai-videos/hand"))
244 ;;(.setTimer world (RatchetTimer. 60)) 244 ;;(.setTimer world (RatchetTimer. 60))
245 (speed-up world) 245 (speed-up world)
306 (.lookAt Vector3f/ZERO 306 (.lookAt Vector3f/ZERO
307 Vector3f/UNIT_X))] 307 Vector3f/UNIT_X))]
308 (bind-sense rock cam) 308 (bind-sense rock cam)
309 309
310 (.setTimer world (RatchetTimer. 60)) 310 (.setTimer world (RatchetTimer. 60))
311 (add-eye world cam (comp (view-image) BufferedImage!)) 311 (add-eye! world cam (comp (view-image) BufferedImage!))
312 (add-eye world (.getCamera world) no-op)) 312 (add-eye! world (.getCamera world) no-op))
313 ) 313 )
314 (fn [_ _] (println-repl rot))))) 314 (fn [_ _] (println-repl rot)))))
315 315
316 316
317 317