Mercurial > cortex

comparison org/body.org @ 44:f3e33fd5f97d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
working through blender tutorial
author Robert McIntyre <rlm@mit.edu>
date Tue, 08 Nov 2011 01:38:22 -0700
parents 50c92af2018e
children f080f1e49fba
comparison
equal deleted inserted replaced
43:117eb477d0a7 44:f3e33fd5f97d
3 #+email: rlm@mit.edu 3 #+email: rlm@mit.edu
4 #+description: Simulating a body (movement, touch, propioception) in jMonkeyEngine3. 4 #+description: Simulating a body (movement, touch, propioception) in jMonkeyEngine3.
5 #+SETUPFILE: ../../aurellem/org/setup.org 5 #+SETUPFILE: ../../aurellem/org/setup.org
6 #+INCLUDE: ../../aurellem/org/level-0.org 6 #+INCLUDE: ../../aurellem/org/level-0.org
7 7
8
9
10
11 * Body ! 8 * Body !
12 9
13 #+srcname: body-main 10 #+srcname: body-main
14 #+begin_src clojure 11 #+begin_src clojure
15 (ns body.body) 12 (ns cortex.body
16 (use 'cortex.world) 13 (use (cortex world util import)))
17 (use 'cortex.import) 14
18 (use 'clojure.contrib.def) 15 (use 'clojure.contrib.def)
19 (cortex.import/mega-import-jme3) 16 (cortex.import/mega-import-jme3)
20 (rlm.rlm-commands/help) 17 (rlm.rlm-commands/help)
21 18
19 ;;(.loadModel
20 ;; (doto (asset-manager)
21 ;; (.registerLoader BlenderModelLoader (into-array String ["blend"])))
22 ;; "Models/person/person.blend")
23
24 (defn view-model [^String model]
25 (view
26 (.loadModel
27 (doto (asset-manager)
28 (.registerLoader BlenderModelLoader (into-array String ["blend"])))
29 model)))
22 30
23 31
24 #+end_src 32 #+end_src
25 33
26 34
29 37
30 38
31 39
32 40
33 * COMMENT generate Source. 41 * COMMENT generate Source.
34 #+begin_src clojure :tangle ../src/body/body.clj 42 #+begin_src clojure :tangle ../src/cortex/body.clj
35 <<body-main>> 43 <<body-main>>
36 #+end_src 44 #+end_src
37 45