diff options
Diffstat (limited to 'pd/doc/3.audio.examples/F14.wave.packet.pd')
-rw-r--r-- | pd/doc/3.audio.examples/F14.wave.packet.pd | 112 |
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; |