bop.glok.pd

#N canvas 138 116 1478 772 10;
#X obj 670 100 inlet~ left;
#X obj 900 100 inlet~ right;
#X obj 1000 100 inlet note;
#X obj 1100 100 inlet ctl;
#X obj 670 220 outlet~ left;
#X obj 900 220 outlet~ right;
#X obj 1020 200 outlet note;
#X obj 1100 200 outlet ctl;
#X obj 400 260 savestate, f 11;
#X text 490 260 👈 bangs when parent is saved;
#X obj 400 180 f;
#X obj 460 290 s save-state-\$0;
#X obj 1000 640 pack 0 0 0, f 13;
#X obj 1000 670 route 1 2 3 4, f 55;
#X obj 1000 810 *~ 0.5;
#X obj 1000 720 unpack;
#X obj 1000 750 mtof;
#X obj 1100 810 *~ 0.5;
#X obj 1100 720 unpack;
#X obj 1100 750 mtof;
#X obj 1200 810 *~ 0.5;
#X obj 1200 720 unpack;
#X obj 1200 750 mtof;
#X obj 1300 810 *~ 0.5;
#X obj 1300 720 unpack;
#X obj 1300 750 mtof;
#X obj 400 220 pack f;
#X obj 400 290 unpack f;
#X obj 780 120 hip~ 5;
#X obj 780 145 clip~ -1 1;
#X obj 100 120 cnv 15 210 20 empty empty empty 7 7 0 14 #97c5ee #ffffff
0;
#X obj 1000 600 poly 4 1, f 13;
#X obj 1040 530 sel 0;
#X obj 1000 560 cyclone/flush;
#X obj 110 130 tgl 15 1 from-pedal-\$0 to-pedal-\$0 pedal 20 5 0 10
#fcfcfc #000000 #000000 0 1;
#X obj 400 130 r save-state-\$0;
#N canvas 0 22 450 300 sustain 0;
#X obj 50 170 stripnote;
#X obj 50 190 pack;
#X obj 100 80 + 1;
#X obj 10 130 gate 2, f 7;
#X obj 100 30 inlet;
#X obj 50 30 inlet;
#X obj 10 250 outlet;
#X connect 0 0 1 0;
#X connect 0 1 1 1;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 3 0 6 0;
#X connect 3 1 0 0;
#X connect 4 0 2 0;
#X connect 5 0 3 1;
#X restore 1000 300 pd sustain;
#X obj 410 150 r from-pedal-\$0;
#X obj 400 330 s to-pedal-\$0;
#X obj 1020 260 r from-pedal-\$0;
#X obj 1130 140 route pedal;
#X obj 1130 170 s to-pedal-\$0;
#X obj 1000 850 throw~ instrument-\$0;
#X obj 1100 850 throw~ instrument-\$0;
#X obj 1200 850 throw~ instrument-\$0;
#X obj 1300 850 throw~ instrument-\$0;
#X obj 780 100 catch~ instrument-\$0;
#X obj 1000 780 sub.bop.chimes~;
#X obj 1100 780 sub.bop.chimes~;
#X obj 1200 780 sub.bop.chimes~;
#X obj 1300 780 sub.bop.chimes~;
#X obj 1314 100 loadbang;
#X obj 1314 190 s \$0-scope-id;
#X obj 1314 130 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X obj 1314 160 iemguts/canvasdollarzero 1;
#X text 1339 129 get \$0 of parent patch to localise messaging;
#X obj 1312 214 r \$0-scope-id;
#X obj 1314 250 print scope-id;
#X obj 1037 421 r bop-time;
#X obj 1040 500 route;
#X obj 1061 454 r \$0-scope-id;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 2 0 6 0;
#X connect 2 0 36 0;
#X connect 3 0 7 0;
#X connect 3 0 40 0;
#X connect 8 0 27 0;
#X connect 8 1 11 0;
#X connect 10 0 26 0;
#X connect 12 0 13 0;
#X connect 13 0 15 0;
#X connect 13 1 18 0;
#X connect 13 2 21 0;
#X connect 13 3 24 0;
#X connect 14 0 42 0;
#X connect 15 0 16 0;
#X connect 15 1 47 1;
#X connect 16 0 47 0;
#X connect 17 0 43 0;
#X connect 18 0 19 0;
#X connect 18 1 48 1;
#X connect 19 0 48 0;
#X connect 20 0 44 0;
#X connect 21 0 22 0;
#X connect 21 1 49 1;
#X connect 22 0 49 0;
#X connect 23 0 45 0;
#X connect 24 0 25 0;
#X connect 24 1 50 1;
#X connect 25 0 50 0;
#X connect 26 0 8 0;
#X connect 27 0 38 0;
#X connect 28 0 29 0;
#X connect 29 0 4 0;
#X connect 29 0 5 0;
#X connect 31 0 12 0;
#X connect 31 1 12 1;
#X connect 31 2 12 2;
#X connect 32 0 33 0;
#X connect 33 0 31 0;
#X connect 33 1 31 1;
#X connect 35 0 10 0;
#X connect 36 0 33 0;
#X connect 37 0 10 1;
#X connect 39 0 36 1;
#X connect 40 0 41 0;
#X connect 46 0 28 0;
#X connect 47 0 14 0;
#X connect 48 0 17 0;
#X connect 49 0 20 0;
#X connect 50 0 23 0;
#X connect 51 0 53 0;
#X connect 53 0 54 0;
#X connect 54 0 52 0;
#X connect 56 0 57 0;
#X connect 58 0 59 0;
#X connect 59 0 32 0;
#X connect 60 0 59 1;
#X coords 0 -1 1 1 210 60 1 100 100;