                                          192 :random-strobe
                                          224 "Shutter Open 4"))
          gobo-names ["Splat" "Spot Sphere" "Fanned Squares" "Box" "Bar" "Blue Starburst" "Perforated Pink"]
-         build-gobo-entries (fn [shake? names]
-                              (map (fn [entry]
-                                     (let [label (str "Gobo " entry (when shake? " shake"))
-                                           type-key (keyword (sanitize-name label))]
-                                       (merge {:type type-key
-                                               :label label
-                                               :range (if shake? :variable :fixed)}
-                                              (when shake? {:var-label "Shake Speed"}))))
-                                   names))
          build-gobo-wheel (fn [channel]
                             (chan/functions :gobo channel
                                             (range 0 79 10) (build-gobo-entries false (concat ["Open"] gobo-names))

                             (chan/dimmer 7)
                             (build-shutter 8)
                             (build-control-channel 9)]})))))

                                         216 "Shutter Open 2"))
         gobo-names ["Quotes" "Warp Spots" "4 Dots" "Sail Swirl" "Starburst" "Star Field" "Optical Tube"
                     "Sun Swirl" "Star Echo"]
         build-gobo-wheel (fn [channel]
                            (chan/functions :gobo channel
                                            (range 0 63 6) (build-gobo-entries false (concat ["Open"] gobo-names))
