-
Notifications
You must be signed in to change notification settings - Fork 3
/
Copy pathphasevocoder.pd
522 lines (522 loc) · 12.5 KB
/
phasevocoder.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
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
#N canvas 186 204 744 352 12;
#X floatatom 494 55 5 0 0 0 - #0-transpo-set -;
#X floatatom 167 123 3 0 0 0 - #0-speed-set -;
#X floatatom 55 125 7 0 0 0 - #0-location-set -;
#N canvas 204 190 703 693 fft-analysis 0;
#X obj 51 477 *~;
#X obj 18 477 *~;
#X obj 18 499 -~;
#X obj 167 475 *~;
#X obj 136 475 *~;
#X obj 136 497 +~;
#X obj 109 193 *~;
#X obj 78 193 *~;
#X obj 50 193 *~;
#X obj 19 193 *~;
#X obj 19 218 +~;
#X obj 127 379 *~;
#X obj 20 622 *~;
#X obj 238 430 rfft~;
#X obj 108 161 rfft~;
#X obj 19 564 rifft~;
#X obj 21 646 outlet~;
#X obj 97 379 *~;
#X obj 97 401 +~;
#X obj 124 218 -~;
#X obj 18 431 *~;
#X obj 51 432 *~;
#X obj 127 622 r window-size;
#X obj 309 589 r window-size;
#X obj 309 638 block~;
#X obj 19 349 +~ 1e-15;
#X obj 19 598 *~;
#X obj 52 598 tabreceive~ \$0-hann;
#X obj 127 643 expr 2/(3*$f1);
#X obj 398 122 loadbang;
#X msg 309 613 set \$1 4;
#X obj 97 425 q8_rsqrt~;
#N canvas 200 148 1006 799 read-windows 0;
#X obj 18 693 *~;
#X obj 364 448 r window-size;
#X obj 156 300 f;
#X obj 102 91 r window-size;
#X obj 102 139 /;
#X obj 195 695 *~;
#X obj 156 255 bang~;
#X obj 17 551 line~;
#X obj 102 164 * 1000;
#X obj 288 224 r \$0-speed;
#X obj 178 276 r \$0-location;
#X obj 198 302 +;
#X obj 288 272 *;
#X obj 183 470 +;
#X obj 143 446 t f f;
#X msg 17 523 \$1 \, \$2 \$3;
#X obj 17 496 pack 0 0 0;
#X obj 178 371 / 1000;
#X obj 156 394 *;
#X obj 51 597 / 4;
#X obj 288 245 * 0.01;
#X floatatom 364 498 7 0 0 0 - - -;
#X obj 364 474 *;
#X obj 502 347 r \$0-transpo;
#X obj 502 369 * 0.01;
#X obj 504 390 + 69;
#X obj 505 411 mtof;
#X obj 505 433 / 440;
#X obj 399 474 t b f;
#X obj 19 719 outlet~;
#X obj 195 720 outlet~;
#X obj 218 664 tabreceive~ \$0-hann;
#X obj 803 386 r \$0-location;
#X msg 803 409 0;
#X obj 803 432 s \$0-speed;
#X obj 768 508 r \$0-speed;
#X msg 768 532 set \$1;
#X obj 768 557 s \$0-speed-set;
#X text 432 498 stretched window size (samples);
#X obj 877 507 r \$0-transpo;
#X msg 877 533 set \$1;
#X obj 877 558 s \$0-transpo-set;
#X obj 808 94 r \$0-location;
#X msg 826 278 set \$1;
#X obj 808 140 t b f;
#X obj 826 257 f;
#X obj 754 171 int;
#X obj 754 203 sel 0;
#X msg 813 174 1;
#X msg 813 197 0;
#X obj 754 228 del 300;
#X obj 826 302 s \$0-location-set;
#X obj 17 637 tabread4~ \$0-sample;
#X obj 194 637 tabread4~ \$0-sample;
#X obj 178 347 r \$0-insamprate;
#X obj 528 586 r rewind;
#X floatatom 111 187 5 0 0 0 - - -;
#X obj 102 115 t f b;
#X obj 142 139 samplerate~;
#X obj 102 208 / 4;
#X obj 233 306 s see-loc;
#X obj 817 116 r see-loc;
#X obj 193 420 / 2;
#X obj 156 420 -;
#X text 229 417 back up 1/2 window;
#X obj 16 597 -~;
#X obj 528 720 * -0.5;
#X text 91 587 "back" window 1/4 cycle behind "front" one;
#X text 137 205 computation period (msec) for overlap of 4;
#X text 164 186 msec in a window;
#X obj 528 666 /;
#X obj 528 691 * 1000;
#X obj 528 642 t f b;
#X obj 568 666 samplerate~;
#X obj 528 619 f;
#X obj 807 669 r auto;
#X obj 691 685 r no-detune;
#X text 756 462 reflect control changes;
#X text 756 479 in main window.;
#X text 723 644 misc controls;
#X text 499 564 stretched window size.;
#X obj 593 457 t b f;
#X obj 617 395 samplerate~;
#X obj 593 348 r \$0-insamprate;
#X obj 593 418 /;
#X obj 505 455 * 1;
#X obj 593 370 t f b;
#X obj 528 750 s location;
#X obj 807 692 trigger anything bang;
#X obj 894 716 s rewind;
#X obj 807 716 s \$0-speed;
#X obj 691 730 s detune;
#X msg 691 707 0;
#X connect 0 0 29 0;
#X connect 1 0 22 0;
#X connect 2 0 11 0;
#X connect 2 0 18 0;
#X connect 3 0 57 0;
#X connect 4 0 8 0;
#X connect 5 0 30 0;
#X connect 6 0 2 0;
#X connect 7 0 65 0;
#X connect 7 0 53 0;
#X connect 8 0 56 0;
#X connect 8 0 59 0;
#X connect 9 0 20 0;
#X connect 10 0 2 1;
#X connect 11 0 2 1;
#X connect 11 0 60 0;
#X connect 12 0 11 1;
#X connect 13 0 16 1;
#X connect 14 0 16 0;
#X connect 14 1 13 0;
#X connect 15 0 7 0;
#X connect 16 0 15 0;
#X connect 17 0 18 1;
#X connect 18 0 63 0;
#X connect 19 0 65 1;
#X connect 20 0 12 0;
#X connect 21 0 19 0;
#X connect 21 0 13 1;
#X connect 21 0 62 0;
#X connect 21 0 74 1;
#X connect 22 0 21 0;
#X connect 23 0 24 0;
#X connect 24 0 25 0;
#X connect 25 0 26 0;
#X connect 26 0 27 0;
#X connect 27 0 85 0;
#X connect 28 0 22 0;
#X connect 28 1 22 1;
#X connect 31 0 5 1;
#X connect 31 0 0 1;
#X connect 32 0 33 0;
#X connect 33 0 34 0;
#X connect 35 0 36 0;
#X connect 36 0 37 0;
#X connect 39 0 40 0;
#X connect 40 0 41 0;
#X connect 42 0 44 0;
#X connect 43 0 51 0;
#X connect 44 0 46 0;
#X connect 44 1 45 1;
#X connect 45 0 43 0;
#X connect 46 0 47 0;
#X connect 47 0 48 0;
#X connect 47 0 50 0;
#X connect 48 0 46 1;
#X connect 49 0 46 1;
#X connect 50 0 49 0;
#X connect 50 0 45 0;
#X connect 52 0 0 0;
#X connect 53 0 5 0;
#X connect 54 0 17 0;
#X connect 55 0 74 0;
#X connect 57 0 4 0;
#X connect 57 1 58 0;
#X connect 58 0 4 1;
#X connect 59 0 16 2;
#X connect 59 0 12 1;
#X connect 61 0 44 0;
#X connect 62 0 63 1;
#X connect 63 0 14 0;
#X connect 65 0 52 0;
#X connect 66 0 87 0;
#X connect 70 0 71 0;
#X connect 71 0 66 0;
#X connect 72 0 70 0;
#X connect 72 1 73 0;
#X connect 73 0 70 1;
#X connect 74 0 72 0;
#X connect 75 0 88 0;
#X connect 76 0 92 0;
#X connect 81 0 85 0;
#X connect 81 1 85 1;
#X connect 82 0 84 1;
#X connect 83 0 86 0;
#X connect 84 0 81 0;
#X connect 85 0 28 0;
#X connect 86 0 84 0;
#X connect 86 1 82 0;
#X connect 88 0 90 0;
#X connect 88 1 89 0;
#X connect 92 0 91 0;
#X restore 109 133 pd read-windows;
#X obj 137 543 tabsend~ prev-imag;
#X obj 136 567 tabsend~ prev-real;
#X obj 20 8 tabreceive~ prev-real;
#X obj 73 29 tabreceive~ prev-imag;
#X obj 121 69 *~;
#X obj 89 69 *~;
#X obj 89 91 +~;
#X obj 159 94 q8_rsqrt~;
#X obj 159 71 +~ 1e-20;
#X obj 73 119 *~;
#X obj 19 118 *~;
#X obj 181 290 r lock;
#X obj 29 245 lrshift~ 1;
#X obj 24 269 lrshift~ -1;
#X obj 141 245 lrshift~ 1;
#X obj 133 269 lrshift~ -1;
#X obj 35 300 *~;
#X obj 159 312 *~;
#X obj 19 325 +~;
#X obj 125 331 +~;
#X msg 454 316 0;
#X obj 454 340 s \$0-transpo;
#X obj 392 172 trigger bang bang bang bang;
#X msg 516 279 2048;
#X obj 516 302 s window-size;
#X obj 392 364 s rewind;
#X msg 575 199 \; pd dsp 1;
#X connect 0 0 2 1;
#X connect 1 0 2 0;
#X connect 2 0 34 0;
#X connect 2 0 15 0;
#X connect 3 0 5 1;
#X connect 4 0 5 0;
#X connect 5 0 33 0;
#X connect 5 0 15 1;
#X connect 6 0 19 1;
#X connect 7 0 19 0;
#X connect 8 0 10 1;
#X connect 9 0 10 0;
#X connect 10 0 46 0;
#X connect 10 0 45 0;
#X connect 10 0 51 0;
#X connect 11 0 18 1;
#X connect 12 0 16 0;
#X connect 13 0 1 1;
#X connect 13 0 3 1;
#X connect 13 1 0 1;
#X connect 13 1 4 1;
#X connect 14 0 9 1;
#X connect 14 0 7 1;
#X connect 14 1 6 1;
#X connect 14 1 8 1;
#X connect 15 0 26 0;
#X connect 17 0 18 0;
#X connect 18 0 31 0;
#X connect 19 0 47 0;
#X connect 19 0 48 0;
#X connect 19 0 52 0;
#X connect 20 0 1 0;
#X connect 20 0 4 0;
#X connect 21 0 0 0;
#X connect 21 0 3 0;
#X connect 22 0 28 0;
#X connect 23 0 30 0;
#X connect 25 0 17 1;
#X connect 25 0 17 0;
#X connect 25 0 20 0;
#X connect 26 0 12 0;
#X connect 27 0 26 1;
#X connect 28 0 12 1;
#X connect 29 0 55 0;
#X connect 30 0 24 0;
#X connect 31 0 20 1;
#X connect 31 0 21 1;
#X connect 32 0 14 0;
#X connect 32 1 13 0;
#X connect 35 0 38 1;
#X connect 35 0 38 0;
#X connect 35 0 43 0;
#X connect 36 0 37 1;
#X connect 36 0 37 0;
#X connect 36 0 42 0;
#X connect 37 0 39 1;
#X connect 38 0 39 0;
#X connect 39 0 41 0;
#X connect 40 0 42 1;
#X connect 40 0 43 1;
#X connect 41 0 40 0;
#X connect 42 0 8 0;
#X connect 42 0 7 0;
#X connect 43 0 9 0;
#X connect 43 0 6 0;
#X connect 44 0 49 1;
#X connect 44 0 50 1;
#X connect 45 0 49 0;
#X connect 46 0 49 0;
#X connect 47 0 50 0;
#X connect 48 0 50 0;
#X connect 49 0 51 1;
#X connect 50 0 52 1;
#X connect 51 0 25 0;
#X connect 52 0 11 0;
#X connect 52 0 11 1;
#X connect 52 0 21 0;
#X connect 53 0 54 0;
#X connect 55 0 58 0;
#X connect 55 1 53 0;
#X connect 55 2 56 0;
#X connect 55 3 59 0;
#X connect 56 0 57 0;
#X restore 55 220 pd fft-analysis;
#N canvas 261 54 647 768 phase-tables 0;
#N canvas 0 22 450 300 (subpatch) 0;
#X array prev-imag 4096 float 0;
#X coords 0 1000 4096 -1000 400 300 1;
#X restore 169 326 graph;
#N canvas 0 22 450 300 (subpatch) 0;
#X array prev-real 4096 float 0;
#X coords 0 500 4096 -500 400 300 1;
#X restore 170 17 graph;
#X restore 440 244 pd phase-tables;
#X obj 494 78 s \$0-transpo;
#X text 493 34 in cents;
#X text 389 99 normal;
#N canvas 1 140 565 454 hann-window 0;
#N canvas 0 22 450 300 (subpatch) 0;
#X array \$0-hann 2048 float 0;
#X coords 0 1 2047 0 300 100 1;
#X restore 82 311 graph;
#X obj 378 165 osc~;
#X obj 378 190 *~ -0.5;
#X obj 378 214 +~ 0.5;
#X obj 331 247 tabwrite~ \$0-hann;
#X obj 37 88 r window-size;
#X obj 38 173 /;
#X obj 127 142 samplerate~;
#X obj 38 251 s window-sec;
#X obj 177 204 swap;
#X obj 177 228 /;
#X obj 177 252 s window-hz;
#X obj 49 201 * 1000;
#X obj 49 228 s window-msec;
#X obj 38 115 t f b f;
#X msg 173 92 resize \$1;
#X obj 173 116 s \$0-hann;
#X obj 330 105 r window-hz;
#X msg 382 130 0;
#X obj 330 131 t f b;
#X text 15 8 calculate Hann window table (variable window size) and
constants window-hz (fundamental frequency of analysis) \, window-sec
and window-msec (analysis window size in seconds and msec).;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 5 0 14 0;
#X connect 6 0 8 0;
#X connect 6 0 12 0;
#X connect 7 0 6 1;
#X connect 7 0 9 1;
#X connect 9 0 10 0;
#X connect 9 1 10 1;
#X connect 10 0 11 0;
#X connect 12 0 13 0;
#X connect 14 0 6 0;
#X connect 14 0 9 0;
#X connect 14 1 7 0;
#X connect 14 2 15 0;
#X connect 15 0 16 0;
#X connect 17 0 19 0;
#X connect 18 0 1 1;
#X connect 19 0 1 0;
#X connect 19 1 4 0;
#X connect 19 1 18 0;
#X restore 440 268 pd hann-window;
#N canvas 833 380 694 447 insample 0;
#N canvas 0 22 450 300 (subpatch) 0;
#X array \$0-sample 188800 float 0;
#X coords 0 1 188799 -1 400 150 1;
#X restore 281 135 graph;
#X obj 28 133 r read-sample;
#X obj 28 184 unpack s f;
#X obj 28 294 soundfiler;
#X obj 28 210 t s b;
#X obj 84 209 symbol \$0-sample;
#X obj 28 245 pack s s;
#X msg 28 270 read -resize \$1 \$2;
#X obj 83 156 44100;
#X obj 28 157 t a b;
#X obj 38 318 s \$0-samplength;
#X obj 125 184 s \$0-insamprate;
#X obj 28 357 /;
#X obj 28 381 * 1000;
#X obj 28 404 s \$0-samp-msec;
#X obj 66 357 r \$0-insamprate;
#X obj 37 68 hip~ 5;
#X obj 29 9 inlet;
#X obj 99 44 samplerate~;
#X obj 29 93 tabwrite~ \$0-sample;
#X obj 99 68 s \$0-insamprate;
#X obj 276 20 inlet;
#X obj 276 42 openpanel;
#X obj 276 67 s read-sample;
#X obj 37 44 adc~;
#X connect 1 0 9 0;
#X connect 2 0 4 0;
#X connect 2 1 11 0;
#X connect 3 0 10 0;
#X connect 3 0 12 0;
#X connect 4 0 6 0;
#X connect 4 1 5 0;
#X connect 5 0 6 1;
#X connect 6 0 7 0;
#X connect 7 0 3 0;
#X connect 8 0 11 0;
#X connect 9 0 2 0;
#X connect 9 1 8 0;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 15 0 12 1;
#X connect 16 0 19 0;
#X connect 17 0 18 0;
#X connect 17 0 19 0;
#X connect 18 0 20 0;
#X connect 21 0 22 0;
#X connect 22 0 23 0;
#X connect 24 0 16 0;
#X connect 24 1 16 0;
#X restore 441 220 pd insample;
#X floatatom 552 220 5 0 0 0 - #0-samp-msec -;
#X obj 229 302 s read-sample;
#X obj 441 179 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 460 178 <- record;
#X obj 493 127 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 55 147 s \$0-location;
#X obj 167 147 s \$0-speed;
#X obj 262 126 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 262 148 s rewind;
#X msg 345 76 200;
#X msg 344 97 100;
#X text 386 75 contract;
#X text 390 120 expand;
#X obj 493 147 s lock;
#X text 494 17 detune;
#X text 232 204 read input sound;
#X text 604 219 length \, msec;
#X floatatom 607 159 5 0 0 0 - window-size -;
#X msg 607 47 512;
#X msg 607 69 1024;
#X msg 607 91 2048;
#X msg 607 113 4096;
#X obj 607 135 s window-size;
#X text 648 46 <- set;
#X text 660 159 (check);
#X obj 345 147 s auto;
#X obj 551 56 bng 15 250 50 0 no-detune empty empty 0 -6 0 8 -262144
-1 -1;
#X obj 535 200 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 466 198 file ->;
#X msg 345 120 20;
#X obj 56 256 outlet~;
#X obj 61 20 inlet;
#X obj 230 245 loadbang;
#X obj 229 271 symbol \$1;
#X obj 567 5 inlet;
#X obj 295 14 inlet;
#X obj 436 31 * 2400;
#X obj 437 53 - 1200;
#X obj 57 74 *;
#X obj 77 49 r \$0-samp-msec;
#X obj 664 7 inlet;
#X connect 0 0 5 0;
#X connect 1 0 16 0;
#X connect 2 0 15 0;
#X connect 3 0 40 0;
#X connect 12 0 9 0;
#X connect 14 0 23 0;
#X connect 17 0 18 0;
#X connect 19 0 35 0;
#X connect 20 0 35 0;
#X connect 28 0 32 0;
#X connect 29 0 32 0;
#X connect 30 0 32 0;
#X connect 31 0 32 0;
#X connect 37 0 9 1;
#X connect 39 0 35 0;
#X connect 41 0 48 0;
#X connect 42 0 43 0;
#X connect 43 0 11 0;
#X connect 44 0 43 0;
#X connect 45 0 46 0;
#X connect 46 0 47 0;
#X connect 47 0 5 0;
#X connect 48 0 15 0;
#X connect 49 0 48 1;
#X connect 50 0 12 0;