Mercurial > cortex

comparison org/integration.org @ 282:2ad29b68ff22

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
saving before update of blender
author Robert McIntyre <rlm@mit.edu>
date Wed, 15 Feb 2012 14:09:20 -0700
parents 7351c9c0c471
children decdbb24ef7c
comparison
equal deleted inserted replaced
281:7351c9c0c471 282:2ad29b68ff22
36 ([record?] 36 ([record?]
37 (let [me (sphere 0.5 :color ColorRGBA/Blue :physical? false) 37 (let [me (sphere 0.5 :color ColorRGBA/Blue :physical? false)
38 38
39 bell (AudioNode. (asset-manager) 39 bell (AudioNode. (asset-manager)
40 "Sounds/pure.wav" false) 40 "Sounds/pure.wav" false)
41
42
43
44 creature (doto (load-blender-model hand) 41 creature (doto (load-blender-model hand)
45 (body!)) 42 (body!))
46 43
47 ;;;;;;;;;;;; Sensors/Effectors ;;;;;;;;;;;;;;;;;;;;;;;;;;;; 44 ;;;;;;;;;;;; Sensors/Effectors ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
48 touch (touch! creature) 45 touch (touch! creature)
107 (hearing-display (map #(% world) hearing)) 104 (hearing-display (map #(% world) hearing))
108 (muscle-display (map #(% @muscle-exertion) muscles)) 105 (muscle-display (map #(% @muscle-exertion) muscles))
109 (.setLocalTranslation me (.getLocation (.getCamera world))) 106 (.setLocalTranslation me (.getLocation (.getCamera world)))
110 (fix-display world))]))))) 107 (fix-display world))])))))
111 #+end_src 108 #+end_src
109
110 #+results: integration
111 : #'cortex.integration/test-everything!
112 112
113 * COMMENT purgatory 113 * COMMENT purgatory
114 #+begin_src clojure 114 #+begin_src clojure
115 (defn bullet-trans* [] 115 (defn bullet-trans* []
116 (let [obj-a (box 1.5 0.5 0.5 :color ColorRGBA/Red 116 (let [obj-a (box 1.5 0.5 0.5 :color ColorRGBA/Red