adding example

svn path=/trunk/externals/frankenstein/; revision=4172

1 files changed, 80 insertions, 0 deletions

diff --git a/patches/sampleplayer.pd b/patches/sampleplayer.pd
new file mode 100755
index 0000000..adf6c9d
--- /dev/null
+++ b/patches/sampleplayer.pd
@@ -0,0 +1,80 @@
+#N canvas -35 33 1009 703 12;

+#X obj 476 599 outlet~;

+#X obj 504 481 line~;

+#X obj 402 281 line~;

+#X obj 476 548 *~;

+#X msg 424 142 bang;

+#X obj 425 192 delay 5;

+#X text 477 142 <-- play the sample;

+#X text 349 223 sound off;

+#X msg 393 245 0 5;

+#X msg 612 32 1 \, 4.41e+008 1e+007 \;;

+#X msg 428 244 1 5;

+#X text 617 9 set line to play sample;

+#X obj 476 574 *~ 1;

+#X obj 394 42 table \$1-sampletable;

+#X obj 476 520 tabread4~ \$1-sampletable;

+#X obj 712 257 openpanel;

+#X obj 712 416 soundfiler;

+#X msg 712 230 bang;

+#X text 756 230 read file;

+#X obj 712 283 t s b;

+#X obj 751 318 symbol \$1-sampletable;

+#X msg 712 387 read -resize \$1 \$2;

+#X obj 712 356 pack s s;

+#X obj 713 196 inlet;

+#X obj 400 92 inlet;

+#X obj 103 139 inlet;

+#X obj 760 68 inlet;

+#X obj 658 196 symbol;

+#X obj 689 499 outlet;

+#X obj 172 141 inlet;

+#X obj 278 191 delay 10000;

+#X obj 492 418 pack 0 0;

+#X obj 551 388 * 4.41e+008;

+#X msg 492 283 bang;

+#X msg 501 449 \$1 \, \$2 1e+007 \;;

+#X obj 492 336 int 1;

+#X obj 250 142 inlet;

+#X obj 304 140 inlet;

+#X obj 551 336 float 1;

+#X obj 602 298 / 100;

+#X connect 1 0 14 0;

+#X connect 2 0 3 1;

+#X connect 3 0 12 0;

+#X connect 4 0 5 0;

+#X connect 4 0 8 0;

+#X connect 4 0 30 0;

+#X connect 5 0 9 0;

+#X connect 5 0 10 0;

+#X connect 5 0 33 0;

+#X connect 8 0 2 0;

+#X connect 10 0 2 0;

+#X connect 12 0 0 0;

+#X connect 14 0 3 0;

+#X connect 15 0 19 0;

+#X connect 15 0 28 0;

+#X connect 17 0 15 0;

+#X connect 19 0 22 0;

+#X connect 19 1 20 0;

+#X connect 20 0 22 1;

+#X connect 21 0 16 0;

+#X connect 22 0 21 0;

+#X connect 23 0 17 0;

+#X connect 24 0 4 0;

+#X connect 25 0 12 1;

+#X connect 26 0 27 0;

+#X connect 27 0 19 0;

+#X connect 27 0 28 0;

+#X connect 29 0 30 1;

+#X connect 30 0 8 0;

+#X connect 31 0 34 0;

+#X connect 32 0 31 1;

+#X connect 33 0 35 0;

+#X connect 33 0 38 0;

+#X connect 34 0 1 0;

+#X connect 35 0 31 0;

+#X connect 36 0 35 1;

+#X connect 37 0 39 0;

+#X connect 38 0 32 0;

+#X connect 39 0 38 0;