       (-> node-selection (.selectAll ".node-label")
           maybe-transition
           (.attr "opacity" (fn [node]
-                             (project-label-opacity (distances-from-camera (:index node)))))
+                             (project-label-opacity (distance-for-node node))))
           (.text #(:title %))))))
 
 ;; State management


(def update-interval-ms 15)

(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


(def label-y 42)
(def label-y-transform (str "translate(0," label-y ")"))
(def label-visible-threshold 1.5)

(def zoom-out-scale 0.25)

