       
       (= @counter 16)
       (doseq [x (range 0 8)]
-        (set-track-select-state controller x :bright :amber))
+        (set-top-pad-state controller x :bright :amber))
       
       (= @counter 17)
       (doseq [x (range 0 8)]
-        (set-scene-launch-color controller x
+        (set-second-pad-color controller x
                                 (com.evocomputing.colors/create-color :h 45 :s 100 :l 50))
-        (set-track-select-state controller x :bright :red))
+        (set-top-pad-state controller x :bright :red))
 
       (< @counter 26)
       (doseq [x (range 0 8)]

      (System/arraycopy (get (:next-display controller) row) 0
                        (get (:last-display controller) row) 0 68))))

(defn update-text-buttons
  "Sees if any labeled buttons have changed state since the last time
  the interface was updated, and if so, sends the necessary MIDI

  (doseq [line (range 4)]
    (clear-display-line controller line))
  (doseq [x (range 8)]
    (set-top-pad-state controller x :off)
    (set-second-pad-color controller x off-color)
    (doseq [y (range 8)]
      (set-pad-color controller x y off-color)))
  (doseq [[_ button] control-buttons]
