                                    (global-color-effect :green :lights (show/fixtures-named "blade"))
                                    (global-color-effect :blue :lights (show/fixtures-named "hex"))
                                    (global-color-effect :white :lights (show/all-fixtures))]
-                                  step-param :beyond :loop))
+                                  @step-param :beyond :loop))
                :color :magenta))
 
     ;; Some compound cues

               :variables [{:key "position" :min -0.5 :max 10.5 :start 0.0 :name "Position"}]
               :color :purple))

    (ct/set-cue!
     (:cue-grid *show*) 1 13
     (cues/cue :chase (fn [var-map]

                                  (cues/function-cue :snowball-sound :sound-active (show/fixtures-named "snowball")
                                                     :color :cyan)))

(defonce ^{:doc "A step parameter for controlling example chase cues.
  Change it to experiment with other kinds of timing and fades."}
  step-param
  (atom nil))

(defn make-cues
  "Create a bunch of example cues for experimentation."
