Mercurial > cortex

comparison org/integration.org @ 388:4c37d39a3cf6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
removed dependency on swank, which had silently bit rotted. Restored functionality of mege-import-jme3.
author Robert McIntyre <rlm@mit.edu>
date Thu, 06 Jun 2013 10:09:37 -0400
parents 2c7fbcbd5ebb
children ee977613c244
comparison
equal deleted inserted replaced
387:13059eb62899 388:4c37d39a3cf6
46 (def output-base (File. "/home/r/proj/cortex/render/hand")) 46 (def output-base (File. "/home/r/proj/cortex/render/hand"))
47 #+end_src 47 #+end_src
48 48
49 For this demonstration I have to manually drive the muscles of the 49 For this demonstration I have to manually drive the muscles of the
50 hand. I do this by creating a little mini-language to describe 50 hand. I do this by creating a little mini-language to describe
51
52 simulated muscle contraction. 51 simulated muscle contraction.
52
53 #+name: integration-2 53 #+name: integration-2
54 #+begin_src clojure 54 #+begin_src clojure
55 (defn motor-control-program 55 (defn motor-control-program
56 "Create a function which will execute the motor script" 56 "Create a function which will execute the motor script"
57 [muscle-positions 57 [muscle-positions
222 (controlRender [_ _])))) 222 (controlRender [_ _]))))
223 (add-element world brick)))))) 223 (add-element world brick))))))
224 224
225 (import com.aurellem.capture.Capture) 225 (import com.aurellem.capture.Capture)
226 226
227 (defn test-everything! 227 (defn test-integration
228 ([] (test-everything! false)) 228 ([] (test-integration false))
229 ([record?] 229 ([record?]
230 (let [me (sphere 0.5 :color ColorRGBA/Blue :physical? false) 230 (let [me (sphere 0.5 :color ColorRGBA/Blue :physical? false)
231 231
232 base (File. "/home/r/proj/cortex/render/hand") 232 base (File. "/home/r/proj/cortex/render/hand")
233 233