#N canvas 45 23 1235 751 10; #X obj 391 472 +~; #X obj 301 580 +~; #X obj 301 619 dac~; #X obj 301 247 adc~; #X obj 334 187 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 569 566 *~ 1; #X obj 637 378 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X msg 748 81 const 0; #X msg 471 309 stop; #X text 345 588 Based on Looper.pd Pierre Massat \, Guitar Extended \, 2013; #X text 346 616 https://guitarextended.wordpress.com/; #X obj 301 512 *~; #X obj 316 488 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 131 272 timer; #X obj 158 250 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X floatatom 131 298 5 0 0 0 - - -; #X obj 444 538 tabwrite~ monopoly; #X obj 570 343 tabplay~ monopoly; #X obj 748 102 s monopoly; #X obj 748 47 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 669 378 s cycle; #X obj 627 300 r cycle; #X obj 470 501 r cycle; #X obj 406 437 *~ 1; #X text 437 437 feedback/fade; #X obj 319 314 *~; #X obj 748 144 table monopoly 225000; #X obj 131 366 * 44100; #X floatatom 131 387 15 0 0 0 - - -; #X msg 131 412 \; monopoly resize \$1 \;; #X obj 131 318 / 1000; #X floatatom 131 339 5 0 0 0 - - -; #X obj 175 24 bng 25 250 50 0 empty empty empty 17 7 0 15 -262144 -1 -1; #X obj 175 85 f; #X obj 207 85 + 1; #X msg 243 85 0; #X obj 175 112 moses 3, f 10; #X msg 202 158 0; #X msg 175 158 1; #X obj 175 137 sel 1; #X obj 232 137 mod 2; #X floatatom 232 158 5 0 0 0 - - -; #X obj 243 66 r clearbang; #X text 270 81 clear counter, f 7; #X text 84 44 this logic sends first one and first zero out left and all subsequent intergers out right (until cleared)., f 10; #X obj 748 122 s clearbang; #X msg 243 112 set 0; #X obj 176 318 r clearbang; #X msg 176 339 22500; #X obj 131 250 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 570 298 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X msg 702 298 stop; #X obj 702 274 r clearbang; #X obj 702 338 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 490 336 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 490 559 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 388 319 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 444 283 sel 1; #X text 44 293 this determines loop length and resizes array appropriately , f 13; #X obj 570 271 sel 1; #X text 208 28 1) Record. Stop record. Toggle playback i/o.; #X text 769 47 3) Clear loop.; #X text 353 186 2) Overdub.; #X connect 0 0 16 0; #X connect 1 0 2 0; #X connect 1 0 2 1; #X connect 3 0 11 0; #X connect 3 0 25 0; #X connect 4 0 25 1; #X connect 5 0 1 1; #X connect 7 0 18 0; #X connect 8 0 16 0; #X connect 8 0 54 0; #X connect 11 0 1 0; #X connect 12 0 11 1; #X connect 13 0 15 0; #X connect 14 0 13 1; #X connect 15 0 30 0; #X connect 17 0 5 0; #X connect 17 0 23 0; #X connect 17 1 6 0; #X connect 17 1 20 0; #X connect 19 0 7 0; #X connect 19 0 45 0; #X connect 21 0 17 0; #X connect 22 0 16 0; #X connect 22 0 55 0; #X connect 23 0 0 1; #X connect 25 0 0 0; #X connect 27 0 28 0; #X connect 28 0 29 0; #X connect 30 0 31 0; #X connect 31 0 27 0; #X connect 32 0 33 0; #X connect 33 0 34 0; #X connect 34 0 33 1; #X connect 34 0 36 0; #X connect 35 0 46 0; #X connect 35 0 33 1; #X connect 36 0 39 0; #X connect 36 1 40 0; #X connect 37 0 4 0; #X connect 37 0 14 0; #X connect 37 0 57 0; #X connect 38 0 4 0; #X connect 38 0 49 0; #X connect 38 0 57 0; #X connect 39 0 38 0; #X connect 39 1 37 0; #X connect 40 0 41 0; #X connect 41 0 57 0; #X connect 41 0 59 0; #X connect 42 0 35 0; #X connect 46 0 41 0; #X connect 47 0 48 0; #X connect 48 0 27 0; #X connect 49 0 13 0; #X connect 50 0 17 0; #X connect 51 0 53 0; #X connect 51 0 17 0; #X connect 52 0 51 0; #X connect 57 0 56 0; #X connect 57 0 16 0; #X connect 57 1 8 0; #X connect 59 0 50 0; #X connect 59 1 51 0;