#N canvas 453 38 640 725 12;
#X declare -stdpath ./;
#X obj 303 301 line~;
#X obj 303 278 pack 0 50;
#X obj 402 315 line~;
#X obj 108 517 *~;
#X obj 402 289 pack 0 50;
#X obj 108 566 cos~;
#X obj 166 302 mtof;
#X obj 321 333 expr 1/$f1;
#X obj 303 252 mtof;
#X obj 303 364 *~;
#X text 398 217 bandwidth;
#X obj 402 263 mtof;
#X obj 402 376 *~;
#X text 435 375 divide by fundamental;
#X obj 111 654 output~;
#X obj 43 340 phasor~;
#X obj 462 443 +~ 0.5;
#X obj 462 468 wrap~;
#X obj 108 589 +~ 1;
#X obj 44 473 -~ 0.5;
#X obj 111 623 +~;
#X obj 44 537 *~;
#X obj 44 560 cos~;
#X obj 181 491 samphold~;
#X obj 102 486 samphold~;
#X obj 44 587 *~;
#X obj 108 541 clip~ -0.5 0.5;
#X obj 309 572 *~;
#X obj 309 621 cos~;
#X obj 309 644 +~ 1;
#X obj 254 516 -~ 0.5;
#X obj 254 572 *~;
#X obj 254 600 cos~;
#X obj 402 542 samphold~;
#X obj 303 541 samphold~;
#X obj 254 629 *~;
#X obj 309 596 clip~ -0.5 0.5;
#X obj 402 400 max~ 1;
#X obj 166 277 - 12;
#X text 514 433 second phase signal out of phase from first one, f 13;
#X text 69 62 The stretched wavetable method is an alternative to the PAF generator \, slightly more expensive in processing time but with the advantage it can be generalized to use samples instead of sinusoids to make complex spectral shapes., f 71;
#X text 69 130 The patch is almost exactly like B13 (the overlapping sample) except that \, instead of using [tabread~] we just use [cos~] \, and that we control pulse width (for bandwidth) as well as wavetable transposition (for center frequency)., f 71;
#X text 259 210 center freq., f 6;
#X obj 39 22 cnv 5 5 25 empty empty Wave\ Packets\ as\ Alternative\ to\ PAF 15 13 0 16 #dfdfdf #202020 0;
#N canvas 238 316 365 358 init 0;
#X obj 125 294 declare -stdpath ./;
#X obj 131 97 loadbang;
#X text 81 28 This subpatch initializes the patch and loads a value in the number boxes., f 29;
#X obj 131 126 bng 19 250 50 0 empty empty empty 0 -10 0 12 #dfdfdf #000000 #000000;
#X obj 131 153 f \$0;
#X msg 131 183 \; \$1-fundamental 48 \; \$1-center-freq 60 \; \$1-bandwidth 72;
#X connect 1 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X restore 427 658 pd init;
#X floatatom 303 225 4 0 127 0 - \$0-center-freq - 0;
#X floatatom 166 246 4 0 127 0 - \$0-fundamental - 0;
#X floatatom 402 238 4 0 127 0 - \$0-bandwidth - 0;
#X text 77 244 fundamental;
#X connect 0 0 9 0;
#X connect 1 0 0 0;
#X connect 2 0 12 0;
#X connect 3 0 26 0;
#X connect 4 0 2 0;
#X connect 5 0 18 0;
#X connect 6 0 7 0;
#X connect 6 0 15 0;
#X connect 7 0 9 1;
#X connect 7 0 12 1;
#X connect 8 0 1 0;
#X connect 9 0 24 0;
#X connect 9 0 34 0;
#X connect 11 0 4 0;
#X connect 12 0 37 0;
#X connect 15 0 16 0;
#X connect 15 0 19 0;
#X connect 15 0 24 1;
#X connect 15 0 23 1;
#X connect 16 0 17 0;
#X connect 17 0 30 0;
#X connect 17 0 34 1;
#X connect 17 0 33 1;
#X connect 18 0 25 1;
#X connect 19 0 3 0;
#X connect 19 0 21 0;
#X connect 20 0 14 0;
#X connect 21 0 22 0;
#X connect 22 0 25 0;
#X connect 23 0 3 1;
#X connect 24 0 21 1;
#X connect 25 0 20 0;
#X connect 26 0 5 0;
#X connect 27 0 36 0;
#X connect 28 0 29 0;
#X connect 29 0 35 1;
#X connect 30 0 27 0;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 32 0 35 0;
#X connect 33 0 27 1;
#X connect 34 0 31 1;
#X connect 35 0 20 1;
#X connect 36 0 28 0;
#X connect 37 0 23 0;
#X connect 37 0 33 0;
#X connect 38 0 6 0;
#X connect 45 0 8 0;
#X connect 46 0 38 0;
#X connect 47 0 11 0;
