/usr/share/puredata/doc/3.audio.examples/B09.sampler.loop.smooth.pd is in puredata-doc 0.48.1-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 | #N canvas 75 15 973 599 12;
#N canvas 0 0 450 300 graph1 0;
#X array cos-output 44100 float 0;
#X coords 0 1.02 44100 -1.02 200 130 1;
#X restore 724 191 graph;
#N canvas 0 0 450 300 graph1 0;
#X array table18 44103 float 0;
#X coords 0 1.02 44103 -1.02 200 130 1;
#X restore 721 16 graph;
#X obj 584 491 loadbang;
#X obj 45 249 hip~ 5;
#X floatatom 46 50 0 0 0 0 - - -;
#X text 85 49 <-- frequency (Hz.);
#X floatatom 132 87 0 0 0 0 - - -;
#X obj 132 114 * 441;
#X obj 110 163 +~ 1;
#X text 171 86 <-- chunk size (100ths of a second);
#X obj 584 404 adc~ 1;
#X msg 599 429 bang;
#X text 40 9 ENVELOPING YOUR LOOPING SAMPLER;
#X obj 45 139 -~ 0.5;
#X obj 45 189 cos~;
#X obj 45 222 *~;
#X obj 584 545 soundfiler;
#X text 736 148 -- 44103 samples ---;
#X text 727 322 ----- 1 second ------;
#X obj 46 77 phasor~;
#X obj 45 164 *~ 0.5;
#X obj 44 281 output~;
#X obj 110 138 *~;
#X text 28 362 Here we apply an amplitude envelope to protect against
discontinuities at the loop point. The envelope is just a cosine wave
from -90 degrees to +90 degrees \, (-pi/2 to pi/2 radians) \, i.e.
\, the part that is zero or positive in sign. The "cos~" object's input
is in cycles (units of 2pi radians) so -1/4 to +1/4 addresses the desired
part of the waveform.;
#X obj 167 247 tabwrite~ cos-output;
#X obj 167 223 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 188 220 <-- click to graph envelope;
#X text 28 476 To see the envelope \, put the phasor on 2 Hz or so
\, click the "graph" button \, and look at "cos-output." This is multiplied
by the tabread4~ output so that it doesn't click when the phase wraps
around.;
#X text 26 545 It is possible to get much more control over the shape
of the envelope \, but this will be taken up later.;
#X obj 110 189 tabread4~ table18;
#X obj 584 456 tabwrite~ table18;
#X msg 584 520 read ../sound/voice.wav table18;
#X text 641 430 <-- click here to record to table;
#X text 675 499 v-- re-read the original sound;
#X text 708 565 updated for Pd version 0.37;
#X connect 2 0 31 0;
#X connect 3 0 21 0;
#X connect 3 0 21 1;
#X connect 4 0 19 0;
#X connect 6 0 7 0;
#X connect 7 0 22 1;
#X connect 8 0 29 0;
#X connect 10 0 30 0;
#X connect 11 0 30 0;
#X connect 13 0 20 0;
#X connect 14 0 15 0;
#X connect 14 0 24 0;
#X connect 15 0 3 0;
#X connect 19 0 13 0;
#X connect 19 0 22 0;
#X connect 20 0 14 0;
#X connect 22 0 8 0;
#X connect 25 0 24 0;
#X connect 29 0 15 1;
#X connect 31 0 16 0;
|