   (make-main-color-dimmer-cues 0 0)  ; Creates a sigle 8x8 page at the origin
   (make-torrent-cues 0 2)  ; Creates 2 8x8 pages: two pages up from the origin, and the next page to the right
   (make-ambient-cues 1 0)  ; Creates a single 8x8 page to the right of the origin
+  (make-movement-cues 0 1)  ; Creates an 8x8 page above the origin
   (make-main-aim-cues 1 1)  ; Creates an 8x8 page above the ambient cues
   (make-main-direction-cues 2 1)  ; Creates an 8x8 page to the right of that
 

                                :variables [{:key "phase" :min 0.0 :max 1.0 :start 0.0 :name "Fade"}]
                                :color :orange))

  ;; Some chases

  (show/set-cue! 2 9
                 (cues/cue :movement (fn [var-map]
                                       (cues/apply-merging-var-map var-map fun/twirl
                                                                   (concat (show/fixtures-named "blade")
                                                                           (show/fixtures-named "torrent"))))
                           :variables [{:key "beats" :min 1 :max 32 :type :integer :start 8 :name "Beats"}
                                       {:key "cycles" :min 1 :max 10 :type :integer :start 1 :name "Cycles"}
                                       {:key "radius" :min 0 :max 10 :start 0.25 :name "Radius"}
                                       {:key "z" :min -10 :max 10 :start -1.0}
                                       {:key "y" :min -10 :max 10 :start rig-height}
                                       {:key "x" :min -10 :max 10 :start 0.0}]
                           :color :green))
  (show/set-cue! 2 10
                 (cues/cue :movement (fn [var-map]
                                       (cues/apply-merging-var-map var-map fun/aim-fan
                                                                   (concat (show/fixtures-named "blade")
                                                                           (show/fixtures-named "torrent"))))
                           :variables [{:key "x-scale" :min -5 :max 5 :start 1 :name "X Scale"}
                                       {:key "y-scale" :min -10 :max 10 :start 5 :name "Y Scale"}
                                       {:key "z" :min 0 :max 20 :start 4}
                                       {:key "y" :min -10 :max 10 :start rig-height}
                                       {:key "x" :min -10 :max 10 :start 0.0}]
                           :color :blue))

  ;; A chase which overlays on other movement cues, gradually taking over the lights
  (show/set-cue! 2 11
                 (cues/cue :crossover (fn [var-map] (cues/apply-merging-var-map var-map crossover-chase))
                           :variables [{:key "beats" :min 1 :max 8 :start 2 :type :integer :name "Beats"}
                                       {:key "fade-fraction" :min 0 :max 1 :start 0 :name "Fade"}
                                       {:key "cross-color" :type :color :start (colors/create-color :red)
                                        :name "X Color"}
                                       {:key "end-color" :type :color :start (colors/create-color :yellow)
                                        :name "End Color"}]
                           :color :cyan :priority 5))


  #_(show/set-cue! 0 13
                 (cues/cue :chase (fn [var-map]
                                    (fx/chase "Chase Test"

    (show/set-cue! 1 9 (cues/cue :movement (fn [_]
                                             (move/pan-tilt-effect "P/T Can Can" can-can-p-t (show/all-fixtures))))))

  #_(show/set-cue! 3 8 (cues/function-cue :blade-speed :movement-speed (show/fixtures-named "blade")
                                        :color :purple :effect-name "Slow Blades"))

