            :on-layout #(update-view-x-y)
            :on-start-should-set-responder (fn [] true)
            :on-move-should-set-responder (fn [] true)
-           :on-responder-grant #(action-after-calc %)
-           :on-responder-move #(action-after-calc %)
+           :on-responder-grant #(action %)
+           :on-responder-move #(action %)
            :on-responder-release #(on-release)}]])
 
       :component-did-mount

        update-view-x-y #(.measure @joystick-ref (fn [fx fy w h px py]
                                                   (reset! view-x px)
                                                   (reset! view-y py)))
        action-after-calc (fn [evt]
                            (-> (calc-rate-x-y (.-pageX (.-nativeEvent evt))
                                               (.-pageY (.-nativeEvent evt))
                                               @view-x @view-y view-w view-h)
                                (on-move)))]
    (r/create-class
     {:reagent-render
      (fn []

      [control-button "back"          {:lb 255 :rb 255}]
      [control-button "back right"    {:lb 255}]]]))

(defn rate-x-y [p-x p-y view-x view-y view-w view-h]
  (let [harf-w (/ view-w 2)
        harf-h (/ view-h 2)
        rate-x (/ (- p-x view-x harf-w) harf-w)
