Adding some pitchshifting and timestretching sample players

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

1 files changed, 27 insertions, 0 deletions

diff --git a/tof/sample_shifft~-help.pd b/tof/sample_shifft~-help.pd
new file mode 100644
index 0000000..8532e64
--- /dev/null
+++ b/tof/sample_shifft~-help.pd
@@ -0,0 +1,27 @@
+#N canvas 1219 290 679 377 10;
+#X obj 87 331 dac~;
+#X obj 28 158 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 44 193 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
+1;
+#X floatatom 95 224 5 0 0 0 - - -;
+#X obj 192 280 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X text 48 157 Inlet 1 \, bang: Play sample once;
+#X text 63 190 Inlet 1 \, float: Start/stop playing looped sample;
+#X text 216 251 Inlet 3 \, float: Duration in ms;
+#X text 217 275 Inlet 3 \, bang: Reset to orginal duration;
+#X text 34 28 Description: Pitchshifts or timestretches a sample with
+the FFT method;
+#X text 32 58 Tags: Sound Sample Play;
+#X obj 458 120 tof/sample smpfft amen.wav;
+#X text 133 222 Inlet 2 \, float: Pitch (1=normal);
+#X msg 173 253 10000;
+#X obj 28 296 tof/sample_shifft~ smpfft;
+#X connect 1 0 14 0;
+#X connect 2 0 14 0;
+#X connect 3 0 14 1;
+#X connect 4 0 14 2;
+#X connect 13 0 14 2;
+#X connect 14 0 0 0;
+#X connect 14 1 0 1;