Adding some pitchshifting and timestretching sample players

svn path=/trunk/externals/tof/; revision=13575

1 files changed, 42 insertions, 0 deletions

diff --git a/tof/sample_granule~-help.pd b/tof/sample_granule~-help.pd
new file mode 100644
index 0000000..36baa30
--- /dev/null
+++ b/tof/sample_granule~-help.pd
@@ -0,0 +1,42 @@
+#N canvas 1098 16 788 643 10;
+#X obj 419 105 tof/sample smpgranu amen.wav;
+#X obj 25 129 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 41 164 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
+1;
+#X floatatom 122 301 5 0 0 0 - - -;
+#X obj 219 357 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X text 45 128 Inlet 1 \, bang: Play sample once;
+#X text 60 161 Inlet 1 \, float: Start/stop playing looped sample;
+#X text 243 328 Inlet 3 \, float: Duration in ms;
+#X text 244 352 Inlet 3 \, bang: Reset to orginal duration;
+#X text 160 299 Inlet 2 \, float: Pitch (1=normal);
+#X msg 200 330 10000;
+#X text 27 63 Tags: Sound Sample Play;
+#X obj 95 495 dac~;
+#X text 29 32 Description: Pitchshifts or timestretches a sample with
+the granular method;
+#X text 166 191 Inlet 1 \, grain float: Configure grain length (# of
+samples);
+#X msg 63 195 grain 360;
+#X msg 77 214 grain 7056;
+#X msg 93 238 grain 1764;
+#X obj 41 446 sample_granule~ smpgranu;
+#X obj 437 51 openpanel;
+#X msg 441 78 read \$1;
+#X obj 445 26 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X connect 1 0 18 0;
+#X connect 2 0 18 0;
+#X connect 3 0 18 1;
+#X connect 4 0 18 2;
+#X connect 10 0 18 2;
+#X connect 15 0 18 0;
+#X connect 16 0 18 0;
+#X connect 17 0 18 0;
+#X connect 18 0 12 0;
+#X connect 18 1 12 1;
+#X connect 19 0 20 0;
+#X connect 20 0 0 0;
+#X connect 21 0 19 0;