 (defn set-volume
   "Set the volume used by the robot"
   [robot vol]
-  (.setVolume (get-proxy robot :tts) (float vol)))+  (.setVolume (get-proxy robot :tts) (float vol)))

                    :battery "com.aldebaran.proxy.ALBatteryProxy"
                    :behaviour-manager "com.aldebaran.proxy.ALBehaviorManagerProxy"
                    :darkness-detection "com.aldebaran.proxy.ALDarknessDetectionProxy"
                    :leds "com.aldebaran.proxy.ALLedsProxy" 
                    :memory "com.aldebaran.proxy.ALMemoryProxy"
                    :motion "com.aldebaran.proxy.ALMotionProxy"
                    :navigation "com.aldebaran.proxy.ALNavigationProxy"

                    :tts "com.aldebaran.proxy.ALTextToSpeechProxy"
                    })

(def joint-names '("HeadYaw", "HeadPitch",
                   "LShoulderPitch", "LShoulderRoll", "LElbowYaw", "LElbowRoll",
                   "LWristYaw", "LHand",
                   "LHipYawPitch", "LHipRoll", "LHipPitch",
                   "LKneePitch", "LAnklePitch", "LAnkleRoll",
                   "RHipYawPitch", "RHipRoll", "RHipPitch",
                   "RKneePitch",  "RAnklePitch", "RAnkleRoll",
                   "RShoulderPitch", "RShoulderRoll", "RElbowYaw", "RElbowRoll",
                   "RWristYaw", "RHand"))

(def postures {:crouch "Crouch"
