18 lines
603 B
Scheme
18 lines
603 B
Scheme
;; (lfclip-noise rate freq)
|
|
|
|
;; randomly generates the values -1 or +1 at a rate given by the
|
|
;; nearest integer division of the sample rate by the freq argument.
|
|
;; It is probably pretty hard on your speakers. The freq argument is
|
|
;; the approximate rate at which to generate random values.
|
|
|
|
(audition (out 0 (mul (lfclip-noise ar 1000) 0.1)))
|
|
|
|
;; Modulate frequency
|
|
|
|
(let ((f (x-line kr 1000 10000 10 remove-synth)))
|
|
(audition (out 0 (mul (lfclip-noise ar f) 0.1))))
|
|
|
|
;; Use as frequency control
|
|
|
|
(let ((f (mul-add (lfclip-noise kr 4) 200 600)))
|
|
(audition (out 0 (mul (sin-osc ar f 0) 0.2))))
|