rlm@0: #+title: The BODY!!!
rlm@0: #+author: Robert McIntyre
rlm@0: #+email: rlm@mit.edu
rlm@4: #+description: Simulating a body (movement, touch, propioception) in jMonkeyEngine3.
rlm@4: #+SETUPFILE: ../../aurellem/org/setup.org
rlm@4: #+INCLUDE: ../../aurellem/org/level-0.org
rlm@4: 
rlm@45: * Body  
rlm@0: 
rlm@0: #+srcname: body-main
rlm@0: #+begin_src clojure 
rlm@44: (ns cortex.body
rlm@44:   (use (cortex world util import)))
rlm@44: 
rlm@0: (use 'clojure.contrib.def)
rlm@0: (cortex.import/mega-import-jme3)
rlm@0: (rlm.rlm-commands/help)
rlm@0: 
rlm@44: ;;(.loadModel 
rlm@44: ;; (doto (asset-manager)
rlm@44: ;;   (.registerLoader BlenderModelLoader (into-array String ["blend"])))
rlm@44: ;;   "Models/person/person.blend")
rlm@44: 
rlm@44: (defn view-model [^String model]
rlm@44:   (view 
rlm@44:    (.loadModel 
rlm@44:     (doto (asset-manager)
rlm@44:       (.registerLoader BlenderModelLoader (into-array String ["blend"])))
rlm@44:     model)))
rlm@49: 
rlm@49: (defn load-blender-scene [^String model]
rlm@49:   (.loadModel
rlm@49:    (doto (asset-manager)
rlm@49:      (.registerLoader BlenderLoader (into-array String ["blend"])))
rlm@49:     model))
rlm@49: 
rlm@49: (defn load-blender-model 
rlm@49:   [^String model]
rlm@49:   (.loadModel
rlm@49:    (doto (asset-manager)
rlm@49:      (.registerLoader BlenderModelLoader (into-array String ["blend"])))
rlm@49:    model))
rlm@49: 
rlm@49: 
rlm@49: (defn worm
rlm@49:   []
rlm@49:   (.loadModel (asset-manager) "Models/anim/worm.mesh.xml"))
rlm@49: 
rlm@49: 
rlm@49: (defn worm
rlm@49:   []
rlm@49:   (.loadModel (asset-manager) "Models/Oto/Oto.mesh.xml"))
rlm@49: 
rlm@49: 
rlm@49: 
rlm@49: (defn test-worm-anim []
rlm@49:   
rlm@49:   (let [the-worm (worm)
rlm@49:         anim-control (.getControl (worm) AnimControl)
rlm@49:         channel (doto (.createChannel anim-control)
rlm@49:                   (.addAllBones)
rlm@49:                   (.setLoopMode LoopMode/Loop))
rlm@49: 
rlm@49:         play-anim
rlm@49:         (fn [world pressed]
rlm@49:           (if (not pressed)
rlm@49:             (do 
rlm@49:               (println-repl "space is pressed")
rlm@49:               (.setAnim channel "Walk"))))
rlm@49: 
rlm@49:         ]
rlm@49: 
rlm@49:     (.start 
rlm@49:      (world
rlm@49:       (doto (Node.)
rlm@49:         (.attachChild the-worm))
rlm@49:       {"key-space" play-anim}
rlm@49:       light-up-everything
rlm@49:       no-op
rlm@49:       )
rlm@49:   
rlm@49:      
rlm@49:      )))
rlm@49:     
rlm@49:     
rlm@49: 
rlm@49: 
rlm@49: 
rlm@0: #+end_src
rlm@0: 
rlm@0: 
rlm@0: 
rlm@0: 
rlm@0: 
rlm@0: 
rlm@0: 
rlm@0: 
rlm@0: * COMMENT generate Source.
rlm@44: #+begin_src clojure :tangle ../src/cortex/body.clj
rlm@0: <<body-main>>
rlm@0: #+end_src
rlm@0: