   [note]
   (+ note 71))
 
-(defn- draw-variable-gauge
+(defn- ^:deprecated draw-variable-gauge
   "Display the value of a variable being adjusted in the effect list."
   [controller cell width offset cue v effect-id]
   (let [value (or (cues/get-cue-variable cue v :show (:show controller) :when-id effect-id) 0)

          (captured-notes [this] #{note paired-note})
          (adjust-interface [this _]
            (when (same-effect-active controller cue (:id info))
              (draw-variable-gauge controller x 17 0 cue v (:id info))
              (swap! (:next-top-pads controller) assoc (inc (* 2 x)) off-color)
              (calculate-touch-strip-value controller cue v (:id info))
              true))
          (handle-control-change [this message]
            (when (= (:note message) (control-for-top-encoder-note note))
              (adjust-variable-value controller message cue v (:id info)))
            true)
          (handle-note-on [this message]
            true)

              :done))
          (handle-aftertouch [this message])
          (handle-pitch-bend [this message]
            (bend-variable-value controller message cue cue-var (:id info))
            true))))))

(def ^:private color-picker-grid
