   oscillator parameters."
   [group x y color]
   (let [[effect-key fixtures end-keys effect-name] (build-group-cue-elements group "dimmers" "sine")]
-    (ct/set-cue! (:cue-grid *show*) x y
-                 (cues/cue effect-key
-                           (fn [var-map] (dimmer-effect
-                                          (oscillators/build-oscillated-param
-                                           (oscillators/sine :interval-ratio (build-ratio-param var-map)
-                                                             :phase (:phase var-map))
-                                           :min 1)
-                                          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/sine :interval-ratio (build-ratio-param var-map)
+                                                               :phase (:phase var-map))
+                                             :min 1)
+                                            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-square-dimmer-cue
   "Create a cue which applies a square oscillator to the dimmers of

  sensitivity, and having the base strobe color depend on a set of
  shared numeric show variable."
  [name fixtures x y]
  (ct/set-cue! (:cue-grid *show*) x y	
               (cues/cue (keyword (str "strobe-" (clojure.string/replace (clojure.string/lower-case name) " " "-")))
                         (fn [var-map] (fun/strobe (str "Strobe " name) fixtures
                                                   (:level var-map 50) (:lightness var-map 100)))
                         :color :purple
                         :held true
                         :priority 100
                         :variables [{:key "level" :min 0 :max 100 :start 100 :name "Level"}
                                     {:key "lightness" :min 0 :max 100 :name "Lightness" :velocity true}])))

(def white
  "The color to flash strobe cues to identify them as such."

  oscillator parameters."
  [group x y color]
  (let [[effect-key fixtures end-keys effect-name] (build-group-cue-elements group "dimmers" "saw")]
    (show/set-cue! x y
                   (cues/cue effect-key
                             (fn [var-map] (dimmer-effect
                                            (oscillators/build-oscillated-param
                                             (oscillators/sawtooth :down? (:down var-map)
                                                                   :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 "down" :type :boolean :start true :name "Down?"}
                                         {: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-triangle-dimmer-cue
  "Create a cue which applies a triangle oscillator to the dimmers of
