1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
declare name "pink -- pink noise";
declare author "Albert Graef";
declare version "1.0";
import("music.lib");
// control variables
vol = nentry("vol", 0.3, 0, 10, 0.01); // %
pan = nentry("pan", 0.5, 0, 1, 0.01); // %
// pink noise filter (-3dB per octave), see musicdsp.org
pink = f : (+ ~ g) with {
f(x) = 0.04957526213389*x - 0.06305581334498*x' +
0.01483220320740*x'';
g(x) = 1.80116083982126*x - 0.80257737639225*x';
};
// pink noise generator
process = (noise:pink)*vol : panner(pan);
|
