         .enter
         (.append "circle")
         (.attr "class" "node")
-        (.attr "cx" (comp view-x))
-        (.attr "cy" (comp view-y))
+        (.attr "cx" view-x)
+        (.attr "cy" view-y)
         (.attr "r" _view-radius))))
 
 ;; State management

            (.generateWithRelativeTime rx-observable
              (math-vec (* update-interval-ms (or vx 0))
                        (* update-interval-ms (or vy 0)))
              (fn [v] (> (dist-sq v) min-slide-speed-sq))
              dampen
              identity
              (constantly update-interval-ms))))))))

        (.map (constantly :scroll-end)))))

(defn dampen [v]
  (let [length (vec-length v)]
    (vec-with-length v (- length swipe-damping-factor))))

(defn swipe-displacements-observable [manager svg]
