#N canvas 168 61 763 529 10;
#X obj 521 344 e_vocoder myvocoder;
#X msg 651 322 squelch \$1;
#X floatatom 651 298 5 0 0 0 - - -;
#X obj 521 410 soundoutput;
#N canvas 0 22 660 424 chord 0;
#X obj 92 147 -~ 0.5;
#X obj 92 196 clip~ -0.5 0.5;
#X obj 92 219 cos~;
#X obj 91 302 hip~ 5;
#X obj 91 365 outlet~;
#X obj 92 172 *~ 3;
#X obj 92 124 phasor~ 220;
#X obj 221 147 -~ 0.5;
#X obj 221 196 clip~ -0.5 0.5;
#X obj 221 219 cos~;
#X obj 221 172 *~ 3;
#X obj 356 150 -~ 0.5;
#X obj 356 199 clip~ -0.5 0.5;
#X obj 356 222 cos~;
#X obj 356 175 *~ 3;
#X obj 221 124 phasor~ 251;
#X obj 356 127 phasor~ 281;
#X obj 91 335 *~ 0.2;
#X msg 430 76 0;
#X obj 92 29 inlet;
#X obj 92 52 unpack 0 0 0;
#X text 204 32 test sound;
#X obj 92 79 mtof;
#X obj 132 81 mtof;
#X obj 173 81 mtof;
#X floatatom 237 50 5 0 0 0 - - -;
#X connect 0 0 5 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 17 0;
#X connect 5 0 1 0;
#X connect 6 0 0 0;
#X connect 7 0 10 0;
#X connect 8 0 9 0;
#X connect 9 0 3 0;
#X connect 10 0 8 0;
#X connect 11 0 14 0;
#X connect 12 0 13 0;
#X connect 13 0 3 0;
#X connect 14 0 12 0;
#X connect 15 0 7 0;
#X connect 16 0 11 0;
#X connect 17 0 4 0;
#X connect 18 0 16 1;
#X connect 18 0 15 1;
#X connect 18 0 6 1;
#X connect 19 0 20 0;
#X connect 20 0 22 0;
#X connect 20 1 23 0;
#X connect 20 2 24 0;
#X connect 22 0 6 0;
#X connect 23 0 15 0;
#X connect 24 0 16 0;
#X connect 25 0 24 0;
#X restore 521 208 pd chord;
#X msg 561 169 40 50 55;
#X msg 541 149 40 45 59;
#X msg 521 129 40 49 57;
#X obj 586 239 soundinput;
#N canvas 45 310 582 570 REFERENCE 0;
#X text 24 354 See also:;
#X text 24 31 Name: e_vocoder;
#X text 24 51 Summary: vocoder/time stamp effect;
#X text 24 214 Description: This is a Fourier-based "vocoder" (perhaps
better called a "timbre stamp") like the one the Convolution brothers
use. The "control source" is analyzed to get its spectral envelope
\, which is then stamped onto the "filter input" by adjusting the amplitudes
of its Fourier transform. The "filter input" is first whitened. The
best value of "squelch" to use depends critically on what kind of sounds
are used for the filter input and the control source.;
#X text 24 124 Inlet 0: Audio input signal - control source;
#X text 24 144 Inlet 1: Audio input signal - filter input;
#X text 24 190 Outlet 0: Audio output signal;
#X text 24 81 Argument 0: <symbol> Unique id - make sure this is different
to other instances.;
#X text 24 164 Inlet 2: squelch <float>: default = 0;
#X text 24 434 Tags: Audio \, Pitch;
#X coords 0 -1 1 1 450 450 1 10 10;
#X restore 5 48 pd REFERENCE;
#X obj 5 18 cnv 15 450 20 empty empty empty 20 12 0 14 -261234 -66577
0;
#X text 468 51 Example:;
#X text 394 511 RjDj Library (https://github.com/rjdj/rjlib) - 2011
;
#X text 89 21 - timbre stamp effect;
#X obj 8 20 e_vocoder;
#X obj 89 391 e_pitchshift;
#X obj 189 391 e_freqshift;
#X obj 521 99 loadbang;
#X connect 0 0 3 0;
#X connect 0 0 3 1;
#X connect 1 0 0 2;
#X connect 2 0 1 0;
#X connect 4 0 0 0;
#X connect 5 0 4 0;
#X connect 6 0 4 0;
#X connect 7 0 4 0;
#X connect 8 0 0 1;
#X connect 17 0 7 0;
