Mercurial > cortex

comparison org/test-creature.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 2902aca33c6e
comparison
equal deleted inserted replaced
188:22548d48cc85 189:facc2ef3fe5c
130 (box 1 0.01 0.01 :physical? false :color ColorRGBA/Red) 130 (box 1 0.01 0.01 :physical? false :color ColorRGBA/Red)
131 y-axis 131 y-axis
132 (box 0.01 1 0.01 :physical? false :color ColorRGBA/Green) 132 (box 0.01 1 0.01 :physical? false :color ColorRGBA/Green)
133 z-axis 133 z-axis
134 (box 0.01 0.01 1 :physical? false :color ColorRGBA/Blue) 134 (box 0.01 0.01 1 :physical? false :color ColorRGBA/Blue)
135 creature (doto 135
136 (load-blender-model thing) 136 creature (doto (load-blender-model thing) (body!))
137 (body!)) 137
138 touch (touch! creature) 138 touch (touch! creature)
139 touch-display (view-touch) 139 touch-display (view-touch)
140
140 vision (vision! creature) 141 vision (vision! creature)
141 vision-display (view-vision) 142 vision-display (view-vision)
143
144 hearing (hearing! creature)
145 hearing-display (view-hearing)
146
147 prop (proprioception! creature)
148 prop-debug (proprioception-debug-window)
149
150 muscle-fns (movement! creature)
151
152
142 me (sphere 0.5 :color ColorRGBA/Blue :physical? false) 153 me (sphere 0.5 :color ColorRGBA/Blue :physical? false)
143 hearing-senses (hearing! creature)
144 hearing-windows (map (fn [_] (debug-hearing-window 50))
145 hearing-senses)
146 bell (AudioNode. (asset-manager) 154 bell (AudioNode. (asset-manager)
147 "Sounds/pure.wav" false) 155 "Sounds/pure.wav" false)
148 prop (proprioception! creature) 156
149 prop-debug (proprioception-debug-window)
150
151 muscle-fns (movement! creature)
152 ;; dream
153 fix-display (runonce 157 fix-display (runonce
154 (fn [world] (add-camera! world (.getCamera world) no-op))) 158 (fn [world] (add-camera! world (.getCamera world) no-op)))
155 ] 159 ]
156 160
157 161
209 (prop-debug (prop)) 213 (prop-debug (prop))
210 214
211 (touch-display (map #(% (.getRootNode world)) touch)) 215 (touch-display (map #(% (.getRootNode world)) touch))
212 216
213 (vision-display (map #(% world) vision)) 217 (vision-display (map #(% world) vision))
214 218
215 (dorun 219 (hearing-display (map #(% world) hearing))
216 (map #(%1 (%2 world)) hearing-windows hearing-senses))
217
218 220
219 ;;(println-repl (vision-data)) 221 ;;(println-repl (vision-data))
220 (.setLocalTranslation me (.getLocation (.getCamera world))) 222 (.setLocalTranslation me (.getLocation (.getCamera world)))
221 (fix-display world) 223 (fix-display world)
222 224