     (set-graphics-color graphics color)
     (.drawString graphics iterator
                  (int (math/round (- (* (+ index (/ encoder-count 2)) button-cell-width) (/ width 2)))) 40)))
-
-(defn ^:deprecated make-gauge
-  "Create a graphical gauge with an indicator that fills a line.
-  The default range is from zero to a hundred, and the default size is
-  17 characters, or a full display cell."
-  [value & {:keys [lowest highest width] :or {lowest 0 highest 100 width 17}}]
-  (let [range (- highest lowest)
-        scaled (int (* 2 width (/ (- value lowest) range)))
-        marker 0
-        leader (take (int (/ scaled 2)) (repeat 0))]
-    (take width (concat leader [marker] (repeat 0)))))
 
 (defn draw-null-gauge
  "Draw a mostly meaningless gauge simply to indicate that the encoder

  [note]
  (+ note 71))

(defn- ^:deprecated draw-variable-gauge
  "Display the value of a variable being adjusted in the effect list."
  [controller cell width offset cue v effect-id]
  (let [value (or (cues/get-cue-variable cue v :show (:show controller) :when-id effect-id) 0)
        low (min value (:min v))  ; In case user set "out of bounds".
        high (max value (:max v))
        gauge (if (:centered v)
                (make-pan-gauge value :lowest low :highest high :width width)
                (make-gauge value :lowest low :highest high :width width))]
    (write-display-text controller 0 (+ offset (* cell 17)) gauge)))

(defn- adjust-variable-value
  "Handle a control change from turning an encoder associated with a
  variable being adjusted in the effect list."

      (.setAngleStart arc (- 240.0 (* i 3)))
      (.draw graphics arc))))

(defn- metronome-sync-label
  "Determine the sync type label to display under the BPM section."
  [controller]
  (with-show (:show controller)
    (case (:type (show/sync-status))
      :manual "Manual"
      :midi "MIDI"
      :dj-link "DJ Link"
      :traktor-beat-phase "Traktor"
      "Unknown")))
