[PD] @Porres Questions about PVoc

Fri Apr 15 07:40:40 CEST 2016

Dear Mr. Porres,

Thank you for the creation of your time-stretching patches. I have some
questions about their utilization and hope that you can give me some
advice. Attached are two very different samples that I want to be able to
stretch out indefinitely.

In the case of the contrabass file, I find that manually clicking on
"bounce" creates a much more seamless effect than automatic bouncing (which
has a very audible cross-fade). How would you suggest manipulating the
patch to automate a smoother bouncing effect? I don't think this is a
question of how the files are cut, but I could be wrong...

Otherwise, I find running both files at 150 Motion and 4096 window size
with Lock off works quite well. As with some other Time Stretching patches,
the contrabass' upper spectrum becomes strangely isolated and present
(compare it to a normal playback of the same file). Any ideas about that?

Best regards,
S. Elliot Perez
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.puredata.info/pipermail/pd-list/attachments/20160415/02cf609b/attachment-0001.html>
-------------- next part --------------
#N canvas 223 122 721 461 10;
#N canvas 746 166 471 531 (subpatch) 0;
#X obj 82 223 cnv 15 255 185 empty empty empty 20 12 0 14 -1 -66577
0;
#X obj 96 243 cnv 15 123 150 empty empty Phase-Vocoder 6 15 2 18 -58398
-253156 0;
#X obj 169 183 cnv 15 85 27 empty empty empty 20 12 0 14 -261234 -66577
0;
#N canvas 155 234 381 221 loadbang 0;
#X obj 48 27 loadbang;
#X obj 101 175 s \$0-rcv-P-C;
#X msg 101 152 color 15 12 12 \, label Pause \, label_font 3 10;
#X obj 48 136 outlet;
#X msg 207 79 \; pd dsp 1 \;;
#X obj 17 86 delay 100;
#X obj 18 177 s \$0-rewind;
#X obj 48 51 trigger bang bang bang bang;
#X obj 154 80 f \$1;
#X obj 154 127 s \$0-get-preset;
#X obj 154 103 - 1;
#X connect 0 0 7 0;
#X connect 2 0 1 0;
#X connect 5 0 6 0;
#X connect 7 0 3 0;
#X connect 7 0 5 0;
#X connect 7 1 2 0;
#X connect 7 2 8 0;
#X connect 7 3 4 0;
#X connect 8 0 10 0;
#X connect 10 0 9 0;
#X restore 233 162 pd loadbang;
#N canvas 274 354 440 365 Location 0;
#X obj 92 251 +;
#X floatatom 107 164 7 0 0 0 - - -;
#X obj 80 186 / 2;
#X obj 65 207 -;
#X text -52 208 back up 1/2 window;
#N canvas 7 595 181 195 rewind 0;
#X obj 14 55 f;
#X obj 29 33 inlet;
#X obj 14 11 r \$0-rewind;
#X obj 14 82 expr ($f1/44.1) * -0.5;
#X obj 14 138 s \$0-location;
#X floatatom 14 109 5 0 0 0 - - -;
#X connect 0 0 3 0;
#X connect 1 0 0 1;
#X connect 2 0 0 0;
#X connect 3 0 5 0;
#X connect 5 0 4 0;
#X restore 142 187 pd rewind;
#X obj 114 193 / 4;
#X obj 65 141 * 44.1;
#X text 153 165 new Window;
#X text -51 140 Location (samples);
#X obj 114 216 s \$0-overlap;
#N canvas 18 137 195 252 transposition 0;
#X obj 22 61 * 0.01;
#X obj 22 82 + 69;
#X obj 23 103 mtof;
#X obj 23 125 / 440;
#X obj 23 146 t b f;
#X obj 15 15 r \$0-window-size;
#X obj 22 36 r \$0-transpo;
#X msg 82 59 set \$1;
#X obj 82 81 s \$0-transpo-set;
#X obj 15 192 *;
#X obj 15 215 outlet;
#X obj 15 170 f;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 11 0;
#X connect 4 1 9 1;
#X connect 5 0 11 0;
#X connect 6 0 0 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 9 0 10 0;
#X connect 11 0 9 0;
#X restore 107 141 pd transposition;
#X obj 65 230 t f f;
#X obj 266 299 outlet;
#X obj 18 41 nbx 5 18 -1e+037 1e+037 0 0 \$0-speed \$0-speed-set Speed
73 9 0 13 -183930 -1 -1 -50 256;
#N canvas 318 30 309 174 Line-Location 0;
#X msg 17 120 \$1 \, \$2 \$3;
#X obj 17 18 inlet;
#X obj 45 40 inlet;
#X obj 17 148 outlet;
#X obj 74 64 r \$0-hopinms;
#X obj 17 91 pack 0 0 f;
#X text 56 15 Location samples - (1/2 window);
#X text 85 38 Location samples + (1/2 window);
#X floatatom 90 90 5 0 0 0 - - -;
#X text 158 63 Tempo do [line~];
#X text 64 150 Pro [line~];
#X connect 0 0 3 0;
#X connect 1 0 5 0;
#X connect 2 0 5 1;
#X connect 4 0 5 2;
#X connect 4 0 8 0;
#X connect 5 0 0 0;
#X restore -1 272 pd Line-Location;
#N canvas 355 510 685 322 generate-phase-vocoder-location 0;
#X msg 172 91 0;
#X msg 285 143 set \$1;
#X obj 175 193 +;
#X obj 190 172 *;
#X obj 205 149 r \$0-hopinms;
#N canvas 57 48 259 143 bang~ 0;
#X obj -147 -13 bang~;
#X obj -79 -38 cnv 15 130 100 empty empty empty 20 12 0 14 -233017
-66577 0;
#X obj -60 19 block~;
#X msg -60 -3 set \$1 4;
#X text -69 40 Window & Overlaps;
#X obj -60 -24 r \$0-window-size;
#X obj -147 17 outlet;
#X connect 0 0 6 0;
#X connect 3 0 2 0;
#X connect 5 0 3 0;
#X restore 105 122 pd bang~;
#X obj 132 192 float;
#X obj 244 115 r \$0-speed;
#X obj 285 165 s \$0-speed-set;
#X obj 172 114 s \$0-speed;
#X obj 159 67 r \$0-location;
#X floatatom 133 217 8 0 0 0 - - -;
#X obj 133 246 outlet;
#X obj 193 247 outlet;
#X obj 72 98 r \$0-loop-Loc;
#X obj 34 72 r \$0-rewind;
#X msg 34 127 0;
#X obj 34 102 del 5;
#X text 311 108 Speed define o passo/velocidade do contador \, que
é controlado por um [bang~].;
#X text 112 268 Location em Milisegundos;
#X floatatom 207 195 8 0 0 0 - - -;
#X obj 168 149 / 100;
#X connect 0 0 9 0;
#X connect 1 0 8 0;
#X connect 2 0 6 1;
#X connect 3 0 2 1;
#X connect 3 0 20 0;
#X connect 4 0 3 1;
#X connect 5 0 6 0;
#X connect 6 0 2 0;
#X connect 6 0 11 0;
#X connect 7 0 1 0;
#X connect 7 0 21 0;
#X connect 10 0 6 1;
#X connect 10 0 0 0;
#X connect 11 0 12 0;
#X connect 11 0 13 0;
#X connect 14 0 6 0;
#X connect 15 0 17 0;
#X connect 16 0 6 0;
#X connect 17 0 16 0;
#X connect 21 0 3 0;
#X restore 65 118 pd generate-phase-vocoder-location;
#X text -76 329 Location in samples for [line~];
#N canvas 92 62 197 256 speed-nbx-control 0;
#X msg 87 96 1;
#X obj 40 165 spigot;
#X obj 54 46 r \$0-rewind;
#X msg 54 67 0;
#X obj 87 117 t b f;
#X obj 40 143 f;
#X obj 40 20 r \$0-to-speed;
#X obj 40 188 s \$0-speed-set;
#X obj 87 68 r \$0-PLAY;
#X connect 0 0 4 0;
#X connect 1 0 7 0;
#X connect 2 0 3 0;
#X connect 3 0 1 1;
#X connect 4 0 5 0;
#X connect 4 1 1 1;
#X connect 5 0 1 0;
#X connect 6 0 5 0;
#X connect 8 0 0 0;
#X restore 7 9 pd speed-nbx-control;
#X text -24 68 Velocidade de leitura \, ligada ao "Motion";
#X text 236 321 Location em ms;
#X text -84 272 - 1/2 window;
#X text 104 271 + 1/2 window;
#X obj -61 300 outlet;
#X obj 2 301 outlet;
#X connect 0 0 15 1;
#X connect 1 0 0 1;
#X connect 1 0 2 0;
#X connect 1 0 5 0;
#X connect 1 0 6 0;
#X connect 2 0 3 1;
#X connect 3 0 12 0;
#X connect 6 0 10 0;
#X connect 7 0 3 0;
#X connect 11 0 1 0;
#X connect 12 0 15 0;
#X connect 12 1 0 0;
#X connect 15 0 23 0;
#X connect 15 0 24 0;
#X connect 16 0 7 0;
#X connect 16 1 13 0;
#X restore 101 274 pd Location;
#X obj 219 243 cnv 15 105 114 empty empty empty 20 12 0 14 -233017
-66577 0;
#X obj 219 353 cnv 15 105 40 empty empty empty 20 12 0 14 -170602 -66577
0;
#N canvas 420 613 238 167 preseting 0;
#N canvas 155 22 710 631 presets 0;
#X obj 248 28 inlet;
#X obj 17 29 inlet;
#N canvas 628 63 812 677 set 0;
#X obj 79 15 inlet;
#X obj 29 372 outlet;
#X obj 61 338 outlet;
#X obj 95 291 outlet;
#X obj 79 38 route 0 1 2 3 4 5 6 7;
#X obj 165 503 outlet;
#X obj 141 441 outlet;
#X obj 122 399 outlet;
#X obj 190 572 outlet;
#X obj 235 629 outlet;
#X msg 79 77 set window-size \$1 \, addcomma \, add2 transposition
\$2 \, addcomma \, add2 Pvol \$3 \, addcomma \, addcomma \, add2 speed
\$4 \, addcomma \, add2 lock \$5 \, addcomma \, add2 Name \$6 \, addcomma
\, add2 Loop \$7;
#X msg 91 145 set window-size \$1 \, addcomma \, add2 transposition
\$2 \, addcomma \, add2 Pvol \$3 \, addcomma \, addcomma \, add2 speed
\$4 \, addcomma \, add2 lock \$5 \, addcomma \, add2 Name \$6 \, addcomma
\, add2 Loop \$7;
#X msg 117 219 set window-size \$1 \, addcomma \, add2 transposition
\$2 \, addcomma \, add2 Pvol \$3 \, addcomma \, addcomma \, add2 speed
\$4 \, addcomma \, add2 lock \$5 \, addcomma \, add2 Name \$6 \, addcomma
\, add2 Loop \$7;
#X msg 142 298 set window-size \$1 \, addcomma \, add2 transposition
\$2 \, addcomma \, add2 Pvol \$3 \, addcomma \, addcomma \, add2 speed
\$4 \, addcomma \, add2 lock \$5 \, addcomma \, add2 Name \$6 \, addcomma
\, add2 Loop \$7;
#X msg 190 366 set window-size \$1 \, addcomma \, add2 transposition
\$2 \, addcomma \, add2 Pvol \$3 \, addcomma \, addcomma \, add2 speed
\$4 \, addcomma \, add2 lock \$5 \, addcomma \, add2 Name \$6 \, addcomma
\, add2 Loop \$7;
#X msg 217 439 set window-size \$1 \, addcomma \, add2 transposition
\$2 \, addcomma \, add2 Pvol \$3 \, addcomma \, addcomma \, add2 speed
\$4 \, addcomma \, add2 lock \$5 \, addcomma \, add2 Name \$6 \, addcomma
\, add2 Loop \$7;
#X msg 243 517 set window-size \$1 \, addcomma \, add2 transposition
\$2 \, addcomma \, add2 Pvol \$3 \, addcomma \, addcomma \, add2 speed
\$4 \, addcomma \, add2 lock \$5 \, addcomma \, add2 Name \$6 \, addcomma
\, add2 Loop \$7;
#X msg 284 585 set window-size \$1 \, addcomma \, add2 transposition
\$2 \, addcomma \, add2 Pvol \$3 \, addcomma \, addcomma \, add2 speed
\$4 \, addcomma \, add2 lock \$5 \, addcomma \, add2 Name \$6 \, addcomma
\, add2 Loop \$7;
#X connect 0 0 4 0;
#X connect 4 0 10 0;
#X connect 4 1 11 0;
#X connect 4 2 12 0;
#X connect 4 3 13 0;
#X connect 4 4 14 0;
#X connect 4 5 15 0;
#X connect 4 6 16 0;
#X connect 4 7 17 0;
#X connect 10 0 1 0;
#X connect 11 0 2 0;
#X connect 12 0 3 0;
#X connect 13 0 7 0;
#X connect 14 0 6 0;
#X connect 15 0 5 0;
#X connect 16 0 8 0;
#X connect 17 0 9 0;
#X restore 248 74 pd set preset;
#X obj 309 601 outlet;
#X msg 103 366 window-size 2048 \, transposition -666 \, Pvol 0.992126
\, \, speed 100 \, lock 1 \, Name Evil \, Loop 2;
#X msg 174 317 window-size 2048 \, transposition 24 \, Pvol 0.992126
\, minutes 1 \, speed 500 \, lock 1 \, Name Rápido \, Loop 2;
#X msg 212 271 window-size 2048 \, transposition -51 \, Pvol 0.992126
\, minutes 1 \, speed 25 \, lock 1 \, Name Lento \, Loop 1;
#X msg 61 503 window-size 2048 \, transposition -2000 \, Pvol 0.992126
\, minutes 1 \, speed 95 \, lock 1 \, Name Grave \, Loop 2;
#X msg 93 461 window-size 2048 \, transposition 2000 \, Pvol 0.992126
\, minutes 1 \, speed 95 \, lock 1 \, Name Agudo \, Loop 2;
#X msg 131 415 window-size 2048 \, transposition 73 \, Pvol 0.992126
\, minutes 1 \, speed 110 \, lock 0 \, Name Diálogo \, Loop 2;
#X msg 285 224 window-size 2048 \, transposition 47 \, Pvol 1 \, minutes
1 \, speed 10 \, lock 0 \, Name Parando \, Loop 1;
#X msg 323 178 window-size 2048 \, transposition 0 \, Pvol 1 \, minutes
1 \, speed 50 \, lock 0 \, Name Half \, Loop 0;
#X obj 17 74 route 0 1 2 3 4 5 6 7;
#X connect 0 0 2 0;
#X connect 1 0 12 0;
#X connect 2 0 4 0;
#X connect 2 1 5 0;
#X connect 2 2 6 0;
#X connect 2 3 7 0;
#X connect 2 4 8 0;
#X connect 2 5 9 0;
#X connect 2 6 10 0;
#X connect 2 7 11 0;
#X connect 4 0 3 0;
#X connect 5 0 3 0;
#X connect 6 0 3 0;
#X connect 7 0 3 0;
#X connect 8 0 3 0;
#X connect 9 0 3 0;
#X connect 10 0 3 0;
#X connect 11 0 3 0;
#X connect 12 0 4 0;
#X connect 12 1 5 0;
#X connect 12 2 6 0;
#X connect 12 3 7 0;
#X connect 12 4 8 0;
#X connect 12 5 9 0;
#X connect 12 6 10 0;
#X connect 12 7 11 0;
#X restore 49 65 pd presets;
#N canvas 107 22 582 480 save 0;
#X obj -91 312 outlet;
#X obj -20 80 r \$0-window-size;
#X obj 3 101 r \$0-transpo;
#X obj -64 59 r \$0-save-preset;
#X floatatom 8 196 5 0 0 0 - - -;
#X floatatom -34 200 5 0 0 0 - - -;
#X obj 86 38 r \$0-pvgain;
#X floatatom 58 197 5 0 0 0 - - -;
#X obj 131 67 r \$0-to-speed;
#X obj 176 98 r \$0-lock;
#X floatatom 235 194 5 0 0 0 - - -;
#X obj 131 90 abs;
#X floatatom 192 194 5 0 0 0 - - -;
#X floatatom -86 197 5 0 0 0 - - -;
#X obj -91 286 list;
#X obj -115 34 r \$0-save-preset-bang;
#X obj 221 121 r \$0-pre-name;
#X obj -61 142 f;
#X obj -122 99 t b b;
#X floatatom 344 194 5 0 0 0 - - -;
#X obj 266 148 r \$0-RadioValue;
#X msg -121 407 menusave;
#X obj -121 428 send pd-LPVoc.pd;
#X obj -49 172 pack float float float float float float symbol float
;
#X connect 1 0 5 0;
#X connect 1 0 23 1;
#X connect 2 0 4 0;
#X connect 2 0 23 2;
#X connect 3 0 13 0;
#X connect 3 0 17 1;
#X connect 6 0 7 0;
#X connect 6 0 23 3;
#X connect 8 0 11 0;
#X connect 9 0 10 0;
#X connect 9 0 23 5;
#X connect 11 0 12 0;
#X connect 11 0 23 4;
#X connect 14 0 0 0;
#X connect 15 0 18 0;
#X connect 16 0 23 6;
#X connect 17 0 23 0;
#X connect 18 0 14 0;
#X connect 18 0 21 0;
#X connect 18 1 17 0;
#X connect 20 0 19 0;
#X connect 20 0 23 7;
#X connect 21 0 22 0;
#X connect 23 0 14 1;
#X restore 108 40 pd save preset;
#X obj 49 17 r \$0-read-preset;
#N canvas 43 217 425 291 route 0;
#X obj 35 20 inlet;
#N canvas 23 260 357 177 hop 0;
#X floatatom 68 63 5 0 0 0 - - -;
#X obj 31 69 / 4;
#X text 55 117 computation period (msec) for overlap of 4;
#X text 121 62 msec in a window;
#X obj 31 94 s \$0-hopinms;
#X obj 30 17 inlet;
#X obj 30 39 / 44.1;
#X floatatom 124 92 5 0 0 0 - - -;
#X connect 1 0 4 0;
#X connect 1 0 7 0;
#X connect 5 0 6 0;
#X connect 6 0 1 0;
#X connect 6 0 0 0;
#X restore 21 247 pd hop in ms;
#X obj 35 214 s \$0-window-size;
#X obj 83 192 s \$0-transpo;
#X obj 131 170 s \$0-pvol;
#X obj 180 148 s \$0-speed-preset;
#X obj 228 122 s \$0-set-lock;
#X obj 277 100 s \$0-Preset-Name;
#X obj 277 77 symbol;
#X obj 325 78 s \$0-AutoRadio;
#X obj 35 47 route window-size transposition Pvol speed lock Name Loop
;
#X connect 0 0 10 0;
#X connect 8 0 7 0;
#X connect 10 0 2 0;
#X connect 10 0 1 0;
#X connect 10 1 3 0;
#X connect 10 2 4 0;
#X connect 10 3 5 0;
#X connect 10 4 6 0;
#X connect 10 5 8 0;
#X connect 10 6 9 0;
#X restore 49 92 pd route preset;
#X obj 54 41 pipe 200;
#N canvas 529 47 159 213 label 0;
#X obj 23 27 inlet;
#X obj 23 173 s \$0-Pre-Cnv;
#X obj 23 64 + 1;
#X obj 59 51 r \$0-pre-name;
#X msg 23 150 label \$1-\$2;
#X obj 23 127 pack f s;
#X obj 23 102 f;
#X obj 59 76 t b s;
#X connect 0 0 2 0;
#X connect 2 0 6 0;
#X connect 3 0 7 0;
#X connect 4 0 1 0;
#X connect 5 0 4 0;
#X connect 6 0 5 0;
#X connect 7 0 6 0;
#X connect 7 1 5 1;
#X restore 22 115 pd label;
#X connect 0 0 3 0;
#X connect 1 0 0 1;
#X connect 2 0 4 0;
#X connect 2 0 0 0;
#X connect 2 0 5 0;
#X connect 4 0 0 0;
#X restore 231 365 pd preseting;
#X obj 1 1 cnv 15 389 154 empty \$0-back-ctr-cnv empty 20 12 0 14 -253822
-33289 0;
#X obj 165 75 tgl 18 0 \$0-lock \$0-set-lock lock -2 -6 0 8 -203904
-1 -1 1 1;
#X obj 5 126 hradio 23 1 0 7 qwqhk14524444 \$0-wsize Window_Size 6
-10 0 11 -4034 -262144 -1 6;
#X obj 94 109 nbx 5 14 -1e+037 1e+037 0 0 gdgf354354 \$0-window-size
empty 0 -6 0 10 -4034 -1 -1 8192 256;
#X text 10 128 7;
#X text 34 128 8;
#X text 57 128 9;
#X text 77 128 10;
#X text 101 128 11;
#X text 124 128 12;
#X text 147 128 13;
#X obj 11 68 bng 30 250 50 0 \$0-rewind \$0-resetpv Rewind 0 -6 0 10
-4032 -1 -1;
#X obj 56 68 bng 30 250 50 0 \$0-PLAY \$0-recpv Play 0 -6 0 10 -2150
-33289 -33289;
#X obj 13 26 nbx 4 20 0.001 60 0 0 \$0-temp-nbx \$0-min-nbx Min 60
11 1 14 -199398 -1 -1 0.00582472 256;
#X obj 356 21 vsl 23 128 0 2 0 0 \$0-pvgain \$0-pvol Vol 0 -10 0 13
-162983 -1 -1 12600 1;
#X obj 250 42 nbx 5 40 -1e+037 1e+037 0 0 \$0-to-speed \$0-speed-preset
Motion 0 -9 0 15 -3187 -1 -1 -50 256;
#X obj 250 103 nbx 5 40 -1e+037 1e+037 0 0 \$0-transpo \$0-transpo-set
Transp 0 -9 0 15 -157606 -1 -1 0 256;
#N canvas 132 49 426 154 window 0;
#X obj 18 54 expr pow(2 \, ($f1 + 7));
#X msg 181 66 set \$1;
#X obj 181 44 expr ((log($f1)/log(2)) - 7+ 0.001);
#X obj 18 76 s \$0-window-size;
#X obj 181 88 s \$0-wsize;
#X obj 18 31 inlet;
#X obj 181 23 inlet;
#X connect 0 0 3 0;
#X connect 1 0 4 0;
#X connect 2 0 1 0;
#X connect 5 0 0 0;
#X connect 6 0 2 0;
#X restore 43 157 pd window;
#X obj 97 68 bng 30 250 50 0 \$0-snd-P-C \$0-rcv-P-C Continue 0 -6
0 10 -24198 -33289 -33289;
#X obj 192 113 tgl 30 0 \$0-freeze-it \$0-set-freeze Freeze -1 -8 0
10 -83269 -222849 -1 0 1;
#X obj 1 0 cnv 15 60 16 empty empty control 5 7 0 12 -58255 -262144
0;
#N canvas 818 104 388 315 freeze 0;
#X obj 109 -132 sel 0;
#X msg 149 56 set \$1;
#X obj 149 82 s \$0-speed-preset;
#X obj 123 27 abs;
#X floatatom 194 -14 5 0 0 0 - - -;
#X obj 208 -77 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 234 15 s \$0-speed-preset;
#X obj 216 -136 r \$0-freeze-it;
#X obj 216 -109 sel 0 1;
#X msg 234 -86 0;
#X obj 21 -79 s \$0-set-freeze;
#X msg 21 -102 set 0;
#X obj 20 -57 r \$0-rewind;
#X obj 109 -154 r \$0-speed;
#X obj 79 -20 float;
#X obj 180 -44 float;
#X text 155 -183 Freeze;
#X connect 0 1 1 0;
#X connect 0 1 11 0;
#X connect 0 1 14 1;
#X connect 0 1 15 1;
#X connect 1 0 2 0;
#X connect 3 0 1 0;
#X connect 4 0 6 0;
#X connect 5 0 15 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X connect 8 1 9 0;
#X connect 9 0 6 0;
#X connect 11 0 10 0;
#X connect 12 0 14 0;
#X connect 13 0 0 0;
#X connect 14 0 3 0;
#X connect 15 0 3 0;
#X connect 15 0 4 0;
#X restore 237 267 pd freeze;
#X obj 319 22 bng 17 250 50 0 \$0-rev-bang \$0-vchbgblooo Bounce -14
-6 0 10 -4032 -1 -1;
#X obj 204 21 vradio 18 1 1 3 \$0-RadioValue \$0-AutoRadio Loop 0 -8
0 10 -204800 -41667 -1 1;
#N canvas 89 33 329 219 V-Radio 0;
#X obj 82 74 inlet;
#N canvas 660 115 715 696 Off 0;
#X obj 343 127 inlet;
#X msg 328 384 1;
#X msg 364 384 0;
#X obj 235 234 >;
#X obj 235 258 sel 1;
#X obj 216 525 spigot;
#X obj 454 305 < 0;
#X obj 454 336 sel 1;
#X obj 341 322 r \$0-RadioValue;
#X obj 341 346 sel 0 1 2;
#X obj 326 577 s \$0-loop-Loc;
#X obj 216 553 trigger bang float;
#X obj 216 602 s \$0-set-freeze;
#X msg 216 579 1;
#X floatatom 502 200 5 0 0 0 - - -;
#X obj 440 152 moses 1e-005;
#X obj 502 177 moses;
#X obj 529 152 r \$0-time-lenght;
#X obj 149 365 f;
#X floatatom 151 417 5 0 0 0 - - -;
#X obj 151 443 * 1000;
#X obj 83 107 r \$0-freeze-it;
#X obj 194 33 r \$0-Rev-Status;
#X obj 69 199 f;
#X obj 69 223 sel -1;
#X floatatom 194 55 5 0 0 0 - - -;
#X msg 204 418 0;
#X obj 198 118 f;
#X floatatom 198 142 5 0 0 0 - - -;
#X obj 194 76 t f b;
#X msg 144 231 0;
#X obj 85 271 f;
#X obj 85 295 sel 0;
#X obj 129 270 + 1;
#X obj 83 132 sel 0 1;
#X obj 423 521 spigot;
#X obj 498 371 f;
#X floatatom 499 405 5 0 0 0 - - -;
#X obj 499 431 * 1000;
#X obj 542 588 s \$0-loop-Loc;
#X obj 432 564 trigger bang float;
#X obj 432 616 s \$0-set-freeze;
#X msg 432 591 1;
#X msg 149 204 0;
#X text 283 101 Location em Segundos;
#X obj 440 127 r \$0-the-time-in-sec;
#X floatatom 407 185 5 0 0 0 - - -;
#X obj 445 394 del 200;
#X connect 0 0 3 0;
#X connect 0 0 6 0;
#X connect 1 0 5 1;
#X connect 1 0 35 1;
#X connect 2 0 5 1;
#X connect 2 0 35 1;
#X connect 3 0 4 0;
#X connect 4 0 26 0;
#X connect 5 0 11 0;
#X connect 6 0 7 0;
#X connect 7 0 36 0;
#X connect 7 0 47 0;
#X connect 8 0 9 0;
#X connect 9 0 1 0;
#X connect 9 1 2 0;
#X connect 9 2 2 0;
#X connect 11 0 13 0;
#X connect 11 0 30 0;
#X connect 11 1 10 0;
#X connect 13 0 12 0;
#X connect 14 0 18 1;
#X connect 15 1 16 0;
#X connect 16 0 14 0;
#X connect 17 0 16 1;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 20 0 5 0;
#X connect 21 0 34 0;
#X connect 22 0 25 0;
#X connect 23 0 24 0;
#X connect 24 0 31 0;
#X connect 25 0 29 0;
#X connect 26 0 5 0;
#X connect 27 0 28 0;
#X connect 28 0 23 1;
#X connect 29 0 27 1;
#X connect 29 1 27 0;
#X connect 30 0 31 1;
#X connect 31 0 32 0;
#X connect 31 0 33 0;
#X connect 32 0 18 0;
#X connect 33 0 31 1;
#X connect 34 0 23 0;
#X connect 35 0 40 0;
#X connect 36 0 37 0;
#X connect 37 0 38 0;
#X connect 38 0 35 0;
#X connect 40 0 42 0;
#X connect 40 0 43 0;
#X connect 40 1 39 0;
#X connect 42 0 41 0;
#X connect 43 0 31 1;
#X connect 45 0 3 1;
#X connect 45 0 15 0;
#X connect 45 0 46 0;
#X connect 46 0 36 1;
#X connect 47 0 36 0;
#X restore 98 100 pd Off;
#X obj 176 171 s \$0-AutoRadio;
#X msg 176 91 label Off;
#X obj 176 65 sel 0 1 2;
#X obj 176 41 r \$0-RadioValue;
#X msg 194 147 label Bounce;
#N canvas 61 94 530 608 Bounce 0;
#X obj 182 489 f;
#X obj 170 389 moses;
#X obj 101 406 moses 0;
#X obj 165 454 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 70 459 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 267 465 expr abs($f1) * -1;
#X obj 267 442 r \$0-speed;
#X obj 139 529 s \$0-speed;
#X obj 71 504 f;
#X obj 91 460 r \$0-speed;
#X obj 91 483 expr abs($f1);
#N canvas 108 65 450 300 time 0;
#X obj 195 29 r \$0-time-lenght;
#X floatatom 185 57 5 0 0 0 - - -;
#X obj 171 31 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 225 148 s \$0-rcv-ph-slider;
#X obj 231 128 s \$0-rcv-time-slider;
#X msg 225 108 range 0 \$1;
#X obj 91 166 outlet;
#X connect 0 0 1 0;
#X connect 1 0 5 0;
#X connect 1 0 6 0;
#X connect 2 0 1 0;
#X connect 5 0 3 0;
#X connect 5 0 4 0;
#X restore 389 304 pd time length;
#X obj 103 139 moses 0;
#X obj 104 111 r \$0-speed;
#X obj 142 161 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 103 161 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 95 251 sel -1 1;
#X obj 95 225 f;
#X msg 105 185 -1;
#X obj 52 77 r \$0-rev-bang;
#X obj 233 299 spigot;
#X obj 267 275 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 296 313 spigot;
#X obj 330 289 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 264 176 r \$0-RadioValue;
#X obj 264 200 sel 0 1 2;
#X msg 303 236 1;
#X msg 263 235 0;
#X obj 244 111 inlet;
#X obj 370 176 >;
#X obj 370 200 sel 1;
#X obj 42 184 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 128 224 s \$0-Rev-Status;
#X msg 140 188 1;
#X text 214 74 Location em Segundos;
#X obj 379 118 r \$0-the-time-in-sec;
#X connect 0 0 7 0;
#X connect 1 1 3 0;
#X connect 2 0 4 0;
#X connect 3 0 0 0;
#X connect 4 0 8 0;
#X connect 5 0 0 1;
#X connect 6 0 5 0;
#X connect 8 0 7 0;
#X connect 9 0 10 0;
#X connect 10 0 8 1;
#X connect 11 0 1 1;
#X connect 12 0 15 0;
#X connect 12 1 14 0;
#X connect 13 0 12 0;
#X connect 14 0 33 0;
#X connect 15 0 18 0;
#X connect 16 0 4 0;
#X connect 16 1 3 0;
#X connect 17 0 16 0;
#X connect 18 0 17 1;
#X connect 18 0 32 0;
#X connect 19 0 31 0;
#X connect 20 0 2 0;
#X connect 20 0 1 0;
#X connect 21 0 20 1;
#X connect 22 0 3 0;
#X connect 23 0 22 1;
#X connect 24 0 25 0;
#X connect 25 0 27 0;
#X connect 25 1 27 0;
#X connect 25 2 26 0;
#X connect 26 0 21 0;
#X connect 26 0 23 0;
#X connect 27 0 21 0;
#X connect 27 0 23 0;
#X connect 28 0 20 0;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 30 0 22 0;
#X connect 31 0 17 0;
#X connect 33 0 17 1;
#X connect 33 0 32 0;
#X connect 35 0 29 1;
#X restore 61 143 pd Bounce;
#X msg 183 122 label Loop;
#X text 22 43 Location em Segundos;
#X text 183 16 V-Radio Label;
#N canvas 906 485 423 376 Loop 0;
#X obj 82 47 inlet;
#X obj 170 215 r \$0-RadioValue;
#X obj 170 239 sel 0 1 2;
#X msg 209 275 1;
#X msg 169 274 0;
#X obj 136 119 >;
#X obj 136 143 sel 1;
#X msg 136 274 0;
#X obj 136 327 s \$0-loop-Loc;
#X obj 136 303 spigot;
#X obj 82 226 f;
#X obj 82 113 < 0;
#X obj 82 144 sel 1;
#X floatatom 82 251 5 0 0 0 - - -;
#X obj 82 274 * 1000;
#X text 11 24 Location em Segundos;
#X obj 260 84 r \$0-the-time-in-sec;
#X floatatom 274 132 5 0 0 0 - - -;
#X connect 0 0 5 0;
#X connect 0 0 11 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 2 1 3 0;
#X connect 2 2 4 0;
#X connect 3 0 9 1;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 9 0;
#X connect 9 0 8 0;
#X connect 10 0 13 0;
#X connect 11 0 12 0;
#X connect 12 0 10 0;
#X connect 13 0 14 0;
#X connect 14 0 9 0;
#X connect 16 0 5 1;
#X connect 16 0 10 1;
#X connect 16 0 17 0;
#X restore 82 121 pd Loop;
#X connect 0 0 7 0;
#X connect 0 0 11 0;
#X connect 0 0 1 0;
#X connect 3 0 2 0;
#X connect 4 0 3 0;
#X connect 4 1 8 0;
#X connect 4 2 6 0;
#X connect 5 0 4 0;
#X connect 6 0 2 0;
#X connect 8 0 2 0;
#X restore 225 325 pd V-Radio;
#N canvas 60 73 221 260 gain 0;
#X obj 83 26 inlet~;
#X obj 83 188 outlet~;
#X obj 83 161 *~;
#X obj 98 134 line~;
#X obj 98 83 pow 4;
#X obj 98 61 r \$0-pvgain;
#X obj 23 28 inlet~;
#X obj 22 185 outlet~;
#X obj 22 158 *~;
#X msg 98 106 \$1 11;
#X connect 0 0 2 0;
#X connect 2 0 1 0;
#X connect 3 0 2 1;
#X connect 3 0 8 1;
#X connect 4 0 9 0;
#X connect 5 0 4 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 9 0 3 0;
#X restore 101 340 pd gain;
#X obj 152 366 outlet~;
#N canvas 51 406 694 429 Time/sliders 0;
#X obj 98 81 inlet;
#X obj 99 181 nbx 6 14 -1e+037 1e+037 0 0 empty empty empty 0 -8 0
10 -261682 -1 -1 0.425737 256;
#N canvas 808 329 412 446 LocSlider 0;
#X obj 6 2 inlet;
#X obj -19 219 outlet;
#X obj 6 48 nbx 5 14 -1e+037 1e+037 0 0 empty empty empty 0 -8 0 10
-262144 -1 -1 0.425737 256;
#X obj 6 27 / 1000;
#X obj 87 89 mod 60;
#X obj 42 114 div 60;
#X obj 42 136 s \$0-pv-min;
#X obj 87 111 s \$0-pv-sec;
#X text 75 48 Location em Segundos;
#X obj 36 194 s \$0-rcv-ph-slider;
#X msg 36 162 set \$1;
#X obj 182 184 r \$0-snd-ph-slider;
#X obj 305 252 s \$0-set-freeze;
#X msg 305 229 1;
#X obj 182 232 * 1000;
#X obj 182 257 s \$0-location;
#X obj 182 207 trigger float bang;
#X connect 0 0 3 0;
#X connect 2 0 4 0;
#X connect 2 0 5 0;
#X connect 2 0 1 0;
#X connect 2 0 10 0;
#X connect 3 0 2 0;
#X connect 4 0 7 0;
#X connect 5 0 6 0;
#X connect 10 0 9 0;
#X connect 11 0 16 0;
#X connect 13 0 12 0;
#X connect 14 0 15 0;
#X connect 16 0 14 0;
#X connect 16 1 13 0;
#X restore 99 157 pd LocSlider;
#X obj 99 225 outlet;
#X obj 417 78 + 0.4;
#X obj 359 75 int;
#X obj 417 102 int;
#X obj 359 98 ==;
#X obj 359 120 sel 0 1;
#X obj 378 143 f;
#X obj 353 143 f;
#X floatatom 367 167 5 0 0 0 - - -;
#X obj 359 53 t f f;
#X obj 367 252 -;
#X obj 394 233 int;
#X obj 367 293 +;
#X obj 407 272 * 60;
#X floatatom 367 313 5 0 0 0 - - -;
#X obj 367 272 * 100;
#X obj 367 209 t f f;
#X obj 367 337 s \$0-time-lenght;
#X obj 309 230 s \$0-temp;
#X msg 405 189 set \$1;
#X obj 405 211 s \$0-min-nbx;
#X text 48 105 Location em ms;
#X text 168 182 Location em Segundos;
#X text 450 24 Definição de tempo;
#X text 453 39 do usuário;
#X text 334 364 Ajustes de tempo;
#X floatatom 306 111 5 0 0 0 - - -;
#X floatatom 434 127 5 0 0 0 - - -;
#X obj 359 23 r \$0-temp-nbx;
#X floatatom 305 66 5 0 0 0 - - -;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 2 0 1 0;
#X connect 4 0 6 0;
#X connect 4 0 10 1;
#X connect 5 0 7 0;
#X connect 5 0 29 0;
#X connect 6 0 7 1;
#X connect 6 0 30 0;
#X connect 7 0 8 0;
#X connect 8 0 10 0;
#X connect 8 1 9 0;
#X connect 9 0 11 0;
#X connect 10 0 11 0;
#X connect 11 0 19 0;
#X connect 11 0 22 0;
#X connect 11 0 21 0;
#X connect 12 0 5 0;
#X connect 12 1 4 0;
#X connect 12 1 9 1;
#X connect 13 0 18 0;
#X connect 14 0 13 1;
#X connect 14 0 16 0;
#X connect 15 0 17 0;
#X connect 16 0 15 1;
#X connect 17 0 20 0;
#X connect 18 0 15 0;
#X connect 19 0 13 0;
#X connect 19 1 14 0;
#X connect 22 0 23 0;
#X connect 31 0 32 0;
#X connect 31 0 12 0;
#X restore 225 302 pd Time/sliders;
#X obj 171 -93 inlet;
#X obj 209 -93 inlet;
#X obj 247 -93 inlet;
#N canvas 70 25 585 699 Tables 0;
#N canvas 0 22 450 300 (subpatch) 0;
#X array \$0-im-L 4096 float 0;
#X coords 0 1000 4096 -1000 400 100 1;
#X restore 35 325 graph;
#N canvas 0 22 450 300 (subpatch) 0;
#X array \$0-re-L 4096 float 0;
#X coords 0 500 4096 -500 400 100 1;
#X restore 31 202 graph;
#N canvas 0 22 450 300 (subpatch) 0;
#X array \$0-hann 8192 float 0;
#X coords 0 1 8191 0 250 100 1;
#X restore 32 57 graph;
#X obj 459 199 osc~;
#X obj 459 224 *~ -0.5;
#X obj 459 248 +~ 0.5;
#X obj 448 271 tabwrite~ \$0-hann;
#X obj 305 102 /;
#X obj 394 71 samplerate~;
#X obj 421 108 swap;
#X obj 421 132 /;
#X obj 312 123 * 1000;
#X obj 305 44 t f b f;
#X msg 440 21 resize \$1;
#X obj 440 45 s \$0-hann;
#X msg 480 177 0;
#X obj 421 155 t f b;
#X obj 304 17 r \$0-window-size;
#X obj 312 145 s \$0-window-msec;
#X obj 305 167 s \$0-window-sec;
#N canvas 0 22 450 300 (subpatch) 0;
#X array \$0-im-R 4096 float 0;
#X coords 0 1000 4096 -1000 400 100 1;
#X restore 35 573 graph;
#N canvas 0 22 450 300 (subpatch) 0;
#X array \$0-re-R 4096 float 0;
#X coords 0 500 4096 -500 400 100 1;
#X restore 35 450 graph;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 7 0 11 0;
#X connect 7 0 19 0;
#X connect 8 0 7 1;
#X connect 8 0 9 1;
#X connect 9 0 10 0;
#X connect 9 1 10 1;
#X connect 10 0 16 0;
#X connect 11 0 18 0;
#X connect 12 0 7 0;
#X connect 12 0 9 0;
#X connect 12 1 8 0;
#X connect 12 2 13 0;
#X connect 13 0 14 0;
#X connect 15 0 3 1;
#X connect 16 0 3 0;
#X connect 16 1 6 0;
#X connect 16 1 15 0;
#X connect 17 0 12 0;
#X restore 153 319 pd Tables;
#X obj 125 -93 inlet;
#X obj 101 366 outlet~;
#N canvas 202 54 748 399 PVoc 0;
#X obj 20 153 cnv 15 180 163 empty empty empty 20 12 0 14 -204786 -66577
0;
#X obj 30 254 *~;
#X obj 30 162 rifft~;
#X obj 30 276 outlet~;
#X obj 30 212 *~;
#X obj 45 189 tabreceive~ \$0-hann;
#X obj 45 233 expr 2/(3*$f1);
#X text 76 163 Current Window;
#X text 67 250 Normalize;
#X text 31 296 iFFT;
#X obj 20 14 cnv 15 121 80 empty empty empty 20 12 0 14 -204800 -66577
0;
#X obj 142 14 cnv 15 189 80 empty empty empty 20 12 0 14 -261234 -66577
0;
#X obj 20 95 cnv 15 311 57 empty empty empty 20 12 0 14 -257985 -66577
0;
#X text 30 14 Previous Window;
#N canvas 217 181 573 222 normalize 0;
#X obj 141 118 *~;
#X obj 60 121 *~;
#X obj 120 49 inlet~;
#X obj 60 50 inlet~;
#X obj 141 144 outlet~;
#X obj 60 146 outlet~;
#X text 200 70 Última saída do Phase Vocoder. Usaremos sua fase no
acúmulo de fase (somando com a diferença de fase entre as duas janelas
atuais [back/front]).;
#N canvas 128 81 304 192 (subpatch) 0;
#X obj 21 27 inlet~;
#X obj 223 27 inlet~;
#X obj 22 145 outlet~;
#X obj 22 110 q8_rsqrt~;
#X obj 22 87 +~ 1e-020;
#X obj 22 64 expr~ (pow ($v1 \, 2) + pow($v2 \, 2));
#X text 86 86 Previne Divisão por Zero;
#X text 78 145 = 1 / Magnitude-Amplitude (Z);
#X connect 0 0 5 0;
#X connect 1 0 5 1;
#X connect 3 0 2 0;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X restore 75 89 pd 1 / Z;
#X text 15 173 Amplitues normalizadas em 1 \, mas a fase continua a
mesma.;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 2 0 7 1;
#X connect 2 0 0 1;
#X connect 3 0 7 0;
#X connect 3 0 1 0;
#X connect 7 0 1 1;
#X connect 7 0 0 0;
#X restore 30 72 pd normalize;
#N canvas 805 443 469 324 FFTs 0;
#X obj 47 208 *~;
#X obj 207 209 *~;
#X obj 222 185 tabreceive~ \$0-hann;
#X obj 207 233 outlet~;
#X obj 47 232 outlet~;
#X obj 145 6 line~;
#X obj 47 93 -~;
#X obj 145 -24 inlet;
#X obj 87 71 r \$0-overlap;
#X obj 62 184 tabreceive~ \$0-hann;
#X text 194 10 índice de leitura das tabelas;
#X text 27 255 Última Janela de FFT;
#X text 203 256 Janela Atual;
#X obj 47 158 tabread4~ \$0-sampleL;
#X obj 207 158 tabread4~ \$0-sampleL;
#X connect 0 0 4 0;
#X connect 1 0 3 0;
#X connect 2 0 1 1;
#X connect 5 0 6 0;
#X connect 5 0 14 0;
#X connect 6 0 13 0;
#X connect 7 0 5 0;
#X connect 8 0 6 1;
#X connect 9 0 0 1;
#X connect 13 0 0 0;
#X connect 14 0 1 0;
#X restore 155 42 pd FFTs (Back & Front);
#X obj 228 64 rfft~;
#X obj 155 63 rfft~;
#X text 242 80 T' = (Front);
#X obj 155 19 inlet;
#X obj 201 153 cnv 15 130 163 empty empty empty 20 12 0 14 -233017
-66577 0;
#X obj 219 239 block~;
#X msg 219 217 set \$1 4;
#X text 210 260 Window & Overlaps;
#X obj 219 196 r \$0-window-size;
#X text 155 79 T = (Back);
#N canvas 101 123 443 344 Phase-Acummulation 0;
#X obj 75 139 cnv 15 240 120 empty empty empty 20 12 0 14 -183917 -66577
0;
#X obj 75 58 cnv 15 240 80 empty empty empty 20 12 0 14 -262130 -66577
0;
#X obj 79 81 inlet~;
#X obj 121 81 inlet~;
#X obj 163 81 inlet~;
#X obj 205 81 inlet~;
#X obj 221 190 inlet~;
#X obj 265 190 inlet~;
#X obj 106 235 outlet~;
#X obj 265 236 outlet~;
#N canvas 357 27 374 225 lock/normalize 0;
#X obj 24 45 cnv 15 108 34 empty empty empty 20 12 0 14 -233017 -66577
0;
#X obj 24 80 cnv 15 320 95 empty empty empty 20 12 0 14 -212265 -66577
0;
#X obj 30 147 *~;
#X obj 112 144 *~;
#X obj 30 86 +~ 1e-015;
#X obj 127 85 +~ 1e-015;
#N canvas 116 92 267 162 magnitude 0;
#X obj 14 14 inlet~;
#X obj 200 14 inlet~;
#X obj 25 134 outlet~;
#X obj 25 99 q8_rsqrt~;
#X obj 15 53 expr~ (pow ($v1 \, 2) + pow($v2 \, 2));
#X connect 0 0 4 0;
#X connect 1 0 4 1;
#X connect 3 0 2 0;
#X connect 4 0 3 0;
#X restore 45 114 pd magnitude;
#X obj 112 180 outlet~;
#X obj 30 181 outlet~;
#X obj 117 22 inlet~;
#X obj 30 21 inlet~;
#N canvas 228 78 842 334 shift 0;
#X obj 128 124 lrshift~ 1;
#X obj 8 126 lrshift~ -1;
#X obj 115 208 *~;
#X obj 97 250 +~;
#X obj 97 280 outlet~;
#X obj 95 37 inlet~;
#X obj 329 120 lrshift~ 1;
#X obj 220 114 lrshift~ -1;
#X obj 316 214 *~;
#X obj 298 256 +~;
#X obj 298 286 outlet~;
#X obj 296 33 inlet~;
#X text 429 113 Lock on: phase-locking version R'[k] (Add lrshift~
to R[k]) Channels in phase by adding 2 neighbor complex amplitudes.
Result tends to strongest amplitude channel. No phase change if paralell
phase output/input (quotient neighbor channel have equal phase).;
#X obj 166 156 r \$0-lock;
#X text 420 208 if "lock" on \, they change to agree with inter-channel
phase relationships of the input.;
#X connect 0 0 2 0;
#X connect 1 0 2 0;
#X connect 2 0 3 1;
#X connect 3 0 4 0;
#X connect 5 0 0 0;
#X connect 5 0 1 0;
#X connect 5 0 3 0;
#X connect 6 0 8 0;
#X connect 7 0 8 0;
#X connect 8 0 9 1;
#X connect 9 0 10 0;
#X connect 11 0 6 0;
#X connect 11 0 7 0;
#X connect 11 0 9 0;
#X connect 13 0 8 1;
#X connect 13 0 2 1;
#X restore 30 54 pd shift & lock;
#X text 186 86 somar 1e-015 previne zeros;
#X text 165 133 Normalizar Magnitude em 1;
#X connect 2 0 8 0;
#X connect 3 0 7 0;
#X connect 4 0 6 0;
#X connect 4 0 2 0;
#X connect 5 0 3 1;
#X connect 5 0 6 1;
#X connect 6 0 2 1;
#X connect 6 0 3 0;
#X connect 9 0 11 1;
#X connect 10 0 11 0;
#X connect 11 0 4 0;
#X connect 11 1 5 0;
#X restore 106 148 pd lock/normalize;
#X text 146 59 -;
#X text 79 61 P (Previous);
#X text 163 60 T (Back Window);
#X text 204 171 T' (Front Window);
#N canvas 59 258 503 438 diferenca 0;
#X text 99 221 Re = (a1*a2) + (b1*b2);
#X text 90 118 a1 = $v1;
#X text 277 117 b2 = $v4;
#X text 293 222 Im = (b1*a2) - (a1*b2);
#X obj 93 188 expr~ ($v1 * $v3) + ($v2 * $v4) \; ($v2 * $v3) - ($v1
* $v4);
#X text 152 117 b1 = $v2;
#X text 215 117 a2 = $v3;
#X text 378 137 /;
#X text 375 125 Z1 = (a1 + b1i);
#X text 376 151 Z2 = (a2 + b2i);
#X text 431 139 /;
#X obj 93 136 inlet~;
#X obj 156 135 inlet~;
#X obj 219 135 inlet~;
#X obj 282 135 inlet~;
#X obj 93 247 outlet~;
#X obj 282 245 outlet~;
#X text 134 93 Z1;
#X text 204 93 /;
#X text 263 94 Z2;
#X text 100 276 R[k];
#X text 290 270 R[k];
#X text 116 16 Diferença de Fase com Divisão Complexa;
#X text 70 152 Re;
#X text 136 154 Im;
#X text 200 153 Re;
#X text 266 155 Im;
#X text 17 48 (s[m-1 \, k]) : Previous Window (Z1);
#X text 266 48 T : Back Window (Z2);
#X text 236 47 -;
#X text 66 355 A diferença é obtida por meio da mateméatica de números
complexos (divisão) \, na forma retangular.;
#X text 66 398 A Magnitude (Amplitude) é igual a 1 / Z da Janela Anterior.
;
#X text 66 308 A fase é a Diferença de Fase entre o último resultado
de análise do Phase Vovoder (s[m-1 \, k] e o FFT da janela anterior
(T).;
#X connect 4 0 15 0;
#X connect 4 1 16 0;
#X connect 11 0 4 0;
#X connect 12 0 4 1;
#X connect 13 0 4 2;
#X connect 14 0 4 3;
#X restore 88 113 pd diferenca de fase;
#X text 30 270 Resultado tem a Amplitude da Janela Atual (T') e a Fase
do Acúmulo de Fase: (P + (T' - T))!;
#N canvas 582 343 539 414 Calcular 0;
#X text 109 189 Re = (a1*a2) - (b1*b2);
#X text 297 185 Im = (b1*a2) + (a1*b2);
#X text 96 84 a1 = $v1;
#X text 283 83 b2 = $v4;
#X text 158 83 b1 = $v2;
#X text 221 83 a2 = $v3;
#X text 391 120 Z1 = (a1 + b1i);
#X text 392 146 Z2 = (a2 + b2i);
#X obj 99 104 inlet~;
#X obj 162 103 inlet~;
#X obj 225 103 inlet~;
#X obj 288 103 inlet~;
#X obj 98 216 outlet~;
#X obj 288 210 outlet~;
#X obj 99 156 expr~ ($v1 * $v3) - ($v2 * $v4) \; ($v2 * $v3) + ($v1
* $v4);
#X text 395 134 *;
#X text 447 134 *;
#X text 141 61 Z1;
#X text 211 61 *;
#X text 271 61 Z2;
#X text 64 281 A soma das fases é obtida pela Multiplicação de números
complexos na forma retangular.;
#X text 73 119 Re;
#X text 142 120 Im;
#X text 207 119 Re;
#X text 274 120 Im;
#X text 118 10 Soma de Fases pela Multiplicação Complexa;
#X text 244 36 T' : Janela Atual (Z2);
#X text 14 36 (P - T) : Diferença de Fases (Z1);
#X text 223 36 +;
#X text 64 243 A fase é a soma da fase da Janela Atual e a diferença
de fases obtida anteriormente.;
#X text 65 320 A multiplicação também implica que as Amplitudes sejam
multiplicadas \, mas como a Amplitude do resultado da diferença de
fase foi normalizado \, seu valor é igual a 1! Portanto \, a Amplitude
da janela atual foi multuplicada por 1 e \, assim \, o que temos é
a Magnitude igual a da Janela Atual.;
#X connect 8 0 14 0;
#X connect 9 0 14 1;
#X connect 10 0 14 2;
#X connect 11 0 14 3;
#X connect 14 0 12 0;
#X connect 14 1 13 0;
#X restore 106 213 pd Calcular Acúmulo de Fase;
#X text 64 32 Acúmulo é Diferença de Fase (P-T) + Fase de T';
#X connect 2 0 15 0;
#X connect 3 0 15 1;
#X connect 4 0 15 2;
#X connect 5 0 15 3;
#X connect 6 0 17 2;
#X connect 7 0 17 3;
#X connect 10 0 17 0;
#X connect 10 1 17 1;
#X connect 15 0 10 0;
#X connect 15 1 10 1;
#X connect 17 0 8 0;
#X connect 17 1 9 0;
#X restore 30 103 pd Phase-Acummulation (Phase Vocoding);
#X obj 239 129 tabsend~ \$0-im-L;
#X obj 39 127 tabsend~ \$0-re-L;
#X obj 23 31 tabreceive~ \$0-re-L;
#X obj 34 51 tabreceive~ \$0-im-L;
#X obj 378 173 cnv 15 180 163 empty empty empty 20 12 0 14 -204786
-66577 0;
#X obj 388 274 *~;
#X obj 388 182 rifft~;
#X obj 388 296 outlet~;
#X obj 388 232 *~;
#X obj 403 209 tabreceive~ \$0-hann;
#X obj 403 253 expr 2/(3*$f1);
#X text 434 183 Current Window;
#X text 425 270 Normalize;
#X text 389 316 iFFT;
#X obj 378 34 cnv 15 121 80 empty empty empty 20 12 0 14 -204800 -66577
0;
#X obj 500 34 cnv 15 189 80 empty empty empty 20 12 0 14 -261234 -66577
0;
#X obj 378 115 cnv 15 311 57 empty empty empty 20 12 0 14 -257985 -66577
0;
#X text 388 34 Previous Window;
#N canvas 217 181 573 222 normalize 0;
#X obj 141 118 *~;
#X obj 60 121 *~;
#X obj 120 49 inlet~;
#X obj 60 50 inlet~;
#X obj 141 144 outlet~;
#X obj 60 146 outlet~;
#X text 200 70 Última saída do Phase Vocoder. Usaremos sua fase no
acúmulo de fase (somando com a diferença de fase entre as duas janelas
atuais [back/front]).;
#N canvas 128 81 304 192 (subpatch) 0;
#X obj 21 27 inlet~;
#X obj 223 27 inlet~;
#X obj 22 145 outlet~;
#X obj 22 110 q8_rsqrt~;
#X obj 22 87 +~ 1e-020;
#X obj 22 64 expr~ (pow ($v1 \, 2) + pow($v2 \, 2));
#X text 86 86 Previne Divisão por Zero;
#X text 78 145 = 1 / Magnitude-Amplitude (Z);
#X connect 0 0 5 0;
#X connect 1 0 5 1;
#X connect 3 0 2 0;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X restore 75 89 pd 1 / Z;
#X text 15 173 Amplitues normalizadas em 1 \, mas a fase continua a
mesma.;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 2 0 7 1;
#X connect 2 0 0 1;
#X connect 3 0 7 0;
#X connect 3 0 1 0;
#X connect 7 0 1 1;
#X connect 7 0 0 0;
#X restore 388 92 pd normalize;
#N canvas 805 443 469 324 FFTs 0;
#X obj 47 208 *~;
#X obj 207 209 *~;
#X obj 222 185 tabreceive~ \$0-hann;
#X obj 207 233 outlet~;
#X obj 47 232 outlet~;
#X obj 145 6 line~;
#X obj 47 93 -~;
#X obj 145 -24 inlet;
#X obj 87 71 r \$0-overlap;
#X obj 62 184 tabreceive~ \$0-hann;
#X text 194 10 índice de leitura das tabelas;
#X text 27 255 Última Janela de FFT;
#X text 203 256 Janela Atual;
#X obj 47 158 tabread4~ \$0-sampleR;
#X obj 207 157 tabread4~ \$0-sampleR;
#X connect 0 0 4 0;
#X connect 1 0 3 0;
#X connect 2 0 1 1;
#X connect 5 0 6 0;
#X connect 5 0 14 0;
#X connect 6 0 13 0;
#X connect 7 0 5 0;
#X connect 8 0 6 1;
#X connect 9 0 0 1;
#X connect 13 0 0 0;
#X connect 14 0 1 0;
#X restore 513 62 pd FFTs (Back & Front);
#X obj 586 84 rfft~;
#X obj 513 83 rfft~;
#X text 600 100 T' = (Front);
#X obj 513 39 inlet;
#X text 513 99 T = (Back);
#N canvas 101 123 443 344 Phase-Acummulation 0;
#X obj 75 139 cnv 15 240 120 empty empty empty 20 12 0 14 -183917 -66577
0;
#X obj 75 58 cnv 15 240 80 empty empty empty 20 12 0 14 -262130 -66577
0;
#X obj 79 81 inlet~;
#X obj 121 81 inlet~;
#X obj 163 81 inlet~;
#X obj 205 81 inlet~;
#X obj 221 190 inlet~;
#X obj 265 190 inlet~;
#X obj 106 235 outlet~;
#X obj 265 236 outlet~;
#N canvas 357 27 374 225 lock/normalize 0;
#X obj 24 45 cnv 15 108 34 empty empty empty 20 12 0 14 -233017 -66577
0;
#X obj 24 80 cnv 15 320 95 empty empty empty 20 12 0 14 -212265 -66577
0;
#X obj 30 147 *~;
#X obj 112 144 *~;
#X obj 30 86 +~ 1e-015;
#X obj 127 85 +~ 1e-015;
#N canvas 116 92 267 162 magnitude 0;
#X obj 14 14 inlet~;
#X obj 200 14 inlet~;
#X obj 25 134 outlet~;
#X obj 25 99 q8_rsqrt~;
#X obj 15 53 expr~ (pow ($v1 \, 2) + pow($v2 \, 2));
#X connect 0 0 4 0;
#X connect 1 0 4 1;
#X connect 3 0 2 0;
#X connect 4 0 3 0;
#X restore 45 114 pd magnitude;
#X obj 112 180 outlet~;
#X obj 30 181 outlet~;
#X obj 117 22 inlet~;
#X obj 30 21 inlet~;
#N canvas 228 78 842 334 shift 0;
#X obj 128 124 lrshift~ 1;
#X obj 8 126 lrshift~ -1;
#X obj 115 208 *~;
#X obj 97 250 +~;
#X obj 97 280 outlet~;
#X obj 95 37 inlet~;
#X obj 329 120 lrshift~ 1;
#X obj 220 114 lrshift~ -1;
#X obj 316 214 *~;
#X obj 298 256 +~;
#X obj 298 286 outlet~;
#X obj 296 33 inlet~;
#X text 429 113 Lock on: phase-locking version R'[k] (Add lrshift~
to R[k]) Channels in phase by adding 2 neighbor complex amplitudes.
Result tends to strongest amplitude channel. No phase change if paralell
phase output/input (quotient neighbor channel have equal phase).;
#X obj 166 156 r \$0-lock;
#X text 420 208 if "lock" on \, they change to agree with inter-channel
phase relationships of the input.;
#X connect 0 0 2 0;
#X connect 1 0 2 0;
#X connect 2 0 3 1;
#X connect 3 0 4 0;
#X connect 5 0 0 0;
#X connect 5 0 1 0;
#X connect 5 0 3 0;
#X connect 6 0 8 0;
#X connect 7 0 8 0;
#X connect 8 0 9 1;
#X connect 9 0 10 0;
#X connect 11 0 6 0;
#X connect 11 0 7 0;
#X connect 11 0 9 0;
#X connect 13 0 8 1;
#X connect 13 0 2 1;
#X restore 30 54 pd shift & lock;
#X text 186 86 somar 1e-015 previne zeros;
#X text 165 133 Normalizar Magnitude em 1;
#X connect 2 0 8 0;
#X connect 3 0 7 0;
#X connect 4 0 6 0;
#X connect 4 0 2 0;
#X connect 5 0 3 1;
#X connect 5 0 6 1;
#X connect 6 0 2 1;
#X connect 6 0 3 0;
#X connect 9 0 11 1;
#X connect 10 0 11 0;
#X connect 11 0 4 0;
#X connect 11 1 5 0;
#X restore 106 148 pd lock/normalize;
#X text 146 59 -;
#X text 79 61 P (Previous);
#X text 163 60 T (Back Window);
#X text 204 171 T' (Front Window);
#N canvas 59 258 503 438 diferenca 0;
#X text 99 221 Re = (a1*a2) + (b1*b2);
#X text 90 118 a1 = $v1;
#X text 277 117 b2 = $v4;
#X text 293 222 Im = (b1*a2) - (a1*b2);
#X obj 93 188 expr~ ($v1 * $v3) + ($v2 * $v4) \; ($v2 * $v3) - ($v1
* $v4);
#X text 152 117 b1 = $v2;
#X text 215 117 a2 = $v3;
#X text 378 137 /;
#X text 375 125 Z1 = (a1 + b1i);
#X text 376 151 Z2 = (a2 + b2i);
#X text 431 139 /;
#X obj 93 136 inlet~;
#X obj 156 135 inlet~;
#X obj 219 135 inlet~;
#X obj 282 135 inlet~;
#X obj 93 247 outlet~;
#X obj 282 245 outlet~;
#X text 134 93 Z1;
#X text 204 93 /;
#X text 263 94 Z2;
#X text 100 276 R[k];
#X text 290 270 R[k];
#X text 116 16 Diferença de Fase com Divisão Complexa;
#X text 70 152 Re;
#X text 136 154 Im;
#X text 200 153 Re;
#X text 266 155 Im;
#X text 17 48 (s[m-1 \, k]) : Previous Window (Z1);
#X text 266 48 T : Back Window (Z2);
#X text 236 47 -;
#X text 66 355 A diferença é obtida por meio da mateméatica de números
complexos (divisão) \, na forma retangular.;
#X text 66 398 A Magnitude (Amplitude) é igual a 1 / Z da Janela Anterior.
;
#X text 66 308 A fase é a Diferença de Fase entre o último resultado
de análise do Phase Vovoder (s[m-1 \, k] e o FFT da janela anterior
(T).;
#X connect 4 0 15 0;
#X connect 4 1 16 0;
#X connect 11 0 4 0;
#X connect 12 0 4 1;
#X connect 13 0 4 2;
#X connect 14 0 4 3;
#X restore 88 113 pd diferenca de fase;
#X text 30 270 Resultado tem a Amplitude da Janela Atual (T') e a Fase
do Acúmulo de Fase: (P + (T' - T))!;
#N canvas 582 343 539 414 Calcular 0;
#X text 109 189 Re = (a1*a2) - (b1*b2);
#X text 297 185 Im = (b1*a2) + (a1*b2);
#X text 96 84 a1 = $v1;
#X text 283 83 b2 = $v4;
#X text 158 83 b1 = $v2;
#X text 221 83 a2 = $v3;
#X text 391 120 Z1 = (a1 + b1i);
#X text 392 146 Z2 = (a2 + b2i);
#X obj 99 104 inlet~;
#X obj 162 103 inlet~;
#X obj 225 103 inlet~;
#X obj 288 103 inlet~;
#X obj 98 216 outlet~;
#X obj 288 210 outlet~;
#X obj 99 156 expr~ ($v1 * $v3) - ($v2 * $v4) \; ($v2 * $v3) + ($v1
* $v4);
#X text 395 134 *;
#X text 447 134 *;
#X text 141 61 Z1;
#X text 211 61 *;
#X text 271 61 Z2;
#X text 64 281 A soma das fases é obtida pela Multiplicação de números
complexos na forma retangular.;
#X text 73 119 Re;
#X text 142 120 Im;
#X text 207 119 Re;
#X text 274 120 Im;
#X text 118 10 Soma de Fases pela Multiplicação Complexa;
#X text 244 36 T' : Janela Atual (Z2);
#X text 14 36 (P - T) : Diferença de Fases (Z1);
#X text 223 36 +;
#X text 64 243 A fase é a soma da fase da Janela Atual e a diferença
de fases obtida anteriormente.;
#X text 65 320 A multiplicação também implica que as Amplitudes sejam
multiplicadas \, mas como a Amplitude do resultado da diferença de
fase foi normalizado \, seu valor é igual a 1! Portanto \, a Amplitude
da janela atual foi multuplicada por 1 e \, assim \, o que temos é
a Magnitude igual a da Janela Atual.;
#X connect 8 0 14 0;
#X connect 9 0 14 1;
#X connect 10 0 14 2;
#X connect 11 0 14 3;
#X connect 14 0 12 0;
#X connect 14 1 13 0;
#X restore 106 213 pd Calcular Acúmulo de Fase;
#X text 64 32 Acúmulo é Diferença de Fase (P-T) + Fase de T';
#X connect 2 0 15 0;
#X connect 3 0 15 1;
#X connect 4 0 15 2;
#X connect 5 0 15 3;
#X connect 6 0 17 2;
#X connect 7 0 17 3;
#X connect 10 0 17 0;
#X connect 10 1 17 1;
#X connect 15 0 10 0;
#X connect 15 1 10 1;
#X connect 17 0 8 0;
#X connect 17 1 9 0;
#X restore 388 123 pd Phase-Acummulation (Phase Vocoding);
#X obj 380 51 tabreceive~ \$0-re-R;
#X obj 392 71 tabreceive~ \$0-im-R;
#X obj 397 147 tabsend~ \$0-re-R;
#X obj 597 148 tabsend~ \$0-im-R;
#X connect 1 0 3 0;
#X connect 2 0 4 0;
#X connect 4 0 1 0;
#X connect 5 0 4 1;
#X connect 6 0 1 1;
#X connect 14 0 26 0;
#X connect 14 1 26 1;
#X connect 15 0 17 0;
#X connect 15 1 16 0;
#X connect 16 0 26 4;
#X connect 16 1 26 5;
#X connect 17 0 26 2;
#X connect 17 1 26 3;
#X connect 19 0 15 0;
#X connect 22 0 21 0;
#X connect 24 0 22 0;
#X connect 24 0 6 0;
#X connect 24 0 37 0;
#X connect 26 0 2 0;
#X connect 26 0 28 0;
#X connect 26 1 2 1;
#X connect 26 1 27 0;
#X connect 29 0 14 0;
#X connect 30 0 14 1;
#X connect 32 0 34 0;
#X connect 33 0 35 0;
#X connect 35 0 32 0;
#X connect 36 0 35 1;
#X connect 37 0 32 1;
#X connect 45 0 52 0;
#X connect 45 1 52 1;
#X connect 46 0 48 0;
#X connect 46 1 47 0;
#X connect 47 0 52 4;
#X connect 47 1 52 5;
#X connect 48 0 52 2;
#X connect 48 1 52 3;
#X connect 50 0 46 0;
#X connect 52 0 33 0;
#X connect 52 0 55 0;
#X connect 52 1 33 1;
#X connect 52 1 56 0;
#X connect 53 0 45 0;
#X connect 54 0 45 1;
#X restore 101 307 pd PVoc;
#N canvas 1103 22 746 523 Sample 0;
#X obj 410 179 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 410 200 sel 0 1;
#X obj 429 223 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 410 223 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 410 75 inlet;
#X floatatom 576 124 5 0 0 0 - - -;
#X obj 576 100 t b a;
#X obj 561 191 s \$0-speed;
#X obj 561 168 f;
#X obj 576 145 abs;
#X obj 410 328 s \$0-rcv-P-C;
#X obj 424 156 r \$0-snd-P-C;
#X msg 410 120 set 1;
#X obj 453 270 r \$0-rewind;
#X obj 576 76 r \$0-speed-preset;
#X msg 410 244 color 16 12 12 \, label Continue \, label_font 3 10
;
#X msg 429 300 color 15 12 12 \, label Pause \, label_font 3 10;
#X obj 193 300 cnv 15 106 27 empty empty empty 20 12 0 14 -261234 -66577
0;
#X obj 116 317 soundfiler;
#X obj 193 272 cnv 15 106 27 empty empty empty 20 12 0 14 -261682 -66577
0;
#X obj 135 220 symbol \$0-sampleL;
#X obj 244 219 symbol \$0-sampleR;
#X msg 116 140 read -resize \$1;
#X obj 116 268 list;
#X obj 135 195 trigger bang bang;
#X obj 137 244 pack symbol symbol;
#X obj 116 292 list trim;
#X obj 135 172 loadbang;
#X obj 195 278 table \$0-sampleL;
#X obj 196 306 table \$0-sampleR;
#X floatatom 116 343 9 0 0 0 - - -;
#X obj 116 363 / 44100;
#X floatatom 116 424 9 0 0 0 - - -;
#X obj 116 448 s \$0-min-nbx;
#X obj 116 396 / 100;
#X obj 67 471 s \$0-the-time-in-sec;
#X obj 116 3 inlet;
#X obj 561 48 r \$0-PLAY;
#X msg 164 46 vinheta.wav;
#X obj 66 75 r \$0-sOpen;
#X obj 66 99 openpanel;
#X obj 147 106 symbol;
#X obj 336 442 s \$0-set-freeze;
#X msg 377 274 1;
#X msg 347 272 0;
#X obj 474 462 s \$0-pvol;
#X obj 529 361 r \$0-pvgain;
#X obj 514 396 f;
#X obj 492 428 f;
#X msg 451 427 0;
#X obj 393 360 t f b b;
#X obj 319 356 t f b;
#X obj 349 413 del 11;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 1 1 2 0;
#X connect 2 0 16 0;
#X connect 2 0 44 0;
#X connect 3 0 15 0;
#X connect 3 0 43 0;
#X connect 4 0 12 0;
#X connect 5 0 9 0;
#X connect 6 0 5 0;
#X connect 6 1 5 0;
#X connect 8 0 7 0;
#X connect 9 0 8 1;
#X connect 11 0 0 0;
#X connect 12 0 0 0;
#X connect 13 0 16 0;
#X connect 14 0 6 0;
#X connect 15 0 10 0;
#X connect 16 0 10 0;
#X connect 18 0 30 0;
#X connect 20 0 25 0;
#X connect 21 0 25 1;
#X connect 22 0 23 0;
#X connect 23 0 26 0;
#X connect 24 0 20 0;
#X connect 24 1 21 0;
#X connect 25 0 23 1;
#X connect 26 0 18 0;
#X connect 27 0 24 0;
#X connect 30 0 31 0;
#X connect 31 0 35 0;
#X connect 31 0 34 0;
#X connect 32 0 33 0;
#X connect 34 0 32 0;
#X connect 36 0 41 0;
#X connect 37 0 8 0;
#X connect 38 0 41 0;
#X connect 39 0 40 0;
#X connect 40 0 22 0;
#X connect 41 0 22 0;
#X connect 43 0 50 0;
#X connect 44 0 51 0;
#X connect 46 0 47 1;
#X connect 47 0 48 1;
#X connect 48 0 45 0;
#X connect 49 0 45 0;
#X connect 50 0 52 0;
#X connect 50 1 49 0;
#X connect 50 2 47 0;
#X connect 51 0 42 0;
#X connect 51 1 48 0;
#X connect 52 0 42 0;
#X restore 182 188 pd Sample;
#X obj 125 21 bng 30 250 50 0 \$0-sOpen \$0-rOpen Open 3 -8 0 10 -258113
-1 -1;
#X obj 125 -65 route bang;
#X obj 289 -93 inlet;
#X obj 327 -93 inlet;
#X connect 3 0 43 1;
#X connect 4 0 42 0;
#X connect 4 1 42 1;
#X connect 4 2 35 0;
#X connect 10 0 25 0;
#X connect 11 0 25 1;
#X connect 33 0 41 0;
#X connect 33 1 34 0;
#X connect 35 0 32 0;
#X connect 36 0 19 0;
#X connect 37 0 20 0;
#X connect 38 0 26 0;
#X connect 40 0 45 0;
#X connect 42 0 33 0;
#X connect 42 1 33 1;
#X connect 45 0 44 0;
#X connect 45 1 43 0;
#X connect 46 0 23 0;
#X connect 47 0 24 0;
#X coords 0 1 100 -1 389 156 1 0 0;
#X restore 100 114 graph;
#N canvas 146 22 555 106 (subpatch) 0;
#X obj 1 1 cnv 15 520 48 empty empty empty 20 12 0 14 -253760 -66577
0;
#X obj 7 10 hsl 445 33 0 0.582472 0 0 \$0-snd-ph-slider \$0-rcv-ph-slider
empty -2 -8 0 10 -113024 -176129 -1 32453 0;
#X text 470 1 PVoc;
#N canvas 292 306 150 352 (subpatch) 0;
#X obj 1 1 cnv 15 60 20 empty \$0-PVCanvasTime 0:00 6 12 1 20 -104704
-98305 0;
#X obj 18 161 pack float float;
#X obj -14 105 f;
#X obj -14 129 moses 10;
#X obj 23 249 pack symbol float;
#X obj 59 67 trigger b f;
#X msg -3 290 label \$2:\$1;
#X obj -14 200 makefilename 0%d;
#X obj -3 311 s \$0-PVCanvasTime;
#X obj -15 54 r \$0-pv-sec;
#X obj 59 38 r \$0-pv-min;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 3 0 7 0;
#X connect 3 1 1 0;
#X connect 4 0 6 0;
#X connect 5 0 2 0;
#X connect 5 1 1 1;
#X connect 5 1 4 1;
#X connect 6 0 8 0;
#X connect 7 0 4 0;
#X connect 9 0 2 0;
#X connect 10 0 5 0;
#X coords 0 1 62 -1 62 22 1 0 0;
#X restore 457 16 graph;
#X coords 0 1 100 -1 522 50 1 0 0;
#X restore 100 270 graph;
#N canvas 37 554 151 173 (subpatch) 0;
#X obj 1 1 cnv 15 129 154 empty \$0-Pre-Cnv 3-Lento 5 26 0 14 -233017
-66577 0;
#X obj 5 102 hradio 15 1 0 8 \$0-save-preset \$0-read-preset Salvar-Preset
0 -8 0 10 -260187 -1 -1 2;
#X obj 105 135 bng 17 250 50 0 \$0-save-preset-bang \$0-PorraNingumis
Save -4 -7 0 10 -231181 -1 -1;
#X obj 5 60 hradio 15 1 0 8 \$0-read-preset \$0-get-preset Ler-Preset
0 -8 0 10 -204786 -1 -1 2;
#X symbolatom 6 136 14 0 0 0 - #0-Preset-Name #0-pre-name;
#X text 6 3 #;
#X text 20 3 Nome:;
#X text 0 70 _____________________;
#X text 1 30 _____________________;
#X text 5 118 Nome:;
#X obj 70 1 cnv 15 60 16 empty empty presets 5 7 0 12 -58255 -262144
0;
#X coords 0 1 112 -1 131 156 1 0 0;
#X restore 491 114 graph;
#X obj 522 364 outlet~;
#N canvas 384 163 1019 696 MidiConfig 0;
#N canvas 0 89 509 314 foot 0;
#X obj 29 113 pgmin 1;
#X obj 14 175 bng 15 250 50 0 \$0-resetpv empty empty 17 7 0 10 -262144
-1 -1;
#X obj 41 174 bng 15 250 50 0 \$0-recpv empty empty 17 7 0 10 -262144
-1 -1;
#X floatatom 324 219 5 0 0 0 - - -;
#X obj 324 194 expr ($f1 - 59) * 20;
#X obj 208 122 expr (($f1 - 63) * 2) + 7;
#X floatatom 249 170 5 0 0 0 - - -;
#X obj 208 193 s \$0-speed-preset;
#X obj 208 83 ctlin 27 \$2;
#X obj 323 156 ctlin 7 \$2;
#X obj 68 178 bng 15 250 50 0 \$0-set-freeze empty empty 17 7 0 10
-262144 -1 -1;
#X obj 27 140 sel 1 2 3;
#X obj 324 242 s \$0-transpo-set;
#X connect 0 0 11 0;
#X connect 3 0 12 0;
#X connect 4 0 3 0;
#X connect 5 0 7 0;
#X connect 6 0 7 0;
#X connect 8 0 5 0;
#X connect 9 0 4 0;
#X connect 11 0 1 0;
#X connect 11 1 2 0;
#X connect 11 2 10 0;
#X restore 816 192 pd foot pedal;
#X obj 581 279 expr ($f1 - 48) * 100;
#X obj 519 278 - 8192;
#X obj 520 361 +;
#X obj 520 340 f;
#X obj 75 329 / 127;
#X text 86 287 Vol;
#X text 530 229 Pitch;
#X obj 554 125 * 5;
#X text 474 81 Motion -;
#X text 558 82 Motion +;
#X obj 471 123 * -5;
#X obj 163 417 ctlin 74;
#X obj 449 281 * 2;
#X obj 449 302 - 127;
#X text 163 397 Rec;
#X obj 520 383 s \$0-transpo-set;
#X obj 163 440 s \$0-recpv;
#X obj 75 351 s \$0-pvol;
#X obj 71 437 s \$0-resetpv;
#X obj 471 101 ctlin 11 \$2;
#X obj 554 102 ctlin 12 \$2;
#X obj 71 413 ctlin 73 \$2;
#X obj 449 257 ctlin 1 \$2;
#X obj 519 255 bendin \$2;
#X obj 581 256 notein \$2;
#X text 212 81 Location Knob;
#X obj 216 123 expr ($f1 / 127);
#X obj 216 147 s \$0-LocControl;
#X obj 507 153 s \$0-speed-preset;
#N canvas 71 82 514 280 (subpatch) 0;
#N canvas 0 22 450 300 MIDI 0;
#N canvas 0 22 817 434 route 0;
#X obj 22 318 s \$0-speed-preset;
#X obj 23 58 route 1 2 3 4 5 6 7;
#X obj 23 31 inlet;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X restore 64 163 pd route;
#N canvas 65 111 296 347 Motion 0;
#N canvas 663 304 450 300 sel 0;
#X obj 132 174 sel;
#X obj 132 151 unpack;
#X obj 132 198 float;
#X obj 132 223 outlet;
#X obj 242 122 inlet;
#X obj 132 124 inlet;
#X msg 242 156 set \$1;
#X obj 242 199 t b a;
#X obj 235 91 loadbang;
#X floatatom 300 121 5 0 0 0 - - -;
#X msg 235 235 -1;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X connect 1 1 2 1;
#X connect 2 0 3 0;
#X connect 4 0 6 0;
#X connect 5 0 1 0;
#X connect 6 0 7 0;
#X connect 7 0 10 0;
#X connect 7 1 10 0;
#X connect 8 0 10 0;
#X connect 9 0 6 0;
#X connect 10 0 0 1;
#X restore 57 211 pd sel;
#X msg 57 234 1 \$1;
#X obj 90 186 spigot;
#X obj 57 260 outlet;
#X msg 123 160 1;
#X obj 123 134 r \$0-to-speed;
#X obj 90 71 r \$0-CTL-number;
#X obj 56 25 r \$0-MIDI-msg;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 2 0 0 1;
#X connect 4 0 2 1;
#X connect 5 0 4 0;
#X connect 6 0 2 0;
#X connect 7 0 0 0;
#X restore 64 54 pd Motion;
#N canvas 0 22 943 224 midi-msg 0;
#N canvas 0 22 972 226 1-10 0;
#X obj 483 141 outlet;
#X obj 23 33 ctlin 1 \$2;
#X obj 108 32 ctlin 2 \$2;
#X msg 23 53 1 \$1;
#X msg 108 54 2 \$1;
#X obj 217 35 ctlin 3 \$2;
#X obj 302 34 ctlin 4 \$2;
#X obj 390 33 ctlin 5 \$2;
#X obj 476 32 ctlin 6 \$2;
#X msg 217 55 3 \$1;
#X msg 302 56 4 \$1;
#X msg 390 53 5 \$1;
#X msg 476 53 6 \$1;
#X obj 557 31 ctlin 7 \$2;
#X obj 643 30 ctlin 8 \$2;
#X obj 730 31 ctlin 9 \$2;
#X obj 816 30 ctlin 10 \$2;
#X msg 557 52 7 \$1;
#X msg 643 51 8 \$1;
#X msg 730 51 9 \$1;
#X msg 816 50 10 \$1;
#X connect 1 0 3 0;
#X connect 2 0 4 0;
#X connect 3 0 0 0;
#X connect 4 0 0 0;
#X connect 5 0 9 0;
#X connect 6 0 10 0;
#X connect 7 0 11 0;
#X connect 8 0 12 0;
#X connect 9 0 0 0;
#X connect 10 0 0 0;
#X connect 11 0 0 0;
#X connect 12 0 0 0;
#X connect 13 0 17 0;
#X connect 14 0 18 0;
#X connect 15 0 19 0;
#X connect 16 0 20 0;
#X connect 17 0 0 0;
#X connect 18 0 0 0;
#X connect 19 0 0 0;
#X connect 20 0 0 0;
#X restore 212 71 pd 1-10;
#X obj 212 103 s \$0-MIDI-msg;
#X connect 0 0 1 0;
#X restore 56 25 pd midi-msg;
#X connect 1 0 0 0;
#X restore 615 194 pd MIDI LEARN;
#X obj 663 126 cnv 15 75 56 empty empty empty 20 12 0 14 -135224 -66577
0;
#X obj 1 1 cnv 15 75 15 empty \$0-MIDI-Learn-CNV none 4 7 0 10 -261682
-66577 0;
#X obj 709 158 bng 15 250 50 0 empty empty Learn -36 8 0 10 -262130
-1 -228856;
#X obj 663 134 cnv 15 75 15 empty \$0-MIDI-Learn-Control-CNV Motion
4 7 0 10 -240878 -66577 0;
#N canvas 128 69 1012 589 Midi 0;
#X obj 692 267 s pd-LPVoc.pd;
#X msg 512 143 connect 10 0 624 0;
#X obj 361 206 s \$0-CTL-number;
#X obj 361 134 ctlin;
#X obj 832 147 makefilename $%d;
#X msg 832 122 2;
#X obj 832 98 loadbang;
#X floatatom 787 146 5 0 0 0 - - -;
#X msg 747 210 obj 300 10 \$1 \$2 \$3;
#X obj 747 173 pack s f s;
#X msg 741 144 ctlin;
#X obj 750 75 ctlin;
#X obj 763 113 t b f;
#X obj 676 73 pgmin;
#X obj 676 98 t b f;
#X msg 676 128 pgmin;
#X obj 372 392 s \$0-MIDI-Learn-Control-CNV;
#X msg 377 360 label Motion;
#X connect 1 0 0 0;
#X connect 3 1 2 0;
#X connect 4 0 9 2;
#X connect 5 0 4 0;
#X connect 6 0 5 0;
#X connect 7 0 9 1;
#X connect 8 0 0 0;
#X connect 9 0 8 0;
#X connect 10 0 9 0;
#X connect 11 1 12 0;
#X connect 12 0 10 0;
#X connect 12 1 7 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 14 1 7 0;
#X connect 15 0 9 0;
#X connect 17 0 16 0;
#X restore 702 194 pd Midi Learn 2;
#X text 571 72 I am considering programing some sort of MIDI Learn
;
#X obj 27 54 ctlin;
#X obj 17 191 s \$0-MIDI-Learn-CNV;
#X msg 30 150 label Control:\$1;
#X obj 120 47 pgmin;
#X msg 81 94 label Program:\$1;
#X msg 213 152 label none;
#X obj 213 128 loadbang;
#X obj 271 42 notein;
#X msg 227 80 label Note:\$1;
#X obj 376 70 bendin;
#X msg 359 96 label Bend-Wheel;
#X text 571 34 Estou considerando programar um tipo de MIDI Learn;
#X connect 7 1 9 0;
#X connect 9 0 8 0;
#X connect 10 0 11 0;
#X connect 11 0 8 0;
#X connect 12 0 8 0;
#X connect 13 0 12 0;
#X connect 14 0 15 0;
#X connect 15 0 8 0;
#X connect 16 0 17 0;
#X connect 17 0 8 0;
#X coords 0 1 70 -1 77 17 1 0 0;
#X restore 105 139 graph;
#X text 120 119 Midi In:;
#X obj 216 101 ctlin 10 \$2;
#X text 71 395 Rewind;
#X obj 259 444 s \$0-rcv-P-C;
#X text 254 391 Pause/Continue;
#X obj 260 413 ctlin;
#X obj 94 525 s \$0-set-lock;
#X text 111 480 Lock;
#X obj 108 500 ctlin;
#X obj 191 525 s \$0-set-freeze;
#X obj 217 499 ctlin;
#X text 216 480 Freeze;
#X obj 324 529 s \$0-set-freeze;
#X obj 350 503 ctlin;
#X text 348 484 Bounce;
#X obj 581 299 t b f;
#X obj 75 306 ctlin 87 \$2;
#X obj 233 328 s \$0-AutoRadio;
#X msg 231 297 0;
#X msg 263 296 1;
#X msg 301 296 2;
#X obj 208 269 ctlin;
#X obj 250 268 ctlin;
#X obj 297 267 ctlin;
#X msg 489 491 0;
#X msg 536 489 1;
#X msg 581 489 2;
#X obj 487 462 ctlin;
#X obj 529 461 ctlin;
#X obj 576 460 ctlin;
#X text 630 431 Presets;
#X obj 665 570 s \$0-get-preset;
#X msg 622 488 3;
#X msg 667 486 4;
#X msg 712 484 5;
#X msg 756 484 6;
#X msg 800 486 7;
#X obj 618 457 ctlin;
#X obj 660 456 ctlin;
#X obj 707 455 ctlin;
#X obj 750 454 ctlin;
#X obj 797 453 ctlin;
#X text 220 245 V-radio(loop/bounce);
#X connect 1 0 46 0;
#X connect 2 0 4 0;
#X connect 3 0 16 0;
#X connect 4 0 3 0;
#X connect 5 0 18 0;
#X connect 8 0 29 0;
#X connect 11 0 29 0;
#X connect 12 0 17 0;
#X connect 13 0 14 0;
#X connect 14 0 4 0;
#X connect 20 0 11 0;
#X connect 21 0 8 0;
#X connect 22 0 19 0;
#X connect 23 0 13 0;
#X connect 24 0 2 0;
#X connect 25 0 1 0;
#X connect 27 0 28 0;
#X connect 32 0 27 0;
#X connect 46 0 4 0;
#X connect 46 1 3 1;
#X connect 47 0 5 0;
#X connect 49 0 48 0;
#X connect 50 0 48 0;
#X connect 51 0 48 0;
#X connect 55 0 62 0;
#X connect 56 0 62 0;
#X connect 57 0 62 0;
#X connect 63 0 62 0;
#X connect 64 0 62 0;
#X connect 65 0 62 0;
#X connect 66 0 62 0;
#X connect 67 0 62 0;
#X coords 0 -1 1 1 85 60 1 100 100;
#X restore 367 353 pd MidiConfig;
#X text 517 388 Audio Out;
#X obj 176 66 inlet;
#X obj 252 68 inlet;
#X obj 329 66 inlet;
#X obj 100 64 inlet;
#X text 80 38 Abrir Sample:;
#X obj 71 358 outlet~;
#X text 66 382 Audio Out;
#X text 123 321 === PHASE VOCODER ===;
#X text 58 401 Left Channel;
#X text 508 407 Right Channel;
#N canvas 548 22 368 564 English 0;
#X text -213 384 * If you want to change Window Size you have to save
the preset and restart the patch for it to take effect and work.;
#X text -215 58 !==> 1st Argument is preset number from 1 to 8 (default
is first preset if you don't set it). 2nd argument is MIDI Channel
Number (no argument is any channel \, or "OMNI") \;;
#X text -214 22 !==> Patch was designed in Pd-Extended \, but no external
was used \, so it works 100% on Vanilla...;
#X text -214 104 !==> Based on I07.PhaseVocoder.pd by Miller. But Sample
Rate NEEDS to be 44.1KHz. - Time sample is in "Min" Number Box in Minutes
and decimal fractions are seconds. 1.3 is \, therefore \, 1 minute
& 30 seconds. 2.13 is 2 min & 13 sec and so on \; !==> You can load
and save presets (which saves the current control values) \; - Horizontal
Slider represent phase vocoder time \, which is displayed in minutes
and seconds \; - Use rewind \, record & Pause/Continue to play PVoc.
Open loads a sample \; - Freeze Toggle freezes/unfreezes Phase Vocoder
\; - Moving H-Slider freezes and sets PVoc position \; - Lock Toggle
does phase locking \; - Vol Slider sets up gain \; - Motion sets time
compress/strectch in percentage \; - Bounce bang sets motion to the
opposite direction \; - Transp does pitch-shiffting in cents \; - -
V-Radio sets automatic Looping or bouncing \; - Window Size is FFT's
Window Size \, numbers in h-radio is 2 to the power of "x"* \;;
#X text -210 418 !--> The Patch deals with Mono & Stereo files. If
you want to deal with more channels just separate the channels in different
audio files and open more abstractions. You can control them idependently
of course \, but you can also set the controls globally via MIDI if
they are all on the same MIDI channel. You should open the MIDI subpatch
to edit or create the MidiConfig subpatch for your device. If your
device is correctly plugged in and configured \, you can see the type
of midi message and number on the canvas.;
#X restore 229 379 pd English Manual;
#N canvas 407 27 386 647 Manual 0;
#X text -205 428 * Se quiser mudar o tamanho da janela \, salve o preset
e reinicie o patch para que a mudança tenha efeito.;
#X text -208 37 !==> 1o Argumento é número do preset de 1 a 8 (default
é preset 1). 2o argumento é o canal MIDI (na falta de argumento seria
qualquer canal \, ou "OMNI") \;;
#X text -208 8 !==> O Patch foi feito no Pd-Extended \, mas não possui
nenhum objeto externo e roda 100% no Pd Vanila.;
#X text -204 461 !--> O Patch carrega arquivos Mono e Stereo. No caso
de Mono \, apenas a saída da esquerda funciona. No caso de arquivos
com mais de dois canais \, apenas os dois primeiros são carregados.
Crie mais abstrações e separe por canais se você quiser manipular um
sinal quadrifônico ou com mais canais. Você pode controla-los independentemente
\, claro \, mas também pode controla-los de maneira global via MIDI
se todos estiverem no mesmo canal MIDI. Você deve abrir o suppatch
MidiConfig e editar ou criar controles MIDI para seu próprio dispositivo.
se seu dispositivo estiver ligado e você mexer em alguma coisa \, veja
que o número e tipo de controle aparece na canvas.;
#X text -205 84 !==> Baseado no I07.PhaseVocoder.pd do Miller. Mas
a Taxa de Amostragem precisa estar em 44.1KHz. O tempo do sample aparece
na caixa de números "Min" \, em minutos e segundos nos pontos decimais.
1.3 é \, assim \, 1 minuto & 30 segundos. 2.13 é 2 min & 13 seg e assim
por diante \; !==> Você pode carregar e salvar presets (que salvam
os valores de controles atuais). Você pode salvar um preset em outro
número porque os H-radio dos presets são independentes \;;
#X text -207 210 - O Horizontal Slider representa o tempo do Phase
Vocoder \, que é mostrado em minutos e segundos \; - Use rewind \,
play & Pause/Continue pra tocar o PVoc. Open carrega um sample \; -
Freeze Toggle congela e descongela o Phase Vocoder \; - Mexer no H-Slider
congela e seta a posição do PVoc no ponto desejado manualmente \; -
Lock Toggle faz o phase locking \; - Vol Slider ajusta o volume \;
- Motion seta o time compress/strectch em percentagem do normal \;
- Bounce bang muda a direção do Phase Vocoder \; - Transp transpõe
para agudo ou grave em cents \; - - V-Radio seta Loop or bounce automático
\; - Window Size é o tamanho da janela de FFT's Window Size \, números
no h-radio é 2 elevado à "x"* \;;
#X restore 221 357 pd Manual Português;
#X text 94 17 "Open";
#X text 305 44 pause/continue;
#X text 258 45 play;
#X text 172 45 rewind;
#X text 317 321 --- Alexandre Torres Porres - February 2010 ---;
#X text 180 29 |----------- BANGS: ---------|;
#X obj 405 71 inlet;
#X obj 482 70 inlet;
#X text 402 48 Motion;
#X text 478 49 Transp;
#X connect 0 0 11 0;
#X connect 0 1 3 0;
#X connect 6 0 0 1;
#X connect 7 0 0 2;
#X connect 8 0 0 3;
#X connect 9 0 0 0;
#X connect 24 0 0 4;
#X connect 25 0 0 5;
#X coords 0 -1 1 1 522 240 1 100 100;
-------------- next part --------------
A non-text attachment was scrubbed...
Name: testbasse-new.wav
Type: audio/x-wav
Size: 962984 bytes
Desc: not available
URL: <http://lists.puredata.info/pipermail/pd-list/attachments/20160415/02cf609b/attachment-0002.wav>
-------------- next part --------------
#N canvas 193 393 1283 692 10;
#X obj 51 119 bng 15 250 50 0 empty empty empty 17 7 0 10 -258113 -1
-1;
#X obj 273 525 dac~ 1 2;
#X msg 84 150 ./vinheta.wav;
#X text 35 49 Left inlet:;
#X text 36 67 Bang para openpanel ou nome do arquivo e diret�rio em
"./";
#X text 48 88 Bang for openpanel or file name and directory in "./"
;
#X text 191 524 Left Channel;
#X text 337 526 Right Channel;
#X text 407 614 more info & manual inside abstraction;
#X text 378 588 maiores informa��es e manual dentro da abstra��o;
#X text 486 31 PVoc:;
#X text 484 81 Does Phase Vocoder in Sound Files;
#X text 483 57 Faz Phase Vocoder em arquivos de Som;
#X text 186 149 Stereo File;
#X msg 645 174 ServeSatan.wav;
#X text 747 174 Mono File;
#X obj 51 242 PVoc 3 1;
#X obj 629 517 dac~ 1 2;
#X obj 645 223 PVoc 1 1;
#X text 327 218 pause/continue;
#X text 252 218 play;
#X text 147 219 rewind;
#X text 167 200 |----------- BANGS: ---------|;
#X text 451 220 Motion;
#X text 527 221 Transp;
#X connect 0 0 16 0;
#X connect 2 0 16 0;
#X connect 14 0 18 0;
#X connect 16 0 1 0;
#X connect 16 1 1 1;
#X connect 18 0 17 0;
#X connect 18 0 17 1;
-------------- next part --------------
A non-text attachment was scrubbed...
Name: wn04a-held4.wav
Type: audio/x-wav
Size: 281666 bytes
Desc: not available
URL: <http://lists.puredata.info/pipermail/pd-list/attachments/20160415/02cf609b/attachment-0003.wav>