     (.add manager (js/Hammer.Pan.))
     (-> manager (.add (js/Hammer.Swipe.))
         (.recognizeWith (.get manager "pan")))
+    (-> manager (.add (js/Hammer.Pinch.))
+        (.recognizeWith (.get manager "pan")))
     manager))
 
 (defn gesture-observable [manager svg gesture]

                                    (swap-state! current-state assoc :nodes nodes)))
    (move-camera-on-arrow-keys! current-state)
    (move-camera-on-pan! gesture-manager current-state)
    (move-camera-on-swipe! gesture-manager current-state)))

(def world-height 800)
(def update-interval-ms 15)
(def swipe-damping-factor 1)
(def min-slide-speed-sq 16)

;; SVG setup

