               (chan/color 3 :blue)]
    :name "Simple RGB"})
 
+(defn rgbd-simple
+  "A simple RGBD from London pub"
+  []
+  {:channels [(chan/color 1 :red)
+              (chan/color 2 :green)
+              (chan/color 3 :blue)
+              (chan/functions :dimmer 4)]
+    })
+
+(defn rgbw-simple
+  "A simple RGBW from London pub"
+  []
+  {:channels [(chan/color 1 :red)
+              (chan/color 2 :green)
+              (chan/color 3 :blue)
+              (chan/color 4 :white)]
+    })
+
+
 (defn use-my-show
   "Set up the show on the OLA universes it actually needs."
   []

      ;;       your show needs to use if they are different than
      ;;       just universe 1, as below, and change the description
      ;;       to something descriptive and in your own style:
      (show/show :universes [1] :description "Deepower"))))

  (show/patch-fixture! :back-1 (simple-rgbd) 1 1 :x 1)
  (show/patch-fixture! :back-2 (simple-rgbd) 1 5 :x 2)

  [beat-ratio]
  (let [light-param (params/build-oscillated-param
    (oscillators/sawtooth-beat :beat-ratio beat-ratio :down? true) :max :max-lightness)]
    (show/add-effect! :color (global-color-effect
      (params/build-color-param :h :main-hue :s 100 :l light-param)))
  )
)

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