forked from patricksebastien/mtl
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathFFTComp~.pd
383 lines (383 loc) · 9.85 KB
/
FFTComp~.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
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
#N canvas 1 82 1272 661 10;
#X obj 134 480 outlet~;
#X obj 226 479 outlet~;
#X obj 26 218 inlet~;
#X obj 996 37 inlet params;
#X obj 996 83 print PARAM_NOTFOUND;
#X obj 996 59 tof/param route;
#X obj 994 116 b;
#X obj 994 141 tof/param gui;
#N canvas 0 50 1272 692 FFTComp 0;
#X obj -67 391 *~;
#X obj -100 392 *~;
#X obj -99 135 *~;
#X obj -99 89 inlet~;
#X obj -99 158 rfft~;
#X obj -101 463 *~;
#X obj -16 207 *~;
#X obj -100 415 rifft~;
#X obj -101 512 outlet~;
#X obj -50 207 *~;
#X obj -50 230 +~;
#X obj -50 360 clip~;
#X obj -84 111 tabreceive~ \$0-hann;
#X obj -50 255 +~ 1e-20;
#X obj -84 439 tabreceive~ \$0-hann;
#X text 10 207 squared magnitude;
#X text 8 251 protect against divide-by-zero;
#X text 10 284 quick 8-bit-accurate reciprocal square root;
#X text 9 300 (done by table lookup - about 0.25% accurate);
#X text -32 391 multiply gain by real and complex part;
#X text -33 405 of the amplitude;
#X text -57 158 outputs complex amplitudes;
#X obj 131 93 inlet;
#X obj -51 293 q8_rsqrt~;
#X text 125 76 squelch;
#X text -15 360 limit the gain to squelch*squelch/10000;
#X text -98 13 "...this works by multiplying each channel of the Fourier
analysis by a real number computed from the magnitude. If the magnutude
is "m" \, the correction factor is 1/m \, but only to an upper limit
controlled by the "squelch" parameter.";
#X obj 173 158 *;
#X obj 147 219 /;
#X msg 145 158 1;
#X obj 211 248 *;
#X obj 131 125 t f b f f;
#X obj -101 487 *~;
#X obj 162 192 clip 0.01 50;
#X obj -23 335 * 0.002;
#X obj 317 498 switch~ 1024 4 1;
#X msg 431 441 0;
#X msg 281 440 1;
#X text 280 78 64..65536;
#X obj 281 94 r \$0-FFTSize;
#X obj 307 218 /;
#X obj 380 93 r \$0-FFTOverlap;
#X text 397 75 1 2 4 8;
#X obj 346 398 pack 1 2;
#X msg 316 440 set \$1 \$2 1;
#X obj 380 150 t b b f b;
#X obj 281 150 t b b b f f f b;
#X msg 298 186 400;
#X floatatom 312 127 5 0 0 0 - - -, f 5;
#X floatatom 400 123 5 0 0 0 - - -, f 5;
#X connect 0 0 7 1;
#X connect 1 0 7 0;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 4 0 9 0;
#X connect 4 0 9 1;
#X connect 4 0 1 0;
#X connect 4 1 6 0;
#X connect 4 1 6 1;
#X connect 4 1 0 0;
#X connect 5 0 32 0;
#X connect 6 0 10 1;
#X connect 7 0 5 0;
#X connect 9 0 10 0;
#X connect 10 0 13 0;
#X connect 11 0 1 1;
#X connect 11 0 0 1;
#X connect 12 0 2 1;
#X connect 13 0 23 0;
#X connect 14 0 5 1;
#X connect 22 0 31 0;
#X connect 23 0 11 0;
#X connect 27 0 33 0;
#X connect 27 0 34 0;
#X connect 28 0 30 0;
#X connect 29 0 28 0;
#X connect 30 0 32 1;
#X connect 31 1 29 0;
#X connect 31 2 27 0;
#X connect 31 3 27 1;
#X connect 32 0 8 0;
#X connect 33 0 28 1;
#X connect 34 0 11 2;
#X connect 36 0 35 0;
#X connect 37 0 35 0;
#X connect 39 0 46 0;
#X connect 39 0 48 0;
#X connect 40 0 30 1;
#X connect 41 0 45 0;
#X connect 41 0 49 0;
#X connect 43 0 44 0;
#X connect 44 0 35 0;
#X connect 45 0 37 0;
#X connect 45 1 43 0;
#X connect 45 2 43 1;
#X connect 45 3 36 0;
#X connect 46 0 37 0;
#X connect 46 1 30 0;
#X connect 46 2 47 0;
#X connect 46 3 40 1;
#X connect 46 5 43 0;
#X connect 46 6 36 0;
#X connect 47 0 40 0;
#X restore 107 379 pd FFTComp;
#N canvas 0 50 1272 692 ARGO 0;
#X text 909 157 Nommer FFTGeneral???;
#N canvas 0 50 577 300 (subpatch) 0;
#X array \$0-hann 64 float 0;
#X coords 0 0 63 1 300 100 0;
#X restore 387 331 graph;
#X obj 465 518 osc~;
#X obj 464 539 *~ -0.5;
#X obj 464 561 +~ 0.5;
#X obj 397 596 tabwrite~ \$0-hann;
#X obj 481 389 samplerate~;
#X obj 462 414 swap;
#X obj 462 438 /;
#X obj 461 365 t f b f;
#X msg 669 567 resize \$1;
#X obj 641 596 s \$0-hann;
#X msg 522 486 0;
#X obj 462 328 pow 2;
#X msg 462 305 2;
#X obj 462 282 t b f;
#X obj 462 260 + 6;
#X text 793 132 calculate Hann window table (variable window size)
;
#X text 469 347 <- window-size;
#X text 557 348 64..65536;
#X text 471 265 <- 6..16;
#X text 794 96 Voir Pd-0.40.3-extended -> 3.audio.examples/I05.compressor.pd
-> pd hann-window;
#X obj 538 537 phasor~;
#N canvas 9 234 450 300 (subpatch) 0;
#X array \$0-FFTIndex 64 float 0;
#X coords 0 0 63 1 300 100 0;
#X restore 386 359 graph;
#X obj 507 596 tabwrite~ \$0-FFTIndex;
#X obj 703 596 s \$0-FFTIndex;
#X obj 315 596 s \$0-FFTSize;
#X obj 513 245 cnv 10 20 10 empty ColorForm Overlap 1 5 1 9 -188398
-1 1.04858e+06;
#X obj 546 322 pow 2;
#X msg 546 299 2;
#X obj 546 276 t b f;
#X text 555 259 <- 0 1 2 3;
#X obj 789 595 s \$0-FFTOverlap;
#X text 506 421 Si le son d'un MiniModule FFT est haché \, avec Init-FFT
grand (65536...) -> Pd-extended -> Preferences -> Audio Settings...
-> delay (msec) -> Augmenter;
#X text 597 376 <- Overlap 1 2 4 8;
#X text 592 288 L'array \$0-FFTIndex n'est utilise que dans le MM FFT-BrickWallFilter
;
#X text 641 234 8 5 2009;
#X msg 381 563 stop;
#X obj 462 461 t b b b b b f;
#X obj 382 502 delay 2000;
#X obj 337 81 inlet fft;
#X obj 476 92 inlet overlap;
#X floatatom 384 397 5 0 0 0 - - -, f 5;
#X floatatom 650 355 5 0 0 0 - - -, f 5;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 6 0 7 1;
#X connect 7 0 8 0;
#X connect 7 1 8 1;
#X connect 8 0 38 0;
#X connect 9 0 7 0;
#X connect 9 1 6 0;
#X connect 9 2 10 0;
#X connect 10 0 11 0;
#X connect 10 0 25 0;
#X connect 12 0 2 1;
#X connect 12 0 22 1;
#X connect 13 0 9 0;
#X connect 13 0 26 0;
#X connect 13 0 42 0;
#X connect 14 0 13 0;
#X connect 15 0 14 0;
#X connect 15 1 13 1;
#X connect 16 0 15 0;
#X connect 22 0 24 0;
#X connect 28 0 32 0;
#X connect 28 0 43 0;
#X connect 29 0 28 0;
#X connect 30 0 29 0;
#X connect 30 1 28 1;
#X connect 37 0 24 0;
#X connect 37 0 5 0;
#X connect 38 0 39 0;
#X connect 38 2 5 0;
#X connect 38 3 24 0;
#X connect 38 4 12 0;
#X connect 38 5 22 0;
#X connect 38 5 2 0;
#X connect 39 0 37 0;
#X connect 40 0 16 0;
#X connect 41 0 30 0;
#X coords 0 0 1 1 230 29 0;
#X restore 393 444 pd ARGO;
#X text 677 319 <- Taille de la FFT;
#X text 298 483 Chaque bande de fréquence de la FFT est compressée
indépendamment.;
#X obj 396 322 tof/param /FFT-size 11 /g radio 1 11;
#X obj 472 357 tof/param /FFT-overlap 4 /g radio 1 4;
#N canvas 0 50 1272 692 FFTComp 0;
#X obj -67 391 *~;
#X obj -100 392 *~;
#X obj -99 135 *~;
#X obj -99 89 inlet~;
#X obj -99 158 rfft~;
#X obj -101 463 *~;
#X obj -16 207 *~;
#X obj -100 415 rifft~;
#X obj -101 512 outlet~;
#X obj -50 207 *~;
#X obj -50 230 +~;
#X obj -50 360 clip~;
#X obj -84 111 tabreceive~ \$0-hann;
#X obj -50 255 +~ 1e-20;
#X obj -84 439 tabreceive~ \$0-hann;
#X text 10 207 squared magnitude;
#X text 8 251 protect against divide-by-zero;
#X text 10 284 quick 8-bit-accurate reciprocal square root;
#X text 9 300 (done by table lookup - about 0.25% accurate);
#X text -32 391 multiply gain by real and complex part;
#X text -33 405 of the amplitude;
#X text -57 158 outputs complex amplitudes;
#X obj 131 93 inlet;
#X obj -51 293 q8_rsqrt~;
#X text 125 76 squelch;
#X text -15 360 limit the gain to squelch*squelch/10000;
#X text -98 13 "...this works by multiplying each channel of the Fourier
analysis by a real number computed from the magnitude. If the magnutude
is "m" \, the correction factor is 1/m \, but only to an upper limit
controlled by the "squelch" parameter.";
#X obj 173 158 *;
#X obj 147 219 /;
#X msg 145 158 1;
#X obj 211 248 *;
#X obj 131 125 t f b f f;
#X obj -101 487 *~;
#X obj 162 192 clip 0.01 50;
#X obj -23 335 * 0.002;
#X obj 317 498 switch~ 1024 4 1;
#X msg 431 441 0;
#X msg 281 440 1;
#X text 280 78 64..65536;
#X obj 281 94 r \$0-FFTSize;
#X obj 307 218 /;
#X obj 380 93 r \$0-FFTOverlap;
#X text 397 75 1 2 4 8;
#X obj 346 398 pack 1 2;
#X msg 316 440 set \$1 \$2 1;
#X obj 380 150 t b b f b;
#X obj 281 150 t b b b f f f b;
#X msg 298 186 400;
#X floatatom 312 127 5 0 0 0 - - -, f 5;
#X floatatom 400 123 5 0 0 0 - - -, f 5;
#X connect 0 0 7 1;
#X connect 1 0 7 0;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 4 0 9 0;
#X connect 4 0 9 1;
#X connect 4 0 1 0;
#X connect 4 1 6 0;
#X connect 4 1 6 1;
#X connect 4 1 0 0;
#X connect 5 0 32 0;
#X connect 6 0 10 1;
#X connect 7 0 5 0;
#X connect 9 0 10 0;
#X connect 10 0 13 0;
#X connect 11 0 1 1;
#X connect 11 0 0 1;
#X connect 12 0 2 1;
#X connect 13 0 23 0;
#X connect 14 0 5 1;
#X connect 22 0 31 0;
#X connect 23 0 11 0;
#X connect 27 0 33 0;
#X connect 27 0 34 0;
#X connect 28 0 30 0;
#X connect 29 0 28 0;
#X connect 30 0 32 1;
#X connect 31 1 29 0;
#X connect 31 2 27 0;
#X connect 31 3 27 1;
#X connect 32 0 8 0;
#X connect 33 0 28 1;
#X connect 34 0 11 2;
#X connect 36 0 35 0;
#X connect 37 0 35 0;
#X connect 39 0 46 0;
#X connect 39 0 48 0;
#X connect 40 0 30 1;
#X connect 41 0 45 0;
#X connect 41 0 49 0;
#X connect 43 0 44 0;
#X connect 44 0 35 0;
#X connect 45 0 37 0;
#X connect 45 1 43 0;
#X connect 45 2 43 1;
#X connect 45 3 36 0;
#X connect 46 0 37 0;
#X connect 46 1 30 0;
#X connect 46 2 47 0;
#X connect 46 3 40 1;
#X connect 46 5 43 0;
#X connect 46 6 36 0;
#X connect 47 0 40 0;
#X restore 225 384 pd FFTComp;
#X obj 144 214 inlet~;
#N canvas 0 50 462 312 rh_scalelog 0;
#X obj 20 155 exp;
#X obj 20 107 *;
#X obj 20 130 +;
#X obj 98 87 log;
#X obj 194 84 log;
#X obj 123 123 t b f;
#X obj 123 145 -;
#X obj 20 183 outlet;
#X obj 20 19 inlet;
#X obj 98 23 inlet;
#X obj 194 24 inlet;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 2 1;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 6 0;
#X connect 5 1 6 1;
#X connect 6 0 1 1;
#X connect 8 0 1 0;
#X connect 9 0 3 0;
#X connect 10 0 4 0;
#X restore 246 268 pd rh_scalelog;
#X msg 300 237 1;
#X obj 258 176 tof/param /compression 0.5 /g slider 0 1;
#X msg 346 237 1000;
#X obj 300 208 initbang;
#X obj 321 147 tof/argument 5;
#X obj 284 122 tof/argument 4;
#X obj 258 103 tof/argument 3;
#X obj 267 71 loadbang;
#X connect 2 0 8 0;
#X connect 3 0 5 0;
#X connect 5 0 4 0;
#X connect 6 0 7 0;
#X connect 8 0 0 0;
#X connect 12 0 9 0;
#X connect 13 0 9 1;
#X connect 14 0 1 0;
#X connect 15 0 14 0;
#X connect 16 0 14 1;
#X connect 16 0 8 1;
#X connect 17 0 16 1;
#X connect 18 0 16 0;
#X connect 19 0 16 2;
#X connect 20 0 17 0;
#X connect 20 0 19 0;
#X connect 21 0 13 0;
#X connect 22 0 12 0;
#X connect 23 0 18 0;
#X connect 24 0 21 0;
#X connect 24 0 22 0;
#X connect 24 0 23 0;