 
 (defn light-sawtooth-phase
   "Change light of fixtures with phase shift. WIP."
-  [beat-ratio]
+  []
   (let [phase-gradient (params/build-spatial-param  ; Spread a phase shift across fixtures
       (show/all-fixtures)
       (fn [head] (- (:x head) (:min-x @(:dimensions *show*)))) :max 1)]
     (let [light-param (params/build-oscillated-param
-      (oscillators/sawtooth-beat :beat-ratio beat-ratio :down? true :phase phase-gradient) :max :max-lightness)]
+      (oscillators/sawtooth-beat :beat-ratio :osc-beat-ratio :down? true :phase phase-gradient) :max :max-lightness)]
       (show/add-effect! :color (global-color-effect
         (params/build-color-param :s 100 :l light-param :h :main-hue))
       )

  (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 8 :down? true) :max 90)
  ]
    (show/add-effect! :color (global-color-effect
      (params/build-color-param :h :main-hue :s 100 :l param)))

  "Change light according to sine osc"
  [beat-ratio]
  (let [light-param (params/build-oscillated-param
    (oscillators/sine-beat :beat-ratio :osc-beat-ratio :down? true :phase 0.5) :max :max-lightness)]
    (show/add-effect! :color (global-color-effect
      (params/build-color-param :h :main-hue :s 100 :l light-param)))
  )
