#lang scribble/manual
@(require (for-label racket))

@title{(dswitch1 index array)}

demand rate generator for switching between inputs

index - which of the inputs to return
array - array of values or other ugens

(let* ((x (mouse-x kr 0 4 0 0.1))
       (y (mouse-y kr 1 15 0 0.1))
       (a (dswitch1 x (make-mce (list 1 3 y 2 (dwhite 2 0 3)))))
       (t (impulse kr 3 0))
       (f (mul-add (demand t 0 a) 30 340)))
  (audition (out 0 (mul (sin-osc ar f 0) 0.1))))