patches/octoloop/looper~.pd

#N canvas 0 29 566 449 36;
#X declare -path ../util;
#X msg 338 209 stop;
#X obj 48 51 inlet~;
#X obj 248 568 outlet~;
#X obj 366 7 inlet;
#X msg 174 170 bang;
#X obj 14 298 tabwrite~ array\$0;
#X obj 249 485 tabplay~ array\$0;
#X obj 792 386 loadbang;
#X obj 772 467 array define array\$0 441000;
#X obj 304 102 moses 1;
#X obj 360 69 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X msg 490 247 bang;
#X msg 665 240 stop;
#X obj 694 45 ago;
#X obj 591 142 delay;
#X msg 742 148 bang;
#X obj 597 -11 declare -path ../util;
#X connect 0 0 5 0;
#X connect 1 0 5 0;
#X connect 3 0 10 0;
#X connect 3 0 13 0;
#X connect 4 0 5 0;
#X connect 6 0 2 0;
#X connect 7 0 8 0;
#X connect 9 0 0 0;
#X connect 9 0 11 0;
#X connect 9 1 4 0;
#X connect 9 1 12 0;
#X connect 10 0 9 0;
#X connect 11 0 6 0;
#X connect 11 0 14 0;
#X connect 12 0 6 0;
#X connect 13 0 14 1;
#X connect 13 0 15 0;
#X connect 14 0 11 0;
#X connect 15 0 14 0;