   [controller x color]
   (set-button-color controller (get control-buttons (keyword (str "encoder-pad-" x))) color))
 
-(defn set-display-line
+(defn ^:deprecated set-display-line
   "Sets a line of the text display."
   [controller line bytes]
   {:pre [(<= 0 line 3)]}

    (clear-display-buffer controller)
    (reset! (:next-text-buttons controller) {})
    (reset! (:next-top-pads controller) empty-top-pads)
    (reset! (:next-touch-strip controller) [0 1])

    (let [snapshot (rhythm/metro-snapshot (get-in controller [:show :metronome]))]
      (update-effect-list controller snapshot)

        high (max value (:max v))
        full-range (- high low)]
    (reset! (:next-touch-strip controller) [(math/round (* 16383 (/ (- value low) full-range)))
                                            (if (:centered v)
                                              touch-strip-mode-pan
                                              touch-strip-mode-level)])))

(def master-background
  "The background for the grand master section, to mark it as such."
