12 lines
380 B
Scheme
12 lines
380 B
Scheme
|
;; (ti-rand lo hi trig)
|
||
|
|
|
||
|
|
;; Generates a random integer value in uniform distribution from lo to
|
||
|
|
;; hi each time the trig signal changes from nonpositive to positive
|
||
|
|
;; values
|
||
|
|
|
||
|
|
(let ((p (ti-rand -1 1 (dust kr 10))))
|
||
|
|
(audition (out 0 (pan2 (pink-noise ar) p 0.2))))
|
||
|
|
|
||
|
|
(let ((f (mul-add (ti-rand 4 12 (dust kr 10)) 150 (mce2 0 1))))
|
||
|
|
(audition (out 0 (mul (sin-osc ar f 0) 0.1))))
|