     (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

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

(defn ^:deprecated make-pan-gauge
  "Create a graphical gauge with an indicator that moves along 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 (* 1.01 (- highest lowest))
        midpoint (/ (- highest lowest) 2)
        scaled (int (* 2 width (/ (- value lowest) range)))
        filler (repeat 0)
        centered (< (math/abs (- (- value lowest) midpoint)) (/ range 256))
        marker 0
        leader (if (and centered (even? width) (even? scaled))
                 (concat (take (dec (int (/ scaled 2))) filler) [0])
                 (take (int (/ scaled 2)) filler))]
    (take width (concat leader [marker]
                        (when (and centered (even? width) (odd? scaled)) [0])
                        filler))))

(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")))

  [controller x color]
  (set-button-color controller (get control-buttons (keyword (str "encoder-pad-" x))) color))

(def touch-strip-mode-flags
  "The values which are combined to set the touch strip into
  particular modes."
