     (make-strobe-cue-2 "Snowball" (show/fixtures-named "snowball") (+ x-base 6) (+ y-base 7))
 
     (let [color-var {:key :strobe-color :type :color :name "Strobe Color"}]
-      (ct/set-cue! (:cue-grid *show*) (+ x-base 7) (+ y-base 7)
-                   (cues/cue :strobe-color (fn [_] (fx/blank "Strobe Color"))
-                             :color :purple
-                             :color-fn (cues/color-fn-from-cue-var color-var)
-                             :variables [color-var])))
+      (show/set-cue! (+ x-base 7) (+ y-base 7) (cues/cue :strobe-color (fn [_] (fx/blank "Strobe Color"))
+                                                         :color :purple
+                                                         :color-fn (cues/color-fn-from-cue-var color-var)
+                                                         :variables [color-var])))
 
     ;; This was the old way of adjusting strobe cues with only numeric parameters. The above
     ;; cue shows how to do it with the newer color parameter approach.
-    #_(ct/set-cue! (:cue-grid *show*) (+ x-base 7) (+ y-base 6)
-                 (cues/cue :adjust-strobe (fn [_] (fun/adjust-strobe))
-                           :color :purple
-                           :variables [{:key :strobe-hue :min 0 :max 360 :name "Hue" :centered true}
-                                       {:key :strobe-saturation :min 0 :max 100 :name "Saturatn"}]))))
+    #_(show/set-cue! (+ x-base 7) (+ y-base 6)
+                     (cues/cue :adjust-strobe (fn [_] (fun/adjust-strobe))
+                               :color :purple
+                               :variables [{:key :strobe-hue :min 0 :max 360 :name "Hue" :centered true}
+                                           {:key :strobe-saturation :min 0 :max 100 :name "Saturatn"}]))))
 
 (defn make-torrent-cues
   "Create a page of cues for configuring aspects of the Torrent F3s

    ;; If the default strobe color has not yet been established, set it to purple.
    (show/set-variable! :strobe-color (create-color :purple)))
  (let [color-var {:key :strobe-color :type :color :name "Strobe Color"}]
    (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-2 (str "Strobe " name) fixtures
                                                       (:level var-map 50) (:lightness var-map 100)))
                           :color :purple
                           :color-fn (fn [cue active show snapshot]
                                       (if (> (rhythm/snapshot-beat-phase snapshot 0.5) 0.7)
                                         white
                                         (or (show/get-variable :strobe-color)
                                             (:color cue))))
                           :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}
                                       color-var]))))

(def light-groups
  "The named groupings of lights to build rows of effects in the cue grid."


    ;; Some special/fun cues
    (show/set-variable! :rainbow-saturation 100)
    (show/set-cue! (+ x-base 0) (+ y-base 1)
                   (let [color-param (params/build-color-param :s :rainbow-saturation :l 50 :h hue-bar)]
                     (cues/cue :all-color (fn [_] (global-color-effect color-param))
                               :color-fn (cues/color-fn-from-param color-param)
                               :short-name "Rainbow Bar Fade"
                               :variables [{:key :rainbow-saturation :name "Saturatn" :min 0 :max 100 :start 100
                                            :type :integer}])))
    (show/set-cue! (+ x-base 1) (+ y-base 1)
                   (cues/cue :all-color (fn [_] (global-color-effect
                                                 (params/build-color-param :s :rainbow-saturation :l 50 :h hue-gradient)
                                                 :include-color-wheels? true))
                             :short-name "Rainbow Grid"
                             :variables [{:key :rainbow-saturation :name "Saturatn" :min 0 :max 100 :start 100
                                          :type :integer}]))
    (show/set-cue! (+ x-base 2) (+ y-base 1)
                   (let [color-param (params/build-color-param :s :rainbow-saturation :l 50 :h hue-gradient
                                                               :adjust-hue hue-bar)]
                     (cues/cue :all-color (fn [_] (global-color-effect color-param))
                               :color-fn (cues/color-fn-from-param color-param)
                               :short-name "Rainbow Grid+Bar"
                               :variables [{:key :rainbow-saturation :name "Saturatn" :min 0 :max 100 :start 100
                                            :type :integer}])))
    (show/set-cue! (+ x-base 3) (+ y-base 1) ; Desaturate the rainbow as each beat progresses
                   (let [color-param (params/build-color-param :s desat-beat :l 50 :h hue-gradient
                                                               :adjust-hue hue-bar)]
                     (cues/cue :all-color (fn [_] (global-color-effect color-param))
                               :color-fn (cues/color-fn-from-param color-param)
                               :short-name "Rainbow Pulse")))

    (show/set-cue! (+ x-base 4) (+ y-base 1)
                   (cues/cue :transform-colors (fn [_] (color-fx/transform-colors (show/all-fixtures)))
                             :priority 1000))

    (show/set-cue! (+ x-base 5) (+ y-base 1)
                   (cues/cue :all-color (fn [_] (global-color-effect
                                                 (params/build-color-param :s 100 :l 50 :h hue-z-gradient)
                                                 :include-color-wheels? true))
                             :short-name "Z Rainbow Grid"))
    (show/set-cue! (+ x-base 6) (+ y-base 1)
                   (let [color-param (params/build-color-param :s 100 :l 50 :h hue-z-gradient
                                                               :adjust-hue hue-bar)]
                     (cues/cue :all-color (fn [_] (global-color-effect color-param))
                               :color-fn (cues/color-fn-from-param color-param)
                               :short-name "Z Rainbow Grid+Bar")))

    (show/set-cue! (+ x-base 7) (+ y-base 1)
                   (let [color-param (params/build-color-param :s 100 :l 50 :h hue-gradient
                                                               :adjust-hue hue-bar)]
                     (cues/cue :all-color (fn [_] (global-color-effect color-param
                                                                       :fixtures (show/fixtures-named "blade")))
                               :color-fn (cues/color-fn-from-param color-param)
                               :short-name "Rainbow Blades")))

    #_(show/set-cue! (+ x-base 7) (+ y-base 7)
                     (cues/function-cue :strobe-all :strobe (show/all-fixtures) :effect-name "Raw Strobe"))


    ;; Dimmer cues to turn on and set brightness of groups of lights
