            :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

(defn all-range-action [{:keys [x y]}]
  (when (and x y)
    (let [f (rate->byte (- y))
          b (rate->byte  y)
          l (rate->byte (- x))
          r (rate->byte  x)
          lf (max 0 (- f l))
          rf (max 0 (- f r))
          lb (max 0 (- b l))

      [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)
