-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathallpass2~.pd
43 lines (43 loc) · 1.07 KB
/
allpass2~.pd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
#N canvas 0 39 612 701 10;
#X obj 21 3 inlet~;
#X obj 423 4 inlet;
#X obj 22 314 outlet~;
#X obj 301 61 samplerate~;
#X obj 423 98 expr tan(2*acos(0) * $f1 / $f2);
#X obj 423 122 expr ($f1 - 1) / ($f1 + 1);
#X obj 301 36 t b;
#X text 19 -36 Second order allpass filter;
#X obj 80 3 inlet;
#X obj 80 98 expr -cos(4*acos(0) * $f1 / $f2);
#X text 646 98 tan(pi * f_b / f_s);
#X text 175 116 d = -cos(2*pi f_c / f_s);
#X text 613 122 c;
#X obj 80 171 expr $f1 * (1 - $f2);
#X text 231 173 d (1 - c);
#X text 123 3 f_c = cutoff frequency (Hz);
#X text 468 5 bandwidth (Hz);
#X obj 22 286 biquad~;
#X obj 80 216 * -1;
#X obj 127 216 * -1;
#X obj 80 251 pack f f f f 1;
#X connect 0 0 17 0;
#X connect 1 0 4 0;
#X connect 1 0 6 0;
#X connect 3 0 4 1;
#X connect 3 0 9 1;
#X connect 4 0 5 0;
#X connect 5 0 13 1;
#X connect 5 0 19 0;
#X connect 5 0 20 1;
#X connect 6 0 3 0;
#X connect 6 0 9 0;
#X connect 6 0 4 0;
#X connect 8 0 6 0;
#X connect 8 0 9 0;
#X connect 9 0 13 0;
#X connect 13 0 18 0;
#X connect 13 0 20 3;
#X connect 17 0 2 0;
#X connect 18 0 20 0;
#X connect 19 0 20 2;
#X connect 20 0 17 0;