         (show/fixtures-named "head") #(= (:type %) :shutter))))
 )
 
-(defn london-init
-  "Init of London show"
-  []
-  (midi-help "automap")
-  (midi-help "audio6")
-  (shutter-open)
-  )
-
-(london-init)
-
 (defn calibrate-heads
   "Helper functions to calibrate heads"
   []

      "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


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

(defn london-init
  "Init of London show"
  []
  (midi-help "automap")
  (midi-help "audio6")
  (shutter-open)
  (calibrate-heads)
  )

(london-init)

(defn head-aim-center
  "Direct head to the center of dancefloor"
