                 (move-camera-on-arrow-keys! current-state)
                 (move-camera-on-pan! gesture-manager current-state)
                 (move-camera-on-swipe! gesture-manager current-state)
-                (zoom-out-on-pinch! gesture-manager current-state)))
+                (zoom-out-on-pinch! gesture-manager current-state)
+                (zoom-in-out-on-interval! current-state)))
+
+

   :view-size (math-vec width height)
   :camera-pos (math-vec 0 0)
   :nodes []
   :edges []})

(defn swap-state! [current-state f & args]
  (apply swap! current-state f args)


(defn move-camera! [current-state d]
  (update-state! current-state :camera-pos add-vec d))

(defn set-projection! [current-state projection]
  (swap! current-state assoc :projection projection)
  (sync-graph! @current-state :animate true))

;; Layout

