   (when (not= marker @(:last-marker controller))
     (reset! (:last-marker controller) marker)))
 
+(def metronome-background
+  "The background for the metronome section, to mark it as such."
+  (colors/darken (colors/desaturate (colors/create-color :blue) 55) 45))
+
 (defn- update-metronome-section
   "Updates the sections of the interface related to metronome
   control."

                     (- (* (+ index encoder-count) button-cell-width) (/ button-cell-margin 2.0) 1.0)
                     encoder-label-underline-height))))

(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

        metronome-mode @(:metronome-mode controller)]
    ;; Is the first cell reserved for metronome information?
    (if (seq metronome-mode)
      (let [graphics (create-graphics controller)
            bpm (format "%.1f" (double (:bpm snapshot)))
            chars (+ (count marker) (count bpm))]
        ;; Draw the background that makes the metronome section distinctive.
        (set-graphics-color graphics metronome-background)
        (.fillRect graphics 0 0 (* 2 button-cell-width) Wayang/DISPLAY_HEIGHT)

        ;; Draw the beat and BPM information
        (set-graphics-color graphics white-color)
        (draw-cue-variable-value controller 0 1 marker white-color)
        (draw-cue-variable-value controller 1 1 bpm white-color)
        (draw-encoder-button-label controller 0 1 "Beat" white-color)
        (draw-encoder-button-label controller 1 1 "BPM" white-color)

        ;; Make the metronome button bright, since some overlay is present
        (swap! (:next-text-buttons controller) assoc metronome-button white-color))
