-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathbq~-help.pd
270 lines (270 loc) · 6.7 KB
/
bq~-help.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
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
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
#N canvas 329 291 959 654 10;
#X obj 377 186 mtof;
#X floatatom 377 170 5 0 127 0 - - -, f 5;
#X floatatom 512 184 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 342 142 pack f f f f f;
#X obj 342 97 mtof;
#X floatatom 342 79 5 0 0 0 - - -, f 5;
#X floatatom 460 99 5 0 0 0 - - -, f 5;
#X obj 28 397 noise~;
#X obj 27 520 dac~;
#X obj 135 383 t a;
#X obj 594 143 pack f f f f f;
#X obj 594 98 mtof;
#X floatatom 594 80 5 0 0 0 - - -, f 5;
#X floatatom 655 98 5 0 0 0 - - -, f 5;
#X obj 594 338 t a;
#X floatatom 716 101 5 0 0 0 - - -, f 5;
#X obj 28 493 *~ 0.1;
#X obj 377 229 pack f f f f f;
#X obj 393 281 mtof;
#X floatatom 393 265 5 0 127 0 - - -, f 5;
#X floatatom 528 279 5 0 0 0 - - -, f 5;
#X obj 393 324 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 342 370 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 594 121 bq_coef_peak;
#X obj 377 206 bq_coef_highshelf;
#X obj 393 301 bq_coef_lowshelf;
#X obj 342 120 bq_coef_notch;
#X obj 594 508 pack f f f f f, f 24;
#X obj 530 568 biquad~;
#X obj 530 534 hip~ 2;
#X obj 530 506 noise~;
#X msg 596 541 clear;
#X obj 594 484 * -1;
#X obj 629 483 * -1;
#X obj 620 241 pack f f f f f;
#X obj 620 196 mtof;
#X floatatom 620 178 5 0 0 0 - - -, f 5;
#X floatatom 674 178 5 0 0 0 - - -, f 5;
#X floatatom 707 200 5 0 0 0 - - -, f 5;
#X obj 620 220 bq_coef_peak_BW;
#X obj 594 461 unpack f f f f f, f 24;
#X text 526 422 You can use this coef with vanilla biqued using this
transformation :;
#X text 689 96 Q;
#X text 713 178 Band Width (in octave);
#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 23 0 66 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 45 0;
#X connect 29 0 49 2;
#X connect 30 0 22 0;
#X connect 30 0 22 1;
#X connect 31 0 45 0;
#X connect 32 0 51 0;
#X connect 33 0 32 0;
#X connect 34 0 51 1;
#X connect 35 0 45 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 23 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;
#X connect 53 0 54 0;
#X connect 55 0 54 0;
#X connect 56 0 55 0;
#X connect 57 0 54 0;
#X connect 58 0 53 0;
#X connect 59 0 53 1;
#X connect 60 0 28 0;
#X connect 61 0 65 0;
#X connect 62 0 61 0;
#X connect 63 0 65 1;
#X connect 64 0 65 2;
#X connect 65 0 60 0;
#X connect 65 1 60 1;
#X connect 65 2 60 2;
#X connect 65 3 60 3;
#X connect 65 4 60 4;
#X connect 66 0 58 0;
#X connect 66 1 59 0;
#X connect 66 2 53 2;
#X connect 66 3 53 3;
#X connect 66 4 53 4;