Mercurial > cortex

comparison org/integration.org @ 294:76a5edd6507d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
adjusted thumb a bit.
author Robert McIntyre <rlm@mit.edu>
date Thu, 16 Feb 2012 07:43:13 -0700
parents decdbb24ef7c
children 67a4e92d4628
comparison
equal deleted inserted replaced
293:577ce4d250b9 294:76a5edd6507d
40 "Sounds/pure.wav" false) 40 "Sounds/pure.wav" false)
41 creature (doto (load-blender-model hand) 41 creature (doto (load-blender-model hand)
42 (body!)) 42 (body!))
43 43
44 ;;;;;;;;;;;; Sensors/Effectors ;;;;;;;;;;;;;;;;;;;;;;;;;;;; 44 ;;;;;;;;;;;; Sensors/Effectors ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
45 touch (touch! creature) 45 ;;touch (touch! creature)
46 touch-display (view-touch) 46 ;;touch-display (view-touch)
47 47
48 vision (vision! creature) 48 ;;vision (vision! creature)
49 vision-display (view-vision) 49 ;;vision-display (view-vision)
50 50
51 hearing (hearing! creature) 51 ;;hearing (hearing! creature)
52 hearing-display (view-hearing) 52 ;;hearing-display (view-hearing)
53 53
54 prop (proprioception! creature) 54 prop (proprioception! creature)
55 prop-display (view-proprioception) 55 prop-display (view-proprioception)
56 56
57 muscle-exertion (atom 0) 57 muscle-exertion (atom 0)
87 (.getChild 87 (.getChild
88 (.getChild creature "eyes") "eye")) 88 (.getChild creature "eyes") "eye"))
89 (comp (view-image) BufferedImage!)) 89 (comp (view-image) BufferedImage!))
90 (speed-up world)) 90 (speed-up world))
91 (fn [world tpf] 91 (fn [world tpf]
92 (prop-display (prop)) 92 ;;(prop-display (prop))
93 (touch-display (map #(% (.getRootNode world)) touch)) 93 ;;(touch-display (map #(% (.getRootNode world)) touch))
94 (vision-display (map #(% world) vision)) 94 ;;(vision-display (map #(% world) vision))
95 (hearing-display (map #(% world) hearing)) 95 ;;(hearing-display (map #(% world) hearing))
96 (muscle-display (map #(% @muscle-exertion) muscles)) 96 (muscle-display (map #(% @muscle-exertion) muscles))
97 (.setLocalTranslation me (.getLocation (.getCamera world))) 97 (.setLocalTranslation me (.getLocation (.getCamera world)))
98 (fix-display world)))))) 98 (fix-display world))))))
99 #+end_src 99 #+end_src
100 100