   oscillator parameters."
   [group x y color]
   (let [[effect-key fixtures end-keys effect-name] (build-group-cue-elements group "dimmers" "triangle")]
-    (ct/set-cue! (:cue-grid *show*) x y
-               (cues/cue effect-key
-                         (fn [var-map] (dimmer-effect
-                                        (oscillators/build-oscillated-param
-                                         (oscillators/triangle :interval-ratio (build-ratio-param var-map)
-                                                               :phase (:phase var-map)))
-                                        fixtures
-                                        :effect-name effect-name))
-                         :color color
-                         :variables [{:key "beats" :min 1 :max 32 :type :integer :start 2 :name "Beats"}
-                                     {:key "cycles" :min 1 :max 10 :type :integer :start 1 :name "Cycles"}
-                                     {:key "phase" :min 0 :max 1 :start 0 :name "Phase"}]
-                         :end-keys end-keys))))
+    (show/set-cue! x y
+                   (cues/cue effect-key
+                             (fn [var-map] (dimmer-effect
+                                            (oscillators/build-oscillated-param
+                                             (oscillators/triangle :interval-ratio (build-ratio-param var-map)
+                                                                   :phase (:phase var-map)))
+                                            fixtures
+                                            :effect-name effect-name))
+                             :color color
+                             :variables [{:key "beats" :min 1 :max 32 :type :integer :start 2 :name "Beats"}
+                                         {:key "cycles" :min 1 :max 10 :type :integer :start 1 :name "Cycles"}
+                                         {:key "phase" :min 0 :max 1 :start 0 :name "Phase"}]
+                             :end-keys end-keys))))
 
 (defn make-sine-dimmer-cue
   "Create a cue which applies a sine oscillator to the dimmers of the

    (doall (map-indexed (fn [i group] (make-dimmer-cue group (+ x-base (inc i)) (+ y-base 2) :yellow)) light-groups))

    ;; TODO: Write a macro to make it easier to bind cue variables?
    (ct/set-cue! (:cue-grid *show*) (+ x-base 7) (+ y-base 2)
                 (cues/cue :sparkle (fn [var-map] (fun/sparkle (show/all-fixtures)
                                                               :chance (:chance var-map 0.05)
                                                               :fade-time (:fade-time var-map 50)))
                           :held true
                           :priority 100
                           :variables [{:key "chance" :min 0.0 :max 0.4 :start 0.05 :velocity true}
                                       {:key "fade-time" :name "Fade" :min 1 :max 2000 :start 50 :type :integer}]))

    ;; Dimmer oscillator cues: Sawtooth
    (make-sawtooth-dimmer-cue nil (+ x-base 0) (+ y-base 3) :yellow)

                            :color color
                            :color-fn (cues/color-fn-from-cue-var color-var x y)
                            :variables [color-var])]
    (show/set-cue! x y cue)))

(defn- name-torrent-gobo-cue
  "Come up with a summary name for one of the gobo cues we are
