2022-08-24 13:53:18 +00:00
|
|
|
#lang scribble/manual
|
|
|
|
@(require (for-label racket))
|
|
|
|
|
|
|
|
@title{(lfclip-noise rate freq)}
|
|
|
|
|
2022-08-28 10:27:01 +00:00
|
|
|
|
2022-08-24 13:53:18 +00:00
|
|
|
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.
|
|
|
|
|
2022-08-28 10:27:01 +00:00
|
|
|
|
|
|
|
@racketblock[
|
2022-08-24 13:53:18 +00:00
|
|
|
(audition (out 0 (mul (lfclip-noise ar 1000) 0.1)))
|
2022-08-28 10:27:01 +00:00
|
|
|
]
|
2022-08-24 13:53:18 +00:00
|
|
|
|
|
|
|
Modulate frequency
|
|
|
|
|
2022-08-28 10:27:01 +00:00
|
|
|
|
|
|
|
@racketblock[
|
2022-08-24 13:53:18 +00:00
|
|
|
(let ((f (x-line kr 1000 10000 10 remove-synth)))
|
|
|
|
(audition (out 0 (mul (lfclip-noise ar f) 0.1))))
|
2022-08-28 10:27:01 +00:00
|
|
|
]
|
2022-08-24 13:53:18 +00:00
|
|
|
|
|
|
|
Use as frequency control
|
|
|
|
|
2022-08-28 10:27:01 +00:00
|
|
|
|
|
|
|
@racketblock[
|
2022-08-24 13:53:18 +00:00
|
|
|
(let ((f (mul-add (lfclip-noise kr 4) 200 600)))
|
|
|
|
(audition (out 0 (mul (sin-osc ar f 0) 0.2))))
|
2022-08-28 10:27:01 +00:00
|
|
|
]
|
|
|
|
|
2022-08-24 13:53:18 +00:00
|
|
|
|