                              (captured-controls [this] #{(control-for-top-encoder-note note)})
                              (captured-notes [this] #{note paired-note})
                              (adjust-interface [this controller]
-                               (draw-variable-gauge controller x 17 0 cue (first (:variables cue)))
-                               true)
+                               (when (same-effect-active controller cue (:id info))
+                                 (draw-variable-gauge controller x 17 0 cue (first (:variables cue)))
+                                 true))
                              (handle-control-change [this controller message]
                                (adjust-variable-value controller message cue (first (:variables cue))))
                              (handle-note-on [this controller message]

  variable map."
  [controller cue v]
  (with-show (:show controller)
    (show/get-variable (find-cue-variable-keyword controller cue v))))

(defn- set-cue-variable-value
  "Sets the current value of a cue variable, which may be directly

        delta (* (sign-velocity (:velocity message)) resolution)]
    (set-cue-variable-value controller cue v (max low (min high (+ value delta))))))

(defn- same-effect-active
  "See if the specified effect is still active with the same id."
  [controller cue id]
  (with-show (:show controller)
    (let [effect-found (show/find-effect (:key cue))]
      (and effect-found (= (:id effect-found) id)))))

(defn- display-encoder-touched
  "One of the eight encoders above the text display was touched."
  [controller note]
