                              :color :orange :short-name "Group B flip XY"))))
 
 (defn make-cues
-  "Create a bunch of example cues for experimentation."
-  []
+  "Create a bunch of example cues for experimentation. If Beyond laser
+  show integration is desired, `add-beyond?` will be `true`."
+  [add-beyond?]
   ;; Create an OSC client that so cues can send their state to TouchOSC.
   (when (nil? @osc-client)
     (reset! osc-client (osc/osc-client ipad-address 9000)))

(defn make-main-color-dimmer-cues
  "Creates a page of cues that assign dimmers and colors to the
  lights. This is probably going to be assigned as the first page, but
  can be moved by passing non-zero values for `page-x` and `page-y`."
  [page-x page-y]
  (let [x-base (* page-x 8)
        y-base (* page-y 8)
        rig-left (:x (first (show/fixtures-named :hex-2)))

  it will create the show to use universe 1, but if you want to use a
  different universe (for example, a dummy universe on ID 0, because
  your DMX interface isn't handy right now), you can override that by
  supplying a different ID after :universe.

  If you have an instance of Pangolin Beyond running a laser show that
  you want to control as well, pass a true value with `:add-beyond?`."
  [& {:keys [universe extra-universe add-beyond?] :or {universe 1 extra-universe universe}}]
  ;; Since this class is an entry point for interactive REPL usage,
  ;; make sure a sane logging environment is established.
  (core/init-logging)
