                                   (when (not= cur-vals (:starting-vars info))
                                     :save)))]
               (draw-cue-variable-names controller x cue (:id info))
-              (write-display-cell controller 1 x (cue-variable-values controller cue (:id info)))
+              (draw-cue-variable-values controller x cue (:id info))
+              (draw-cue-variable-gauges controller x cue (:id info))
               (set-graphics-color graphics color)
               (.fillRect graphics (+ left (/ button-cell-margin 2.0)) (- Wayang/DISPLAY_HEIGHT 38)
                          (- width button-cell-margin) 20)

                      (double val))

                    ;; We got no value, display an ellipsis
                    "...")
        padding (clojure.string/join (repeat len " "))]
    (clojure.string/join (take len (str formatted padding)))))

(defn- cue-variable-values
  "Formats the current values of the adjustable variables to display
  under an active cue."
  [controller cue effect-id]
  (let [cue-vars (cue-vars-for-encoders (:variables cue) (get @(:cue-var-offsets controller) effect-id 0))]
    (if (seq cue-vars)
      (if (= (count (:variables cue)) 1)
        (fit-cue-variable-value controller cue (first cue-vars) 17 effect-id)
        (str (fit-cue-variable-value controller cue (first cue-vars) 8 effect-id) " "
             (fit-cue-variable-value controller cue (second cue-vars) 8 effect-id)))
      "")))

(defn- room-for-effects
  "Determine how many display cells are available for displaying

        (captured-notes [this] #{note})
        (adjust-interface [this _]
          (when (same-effect-active controller cue (:id info))
            (let [cur-val (or (cues/get-cue-variable cue cue-var :show (:show controller) :when-id (:id info)) 0)]
              (if (:centered cue-var)
                (draw-pan-gauge controller note 1 cur-val :lowest (min cur-val (:min cue-var))
                                :highest (max cur-val (:max cue-var)) :active-color white-color)
                (draw-gauge controller note 1 cur-val :lowest (min cur-val (:min cue-var))
                            :highest (max cur-val (:max cue-var)) :active-color white-color)))
            (swap! (:next-top-pads controller) assoc (inc (* 2 x)) off-color)
            (calculate-touch-strip-value controller cue cue-var (:id info))
            true))
        (handle-control-change [this message]
          (when (= (:note message) (control-for-top-encoder-note note))
            (adjust-variable-value controller message cue cue-var (:id info)))
          true)
        (handle-note-on [this message])
        (handle-note-off [this message]
          :done)
        (handle-aftertouch [this message])
        (handle-pitch-bend [this message]
          (bend-variable-value controller message cue cue-var (:id info))
          true))

      ;; Just one variable, take full cell, using either encoder,
