                      (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
-    (make-dimmer-cue nil (+ x-base 0) (+ y-base 2) :yellow)
-    (doall (map-indexed (fn [i group] (make-dimmer-cue group (+ x-base (inc i)) (+ y-base 2) :yellow)) light-groups))
-
+    ;; The fun sparkle cue, and a binding so TouchOSC can control it and show its state
     (show/set-cue! (+ x-base 7) (+ y-base 2)
                    (cues/cue :sparkle (fn [var-map]
                                         (cues/apply-merging-var-map var-map fun/sparkle (show/all-fixtures)))

    (show/set-variable! :aim-group-b-y 0.0)
    (show/set-variable! :aim-group-b-z 2.0)

    ;; Set up default transformation of a reflection over the Y axis
    (.setScale transform (Vector3d. -1.0 1.0 1.0))
    (show/set-variable! :aim-group-a-transform transform)

(defn osc-shutdown
  "Shut down osc server and clean up."
  []
  (clear-osc-var-bindings)
  (clear-osc-cue-bindings)
  (core/stop-osc-server))

(defn make-color-cue
