From 57045df5fe3ec557e57dc7434ac1a07b5521bffc Mon Sep 17 00:00:00 2001 From: Guenter Geiger Date: Mon, 29 Jul 2002 17:06:19 +0000 Subject: This commit was generated by cvs2svn to compensate for changes in r58, which included commits to RCS files with non-trunk default branches. svn path=/trunk/; revision=59 --- pd/doc/3.audio.examples/30.sampler.scratch.pd | 175 ++++++++++++++++++++++++++ 1 file changed, 175 insertions(+) create mode 100644 pd/doc/3.audio.examples/30.sampler.scratch.pd (limited to 'pd/doc/3.audio.examples/30.sampler.scratch.pd') diff --git a/pd/doc/3.audio.examples/30.sampler.scratch.pd b/pd/doc/3.audio.examples/30.sampler.scratch.pd new file mode 100644 index 00000000..d4602050 --- /dev/null +++ b/pd/doc/3.audio.examples/30.sampler.scratch.pd @@ -0,0 +1,175 @@ +#N canvas 33 19 1046 749 12; +#X msg 354 13 \; pd dsp 1; +#X msg 437 13 \; pd dsp 0; +#X text 379 51 ON; +#X text 457 51 OFF; +#X graph graph1 0 -1.02 44100 1.02 757 142 957 12; +#X array sample-table 44103 float 0; +#X pop; +#X floatatom 71 466 0 0 0; +#N canvas 159 26 495 266 output 0; +#X obj 406 192 t b; +#X obj 406 132 f; +#X obj 406 72 inlet; +#X text 413 35 mute; +#X obj 406 222 f; +#X msg 510 214 0; +#X msg 406 102 bang; +#X obj 406 162 moses 1; +#X obj 510 184 t b f; +#X obj 476 140 moses 1; +#X obj 100 178 dbtorms; +#X obj 476 110 r master-lvl; +#X obj 100 50 r master-lvl; +#X obj 406 252 s master-lvl; +#X obj 26 217 inlet~; +#X obj 239 49 inlet; +#X text 239 22 level; +#X obj 239 120 s master-lvl; +#X msg 115 78 set \$1; +#X obj 115 107 outlet; +#X msg 257 77 \; pd dsp 1; +#X obj 100 233 line~; +#X obj 26 254 *~; +#X obj 26 289 dac~; +#X obj 100 205 pack 0 50; +#X text 24 190 audio; +#X text 112 132 show level; +#X connect 0 0 4 0; +#X connect 1 0 7 0; +#X connect 2 0 6 0; +#X connect 4 0 13 0; +#X connect 5 0 13 0; +#X connect 6 0 1 0; +#X connect 7 0 0 0; +#X connect 7 1 8 0; +#X connect 8 0 5 0; +#X connect 9 1 4 1; +#X connect 10 0 24 0; +#X connect 11 0 1 1; +#X connect 11 0 9 0; +#X connect 12 0 10 0; +#X connect 12 0 18 0; +#X connect 14 0 22 0; +#X connect 15 0 17 0; +#X connect 15 0 20 0; +#X connect 18 0 19 0; +#X connect 21 0 22 1; +#X connect 22 0 23 0; +#X connect 22 0 23 1; +#X connect 24 0 21 0; +#X restore 36 499 pd output; +#X msg 106 466 MUTE; +#X text 145 465 <-- output amplitude; +#X obj 36 427 hip~ 5; +#X obj 55 368 tabread4~ sample-table; +#X floatatom 55 60 0 0 0; +#X text 102 59 <-- frequency (Hz.); +#X floatatom 109 152 0 0 0; +#X obj 109 181 * 441; +#X obj 55 152 *~ 0; +#X obj 55 181 +~ 1; +#X obj 55 89 phasor~ 0; +#X msg 172 246 bang; +#X text 156 151 <-- chunk size (100ths of a second); +#X obj 598 451 adc~ 1; +#X obj 598 480 hip~ 5; +#X obj 598 540 tabwrite~ sample-table; +#X msg 616 508 bang; +#X text 654 507 <-- click here to record your own sample; +#X text 64 17 ENVELOPING YOUR LOOPING SAMPLER; +#X graph graph2 0 0 44100 44100 760 345 960 215; +#X array table-index 44100 float 0; +#X pop; +#X obj 172 308 tabwrite~ table-index; +#X obj 36 398 *~; +#N canvas 160 476 591 415 envelope 0; +#X obj 97 82 -~ 0.5; +#X obj 100 331 clip~ -0.5 0.5; +#X obj 100 305 *~ 1; +#X obj 152 272 moses 1; +#X msg 115 272 1; +#X obj 100 361 cos~; +#X obj 97 112 wrap~; +#X obj 97 146 -~ 0.5; +#X obj 100 419 *~ -0.5; +#X obj 100 389 -~ 1; +#X floatatom 152 234 0 0 0; +#X text 162 78 subtracting 0.5 and wrapping produces a sawtooth wave +180 degrees out of phase from the original.; +#X text 156 139 as before we subtract 1/2 again to center the sawtooth +from -1/2 to 1/2.; +#X text 212 234 <-- sharpness (at least 1); +#X obj 97 50 inlet~; +#X obj 100 455 outlet~; +#X obj 152 208 inlet; +#X connect 0 0 6 0; +#X connect 1 0 5 0; +#X connect 2 0 1 0; +#X connect 3 0 4 0; +#X connect 3 1 2 1; +#X connect 4 0 2 1; +#X connect 5 0 9 0; +#X connect 6 0 7 0; +#X connect 7 0 2 0; +#X connect 8 0 15 0; +#X connect 9 0 8 0; +#X connect 10 0 3 0; +#X connect 14 0 0 0; +#X connect 16 0 10 0; +#X restore 36 122 pd envelope; +#X floatatom 146 124 0 0 0; +#X text 187 123 <-- envelope sharpness; +#X obj 74 304 line~; +#X obj 74 246 * 441; +#X floatatom 174 215 0 0 0; +#X obj 74 275 pack 0 100; +#X text 216 214 <-- read point in 100ths of a second; +#X obj 55 338 +~; +#X text 31 529 In this patch we can loop in any "window" of the input +sample. The "read point" (0-100) gives the starting point of the window +and "chunk" is its size (both in 100ths of a second.) Try \, for example +\, frequency 4 \, sharpness 10 \, chunk size 25 \, and vary the read +point from -25 to 100 \, listening to the result.; +#X text 220 246 <-- graph table index; +#X text 34 627 You should hear some doppler shift as you change the +read point. To see why \, click on "graph table index" and quickly +start changing the read point--- you should see entertaining pictures +in "table-index". THe next patch shows how to prevent this if you wish +to.; +#X text 763 356 ----- 1 second ------; +#X obj 602 583 loadbang; +#X text 711 597 v-- re-read the original sample; +#X msg 602 670 \; graph2 ylabel 48000 0 44100; +#X msg 662 619 read ../sound/voice.wav sample-table; +#X obj 662 643 soundfiler; +#X text 766 719 updated for Pd version 0.33; +#X text 755 151 ---- 44103 samples ---; +#X connect 5 0 6 1; +#X connect 6 0 5 0; +#X connect 7 0 6 2; +#X connect 9 0 6 0; +#X connect 10 0 28 1; +#X connect 11 0 17 0; +#X connect 13 0 14 0; +#X connect 14 0 15 1; +#X connect 15 0 16 0; +#X connect 16 0 37 0; +#X connect 17 0 15 0; +#X connect 17 0 29 0; +#X connect 18 0 27 0; +#X connect 20 0 21 0; +#X connect 21 0 22 0; +#X connect 23 0 22 0; +#X connect 28 0 9 0; +#X connect 29 0 28 0; +#X connect 30 0 29 1; +#X connect 32 0 37 1; +#X connect 33 0 35 0; +#X connect 34 0 33 0; +#X connect 35 0 32 0; +#X connect 37 0 27 0; +#X connect 37 0 10 0; +#X connect 42 0 44 0; +#X connect 42 0 45 0; +#X connect 45 0 46 0; -- cgit v1.2.1