 
 (defn- make-torrent-gobo-cues
   "Create cues for the fixed and moving gobo options, stationary and
-  shaking. Takes up half a page on the Push, with the top left at the
-  coordinates specified."
+  shaking. Takes up half a page, with the top left at the coordinates
+  specified."
   [prefix fixtures top left]
   ;; Make cues for the stationary and shaking versions of all fixed gobos
   (doseq [_ (map-indexed (fn [i v]

                         :name "Cycles"}
                        {:key "phase" :min 0 :max 1 :start :starting-phase :name "Phase"}]))

(defn make-cues
  "Create a bunch of example cues for experimentation."
  []
  (let [hue-bar (oscillators/build-oscillated-param  ; Spread a rainbow across a bar of music
                 (oscillators/sawtooth :interval :bar) :max 360)
        desat-beat (oscillators/build-oscillated-param  ; Desaturate a color as a beat progresses
                    (oscillators/sawtooth :down? true) :max 100)

                                       {: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)
    (doall (map-indexed (fn [i group]
                          (make-sawtooth-dimmer-cue group (+ x-base (inc i)) (+ y-base 3) :orange)) light-groups))

    ;; Dimmer oscillator cues: Triangle
    (make-triangle-dimmer-cue nil (+ x-base 0) (+ y-base 4) :orange)
    (doall (map-indexed (fn [i group]
                          (make-triangle-dimmer-cue group (+ x-base (inc i)) (+ y-base 4) :red)) light-groups))

    ;; Dimmer oscillator cues: Sine
    (make-sine-dimmer-cue nil (+ x-base 0) (+ y-base 5) :cyan)
    (doall (map-indexed (fn [i group]
                          (make-sine-dimmer-cue group (+ x-base (inc i)) (+ y-base 5) :blue)) light-groups))

    ;; Dimmer oscillator cues: Square
    (make-square-dimmer-cue nil (+ x-base 0) (+ y-base 6) :cyan)
    (doall (map-indexed (fn [i group]
                          (make-square-dimmer-cue group (+ x-base (inc i)) (+ y-base 6) :green)) light-groups))

    ;; Strobe cues
    (make-strobe-cue-2 "All" (show/all-fixtures) (+ x-base 0) (+ y-base 7))
    (make-strobe-cue-2 "Torrents" (show/fixtures-named "torrent") (+ x-base 1) (+ y-base 7))
    (make-strobe-cue-2 "Blades" (show/fixtures-named "blade") (+ x-base 2) (+ y-base 7))
    (make-strobe-cue-2 "Weather Systems" (show/fixtures-named "ws") (+ x-base 3) (+ y-base 7))
    (make-strobe-cue-2 "Hexes" (show/fixtures-named "hex") (+ x-base 4) (+ y-base 7))
    (make-strobe-cue-2 "Pucks" (show/fixtures-named "puck") (+ x-base 5) (+ y-base 7))
    (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)
