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


(defn light-sawtooth-color
  "Change light according to sawtooth osc & hue phase"
  [beat-ratio]
  (let [light-param (params/build-oscillated-param
    (oscillators/sawtooth-beat :beat-ratio beat-ratio :down? true) :max :max-lightness)
        hue-param (params/build-oscillated-param
    (oscillators/square-beat :beat-ratio (* beat-ratio 2) :down? true) :max 90)
  ]
    (show/add-effect! :color (global-color-effect
      (params/build-color-param :h :main-hue :s 100 :l light-param :adjust-hue hue-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)))
  )
