           [:edit-text {:text "192.168.0.2" :id ::address}]]
          [:linear-layout {}
           [:text-view {:text "port"}]
-          [:edit-text {:text "1235" :id ::port}]]
+          [:edit-text {:text "5000" :id ::port}]]
          [:linear-layout {}
           [:text-view {:text "interval(ms)"}]
-          [:edit-text {:text "200" :id ::interval}]]
+          [:edit-text {:text "80" :id ::interval}]]
          [:button {:id "button"
                    :text "ready?" :on-click (fn [_] (toggle-state (*a)))}]]))))
 
 
 (comment
-  (def GRT-RECEIVE-PORT 5000)
-  (def GRT-RECEIVE-PORT 1235)
+  (def GRT-RECEIVE-PORT 5000)  
   (def client (osc-client "192.168.0.2" GRT-RECEIVE-PORT))
   
 

(defn start-send [address port interval]
  (for [stack [acc-stack rotate-stack]]
    (send stack (fn [_] [])))
  (reset! client (osc-client address port))
  (reset! listeners (create-listeners interval @sensorManager))
  (prn "start"))

(defn stop-send []

            (if (empty? xs) vals
                (map #(/ (+ %1 %2) 2.0) vals xs)))]
    (send-off stack mean)))
(defn send-every [id interval host port]
  (letfn [(task []            
            (let [client (osc-client host port)] (apply osc-send client (str "/" id) (concat [(now)] @acc-stack @rotate-stack)))
            ;; (apply osc-send client (str "/" id) (concat [(now)] [-0.74782043082746, 5.3259560276466, 8.299258563232] [0.21574099701674, -0.18960481184636, -0.74130249528735] ))
            ;; (apply osc-send client (str "/" id) [(now) -0.74782043082746, 5.3259560276466, 8.299258563232 0.21574099701674, -0.18960481184636, -0.74130249528735])
            ;; (let [client (osc-client host port)] (osc-send client (str "/" id) (now) -0.74782043082746, 5.3259560276466, 8.299258563232 0.21574099701674, -0.18960481184636, -0.74130249528735))
            (for [stack [acc-stack rotate-stack]] (send stack (fn [_] [])))
            )]    
    (every interval task my-pool)))

(defn push-vector [stack vals]
  (let [push (fn [xs xss]
