 
 (def swipe-damping-factor 1)
 (def min-slide-speed-sq 16)
+
+; A factor of 1 is an ellipse fitting the bounds of the window. Higher factors
+; expand the visualization linearly.
+(def displacement-factor 1)
 
 (def max-radius 32)
 (def min-radius 2)

        .enter
        (.append "circle")
        (.attr "class" "node")
        (.attr "cx" (comp view-x))
        (.attr "cy" (comp 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] (> (vec-length-sq v) min-slide-speed-sq))
              dampen
              identity
              (constantly update-interval-ms))))))))
