1.1 --- a/org/integration.org	Fri Feb 03 05:52:18 2012 -0700
     1.2 +++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.3 @@ -1,80 +0,0 @@
     1.4 -
     1.5 -
     1.6 -* TODO goals for today
     1.7 - - [X] create falling cube in blender
     1.8 - - [ ] record falling cube animation in blender
     1.9 - - [ ] import falling cube in jMonkeyEngine
    1.10 - - [ ] record jmonkeyEngine cube animation
    1.11 -
    1.12 -
    1.13 -#+name: integration
    1.14 -#+begin_src clojure
    1.15 -(ns cortex.integration
    1.16 -  "Enable loading creatures with senses from blender."
    1.17 -  {:author "Robert McIntyre"})
    1.18 -
    1.19 -;; TODO remove this!
    1.20 -(require 'cortex.import)
    1.21 -(cortex.import/mega-import-jme3)
    1.22 -(use '(cortex world util))
    1.23 -
    1.24 -(rlm.rlm-commands/help)
    1.25 -
    1.26 -
    1.27 -
    1.28 -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    1.29 -
    1.30 -;; this could be a good way to give objects special properties like
    1.31 -;; being eyes and the like
    1.32 -(defn load-blender-model
    1.33 -  "Load a .blend file using an asset folder relative path."
    1.34 -  [^String model]
    1.35 -  (.loadModel
    1.36 -   (doto (asset-manager)
    1.37 -     (.registerLoader BlenderModelLoader (into-array String ["blend"])))
    1.38 -   model))
    1.39 -
    1.40 -(defn scene []
    1.41 -  (load-blender-model "Models/property/test.blend"))
    1.42 -
    1.43 -(defn test-GET! []
    1.44 -  (.getUserData 
    1.45 -   (.getChild
    1.46 -    (scene) 0)
    1.47 -    "properties"))
    1.48 -
    1.49 -(defn make-eye []
    1.50 -  (println "hi"))
    1.51 -
    1.52 -(defn test-eval-prop []
    1.53 -  (eval (read-string (.findValue (test-GET!) "form"))))
    1.54 -
    1.55 -;; the properties are saved along with the blender file.
    1.56 -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    1.57 -
    1.58 -
    1.59 -
    1.60 -;; Sensors are thunk-functions that return sensory data.
    1.61 -;; Effectors take data and cause changes in the results of the sensor
    1.62 -;; functions. 
    1.63 -
    1.64 -(defrecord Creature [sensors effectors])
    1.65 -
    1.66 -
    1.67 -
    1.68 -
    1.69 -
    1.70 -
    1.71 -
    1.72 -
    1.73 -
    1.74 -#+end_src
    1.75 -
    1.76 -
    1.77 -
    1.78 -#+begin_src clojure :tangle ../src/cortex/integration.clj
    1.79 -<<integration>>
    1.80 -#+end_src
    1.81 -
    1.82 -
    1.83 -