aboutsummaryrefslogtreecommitdiff
path: root/pd/doc/3.audio.examples/B10.sampler.scratch.pd
diff options
context:
space:
mode:
Diffstat (limited to 'pd/doc/3.audio.examples/B10.sampler.scratch.pd')
-rw-r--r--pd/doc/3.audio.examples/B10.sampler.scratch.pd83
1 files changed, 83 insertions, 0 deletions
diff --git a/pd/doc/3.audio.examples/B10.sampler.scratch.pd b/pd/doc/3.audio.examples/B10.sampler.scratch.pd
new file mode 100644
index 00000000..38c67b76
--- /dev/null
+++ b/pd/doc/3.audio.examples/B10.sampler.scratch.pd
@@ -0,0 +1,83 @@
+#N canvas 53 232 936 654 12;
+#N canvas 0 0 450 300 graph1 0;
+#X array table19 44103 float 0;
+#X coords 0 1.02 44100 -1.02 200 130 1;
+#X restore 680 8 graph;
+#X obj 40 382 hip~ 5;
+#X floatatom 99 51 0 0 0 0 - - -;
+#X text 146 50 <-- frequency (Hz.);
+#X floatatom 129 106 0 0 0 0 - - -;
+#X obj 129 135 * 441;
+#X obj 100 158 *~ 0;
+#X obj 100 181 +~ 1;
+#X msg 194 281 bang;
+#X text 164 106 <-- chunk size (100ths of a second);
+#X obj 591 369 adc~ 1;
+#X obj 591 395 hip~ 5;
+#X msg 609 423 bang;
+#N canvas 0 0 450 300 graph2 0;
+#X array graph19 44100 float 0;
+#X coords 0 44100 44100 0 200 130 1;
+#X restore 681 196 graph;
+#X obj 40 356 *~;
+#X obj 123 276 line~;
+#X obj 123 228 * 441;
+#X floatatom 123 205 0 0 0 0 - - -;
+#X obj 123 252 pack 0 100;
+#X obj 101 310 +~;
+#X text 34 474 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 242 281 <-- graph table index;
+#X text 684 337 ----- 1 second ------;
+#X obj 595 490 loadbang;
+#X text 631 514 v-- re-read the original sample;
+#X obj 605 559 soundfiler;
+#X text 678 147 ---- 44103 samples ---;
+#X obj 591 455 tabwrite~ table19;
+#X msg 605 535 read ../sound/voice.wav table19;
+#X text 688 628 updated for Pd version 0.37;
+#X msg 595 585 \; graph19 ylabel 48000 0 44100;
+#X obj 39 103 -~ 0.5;
+#X obj 99 76 phasor~;
+#X obj 39 127 *~ 0.5;
+#X obj 39 150 cos~;
+#X text 157 206 <-- read point (100ths of a second);
+#X obj 41 406 output~;
+#X text 651 422 <-- record;
+#X text 36 13 ENVELOPING THE LOOPING SAMPLER;
+#X text 37 574 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 obj 100 336 tabread4~ table19;
+#X obj 194 307 tabwrite~ graph19;
+#X connect 1 0 36 0;
+#X connect 2 0 32 0;
+#X connect 4 0 5 0;
+#X connect 5 0 6 1;
+#X connect 6 0 7 0;
+#X connect 7 0 19 0;
+#X connect 8 0 41 0;
+#X connect 10 0 11 0;
+#X connect 11 0 27 0;
+#X connect 12 0 27 0;
+#X connect 14 0 1 0;
+#X connect 15 0 19 1;
+#X connect 16 0 18 0;
+#X connect 17 0 16 0;
+#X connect 18 0 15 0;
+#X connect 19 0 40 0;
+#X connect 19 0 41 0;
+#X connect 23 0 30 0;
+#X connect 23 0 28 0;
+#X connect 28 0 25 0;
+#X connect 31 0 33 0;
+#X connect 32 0 6 0;
+#X connect 32 0 31 0;
+#X connect 33 0 34 0;
+#X connect 34 0 14 0;
+#X connect 40 0 14 1;