   (show/add-effect! :position
     (move/aim-effect "Center" (params/build-aim-param :x 0 :y 0 :z 5) (show/fixtures-named "head")))
 )
-
-
-; Big list of cues from examples
-; 2DO: learn and delete
-
-(defn global-color-cue
-  "Create a cue-grid entry which establishes a global color effect."
-  [color x y & {:keys [include-color-wheels? held]}]
-  (let [cue (cues/cue :color (fn [_] (global-color-effect color :include-color-wheels? include-color-wheels?))
-    :held held
-    :color (create-color color))]
-    (ct/set-cue! (:cue-grid *show*) x y cue)))
-
-
-(defn make-strobe-cue
-  "Create a cue which strobes a set of fixtures as long as the cue pad
-  is held down, letting the operator adjust the lightness of the
-  strobe color by varying the pressure they are applying to the pad on
-  controllers which support pressure sensitivity."
-  [name fixtures x y]
-  (ct/set-cue! (:cue-grid *show*) x y 
-     (cues/cue (keyword (str "strobe-" (clojure.string/replace (clojure.string/lower-case name) " " "-")))
-         (fn [var-map] (fun/strobe (str "Strobe " name) fixtures
-             (:level var-map 50) (:lightness var-map 100)))
-         :color :purple
-         :held true
-         :priority 100
-         :variables [{:key "level" :min 0 :max 100 :start 100 :name "Level"}
-           {:key "lightness" :min 0 :max 100 :name "Lightness" :velocity true}])))
-
-(defn x-phase
-  "Return a value that ranges from zero for the leftmost fixture in a
-  show to 1 for the rightmost, for staggering the phase of an
-  oscillator in making a can-can chase."
-  [head show]
-  (let [dimensions @(:dimensions *show*)]
-    (/ (- (:x head) (:min-x dimensions)) (- (:max-x dimensions) (:min-x dimensions)))))
-
-(defn- name-torrent-gobo-cue
-  "Come up with a summary name for one of the gobo cues we are
-  creating that is concise but meaningful on a controller interface."
-  [prefix function]
-  (let [simplified (clojure.string/replace (name function) #"^gobo-fixed-" "")
-        simplified (clojure.string/replace simplified #"^gobo-moving-" "m/")
-        spaced (clojure.string/replace simplified "-" " ")]
-    (str (clojure.string/upper-case (name prefix)) " " spaced)))
-
-(defn- make-torrent-gobo-cues
-  "Create cues for the fixed and moving gobo options, stationary and
-  shaking. Takes up half a page on the Push, with the top left at the
-  coordinates specified."
-  [prefix fixtures top left]
-  ;; Make cues for the stationary and shaking versions of all fixed gobos
-  (doseq [_ (map-indexed (fn [i v]
-                           (let [blue (create-color :blue)
-                                 x (if (< i 8) left (+ left 2))
-                                 y (if (< i 8) (- top i) (- top i -1))
-                                 cue-key (keyword (str (name prefix) "-gobo-fixed"))]
-                             (ct/set-cue! (:cue-grid *show*) x y
-                                          (cues/function-cue cue-key (keyword v) fixtures :color blue
-                                                             :short-name (name-torrent-gobo-cue prefix v)))
-                             (let [function (keyword (str (name v) "-shake"))]
-                               (ct/set-cue! (:cue-grid *show*) (inc x) y
-                                            (cues/function-cue cue-key function fixtures :color blue
-                                                               :short-name (name-torrent-gobo-cue prefix function))))))
-                         ["gobo-fixed-mortar" "gobo-fixed-4-rings" "gobo-fixed-atom" "gobo-fixed-jacks"
-                          "gobo-fixed-saw" "gobo-fixed-sunflower" "gobo-fixed-45-adapter"
-                          "gobo-fixed-star" "gobo-fixed-rose-fingerprint"])])
-  ;; Make cues for the stationary and shaking versions of all rotating gobos
-  (doseq [_ (map-indexed (fn [i v]
-                           (let [green (create-color :green)
-                                 cue-key (keyword (str (name prefix) "-gobo-moving"))]
-                             (ct/set-cue! (:cue-grid *show*) (+ left 2) (- top i)
-                                          (cues/function-cue cue-key (keyword v) fixtures :color green
-                                                             :short-name (name-torrent-gobo-cue prefix v)))
-                             (let [function (keyword (str (name v) "-shake"))]
-                               (ct/set-cue! (:cue-grid *show*) (+ left 3) (- top i)
-                                            (cues/function-cue cue-key function fixtures :color green
-                                                               :short-name (name-torrent-gobo-cue prefix function))))))
-                         ["gobo-moving-rings" "gobo-moving-color-swirl" "gobo-moving-stars"
-                          "gobo-moving-optical-tube" "gobo-moving-magenta-bundt"
-                          "gobo-moving-blue-mega-hazard" "gobo-moving-turbine"])]))
-
-(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 new-cues
   "Create cues."

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

;(use-my-show)

(use-london-show)

; Logging level set to :info
(core/init-logging)


(defn light-sawtooth-color
  "Change light according to sawtooth osc & hue phase"
  ([]
    (light-sawtooth-color (show/all-fixtures))
    )
  ([fixtures]
    (let [light-param (params/build-oscillated-param
      (oscillators/sawtooth-beat :beat-ratio :osc-beat-ratio :down? true) :max :max-lightness)
          hue-param (params/build-oscillated-param
      (oscillators/square-beat :beat-ratio 16 :down? true) :max 90)
    ]
      (show/add-effect! :color (afterglow.effects.color/color-effect
                          "Light sawtooth color" (params/build-color-param :h :main-hue :s 100 :l light-param :adjust-hue hue-param) fixtures))
    ))
)

(defn light-to-param
