     (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

  ;; And record the new state for next time
  (reset! (:last-text-buttons controller) @(:next-text-buttons controller)))

(defn- ^:deprecated get-safe-text-byte
  "Converts a character to be displayed to a byte, but if it is
  outside the range that can be displayed by the Push, like Unicode,
  then change it to a byte representing an ellipsis."
  [c]
  (let [i (int c)]
    (if (> i 127)
      0
      i)))

(defn ^:deprecated write-display-text
  "Update a batch of characters within the display to be rendered on
  the next update."
  [controller row start text]
  {:pre [(<= 0 row 3) (<= 0 start 67)]}
  #_(let [bytes (map get-safe-text-byte text)]
    (doseq [[i val] (map-indexed vector bytes)]
      (aset (get (:next-display controller) row) (+ start i) (util/ubyte val)))))

(defn- ^:deprecated write-display-cell
  "Update a single text cell (of which there are four per row) in the
  display to be rendered on the next update."
  [controller row cell text]
  {:pre [(<= 0 row 3) (<= 0 cell 3)]}
  #_(let [bytes (take 17 (concat (map get-safe-text-byte text) (repeat 32)))]
    (doseq [[i val] (map-indexed vector bytes)]
      (aset (get (:next-display controller) row) (+ (* cell 17) i) (util/ubyte val)))))

(def button-cell-width
  "The number of pixels allocated to each button above or below the
  graphical display."

  [note]
  (+ note 71))

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