         cycles-param (params/bind-keyword-param (:cycles var-map) Number 1)]
     (params/build-param-formula Number #(/ %1 %2) beats-param cycles-param)))
 
-(defn make-sawtooth-cue
+(defn make-sawtooth-dimmer-cue
   "Create a cue which applies a sawtooth oscillator to the dimmers of
-  the specified group of fixtures, with cue parameters to adjust the
-  beat ratio, starting with default values established by show
-  parameters."
+  the specified group of fixtures, with cue variables to adjust the
+  oscillator parameters."
   [group x y color]
   (let [[effect-key fixtures end-keys effect-name] (build-group-cue-elements group "dimmers" "saw")]
     (ct/set-cue! (:cue-grid *show*) x y

                                        fixtures
                                        :effect-name effect-name))
                         :color color
                         :variables [{:key "beats" :min 1 :max 32 :type :integer :start :starting-beats :name "Beats"}
                                     {:key "cycles" :min 1 :max 10 :type :integer :start :starting-cycles
                                      :name "Cycles"}
                                     {:key "phase" :min 0 :max 1 :start :starting-phase :name "Phase"}]
                         :end-keys end-keys))))

(defn make-sine-cue
  "Create a cue which applies a sine oscillator to the dimmers of the
  specified set of fixtures, with cue parameters to adjust the beat
  ratio, starting with default values established by show parameters."
  [group x y color]
  (let [[effect-key fixtures end-keys effect-name] (build-group-cue-elements group "dimmers" "sine")]
    (ct/set-cue! (:cue-grid *show*) x y

                           :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-dimmer-cue nil 0 3 :yellow)
    (doall (map-indexed (fn [i group] (make-sawtooth-dimmer-cue group (inc i) 3 :orange)) light-groups))

    ;; Dimmer oscillator cues: Triangle
    (make-triangle-dimmer-cue nil 0 4 :orange)
    (doall (map-indexed (fn [i group] (make-triangle-dimmer-cue group (inc i) 4 :red)) light-groups))

    ;; Dimmer oscillator cues: Sine
    (make-sine-dimmer-cue nil 0 5 :cyan)
    (doall (map-indexed (fn [i group] (make-sine-dimmer-cue group (inc i) 5 :blue)) light-groups))

    ;; Dimmer oscillator cues: Square
    (make-square-dimmer-cue nil 0 6 :cyan)
    (doall (map-indexed (fn [i group] (make-square-dimmer-cue group (inc i) 6 :green)) light-groups))

    ;; Strobe cues
    (make-strobe-cue-2 "All" (show/all-fixtures) 0 7)
