 
 (fiat-lux)
 
+(defn london-temp
+  "Temporary function for testing"
+  []
+  (show/add-effect! :color (global-color-effect
+    (params/build-color-param :h :main-hue :s 100 :l 20)))
+  (show/add-effect! :dimmers (global-dimmer-effect 255))
+  )
+
 (defn shutter-open
   "Open shutters"
   []

  ;; all the expanded, patched fixtures in it.
  '*show*)

(use-my-show)

;(use-london-show)

(defn global-color-effect
  "Make a color effect which affects all lights in the sample show.

)

(shutter-open)

(defn calibrate-heads
  "Helper functions to calibrate heads"
  []
  (show/add-effect! :pan-head
    (afterglow.effects.channel/channel-effect
      "Pan" (params/build-variable-param :pan)
      (afterglow.channels/extract-channels
        (show/fixtures-named "head") #(= (:type %) :pan))))
  (show/add-effect! :tilt-head
    (afterglow.effects.channel/channel-effect
      "Tilt" (params/build-variable-param :tilt)
      (afterglow.channels/extract-channels
        (show/fixtures-named "head") #(= (:type %) :tilt))))
  (afterglow.show/set-variable! :pan 0)
  (afterglow.show/set-variable! :tilt 0)
  )

(defn head-direction-z
  "Direct all heads to Z = 1"
  []
  ; (afterglow.effects.movement/direction-effect "Towards z" (params/build-direction-param :x 0 :y 0 :z 1) (show/fixtures-named "head"))

  (show/add-effect! :position
    (move/direction-effect
     "Towards z" (params/build-direction-param :x 0 :y 0 :z 1) (show/fixtures-named "head")))
  )


; Big list of cues from examples
; 2DO: learn and delete
