pure-data/extra/loop~/test-loop~.pd

#N canvas 625 24 682 671 12;
#X floatatom 112 281 0 0 0 0 - - - 0;
#X obj 321 365 print~;
#X msg 63 545 bang;
#X msg 321 322 bang;
#X obj 112 325 loop~;
#X floatatom 154 280 0 0 0 0 - - - 0;
#N canvas 0 0 450 300 (subpatch) 0;
#X array array1 44100 float 0;
#X coords 0 10 44100 0 200 150 1;
#X restore 138 33 graph;
#X msg 103 223 \; array1 resize 44100;
#X obj 39 574 tabwrite~ array1;
#X msg 237 395 bang;
#X obj 237 426 tabwrite~ array1;
#X msg 63 286 bang;
#X obj 264 366 print~;
#X msg 264 323 bang;
#N canvas 0 0 450 300 (subpatch) 0;
#X array array2 150000 float 0;
#X coords 0 1 150000 -1 200 150 1;
#X restore 392 417 graph;
#X msg 386 293 \; array2 resize 150000;
#X obj 165 556 tabread4~ array2;
#X obj 124 500 *~;
#X obj 165 612 dac~;
#X obj 165 583 hip~ 5;
#X obj 183 501 samphold~;
#X obj 165 530 +~;
#X floatatom 161 448 0 0 0 0 - - - 0;
#X obj 161 471 *~ 1000;
#X obj 292 271 soundfiler;
#X msg 292 213 read ../doc/sound/bell.aiff array2;
#X msg 306 242 read ../doc/sound/vocal.aiff array2;
#X connect 0 0 4 0;
#X connect 2 0 8 0;
#X connect 3 0 1 0;
#X connect 4 0 12 0;
#X connect 4 0 17 0;
#X connect 4 0 8 0;
#X connect 4 0 20 1;
#X connect 4 1 10 0;
#X connect 4 1 1 0;
#X connect 4 1 17 1;
#X connect 5 0 4 1;
#X connect 9 0 10 0;
#X connect 11 0 4 0;
#X connect 13 0 12 0;
#X connect 16 0 19 0;
#X connect 17 0 21 0;
#X connect 19 0 18 0;
#X connect 19 0 18 1;
#X connect 20 0 21 1;
#X connect 21 0 16 0;
#X connect 22 0 23 0;
#X connect 23 0 20 0;
#X connect 25 0 24 0;
#X connect 26 0 24 0;