        (rx/buffer 2 1)
        (rx/map coords-delta)))
 
-;; Materialized views
-
 (defonce mouse-position
   (->> mouse-s
-       (rx/sample 50)
+       (rx/sample 10)
        (rx/to-atom)))
 
 (defonce bounding-rect (atom {}))

;; Interactions
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; (defonce shapes-dragging? (atom false))
;; (defonce selrect-dragging? (atom false))
(defonce interactions-b (rx/bus))

(defn emit-interaction!

       (rx/filter #(= (:id %) (:id @page-l)))
       (rx/map :coords)))

(defn- coords-delta
  [[old new]]
  (let [[oldx oldy] old
