               info (first fx-meta)
               cue (:cue info)]
           (write-display-cell controller 2 x (or (:name cue) (:name (first fx))))
+          (write-display-cell controller 3 x "End")
+          (aset (:next-top-pads controller) (* 2 x) (top-pad-state :dim :red))
           (when (seq (rest fx))
             (recur (rest fx) (rest fx-meta) (inc x)))))
       (do

                                     #(swap! (:next-text-buttons controller)
                                             assoc button (button-state button :bright))))

(defn- control-change-received
  "Process a control change message which was not handled by an
  interface overlay."

    (when (pos? (:velocity message))
      (enter-metronome-showing controller))

    (20 22 24 26) ; Effect end pads
    (when (pos? (:velocity message))
      (handle-end-effect controller (:note message)))
    
    ;; 28 ; Master button

    29 ; Stop button
