1.1 Binary file assets/Models/creature1/try-again.blend has changed

     2.1 --- a/org/test-creature.org	Thu Feb 02 02:03:19 2012 -0700
     2.2 +++ b/org/test-creature.org	Thu Feb 02 02:30:22 2012 -0700
     2.3 @@ -1156,66 +1156,75 @@
     2.4          ;; dream
     2.5  
     2.6          ]
     2.7 -  (world
     2.8 -   (nodify [creature
     2.9 -            (box 10 2 10 :position (Vector3f. 0 -9 0)
    2.10 -                 :color ColorRGBA/Gray :mass 0)
    2.11 -            x-axis y-axis z-axis
    2.12 -            me
    2.13 -            ])
    2.14 -   (merge standard-debug-controls
    2.15 -          {"key-return"
    2.16 -           (fn [_ value]
    2.17 -             (if value
    2.18 -               (do
    2.19 -                 (println-repl "play-sound")
    2.20 -                 (.play bell))))})
    2.21 -   (fn [world]
    2.22 -     (light-up-everything world)
    2.23 -     (enable-debug world)
    2.24 -     (dorun (map #(% world) init-vision-fns))
    2.25 -     (dorun (map #(% world) init-hearing-fns))
    2.26 -     
    2.27 -     (add-eye world
    2.28 -              (attach-eye creature (test-eye))
    2.29 -              (comp (view-image) BufferedImage!))
    2.30 -     
    2.31 -     (add-eye world (.getCamera world) no-op)
    2.32 -     ;;(set-gravity world (Vector3f. 0 0 0))
    2.33 -     ;;(com.aurellem.capture.Capture/captureVideo
    2.34 -     ;; world (file-str "/home/r/proj/ai-videos/hand"))
    2.35 -     ;;(.setTimer world (RatchetTimer. 60))
    2.36 -     (speed-up world)
    2.37 -     ;;(set-gravity world (Vector3f. 0 0 0))
    2.38 -     )
    2.39 -   (fn [world tpf]
    2.40 -     ;;(dorun 
    2.41 -     ;; (map #(%1 %2) touch-nerves (repeat (.getRootNode world))))
    2.42 -     
    2.43 -     (prop-debug (prop))
    2.44 -     
    2.45 -     (dorun
    2.46 -      (map #(%1 (%2 (.getRootNode world)))
    2.47 -           touch-debug-windows touch-nerves))
    2.48 -     
    2.49 -     (dorun
    2.50 -      (map #(%1 (%2))
    2.51 -           vision-debug vision-data))
    2.52 -     (dorun
    2.53 -      (map #(%1 (%2)) hearing-windows hearing-senses))
    2.54 -     
    2.55 -     
    2.56 -     ;;(println-repl (vision-data))
    2.57 -     (.setLocalTranslation me (.getLocation (.getCamera world)))
    2.58 -     
    2.59 -
    2.60 -     )
    2.61 +    
    2.62 +    
    2.63 +    (apply
    2.64 +     world
    2.65 +     (with-movement
    2.66 +       (.getChild creature "worm-21")
    2.67 +       ["key-r" "key-t"
    2.68 +        "key-f" "key-g"
    2.69 +        "key-v" "key-b"]
    2.70 +       [10 10 10 10 1 1]
    2.71 +       [(nodify [creature
    2.72 +                 (box 10 2 10 :position (Vector3f. 0 -9 0)
    2.73 +                      :color ColorRGBA/Gray :mass 0)
    2.74 +                 x-axis y-axis z-axis
    2.75 +                 me
    2.76 +                 ])
    2.77 +        (merge standard-debug-controls
    2.78 +               {"key-return"
    2.79 +                (fn [_ value]
    2.80 +                  (if value
    2.81 +                    (do
    2.82 +                      (println-repl "play-sound")
    2.83 +                      (.play bell))))})
    2.84 +        (fn [world]
    2.85 +          (light-up-everything world)
    2.86 +          (enable-debug world)
    2.87 +          (dorun (map #(% world) init-vision-fns))
    2.88 +          (dorun (map #(% world) init-hearing-fns))
    2.89 +          
    2.90 +          (add-eye world
    2.91 +                   (attach-eye creature (test-eye))
    2.92 +                   (comp (view-image) BufferedImage!))
    2.93 +          
    2.94 +          (add-eye world (.getCamera world) no-op)
    2.95 +          (set-gravity world (Vector3f. 0 0 0))
    2.96 +          ;;(com.aurellem.capture.Capture/captureVideo
    2.97 +          ;; world (file-str "/home/r/proj/ai-videos/hand"))
    2.98 +          ;;(.setTimer world (RatchetTimer. 60))
    2.99 +          (speed-up world)
   2.100 +          ;;(set-gravity world (Vector3f. 0 0 0))
   2.101 +          )
   2.102 +        (fn [world tpf]
   2.103 +          ;;(dorun 
   2.104 +          ;; (map #(%1 %2) touch-nerves (repeat (.getRootNode world))))
   2.105 +          
   2.106 +          (prop-debug (prop))
   2.107 +          
   2.108 +          (dorun
   2.109 +           (map #(%1 (%2 (.getRootNode world)))
   2.110 +                touch-debug-windows touch-nerves))
   2.111 +          
   2.112 +          (dorun
   2.113 +           (map #(%1 (%2))
   2.114 +                vision-debug vision-data))
   2.115 +          (dorun
   2.116 +           (map #(%1 (%2)) hearing-windows hearing-senses))
   2.117 +          
   2.118 +          
   2.119 +          ;;(println-repl (vision-data))
   2.120 +          (.setLocalTranslation me (.getLocation (.getCamera world)))
   2.121 +          
   2.122 +          
   2.123 +          )]
   2.124     ;;(let [timer (atom 0)]
   2.125     ;;  (fn [_ _]
   2.126     ;;    (swap! timer inc)
   2.127     ;;    (if (= (rem @timer 60) 0)
   2.128     ;;      (println-repl (float (/ @timer 60))))))
   2.129 -   )))
   2.130 +   ))))
   2.131  
   2.132  
   2.133