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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
|
#N canvas 127 203 746 628 10;
#X obj 342 172 mtof;
#X floatatom 342 156 5 0 127 0 - - -, f 5;
#X floatatom 477 170 5 0 0 0 - - -, f 5;
#X obj 28 425 hip~ 2;
#X msg 81 425 clear;
#X obj 135 137 pack f f f f f;
#X obj 135 91 mtof;
#X floatatom 135 74 5 0 0 0 - - -, f 5;
#X floatatom 240 92 5 0 0 0 - - -, f 5;
#X obj 147 225 pack f f f f f;
#X obj 147 180 mtof;
#X floatatom 147 162 5 0 0 0 - - -, f 5;
#X floatatom 252 180 5 0 0 0 - - -, f 5;
#X obj 158 315 pack f f f f f;
#X obj 158 270 mtof;
#X floatatom 158 250 5 0 0 0 - - -, f 5;
#X floatatom 263 270 5 0 0 0 - - -, f 5;
#X obj 555 135 pack f f f f f;
#X obj 555 90 mtof;
#X floatatom 555 72 5 0 0 0 - - -, f 5;
#X floatatom 673 92 5 0 0 0 - - -, f 5;
#X obj 28 397 noise~;
#X obj 27 520 dac~;
#X obj 135 383 t a;
#X obj 325 135 pack f f f f f;
#X obj 325 90 mtof;
#X floatatom 325 72 5 0 0 0 - - -, f 5;
#X floatatom 386 90 5 0 0 0 - - -, f 5;
#X obj 325 350 t a;
#X floatatom 447 93 5 0 0 0 - - -, f 5;
#X obj 28 493 *~ 0.1;
#X obj 342 215 pack f f f f f;
#X obj 358 277 mtof;
#X floatatom 358 261 5 0 127 0 - - -, f 5;
#X floatatom 493 275 5 0 0 0 - - -, f 5;
#X obj 358 320 pack f f f f f;
#X text 45 34 y(n) = b0 x(n) + b1 x(n-1) + b2 x(n-2) -a1 y(n-1) -a2
y(n-2);
#N canvas 0 50 450 300 5_line~ 0;
#X obj 80 123 line~;
#X obj 79 147 outlet~;
#X obj 80 73 inlet;
#X obj 136 123 line~;
#X obj 135 147 outlet~;
#X obj 136 73 inlet;
#X obj 193 123 line~;
#X obj 192 147 outlet~;
#X obj 193 73 inlet;
#X obj 247 123 line~;
#X obj 246 147 outlet~;
#X obj 247 73 inlet;
#X obj 304 123 line~;
#X obj 303 147 outlet~;
#X obj 304 73 inlet;
#X msg 80 96 \$1 133;
#X msg 136 96 \$1 133;
#X msg 193 96 \$1 133;
#X msg 247 96 \$1 133;
#X msg 304 96 \$1 133;
#X connect 0 0 1 0;
#X connect 2 0 15 0;
#X connect 3 0 4 0;
#X connect 5 0 16 0;
#X connect 6 0 7 0;
#X connect 8 0 17 0;
#X connect 9 0 10 0;
#X connect 11 0 18 0;
#X connect 12 0 13 0;
#X connect 14 0 19 0;
#X connect 15 0 0 0;
#X connect 16 0 3 0;
#X connect 17 0 6 0;
#X connect 18 0 9 0;
#X connect 19 0 12 0;
#X restore 135 424 pd 5_line~;
#X obj 135 403 unpack f f f f f;
#N canvas 0 50 444 301 oscillo 0;
#X obj 41 25 loadbang;
#X obj 26 223 metro 100;
#X obj 8 -9 inlet~;
#X msg 41 47 1;
#X obj 42 81 tgl 20 0 empty empty Stop 0 -6 0 8 -258699 -1 -1 1 1;
#X obj 118 -3 inlet;
#X msg 147 48 1;
#X msg 115 48 0;
#X obj 118 21 moses 10;
#X obj 19 263 tabwrite~ \$0-oscillo;
#X obj 100 140 cnv 1 300 1 empty empty empty 20 12 0 14 -195568 -66577
0;
#N canvas 0 50 767 419 (subpatch) 0;
#X array \$0-oscillo 300 float 0;
#X coords 0 1 299 -1 300 80 1;
#X restore 100 100 graph;
#X obj 110 75 change;
#X obj 234 62 block~ 640 1 0.25;
#X connect 0 0 3 0;
#X connect 1 0 9 0;
#X connect 2 0 9 0;
#X connect 3 0 4 0;
#X connect 4 0 1 0;
#X connect 5 0 8 0;
#X connect 6 0 12 0;
#X connect 7 0 12 0;
#X connect 8 0 7 0;
#X connect 8 1 6 0;
#X connect 8 1 1 1;
#X connect 12 0 1 0;
#X coords 0 -1 1 1 300 80 1 100 100;
#X restore 83 497 pd oscillo;
#X obj 29 466 bq~ ---------;
#X text 27 6 bq~ is a biquad \, but with audio input for the coeficients.
Out out is :;
#X text 43 52 (it's not the same structure than biquad~ ! );
#N canvas 0 98 595 201 bq~ 0;
#X obj 56 60 inlet~;
#X obj 192 58 inlet~;
#X obj 239 58 inlet~;
#X obj 319 59 inlet~;
#X obj 366 59 inlet~;
#X obj 412 58 inlet~;
#X text 323 37 b0;
#X obj 56 156 outlet~;
#X msg 67 84 clear;
#X text 188 34 a1;
#X obj 57 113 fexpr~ $x4[0]*$x1[0] + $x5[0]*$x1[-1] + $x6[0]*$x1[-2]
- $x2[0]*$y1[-1] - $x3[0]*$y1[-2];
#X connect 0 0 10 0;
#X connect 1 0 10 1;
#X connect 2 0 10 2;
#X connect 3 0 10 3;
#X connect 4 0 10 4;
#X connect 5 0 10 5;
#X connect 8 0 10 0;
#X connect 10 0 7 0;
#X restore 19 597 pd bq~ ---;
#X text 101 597 <- drop in remplacement for bq~ \, using fexpr~ (lot's
slower);
#X obj 555 313 t a;
#X obj 135 113 bq_coef_lop;
#X obj 148 201 bq_coef_hip;
#X obj 158 294 bq_coef_bp;
#X obj 325 113 bq_coef_peak;
#X obj 342 192 bq_coef_highshelf;
#X obj 358 297 bq_coef_lowshelf;
#X obj 555 113 bq_coef_notch;
#X connect 0 0 50 0;
#X connect 1 0 0 0;
#X connect 2 0 50 1;
#X connect 3 0 40 0;
#X connect 4 0 40 0;
#X connect 5 0 23 0;
#X connect 6 0 46 0;
#X connect 7 0 6 0;
#X connect 8 0 46 1;
#X connect 9 0 23 0;
#X connect 10 0 47 0;
#X connect 11 0 10 0;
#X connect 12 0 47 1;
#X connect 13 0 23 0;
#X connect 14 0 48 0;
#X connect 15 0 14 0;
#X connect 16 0 48 1;
#X connect 17 0 45 0;
#X connect 18 0 52 0;
#X connect 19 0 18 0;
#X connect 20 0 52 1;
#X connect 21 0 3 0;
#X connect 23 0 38 0;
#X connect 24 0 28 0;
#X connect 25 0 49 0;
#X connect 26 0 25 0;
#X connect 27 0 49 1;
#X connect 28 0 23 0;
#X connect 29 0 49 2;
#X connect 30 0 22 0;
#X connect 30 0 22 1;
#X connect 31 0 28 0;
#X connect 32 0 51 0;
#X connect 33 0 32 0;
#X connect 34 0 51 1;
#X connect 35 0 28 0;
#X connect 37 0 40 1;
#X connect 37 1 40 2;
#X connect 37 2 40 3;
#X connect 37 3 40 4;
#X connect 37 4 40 5;
#X connect 38 0 37 0;
#X connect 38 1 37 1;
#X connect 38 2 37 2;
#X connect 38 3 37 3;
#X connect 38 4 37 4;
#X connect 40 0 39 0;
#X connect 40 0 30 0;
#X connect 45 0 28 0;
#X connect 46 0 5 0;
#X connect 46 1 5 1;
#X connect 46 2 5 2;
#X connect 46 3 5 3;
#X connect 46 4 5 4;
#X connect 47 0 9 0;
#X connect 47 1 9 1;
#X connect 47 2 9 2;
#X connect 47 3 9 3;
#X connect 47 4 9 4;
#X connect 48 0 13 0;
#X connect 48 1 13 1;
#X connect 48 2 13 2;
#X connect 48 3 13 3;
#X connect 48 4 13 4;
#X connect 49 0 24 0;
#X connect 49 1 24 1;
#X connect 49 2 24 2;
#X connect 49 3 24 3;
#X connect 49 4 24 4;
#X connect 50 0 31 0;
#X connect 50 1 31 1;
#X connect 50 2 31 2;
#X connect 50 3 31 3;
#X connect 50 4 31 4;
#X connect 51 0 35 0;
#X connect 51 1 35 1;
#X connect 51 2 35 2;
#X connect 51 3 35 3;
#X connect 51 4 35 4;
#X connect 52 0 17 0;
#X connect 52 1 17 1;
#X connect 52 2 17 2;
#X connect 52 3 17 3;
#X connect 52 4 17 4;
|
