   (show/patch-fixture! :snowball (blizzard/snowball) universe 33 :x (tf/inches -76) :y (tf/inches 32)
                        :z (tf/inches 164.5))
   (show/patch-fixture! :hyp-rgb (adj/hypnotic-rgb) universe 45)
+
+  (reset! var-binder (var-fx/create-for-show *show*))
   '*show*)
 
 

                                                           (show/fixtures-named "torrent")
                                                           :effect-name "Torrent Dimmers"))
                           :variables [{:key "level" :min 0 :max 255 :start 255 :name "Level"}]
                           :color :orange :end-keys [:dimmers]))
    (ct/set-cue! (:cue-grid *show*) 2 2
                 (cues/cue :blade-dimmers (fn [var-map] (dimmer-effect
                                                         (params/bind-keyword-param (:level var-map 255) Number 255)
                                                         (show/fixtures-named "blade")
                                                         :effect-name "Blade Dimmers"))
                           :variables [{:key "level" :min 0 :max 255 :start 255 :name "Level"}]
                           :color :orange :end-keys [:dimmers]))
    (ct/set-cue! (:cue-grid *show*) 3 2
                 (cues/cue :ws-dimmers (fn [var-map] (dimmer-effect
                                                      (params/bind-keyword-param (:level var-map 255) Number 255)
                                                      (show/fixtures-named "ws")
                                                      :effect-name "Weather System Dimmers"))
                           :variables [{:key "level" :min 0 :max 255 :start 255 :name "Level"}]
                           :color :orange :end-keys [:dimmers]))

    (ct/set-cue! (:cue-grid *show*) 4 2
                 (cues/cue :hex-dimmers (fn [var-map] (dimmer-effect

                                                       (show/fixtures-named "hex")
                                                       :effect-name "Hex Dimmers"))
                           :variables [{:key "level" :min 0 :max 255 :start 255 :name "Level"}]
                           :color :yellow :end-keys [:dimmers]))
    (ct/set-cue! (:cue-grid *show*) 5 2
                 (cues/cue :puck-dimmers (fn [var-map] (dimmer-effect
                                                        (params/bind-keyword-param (:level var-map 255) Number 255)
                                                        (show/fixtures-named "puck")
                                                        :effect-name "Puck Dimmers"))
                           :variables [{:key "level" :min 0 :max 255 :start 255 :name "Level"}]
                           :color :yellow :end-keys [:dimmers]))
    (ct/set-cue! (:cue-grid *show*) 6 2
                 (cues/cue :snowball-dimmers (fn [var-map] (dimmer-effect
                                                            (params/bind-keyword-param (:level var-map 255) Number 255)
                                                            (show/fixtures-named "snowball")
                                                            :effect-name "Snowball Dimmers"))
                           :variables [{:key "level" :min 0 :max 255 :start 255 :name "Level"}]
                           :color :yellow :end-keys [:dimmers]))

    ;; TODO: Write a macro to make it easier to bind cue variables?
    (ct/set-cue! (:cue-grid *show*) 7 2
                 (cues/cue :sparkle (fn [var-map] (fun/sparkle (show/all-fixtures)
                                                               :chance (:chance var-map 0.05)
                                                               :fade-time (:fade-time var-map 50)))
                           :held true
                           :priority 100
                           :variables [{:key "chance" :min 0.0 :max 0.4 :start 0.05 :velocity true}
                                       {:key "fade-time" :name "Fade" :min 1 :max 2000 :start 50 :type :integer}]))


    ;; Dimmer oscillator cues: Sawtooth 
    (make-sawtooth-cue "All Sawtooth" 0 3 :dimmers (show/all-fixtures) :color :yellow
                       :end-keys [:torrent-dimmers :blade-dimmers :ws-dimmers :puck-dimmers :hex-dimmers
                                  :snowball-dimmers])

    (make-sawtooth-cue "Torrent Saw" 1 3 :torrent-dimmers (show/fixtures-named "torrent") :color :orange
                       :end-keys [:dimmers])

    (make-sawtooth-cue "Blade Saw" 2 3 :blade-dimmers (show/fixtures-named "blade") :color :orange
                       :end-keys [:dimmers])

    (make-sawtooth-cue "WS Saw" 3 3 :ws-dimmers (show/fixtures-named "ws") :color :orange
                       :end-keys [:dimmers])

    (make-sawtooth-cue "Hex Saw" 4 3 :hex-dimmers (show/fixtures-named "hex") :color :orange
                       :end-keys [:dimmers])

    (make-sawtooth-cue "Puck Saw" 5 3 :puck-dimmers (show/fixtures-named "puck") :color :orange
                       :end-keys [:dimmers])

    (make-sawtooth-cue "Snowball Saw" 6 3 :snowball-dimmers (show/fixtures-named "snowball") :color :orange
                       :end-keys [:dimmers])

    (ct/set-cue! (:cue-grid *show*) 7 3
                 (cues/cue :sawtooth-down? (fn [_] (var-fx/variable-effect @var-binder :sawtooth-down? false))
                           :color :red :short-name "Saw Up"))

    ;; Dimmer oscillator cues: Triangle
    (make-triangle-cue "All Triangle" 0 4 :dimmers (show/all-fixtures) :color :orange
                       :end-keys [:torrent-dimmers :blade-dimmers :ws-dimmers :puck-dimmers :hex-dimmers
                                  :snowball-dimmers])

    (make-triangle-cue "Torrent Triangle" 1 4 :torrent-dimmers (show/fixtures-named "torrent") :color :red
                       :end-keys [:dimmers])

    (make-triangle-cue "Blade Triangle" 2 4 :blade-dimmers (show/fixtures-named "blade") :color :red
                       :end-keys [:dimmers])

    (make-triangle-cue "WS Triangle" 3 4 :ws-dimmers (show/fixtures-named "ws") :color :red
                       :end-keys [:dimmers])

    (make-triangle-cue "Hex Triangle" 4 4 :hex-dimmers (show/fixtures-named "hex") :color :red
                       :end-keys [:dimmers])

    (make-triangle-cue "Puck Triangle" 5 4 :puck-dimmers (show/fixtures-named "puck") :color :red
                       :end-keys [:dimmers])

    (make-triangle-cue "Snowball Triangle" 6 4 :snowball-dimmers (show/fixtures-named "snowball") :color :red
                       :end-keys [:dimmers])

    ;; Dimmer oscillator cues: Sine
    (make-sine-cue "All Sine" 0 5 :dimmers (show/all-fixtures) :color :cyan
                   :end-keys [:torrent-dimmers :blade-dimmers :ws-dimmers :puck-dimmers :hex-dimmers
                              :snowball-dimmers])

    (make-sine-cue "Torrent Sine" 1 5 :torrent-dimmers (show/fixtures-named "torrent") :color :blue
                       :end-keys [:dimmers])

    (make-sine-cue "Blade Sine" 2 5 :blade-dimmers (show/fixtures-named "blade") :color :blue
                       :end-keys [:dimmers])

    (make-sine-cue "WS Sine" 3 5 :ws-dimmers (show/fixtures-named "ws") :color :blue
                       :end-keys [:dimmers])

    (make-sine-cue "Hex Sine" 4 5 :hex-dimmers (show/fixtures-named "hex") :color :blue
                       :end-keys [:dimmers])

    (make-sine-cue "Puck Sine" 5 5 :puck-dimmers (show/fixtures-named "puck") :color :blue
                       :end-keys [:dimmers])

    (make-sine-cue "Snowball Sine" 6 5 :snowball-dimmers (show/fixtures-named "snowball") :color :blue
                       :end-keys [:dimmers])

    (ct/set-cue! (:cue-grid *show*) 7 5
                 (cues/cue :beat-ratio
                           (fn [_] (fx/blank "Starting Ratio"))
                           :variables [{:key :starting-beats :min 1 :max 32 :type :integer :name "Beats"}
                                       {:key :starting-cycles :min 1 :max 10 :type :integer :name "Cycles"}]))

    ;; Dimmer oscillator cues: Square
    (make-square-cue "All Square" 0 6 :dimmers (show/all-fixtures) :color :cyan
                   :end-keys [:torrent-dimmers :blade-dimmers :ws-dimmers :puck-dimmers :hex-dimmers
                              :snowball-dimmers])

    (make-square-cue "Torrent Square" 1 6 :torrent-dimmers (show/fixtures-named "torrent") :color :green
                       :end-keys [:dimmers])

    (make-square-cue "Blade Square" 2 6 :blade-dimmers (show/fixtures-named "blade") :color :green
                       :end-keys [:dimmers])

    (make-square-cue "WS Square" 3 6 :ws-dimmers (show/fixtures-named "ws") :color :green
                       :end-keys [:dimmers])

    (make-square-cue "Hex Square" 4 6 :hex-dimmers (show/fixtures-named "hex") :color :green
                       :end-keys [:dimmers])

    (make-square-cue "Puck Square" 5 6 :puck-dimmers (show/fixtures-named "puck") :color :green
                       :end-keys [:dimmers])

    (make-square-cue "Snowball Square" 6 6 :snowball-dimmers (show/fixtures-named "snowball") :color :green
                       :end-keys [:dimmers])

    (ct/set-cue! (:cue-grid *show*) 7 6
                 (cues/cue :beat-ratio
                           (fn [_] (fx/blank "Starting Shape"))
                           :variables [{:key :starting-width :min 0 :max 1 :name "Width"}
                                     {:key :starting-phase :min 0 :max 1 :name "Phase"}]))

    ;; Strobe cues
    (make-strobe-cue-2 "All" (show/all-fixtures) 0 7)
    (make-strobe-cue-2 "Torrents" (show/fixtures-named "torrent") 1 7)
    (make-strobe-cue-2 "Blades" (show/fixtures-named "blade") 2 7)
    (make-strobe-cue-2 "Weather Systems" (show/fixtures-named "ws") 3 7)
    (make-strobe-cue-2 "Hexes" (show/fixtures-named "hex") 4 7)
    (make-strobe-cue-2 "Pucks" (show/fixtures-named "puck") 5 7)
    (make-strobe-cue-2 "Snowball" (show/fixtures-named "snowball") 6 7)

    (let [color-var {:key :strobe-color :type :color :name "Strobe Color"}]
      (ct/set-cue! (:cue-grid *show*) 7 7
                   (cues/cue :strobe-color (fn [_] (fx/blank "Strobe Color"))
                             :color :purple
                             :color-fn (cues/color-fn-from-cue-var color-var)
