# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1328173399 25200
# Node ID ccd057319c2aa47d551f8f135dbed63937e557c4
# Parent  22e193b5c60f17f3861d40790b541cbe907d5cf0
improved proprioception test

diff -r 22e193b5c60f -r ccd057319c2a org/body.org
--- a/org/body.org	Thu Feb 02 01:35:21 2012 -0700
+++ b/org/body.org	Thu Feb 02 02:03:19 2012 -0700
@@ -404,7 +404,7 @@
    and counterclockwise, and only affect roll."
   []
   (let [hand    (box 1 0.2 0.2 :position (Vector3f. 0 2 0)
-                     :mass 1 :color ColorRGBA/Green :name "hand")
+                     :mass 0 :color ColorRGBA/Green :name "hand")
         finger (box 1 0.2 0.2 :position (Vector3f. 2.4 2 0)
                     :mass 1 :color ColorRGBA/Red :name "finger")
         joint-node (box 0.1 0.05 0.05 :color ColorRGBA/Yellow
@@ -435,6 +435,21 @@
                 (fn [_ _] (.setEnabled hand-control false))
                 "key-i"
                 (fn [world _] (set-gravity world (Vector3f. 0 0 0)))
+                "key-period"
+                (fn [world _]
+                  (.setEnabled finger-control false)
+                  (.setEnabled hand-control false)
+                  (.rotate creature (doto (Quaternion.)
+                                      (.fromAngleAxis
+                                       (float (/ Math/PI 15))
+                                       (Vector3f. 0 0 -1))))
+                                              
+                  (.setEnabled finger-control true)
+                  (.setEnabled hand-control true)
+                  (set-gravity world (Vector3f. 0 0 0))
+                  )
+                
+                  
                 }
                )