                                      {:key "fade-time" :name "Fade" :min 1 :max 2000 :start 50 :type :integer}]))
 
     (ct/set-cue! (:cue-grid *show*) 0 6
-                 (cues/function-cue :strobe-all :strobe (show/all-fixtures)))
+                 (cues/function-cue :strobe-all :strobe (show/all-fixtures) :effect-name "Strobe"))
 
 
     (ct/set-cue! (:cue-grid *show*) 0 3


(defn add-xyz-controls
  []
  #_(show/add-midi-control-to-var-mapping "Slider" 0 4 :x)
  #_(show/add-midi-control-to-var-mapping "Slider" 0 5 :y)
  #_(show/add-midi-control-to-var-mapping "Slider" 0 6 :z)
  (show/add-effect! :position
                    (move/direction-effect
                     "Pointer" (params/build-direction-param :x :x :y :y :z :z) (show/all-fixtures)))
  #_(show/add-effect! :position
                    (move/aim-effect
                     "Aimer" (params/build-aim-param :x :x :y :y :z :z) (show/all-fixtures)))
  #_(show/set-variable! :y  2.6416))  ; Approximate height of ceiling

(defn global-color-cue
  "Create a cue-grid entry which establishes a global color effect."

            [afterglow.show :as show]
            [afterglow.show-context :refer :all]
            [com.evocomputing.colors :refer [color-name create-color hue adjust-hue]]
            [overtone.osc :as osc]
            [taoensso.timbre :as timbre]))

(defn use-sample-show
