   [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)]}

              (midi/midi-send-msg (get-in controller [:port-out :receiver]) message -1)
              (reset! (:last-touch-strip controller) next-strip))))
        (do
          (set-touch-strip-mode controller 5)
          (reset! (:last-touch-strip controller) nil))))))

(defn- update-text-buttons

        (set-top-pad-color controller x next-color)
        (swap! (:last-top-pads controller) assoc x next-color)))))

(defn set-touch-strip-mode
  "Set the touch strip operating mode."
  [controller mode]
  (send-sysex controller [0x17 mode]))

(defn- update-touch-strip
  "Sees if the state of the touch strip has changed since the
