1 files changed, 112 insertions, 0 deletions
diff --git a/pd/doc/3.audio.examples/F14.wave.packet.pd b/pd/doc/3.audio.examples/F14.wave.packet.pd
new file mode 100644
index 00000000..bb6c92b2
--- /dev/null
+++ b/pd/doc/3.audio.examples/F14.wave.packet.pd
@@ -0,0 +1,112 @@
+#N canvas 448 73 647 779 12;
+#X floatatom 272 241 4 0 127 0 - - -;
+#X text 268 203 center;
+#X obj 272 308 line~;
+#X obj 272 285 pack 0 50;
+#X floatatom 205 246 4 0 127 0 - - -;
+#X text 153 204 fundamental;
+#X floatatom 397 252 4 0 127 0 - - -;
+#X obj 397 323 line~;
+#X obj 132 586 *~;
+#X obj 397 300 pack 0 50;
+#X obj 132 635 cos~;
+#X obj 206 310 mtof;
+#X obj 294 333 expr 1/$f1;
+#X obj 272 261 mtof;
+#X text 267 218 freq.;
+#X obj 272 357 *~;
+#X text 394 231 bandwidth;
+#X obj 397 274 mtof;
+#X obj 396 366 *~;
+#X text 437 358 divide by fundamental;
+#X text 149 220 (MIDI units);
+#X obj 136 720 output~;
+#X text 91 2 WAVE PACKETS AS ALTERNATIVE TO PAF;
+#X obj 79 421 phasor~;
+#X obj 471 479 +~ 0.5;
+#X obj 471 504 wrap~;
+#X text 442 424 second phase signal;
+#X text 443 439 out of phase from;
+#X text 441 456 first one;
+#X obj 132 658 +~ 1;
+#X obj 78 522 -~ 0.5;
+#X obj 135 692 +~;
+#X obj 77 586 *~;
+#X obj 77 609 cos~;
+#X obj 214 556 samphold~;
+#X obj 126 555 samphold~;
+#X obj 76 634 *~;
+#X obj 132 610 clip~ -0.5 0.5;
+#X obj 372 597 *~;
+#X obj 372 646 cos~;
+#X obj 372 669 +~ 1;
+#X obj 318 533 -~ 0.5;
+#X obj 317 597 *~;
+#X obj 317 620 cos~;
+#X obj 454 567 samphold~;
+#X obj 366 566 samphold~;
+#X obj 316 645 *~;
+#X obj 372 621 clip~ -0.5 0.5;
+#X obj 396 390 max~ 1;
+#X obj 205 285 - 12;
+#X text 375 755 updated for Pd version 0.40.;
+#X text 20 122 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).;
+#X text 18 23 The stretched wavetable method is an alternative to the
+PAF generator \, slightly more expensive in processing time but with
+two advantages: first \, it is not patent encumbered (PAF patent runs
+out in 2011) and second \, it can be generalized to use samples instead
+of sinusoids to make complex spectral shapes.;
+#X connect 0 0 13 0;
+#X connect 2 0 15 0;
+#X connect 3 0 2 0;
+#X connect 4 0 49 0;
+#X connect 6 0 17 0;
+#X connect 7 0 18 0;
+#X connect 8 0 37 0;
+#X connect 9 0 7 0;
+#X connect 10 0 29 0;
+#X connect 11 0 12 0;
+#X connect 11 0 23 0;
+#X connect 12 0 15 1;
+#X connect 12 0 18 1;
+#X connect 13 0 3 0;
+#X connect 15 0 35 0;
+#X connect 15 0 45 0;
+#X connect 17 0 9 0;
+#X connect 18 0 48 0;
+#X connect 23 0 24 0;
+#X connect 23 0 30 0;
+#X connect 23 0 35 1;
+#X connect 23 0 34 1;
+#X connect 24 0 25 0;
+#X connect 25 0 41 0;
+#X connect 25 0 45 1;
+#X connect 25 0 44 1;
+#X connect 29 0 36 1;
+#X connect 30 0 8 0;
+#X connect 30 0 32 0;
+#X connect 31 0 21 0;
+#X connect 31 0 21 1;
+#X connect 32 0 33 0;
+#X connect 33 0 36 0;
+#X connect 34 0 8 1;
+#X connect 35 0 32 1;
+#X connect 36 0 31 0;
+#X connect 37 0 10 0;
+#X connect 38 0 47 0;
+#X connect 39 0 40 0;
+#X connect 40 0 46 1;
+#X connect 41 0 38 0;
+#X connect 41 0 42 0;
+#X connect 42 0 43 0;
+#X connect 43 0 46 0;
+#X connect 44 0 38 1;
+#X connect 45 0 42 1;
+#X connect 46 0 31 1;
+#X connect 47 0 39 0;
+#X connect 48 0 34 0;
+#X connect 48 0 44 0;
+#X connect 49 0 11 0;