28 lines
838 B
Scheme
28 lines
838 B
Scheme
|
;; (latch in trig)
|
||
|
|
|
||
|
|
;; Sample and hold. Holds input signal value when triggered.
|
||
|
|
|
||
|
|
;; in - input signal.
|
||
|
|
;; trig - trigger. The trigger can be any signal. A trigger happens when the
|
||
|
|
;; signal changes from non-positive to positive.
|
||
|
|
|
||
|
|
(audition
|
||
|
|
(out 0 (mul (blip ar (mul-add (latch (white-noise ar) (impulse ar 9 0))
|
||
|
|
400 500) 4)
|
||
|
|
0.2)))
|
||
|
|
|
||
|
|
;; The above is just meant as example. lf-noise0 is a faster way to
|
||
|
|
;; generate random steps :
|
||
|
|
|
||
|
|
(audition
|
||
|
|
(out 0 (mul (blip ar (mul-add (lf-noise0 kr 9) 400 500) 4) 0.2)))
|
||
|
|
|
||
|
|
;; http://create.ucsb.edu/pipermail/sc-users/2006-December/029991.html
|
||
|
|
|
||
|
|
(let* ((n0 (mul-add (lf-noise2 kr 8) 200 300))
|
||
|
|
(n1 (mul-add (lf-noise2 kr 3) 10 20))
|
||
|
|
(s (blip ar n0 n1))
|
||
|
|
(x (mouse-x kr 1000 (mul sample-rate 0.1) 1 0.1)))
|
||
|
|
(audition
|
||
|
|
(out 0 (latch s (impulse ar x 0)))))
|