 (defn make-cues
   "Create a bunch of example cues for experimentation."
   []
-  (let [hue-bar (params/build-oscillated-param ; Spread a rainbow across a bar of music
+  (let [hue-bar (params/build-oscillated-param  ; Spread a rainbow across a bar of music
                  (oscillators/sawtooth-bar) :max 360)
-        hue-gradient (params/build-spatial-param ; Spread a rainbow across the light grid
+        desat-beat (params/build-oscillated-param  ; Desaturate a color as a beat progresses
+                    (oscillators/sawtooth-beat :down? true) :max 100)
+        hue-gradient (params/build-spatial-param  ; Spread a rainbow across the light grid
                       (show/all-fixtures)
                       (fn [head] (- (:x head) (:min-x @(:dimensions *show*)))) :max 360)
-        hue-z-gradient (params/build-spatial-param ; Spread a rainbow across the light grid
-                      (show/all-fixtures)
-                      (fn [head] (- (:z head) (:min-z @(:dimensions *show*)))) :max 360)]
+        hue-z-gradient (params/build-spatial-param  ; Spread a rainbow across the light grid front to back
+                        (show/all-fixtures)
+                        (fn [head] (- (:z head) (:min-z @(:dimensions *show*)))) :max 360)]
     (global-color-cue "red" 0 0 :include-color-wheels? true)
     (global-color-cue "orange" 1 0 :include-color-wheels? true)
     (global-color-cue "yellow" 2 0 :include-color-wheels? true)

                                          (move/direction-effect
                                           "Pan/Tilt"
                                           (params/build-pan-tilt-param :pan (:pan var-map 0.0)
                                                                         :tilt (:tilt var-map 0.0)
                                                                         :degrees true)
                                           (show/all-fixtures)))
                           :variables [{:key "pan" :name "Pan"
                                        :min -180.0 :max 180.0 :start 0.0 :centered true :resolution 0.5}

                                    (params/build-oscillated-param (oscillators/triangle-bar) :min 1)
                                    (show/all-fixtures) :effect-name "All Triangle Bar"))
                           :color :red :end-keys [:torrent-dimmers :blade-dimmers :ws-dimmers
                                                  :puck-dimmers :hex-dimmers :snowball-dimmers]))

    ;; Strobe cues
    (make-strobe-cue "All" (show/all-fixtures) 0 6)
