 ;;       motions. Also unimplemented is the whole concept of Fiture ID, but that would require
 ;;       major support throughout Afterglow. Wait until people using overpopulated DMX networks
 ;;       ask for it...
-
-(def ^:private ws-head-offsets
-  "The X-axis positions of the eight weather system heads"
-  [-0.406 -0.305 -0.191 -0.083 0.083 0.191 0.305 0.406])
-
-(defn- ws-head
-  "Creates a head definition for one head of the Weather System"
-  [index]
-  {:channels [(chan/color (+ 2 (* 3 index)) :red)
-              (chan/color (+ 3 (* 3 index)) :green)
-              (chan/color (+ 4 (* 3 index)) :blue)]
-   :x (get ws-head-offsets index)})
 
 (defn puck-fab5
   "[Puck

                                                    0 :linear-dimming 26 :fade-step-increase
                                                    51 :color-macros 91 :color-fade-in-out
                                                    131 :color-snap 171 :color-fade
                                                    211 :auto 251 :sound-active)]}
            :11-channel {:channels [(chan/pan 1 3) (chan/tilt 2 4)
                                    (chan/fine-channel :movement-speed 5
                                                       :function-name "Movement Speed (fast->slow)")
                                    (chan/color 6 :red) (chan/color 7 :green)
                                    (chan/color 8 :blue) (chan/color 9 :white)
                                    (chan/dimmer 10) (chan/fine-channel :custom-color 11)]})
          :name "Blizzard Blade RGBW"
          :mode mode
          :pan-center pan-center :pan-half-circle pan-half-circle

          :name "Blizzard Puck Fab5"
          :mode mode)))

(def ^:private ws-head-offsets
  "The X-axis positions of the eight weather system heads"
  [-0.406 -0.305 -0.191 -0.083 0.083 0.191 0.305 0.406])

(defn- ws-head
  "Creates a head definition for one head of the Weather System"
  [index]
  {:channels [(chan/color (+ 2 (* 3 index)) :red)
              (chan/color (+ 3 (* 3 index)) :green)
              (chan/color (+ 4 (* 3 index)) :blue)]
   :x (get ws-head-offsets index)})

(defn weather-system
  "[Weather
  System](http://www.blizzardlighting.com/products/all-in-one-lighting-systems/item/209-weather-system)
