30 lines
964 B
Scheme
30 lines
964 B
Scheme
|
;; (dgeom length start grow)
|
||
|
|
|
||
|
|
;; demand rate geometric series ugen.
|
||
|
|
|
||
|
|
;; start - start value
|
||
|
|
;; grow - value by which to grow ( x = x[-1] * grow )
|
||
|
|
;; length - number of values to create
|
||
|
|
|
||
|
|
;; The arguments can be a number or any other ugen
|
||
|
|
|
||
|
|
(let* ((a (dgeom 15 1 1.2))
|
||
|
|
(t (impulse kr (mouse-x kr 1 40 1 0.1) 0))
|
||
|
|
(f (mul-add (demand t 0 a) 30 340)))
|
||
|
|
(audition (out 0 (mul (sin-osc ar f 0) 0.1))))
|
||
|
|
|
||
|
|
;; demand rate UGens are not shared...
|
||
|
|
|
||
|
|
(let* ((a (dgeom 15 1 1.2))
|
||
|
|
(t (impulse ar (mouse-x kr 1 40 1 0.1) 0))
|
||
|
|
(f0 (mul-add (demand (delay1 t) 0 a) 30 340))
|
||
|
|
(f1 (mul-add (demand t 0 a) 30 340)))
|
||
|
|
(audition (out 0 (mul (sin-osc ar (mce2 f0 f1) 0) 0.1))))
|
||
|
|
|
||
|
|
(let* ((a0 (dgeom 15 1 1.2))
|
||
|
|
(a1 (dgeom 15 1 1.2))
|
||
|
|
(t (impulse ar (mouse-x kr 1 40 1 0.1) 0))
|
||
|
|
(f0 (mul-add (demand (delay1 t) 0 a0) 30 340))
|
||
|
|
(f1 (mul-add (demand t 0 a1) 30 340)))
|
||
|
|
(audition (out 0 (mul (sin-osc ar (mce2 f0 f1) 0) 0.1))))
|