   )
 
 (defn shutter-open
-  "Open shutters"
+  "Open shutters on heads in London show"
   []
   (show/add-effect! :shutter
     (afterglow.effects.channel/channel-effect "Shutter" 255

    (move/aim-effect "Center" (params/build-aim-param :x 0 :y 0 :z 5) (show/fixtures-named "head")))
)

(defn new-cues
  "Create cues."
  []

  (ct/set-cue! (:cue-grid *show*) 0 16
    (cues/cue :color  (fn [_] (afterglow.effects/scene
      "Blue Sparks"
      (global-color-effect :blue)
      (fun/sparkle (show/all-fixtures)
                   :chance 0.07 :fade-time 500)))))


  (ct/set-cue! (:cue-grid *show*) 0 17
    (cues/cue :color  (fn [_] (afterglow.effects/scene
      "Blue and red 2"
        (afterglow.effects.color/color-effect
          "Plain red" (create-color "red") (show/fixtures-named "back-odd"))
        (afterglow.effects.color/color-effect
          "Plain Blue" (create-color "blue") (show/fixtures-named "back-even"))
    ))))

  (ct/set-cue! (:cue-grid *show*) 0 18
    (cues/cue :color (fn [_](afterglow.effects/scene
      "Hue 0"
        (fn [_] (var-fx/variable-effect @var-binder :main-hue 0))
      )
    )))
  (ct/set-cue! (:cue-grid *show*) 1 18
    (cues/cue :color (fn [_](afterglow.effects/scene
      "Hue 120"
        (set-hue 120)
        (fn [_] (var-fx/variable-effect @var-binder :main-hue 120))
      )
    )))
)
  my-show
  (atom nil))

(defn rgbd-cheap
  "A simple RGB with dimmer and strobe on 1 channel"
  []
