                            (reify controllers/IOverlay
                              (captured-controls [this] #{15})
                              (captured-notes [this] #{9 1})
-                             (adjust-interface [this _]
-                               (bpm-adjusting-interface controller)
+                             (adjust-interface [this snapshot]
+                               (bpm-adjusting-interface controller snapshot)
                                true)
                              (handle-control-change [this message]
                                (adjust-bpm-from-encoder controller message))

  "Figure out how many pixels wide some text will be in a given font."
  [graphics font text]
  (let [context (.getFontRenderContext graphics)]
    (.getWidth (.getStringBounds text context))))

(defn draw-bottom-button-label
  "Draw a label for a button below the graphical display."

        marker 0
        leader (take (int (/ scaled 2)) (repeat 0))]
    (take width (concat leader [marker] (repeat 0)))))

(defn draw-gauge
  "Draw a graphical gauge with an indicator that fills an arc under a
  variable value. The default range is from zero to a hundred, and the
  default color for both the track and active area is dim white."
  [controller index encoder-count value & {:keys [lowest highest track-color active-color]
                                           :or {lowest 0 highest 100
                                                track-color dim-white-color active-color track-color}}]
  (let [graphics (create-graphics controller)
        range (- highest lowest)
        fraction (/ (- value lowest)  range)
        x-center (+ (* index button-cell-width) (* encoder-count 0.5 button-cell-width))
        arc (java.awt.geom.Arc2D$Double. (- x-center 25.0) 50.0 50.0 50.0 240.0 -300.0 java.awt.geom.Arc2D/OPEN)]
    (set-graphics-color graphics track-color)
    (.draw graphics arc)
    (.setStroke graphics (java.awt.BasicStroke. 5.0 java.awt.BasicStroke/CAP_ROUND java.awt.BasicStroke/JOIN_ROUND))
    (set-graphics-color graphics active-color)
    (.setAngleExtent arc (* -300.0 fraction))
    (.draw graphics arc)))

(defn ^:deprecated make-pan-gauge
  "Create a graphical gauge with an indicator that moves along a line.
