     (.setPaint graphics color)
     (.fill graphics path)))
 
-(defn- update-metronome-section
-  "Updates the sections of the interface related to metronome
-  control."
+(defn- render-metronome-section
+  "Draws the sections of the interface related to metronome control."
   [controller snapshot]
   (let [marker (rhythm/snapshot-marker snapshot)
         metronome-button (:metronome control-buttons)

    (reset! (:next-touch-strip controller) [0 touch-strip-mode-sysex])

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

      ;; If the show has stopped without us noticing, enter stop mode
      (with-show (:show controller)
        (when-not (or (show/running?) (in-mode? controller :stop))
          (enter-stop-mode controller :already-stopped true)))

      (update-mode-buttons controller [:shift :record])
      (render-cue-grid controller snapshot)
      (update-scroll-arrows controller)

      ;; Make the User button bright, since we live in User mode
      (swap! (:next-text-buttons controller) assoc (:user-mode control-buttons) white-color)


(declare enter-stop-mode)

(defn- render-scroll-arrows
  "Activate the arrow buttons for directions in which scrolling is
  possible."
  [controller]
