 
 
 (sphero-action)
+(do-action?)
 (stop!)
 
 (change-sphero-beat-mod 4)


; start a server and create a client to talk with it
(def server (osc-server PORT))
(def beat-num (atom 0))




                                     (swap! beat-num inc)
                                     (sphero-action)
                                     (println " hi MMSG: " msg)))

(defn update-incoming-data [key val]
  (swap! incoming-data assoc key val))

(osc-handle server "/beat" (fn [msg]
                             (update-incoming-data (:path msg) (first (:args msg)))
                             (println " hi MMSG: " msg)
                             (println "In beat" (pr-str @incoming-data))
                             (println (get @incoming-data "/beat"))
                             (sphero-action)))

(osc-handle server "/amp" (fn [msg]
                             (update-incoming-data (:path msg) (first (:args msg)))
                             (println "In amp " (pr-str @incoming-data))
                             (println (get @incoming-data "/amp"))))
