-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy path_filter~.pd
320 lines (320 loc) · 7.09 KB
/
_filter~.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
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
#N canvas 2101 242 799 758 10;
#X obj 57 37 inlet~;
#X obj 290 702 outlet~;
#X obj 119 39 loadbang;
#X obj 421 227 block~ 1 1 1;
#X msg 119 62 0;
#X obj 119 151 *~;
#X obj 119 122 -~;
#X obj 58 277 rzero~ -0.3;
#X obj 58 358 rzero~ -0.3;
#X obj 58 440 rzero~ -0.3;
#X obj 58 521 rzero~ -0.3;
#X obj 58 297 /~ 1.3;
#X obj 58 379 /~ 1.3;
#X obj 58 460 /~ 1.3;
#X obj 58 541 /~ 1.3;
#X obj 118 174 *~ -4;
#N canvas 330 615 450 300 lop~ 0;
#X obj 65 45 inlet~;
#X obj 65 100 *~;
#X obj 65 190 outlet~;
#X obj 65 160 rpole~;
#X obj 133 47 inlet~;
#X obj 192 47 inlet~;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 3 0 2 0;
#X connect 4 0 1 1;
#X connect 5 0 3 1;
#X restore 58 318 pd lop~;
#N canvas 1 130 450 300 disto~ 0;
#X obj 141 110 *~;
#X obj 141 81 abs~;
#X obj 53 45 inlet~;
#X obj 53 217 outlet~;
#X obj 125 142 -~;
#X obj 234 46 inlet~;
#X obj 126 176 *~;
#X connect 0 0 4 1;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 2 0 1 0;
#X connect 2 0 0 1;
#X connect 2 0 4 0;
#X connect 4 0 6 0;
#X connect 5 0 6 1;
#X connect 6 0 3 0;
#X restore 58 338 pd disto~;
#N canvas 330 615 450 300 lop~ 0;
#X obj 65 45 inlet~;
#X obj 65 100 *~;
#X obj 65 190 outlet~;
#X obj 65 160 rpole~;
#X obj 133 47 inlet~;
#X obj 192 47 inlet~;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 3 0 2 0;
#X connect 4 0 1 1;
#X connect 5 0 3 1;
#X restore 58 400 pd lop~;
#N canvas 1 125 450 300 disto~ 0;
#X obj 141 110 *~;
#X obj 141 81 abs~;
#X obj 53 45 inlet~;
#X obj 53 217 outlet~;
#X obj 125 142 -~;
#X obj 236 46 inlet~;
#X obj 126 176 *~;
#X connect 0 0 4 1;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 2 0 1 0;
#X connect 2 0 0 1;
#X connect 2 0 4 0;
#X connect 4 0 6 0;
#X connect 5 0 6 1;
#X connect 6 0 3 0;
#X restore 58 420 pd disto~;
#N canvas 332 610 450 300 lop~ 0;
#X obj 65 45 inlet~;
#X obj 65 100 *~;
#X obj 65 190 outlet~;
#X obj 65 160 rpole~;
#X obj 133 47 inlet~;
#X obj 192 47 inlet~;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 3 0 2 0;
#X connect 4 0 1 1;
#X connect 5 0 3 1;
#X restore 58 481 pd lop~;
#N canvas 1 114 450 301 disto~ 0;
#X obj 141 110 *~;
#X obj 141 81 abs~;
#X obj 53 45 inlet~;
#X obj 53 217 outlet~;
#X obj 125 142 -~;
#X obj 235 45 inlet~;
#X obj 126 176 *~;
#X connect 0 0 4 1;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 2 0 1 0;
#X connect 2 0 0 1;
#X connect 2 0 4 0;
#X connect 4 0 6 0;
#X connect 5 0 6 1;
#X connect 6 0 3 0;
#X restore 58 501 pd disto~;
#N canvas 332 610 450 300 lop~ 0;
#X obj 65 45 inlet~;
#X obj 65 100 *~;
#X obj 65 190 outlet~;
#X obj 65 160 rpole~;
#X obj 133 47 inlet~;
#X obj 192 47 inlet~;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 3 0 2 0;
#X connect 4 0 1 1;
#X connect 5 0 3 1;
#X restore 58 561 pd lop~;
#N canvas 1 115 450 300 disto~ 0;
#X obj 141 110 *~;
#X obj 141 81 abs~;
#X obj 53 45 inlet~;
#X obj 53 217 outlet~;
#X obj 125 142 -~;
#X obj 234 45 inlet~;
#X obj 126 176 *~;
#X connect 0 0 4 1;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 2 0 1 0;
#X connect 2 0 0 1;
#X connect 2 0 4 0;
#X connect 4 0 6 0;
#X connect 5 0 6 1;
#X connect 6 0 3 0;
#X restore 58 581 pd disto~;
#N canvas 858 278 227 202 hz2rad 0;
#X obj 88 50 samplerate~;
#X msg 88 76 6.28319 \$1;
#X obj 88 98 /;
#X obj 28 148 *~;
#X obj 28 20 inlet~;
#X obj 88 20 loadbang;
#X obj 28 179 outlet~;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 3 1;
#X connect 3 0 6 0;
#X connect 4 0 3 0;
#X connect 5 0 0 0;
#X restore 285 103 pd hz2rad;
#X obj 285 129 clip~ 0 1;
#X obj 208 219 *~ 0.992;
#X obj 284 171 *~;
#X obj 298 194 *~;
#X obj 228 240 *~ -0.4342;
#X obj 247 261 *~ 0.1381;
#X obj 321 219 *~;
#X obj 208 329 +~;
#X obj 267 282 *~ -0.0202;
#X obj 221 356 *~ -1;
#X obj 220 378 +~ 1;
#X obj 368 40 inlet~;
#X obj 284 39 inlet~;
#N canvas 1 145 450 300 disto~ 0;
#X obj 141 110 *~;
#X obj 141 81 abs~;
#X obj 53 45 inlet~;
#X obj 53 217 outlet~;
#X obj 125 142 -~;
#X obj 235 46 inlet~;
#X obj 126 176 *~;
#X connect 0 0 4 1;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 2 0 1 0;
#X connect 2 0 0 1;
#X connect 2 0 4 0;
#X connect 4 0 6 0;
#X connect 5 0 6 1;
#X connect 6 0 3 0;
#X restore 58 258 pd disto~;
#X text 416 165 cyrille Henry 2016;
#X text 414 192 based on algorythm by Vesa Valimaki and Antti Huovilainen
;
#N canvas 2310 511 597 311 disto 0;
#X obj 137 110 *~;
#X obj 137 81 abs~;
#X obj 49 45 inlet~;
#X obj 49 217 outlet~;
#X obj 121 142 -~;
#X text 201 116 change this disto to change hight resonance caracteristics
of this filter;
#X obj 122 177 *~ 0.25;
#X connect 0 0 4 1;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 2 0 1 0;
#X connect 2 0 0 1;
#X connect 2 0 4 0;
#X connect 4 0 6 0;
#X connect 6 0 3 0;
#X restore 117 197 pd disto;
#X obj 289 656 *~;
#X obj 324 656 *~;
#X obj 360 656 *~;
#X obj 396 656 *~;
#X obj 304 385 symbol \$1;
#X obj 304 337 loadbang;
#X obj 304 361 t b b;
#X msg 304 434 0 0 0 0 1;
#X obj 304 546 unpack f f f f f;
#X obj 431 656 *~;
#X msg 337 453 0 0 1 0 0;
#X msg 405 492 1 -2 1 0 0;
#X obj 464 42 inlet~;
#X obj 464 68 clip~ 0 1;
#X obj 304 412 sel LP24 LP12 BP12 HP12;
#X text 414 282 The caractere of this filter can be tuned changing
the various disto~;
#X obj 119 85 delread~ \$0-block;
#N canvas 204 649 450 300 \$0-delwrite 0;
#X obj 39 23 inlet~;
#X obj 38 53 delwrite~ \$0-block 1000;
#X connect 0 0 1 0;
#X restore 80 605 pd \$0-delwrite;
#X obj 67 61 *~ 0.5;
#X msg 371 472 0 -2 2 0 0;
#X connect 0 0 38 0;
#X connect 0 0 60 0;
#X connect 2 0 4 0;
#X connect 4 0 58 0;
#X connect 5 0 15 0;
#X connect 6 0 5 0;
#X connect 7 0 11 0;
#X connect 8 0 12 0;
#X connect 9 0 13 0;
#X connect 10 0 14 0;
#X connect 11 0 16 0;
#X connect 12 0 18 0;
#X connect 13 0 20 0;
#X connect 14 0 22 0;
#X connect 15 0 41 0;
#X connect 16 0 17 0;
#X connect 17 0 8 0;
#X connect 17 0 43 0;
#X connect 18 0 19 0;
#X connect 19 0 9 0;
#X connect 19 0 44 0;
#X connect 20 0 21 0;
#X connect 21 0 10 0;
#X connect 21 0 45 0;
#X connect 22 0 23 0;
#X connect 23 0 59 0;
#X connect 23 0 51 0;
#X connect 24 0 25 0;
#X connect 25 0 26 0;
#X connect 25 0 27 0;
#X connect 25 0 27 1;
#X connect 25 0 28 1;
#X connect 25 0 31 1;
#X connect 26 0 32 0;
#X connect 27 0 28 0;
#X connect 27 0 29 0;
#X connect 28 0 30 0;
#X connect 28 0 31 0;
#X connect 29 0 32 0;
#X connect 30 0 32 0;
#X connect 31 0 33 0;
#X connect 32 0 16 1;
#X connect 32 0 18 1;
#X connect 32 0 20 1;
#X connect 32 0 22 1;
#X connect 32 0 34 0;
#X connect 33 0 32 0;
#X connect 34 0 35 0;
#X connect 35 0 16 2;
#X connect 35 0 18 2;
#X connect 35 0 20 2;
#X connect 35 0 22 2;
#X connect 36 0 5 1;
#X connect 37 0 24 0;
#X connect 38 0 7 0;
#X connect 38 0 42 0;
#X connect 41 0 38 0;
#X connect 42 0 1 0;
#X connect 43 0 1 0;
#X connect 44 0 1 0;
#X connect 45 0 1 0;
#X connect 46 0 56 0;
#X connect 47 0 48 0;
#X connect 48 0 46 0;
#X connect 48 1 49 0;
#X connect 49 0 50 0;
#X connect 50 0 42 1;
#X connect 50 1 43 1;
#X connect 50 2 44 1;
#X connect 50 3 45 1;
#X connect 50 4 51 1;
#X connect 51 0 1 0;
#X connect 52 0 50 0;
#X connect 53 0 50 0;
#X connect 54 0 55 0;
#X connect 55 0 38 1;
#X connect 55 0 17 1;
#X connect 55 0 19 1;
#X connect 55 0 21 1;
#X connect 55 0 23 1;
#X connect 56 0 49 0;
#X connect 56 1 52 0;
#X connect 56 2 61 0;
#X connect 56 3 53 0;
#X connect 58 0 6 0;
#X connect 60 0 6 1;
#X connect 61 0 50 0;