#N canvas 0 25 997 658 10; #X obj 3 -166 cnv 15 850 1150 empty empty empty 840 990 0 10 -241335 -99865 0; #X obj 13 -157 cnv 15 295 200 empty empty drums 60 180 1 35 -86853 -2112 0; #X obj 29 -142 vsl 15 128 0 1 0 1 kickvol empty bd 0 -8 0 10 -68672 -262144 -2112 6400 1; #X obj 61 -142 vsl 15 128 0 1 0 1 snarevol empty sn 0 -8 0 10 -68672 -262144 -2112 3000 1; #X obj 93 -142 vsl 15 128 0 1 0 1 hatvol empty hh 0 -8 0 10 -68672 -262144 -2112 1100 1; #X obj 125 -142 vsl 15 128 0 1 0 1 crashvol empty cc 0 -8 0 10 -68672 -262144 -2112 1100 1; #X obj 157 -142 vsl 15 128 0 1 0 1 hitomvol empty ht 0 -8 0 10 -68672 -262144 -2112 2200 1; #X obj 189 -142 vsl 15 128 0 1 0 1 lotomvol empty lt 0 -8 0 10 -68672 -262144 -2112 2200 1; #X obj 22 1 hsl 25 8 -1 1 0 1 kickpan empty bdpan -2 -6 0 10 -68672 -262144 -2112 1200 1; #X obj 55 1 hsl 25 8 -1 1 0 1 snarepan empty snpan -2 -6 0 10 -68672 -262144 -2112 1900 1; #X obj 88 1 hsl 25 8 -1 1 0 1 hatpan empty hhpan -2 -6 0 10 -68672 -262144 -2112 2300 1; #X obj 120 1 hsl 25 8 -1 1 0 1 crashpan empty ccpan -2 -6 0 10 -68672 -262144 -2112 0 1; #X obj 152 1 hsl 25 8 -1 1 0 1 hitompan empty htpan -2 -6 0 10 -68672 -262144 -2112 400 1; #X obj 185 1 hsl 25 8 -1 1 0 1 lotompan empty ltpan -2 -6 0 10 -68672 -262144 -2112 400 1; #X obj 319 -157 cnv 15 400 200 empty empty bass 60 180 1 35 -49537 -111361 0; #X obj 335 -143 vsl 15 128 0 1 0 1 bassvol empty bass -5 -8 0 10 -181441 -262144 -111361 7500 1; #X obj 328 0 hsl 25 8 -1 1 0 1 basspan empty basspan -5 -6 0 10 -181441 -262144 -111361 1200 1; #X obj 19 22 nbx 5 14 -1e+37 1e+37 0 0 empty empty empty 0 -6 0 10 -68672 -262144 -2112 0 256; #X obj 13 52 cnv 15 410 210 empty empty lead 60 190 1 35 -13381 -67601 0; #X obj 30 70 vsl 15 128 0 2 0 1 leadvol empty lead -5 -8 0 10 -87053 -262144 -67601 7500 1; #X obj 23 219 hsl 25 8 -1 1 0 1 leadpan empty lead-pan -5 -6 0 10 -87053 -262144 -67601 500 1; #X obj 20 241 nbx 5 14 -1e+37 1e+37 0 0 empty empty empty 0 -6 0 10 -87052 -262144 -1 -0.583333 256; #X obj 432 52 cnv 15 410 210 empty empty rhythm 60 190 1 35 -78474 -193290 0; #X obj 447 70 vsl 15 128 0 2 0 1 rhythmvol empty rhythm -10 -8 0 10 -221833 -262144 -193226 3200 1; #X obj 440 216 hsl 25 8 -1 1 0 1 rhythmpan empty rhythm-pan -5 -6 0 10 -221833 -262144 -193226 2100 1; #X obj 437 241 nbx 5 14 -1e+37 1e+37 0 0 empty empty empty 0 -6 0 10 -221833 -262144 -1 0.75 256; #X obj 356 -142 tgl 15 1 bassonoff empty audio 0 -6 0 10 -181441 -262144 -111361 1 1; #X obj 465 76 tgl 15 1 rgonoff empty audio 0 -6 0 10 -221833 -262144 -193226 1 1; #X obj 53 68 tgl 15 1 leadonoff empty audio 0 -6 0 10 -87052 -262144 -67601 1 1; #X obj 53 93 tgl 15 1 guitarharmonyonoff guitarharmonymain harmony 0 -6 0 10 -87052 -262144 -67601 1 1; #X obj 51 134 cnv 15 70 70 empty empty delay 15 -20 0 14 -13381 -67601 0; #X obj 57 132 vsl 10 75 0 1 0 1 leaddeldry empty dry -4 -8 0 10 -87053 -262144 -67601 7400 1; #X obj 79 132 vsl 10 75 0 1 0 1 leaddelfb empty fb -1 -8 0 10 -87053 -262144 -67601 5900 1; #X obj 100 132 vsl 10 75 0 1 0 1 leaddelwet empty wet -3 -8 0 10 -87053 -262144 -67601 800 1; #X obj 325 22 nbx 5 14 -1e+37 1e+37 0 0 empty empty empty 0 -6 0 10 -181441 -262144 -1 0 256; #X obj 266 -141 vradio 13 1 1 13 drumpattern empty main-pattern -30 -6 0 10 -68672 -262144 -2112 6; #X obj 73 219 hsl 50 8 0 1 0 1 leadwetdry empty reverb-wet-dry -5 -6 0 10 -87053 -262144 -67601 1000 1; #X obj 506 216 hsl 50 8 0 1 0 1 rhythmwetdry empty reverb-wet-dry -10 -6 0 10 -221833 -262144 -193226 1200 1; #X obj 173 25 hsl 50 8 0 1 0 1 drumswetdry empty reverb-wet-dry -7 -6 0 10 -68672 -262144 -2112 700 1; #X obj 378 -57 hsl 50 8 0 1 0 1 basswetdry empty reverb-wet-dry -7 -6 0 10 -181441 -262144 -111361 0 1; #X obj 206 -142 tgl 15 1 drumsonoff empty audio 0 -6 0 10 -68672 -262144 -2112 1 1; #X obj 215 -102 cnv 15 25 70 empty empty waveshaper -10 -20 0 10 -86853 -2112 0; #X obj 215 -104 vsl 10 75 0 1 0 1 drumswsclip empty clip -10 -8 0 10 -68672 -262144 -2112 500 1; #X obj 235 -104 vsl 10 75 0 0.25 0 1 drumswsshape 3period shape -5 -8 0 10 -68672 -262144 -2112 7400 1; #X obj 137 70 vsl 15 128 0.5 0.975 0 1 leadmuting empty sustain/muting -35 -8 0 10 -87053 -262144 -67601 12600 1; #X obj 537 70 vsl 15 128 0.5 0.975 0 1 rgmuting empty sustain/muting -35 -8 0 10 -221833 -262144 -193226 12600 1; #X obj 378 -79 hsl 50 8 0 1 0 1 bassampwetdry empty amp-wet-dry 0 -6 0 10 -181441 -262144 -111361 2200 1; #X obj 149 243 hsl 50 8 0 50 0 1 leadpickdel empty pick-spacing -5 -6 0 10 -87053 -262144 -67601 3000 1; #X obj 473 172 hsl 50 8 0 50 0 1 rgpickdel empty pick-spacing -10 -6 0 10 -221833 -262144 -193226 2000 1; #X obj 362 -110 vsl 10 75 0 1000 0 0 basslength bl1 note-length -10 -8 0 10 -181441 -262144 -111361 3700 1; #X obj 443 -143 vsl 15 128 0.5 0.99 0 1 bassmuting empty sustain/muting -35 -8 0 10 -181441 -262144 -111361 12200 1; #X obj 495 -154 cnv 15 200 20 empty empty note-generator-main 0 10 1 25 -49537 -111361 0; #X obj 500 -130 cnv 15 200 20 empty empty root-vs-arpeggiator 0 10 0 15 -49537 -111361 0; #X obj 524 -72 hsl 128 15 0 100 0 1 bassfancycluster empty bass-arpeggiator-clustering -10 -6 0 10 -181441 -262144 -111361 6400 1; #X obj 524 -101 hsl 128 15 0 100 0 1 bassrootcluster empty bass-root-note-clustering -10 -6 0 10 -181441 -262144 -111361 5700 1; #X obj 506 -46 cnv 15 200 20 empty empty arpeggiator-markov 0 10 0 15 -49537 -111361 0; #X obj 524 15 hsl 128 15 0 100 0 1 bassnoteclust empty arpeggiator-note-clustering -10 -6 0 10 -181441 -262144 -111361 10800 1; #X obj 524 -14 hsl 128 15 0 100 0 1 bassrestclust empty arpeggiator-rest-clustering -10 -6 0 10 -181441 -262144 -111361 3300 1; #X obj 154 72 cnv 15 200 20 empty empty note-generator-interlude 0 10 1 25 -13381 -67601 0; #X obj 158 223 hsl 50 8 0 1 0 1 leadampwetdry empty amp-wet-dry -5 -6 0 10 -87053 -262144 -67601 800 1; #X obj 476 196 hsl 50 8 0 1 0 1 rgampwetdry empty amp-wet-dry -10 -6 0 10 -221833 -262144 -193226 2400 1; #X obj 562 157 cnv 15 200 20 empty empty note-generator-interlude 0 10 1 25 -78474 -193290 0; #X obj 593 54 cnv 15 200 20 empty empty note-generator-main 0 10 1 25 -78474 -193290 0; #X obj 620 86 hsl 128 10 0 100 0 1 rgmainstrumclust empty strum-clustering 15 -6 0 10 -221833 -262144 -193226 6400 1; #X obj 620 107 hsl 128 10 0 100 0 1 rgmainarpclust empty arpeggio-clustering 5 -6 0 10 -221833 -262144 -193226 6400 1; #X obj 620 128 hsl 128 10 0 100 0 1 rgmainrestclust empty rest-clustering 17 -6 0 10 -221833 -262144 -193226 700 1; #X obj 620 149 hsl 128 10 0 100 0 1 rgmainnoteclust empty note-clustering 17 -6 0 10 -221833 -262144 -193226 6500 1; #X obj 620 186 hsl 128 10 0 100 0 1 rgintstrumclust empty strum-clustering 15 -6 0 10 -221833 -262144 -193226 5000 1; #X obj 620 207 hsl 128 10 0 100 0 1 rgintarpclust empty arpeggio-clustering 5 -6 0 10 -221833 -262144 -193226 8900 1; #X obj 620 228 hsl 128 10 0 100 0 1 rgintrestclust empty rest-clustering 17 -6 0 10 -221833 -262144 -193226 600 1; #X obj 620 249 hsl 128 10 0 100 0 1 rgintnoteclust empty note-clustering 17 -6 0 10 -221833 -262144 -193226 3800 1; #X obj 217 -17 hsl 25 8 0 1 0 1 drumswswetdry empty wetdry -3 -6 0 10 -68672 -262144 -2112 2400 1; #X obj 13 270 cnv 15 100 200 empty empty master-reverb 0 195 1 16 -107940 -50061 0; #X obj 55 306 vsl 15 128 0 100 0 1 masterreverbtime empty time -5 -8 0 10 -116765 -262144 -50061 7700 1; #X obj 274 381 vradio 50 1 0 2 sectionselect empty switch-section -112 -15 0 35 -262144 -1 -1 0; #X obj 193 296 tgl 50 0 mainstartstop empty start-stop -80 -15 0 35 -262144 -1 -1 0 1; #X obj 356 296 bng 50 250 50 0 mainzero empty zero -15 -15 0 35 -262144 -1 -1; #X obj 372 400 nbx 3 30 -1e+37 1e+37 0 0 empty remainingtime seconds-remaining -50 -10 0 15 -204800 -1 -1 0 256; #X text 445 961 I hope you like it.; #X text 443 904 This patch was built in Pd-extended \, and it uses [sort] from the Zexy library \, as well as a reverb abstraction located in the pd/extras directory of Pd-extended.; #X text 28 511 This patch plays a cheesy little song when the radio button is on the top selector \, and then does an avant-garde interlude when you switch to the bottom one. But note that whenever you switch to the interlude \, it will start a series of gradual tempo changes that won't be complete until the "seconds-remaining" timer below reaches 0 (but if you want \, you can switch back to the main melody before it finishes \, and the tempo will jump back to normal). Above you can see a whole bunch of faders that modify both the sonic and control aspects of each instrument.; #X text 27 867 I could have programmed the drums in a similar fashion \, but I was having too much fun manually switching between drum patterns. ; #X text 808 970 sg 2008; #X obj 490 -125 vradio 13 1 1 3 bassroothowoften empty how-often-root -30 -6 0 10 -181441 -262144 -111361 2; #X obj 199 173 cnv 15 200 20 empty empty harmony-on-off 0 10 0 15 -13381 -67601 0; #X obj 225 204 hsl 128 15 0 100 0 1 lead1stringclust empty 1-string-clustering 7 -6 0 10 -87053 -262144 -67601 10800 1; #X obj 225 231 hsl 128 15 0 100 0 1 lead2stringclust empty 2-string-clustering 7 -6 0 10 -87053 -262144 -67601 9600 1; #X obj 201 108 hsl 128 15 0 33 0 1 changeamount empty key-change-probability-per-beat -25 -6 0 10 -87053 -262144 -67601 3300 1; #X obj 200 132 hsl 128 15 0 100 0 1 leadrestclust empty rest-clustering 15 -6 0 10 -87053 -262144 -67601 6600 1; #X obj 200 158 hsl 128 15 0 100 0 1 leadnoteclust empty note-clustering 15 -6 0 10 -87053 -262144 -67601 6600 1; #X obj 150 399 nbx 2 30 -1e+37 1e+37 0 0 empty currentkey current-key-(interlude) -70 -10 0 15 -204800 -1 -1 0 256; #X obj 492 270 cnv 15 350 200 empty empty interlude-feedback 60 180 1 35 -258091 -259733 0; #X obj 506 300 vsl 15 128 0 1 0 1 fbvol empty vol 0 -8 0 10 -128992 -262144 -259733 1100 1; #X obj 539 315 cnv 15 70 70 empty empty delay 15 -20 0 14 -258091 -259733 0; #X obj 547 313 vsl 10 75 0 1 0 1 fbdeldry empty dry -4 -8 0 10 -128992 -262144 -259733 7400 1; #X obj 568 313 vsl 10 75 0 1 0 1 fbdelfb empty fb -1 -8 0 10 -128992 -262144 -259733 3600 1; #X obj 589 313 vsl 10 75 0 1 0 1 fbdelwet empty wet -3 -8 0 10 -128992 -262144 -259733 6600 1; #X obj 546 413 hsl 50 8 0 1 0 1 fbwetdry empty reverb-wet-dry -10 -6 0 10 -128992 -262144 -259733 1800 1; #X obj 618 300 cnv 15 70 70 empty empty vibrato 15 -20 0 14 -258091 -259733 0; #X obj 669 300 vsl 15 128 0 1 0 1 fbvibamt empty amt 0 -8 0 10 -128992 -262144 -259733 600 1; #X obj 638 300 vsl 15 128 0 10 0 1 fbvibfreq empty freq -4 -8 0 10 -128992 -262144 -259733 7600 1; #N canvas 0 25 1249 688 wetdry 0; #X obj 121 193 catch~ dryl; #X obj 194 193 catch~ dryr; #X obj 342 206 catch~ wetl; #X obj 420 206 catch~ wetr; #X obj 333 1121 dac~; #N canvas 0 0 450 300 reverb1 0; #X obj 101 49 inlet~; #X obj 103 268 outlet~; #X obj 338 102 dbtorms; #X obj 338 130 pack 0 50; #X obj 338 154 line~; #X obj 102 204 *~; #X obj 343 50 inlet; #X msg 343 70 bang; #X obj 101 148 rev1~ xxx; #X obj 259 50 inlet revgain; #X obj 172 50 inlet revtime; #X connect 0 0 8 0; #X connect 2 0 3 0; #X connect 3 0 4 0; #X connect 4 0 5 1; #X connect 5 0 1 0; #X connect 6 0 7 0; #X connect 7 0 8 2; #X connect 8 0 5 0; #X connect 9 0 2 0; #X connect 10 0 8 1; #X restore 422 785 pd reverb1; #X obj 480 685 loadbang; #X msg 480 705 100; #N canvas 0 25 1016 656 reverb1 0; #X obj 101 49 inlet~; #X obj 101 268 outlet~; #X obj 338 102 dbtorms; #X obj 338 130 pack 0 50; #X obj 338 154 line~; #X obj 101 204 *~; #X obj 343 50 inlet; #X msg 343 75 bang; #X obj 101 148 rev1~ xxx; #X obj 259 50 inlet revgain; #X obj 172 50 inlet revtime; #X connect 0 0 8 0; #X connect 2 0 3 0; #X connect 3 0 4 0; #X connect 4 0 5 1; #X connect 5 0 1 0; #X connect 6 0 7 0; #X connect 7 0 8 2; #X connect 8 0 5 0; #X connect 9 0 2 0; #X connect 10 0 8 1; #X restore 498 786 pd reverb1; #N canvas 0 25 997 656 awesomedelayr 0; #X obj 606 622 outlet~; #X obj 518 33 inlet bend; #X obj 518 53 t b f; #X obj 392 542 +~; #X obj 724 298 hip~ 5; #X obj 713 388 *~ 3; #X obj 606 272 lop~ 1000; #X obj 474 339 hip~ 5; #X obj 475 319 lop~ 6000; #X obj 712 408 clip~ -1 1; #X obj 669 509 *~ 0.11; #X obj 583 510 *~ 400; #X obj 605 579 hip~ 200; #X obj 600 336 bp~ 311 50; #X obj 678 336 bp~ 504 50; #X obj 758 334 bp~ 767 50; #X obj 836 334 bp~ 1119 50; #X obj 921 335 bp~ 1246 50; #X obj 165 33 inlet~ sound; #X obj 392 561 delwrite~ awesomedelayr 1000; #X obj 606 600 lop~ 1000; #X obj 284 189 expr~ 1000/$v1; #X obj 284 170 mtof~; #X obj 284 151 +~ 0; #X obj 489 229 vd~ awesomedelayr; #X obj 97 33 inlet~ note; #X obj 623 33 inlet~ muting; #X obj 494 290 *~; #X obj 640 144 *~ 0.015; #X obj 606 253 *~; #X obj 575 173 *~ 1.01; #X obj 18 338 block~ 1; #N canvas 0 0 450 300 oversampledclip 0; #X obj 320 11 block~ 4 1 4; #N canvas 0 0 420 502 butterworth 0; #X obj 127 -279 inlet~; #X obj 224 126 outlet~; #X obj 200 4 /~ 2; #X obj 200 26 rzero~ -1; #X obj 200 55 /~ 4; #X obj 200 77 rzero~ -1; #X obj 225 103 rzero~ -1; #X text 28 -181 4x oversamping \, 15000 Hz cutoff; #X obj 128 -153 *~ 0.429752; #X obj 127 -91 *~ 0.222167; #X obj 128 -63 cpole~ 0.685975 0.351505; #X obj 151 -32 cpole~ 0.685975 -0.351505; #X obj 128 -129 rpole~ 0.570248; #X connect 0 0 8 0; #X connect 2 0 3 0; #X connect 3 0 4 0; #X connect 4 0 5 0; #X connect 5 0 6 0; #X connect 6 0 1 0; #X connect 8 0 12 0; #X connect 9 0 10 0; #X connect 10 0 11 0; #X connect 10 1 11 1; #X connect 11 0 2 0; #X connect 12 0 9 0; #X restore 133 224 pd butterworth; #X obj 133 266 outlet~; #X obj 133 45 inlet~; #X obj 134 96 clip~ -1 1; #X obj 134 120 *~ 4096; #X obj 134 139 +~ 4096; #X obj 134 161 tabread~ cubicsoftclipping; #X connect 1 0 2 0; #X connect 3 0 4 0; #X connect 4 0 5 0; #X connect 5 0 6 0; #X connect 6 0 7 0; #X connect 7 0 1 0; #X restore 474 401 pd oversampledclip; #X obj 474 434 *~ 8; #X connect 1 0 2 0; #X connect 2 0 23 0; #X connect 2 1 23 1; #X connect 3 0 19 0; #X connect 4 0 13 0; #X connect 4 0 14 0; #X connect 4 0 15 0; #X connect 4 0 16 0; #X connect 4 0 17 0; #X connect 5 0 9 0; #X connect 6 0 4 0; #X connect 7 0 32 0; #X connect 8 0 7 0; #X connect 9 0 3 1; #X connect 9 0 11 0; #X connect 10 0 12 0; #X connect 11 0 12 0; #X connect 12 0 20 0; #X connect 13 0 5 0; #X connect 14 0 5 0; #X connect 15 0 5 0; #X connect 16 0 5 0; #X connect 17 0 5 0; #X connect 18 0 27 0; #X connect 20 0 0 0; #X connect 21 0 24 0; #X connect 22 0 21 0; #X connect 23 0 22 0; #X connect 24 0 27 0; #X connect 24 0 29 0; #X connect 25 0 23 0; #X connect 26 0 28 0; #X connect 26 0 30 0; #X connect 27 0 8 0; #X connect 28 0 29 1; #X connect 29 0 6 0; #X connect 30 0 27 1; #X connect 32 0 33 0; #X connect 33 0 3 0; #X connect 33 0 10 0; #X restore 393 259 pd awesomedelayr; #N canvas 0 25 995 656 awesomedelayl 0; #X obj 608 619 outlet~; #X obj 513 9 inlet bend; #X obj 513 29 t b f; #X obj 388 521 +~; #X obj 719 274 hip~ 5; #X obj 708 364 *~ 3; #X obj 601 248 lop~ 1000; #X obj 470 305 hip~ 5; #X obj 470 285 lop~ 6000; #X obj 707 384 clip~ -1 1; #X obj 671 506 *~ 0.11; #X obj 585 507 *~ 400; #X obj 609 541 hip~ 200; #X obj 595 312 bp~ 311 50; #X obj 673 312 bp~ 504 50; #X obj 753 310 bp~ 767 50; #X obj 831 310 bp~ 1119 50; #X obj 916 311 bp~ 1246 50; #X obj 160 9 inlet~ sound; #X obj 388 540 delwrite~ awesomedelayl 1000; #X obj 609 570 lop~ 1000; #X obj 484 205 vd~ awesomedelayl; #X obj 272 181 expr~ 1000/$v1; #X obj 272 162 mtof~; #X obj 272 143 +~ 0; #X obj 87 9 inlet~ note; #X obj 618 9 inlet~ muting; #X obj 489 267 *~; #X obj 635 120 *~ 0.015; #X obj 601 229 *~; #X obj 571 148 *~ 1.01; #X obj 13 314 block~ 1; #N canvas 0 0 450 300 oversampledclip 0; #X obj 320 11 block~ 4 1 4; #N canvas 0 0 420 502 butterworth 0; #X obj 127 -279 inlet~; #X obj 224 126 outlet~; #X obj 200 4 /~ 2; #X obj 200 26 rzero~ -1; #X obj 200 55 /~ 4; #X obj 200 77 rzero~ -1; #X obj 225 103 rzero~ -1; #X text 28 -181 4x oversamping \, 15000 Hz cutoff; #X obj 128 -153 *~ 0.429752; #X obj 127 -91 *~ 0.222167; #X obj 128 -63 cpole~ 0.685975 0.351505; #X obj 151 -32 cpole~ 0.685975 -0.351505; #X obj 128 -129 rpole~ 0.570248; #X connect 0 0 8 0; #X connect 2 0 3 0; #X connect 3 0 4 0; #X connect 4 0 5 0; #X connect 5 0 6 0; #X connect 6 0 1 0; #X connect 8 0 12 0; #X connect 9 0 10 0; #X connect 10 0 11 0; #X connect 10 1 11 1; #X connect 11 0 2 0; #X connect 12 0 9 0; #X restore 133 224 pd butterworth; #X obj 133 266 outlet~; #X obj 133 45 inlet~; #X obj 134 96 clip~ -1 1; #X obj 134 120 *~ 4096; #X obj 134 139 +~ 4096; #X obj 134 161 tabread~ cubicsoftclipping; #X connect 1 0 2 0; #X connect 3 0 4 0; #X connect 4 0 5 0; #X connect 5 0 6 0; #X connect 6 0 7 0; #X connect 7 0 1 0; #X restore 462 377 pd oversampledclip; #X obj 463 415 *~ 8; #X connect 1 0 2 0; #X connect 2 0 24 0; #X connect 2 1 24 1; #X connect 3 0 19 0; #X connect 4 0 13 0; #X connect 4 0 14 0; #X connect 4 0 15 0; #X connect 4 0 16 0; #X connect 4 0 17 0; #X connect 5 0 9 0; #X connect 6 0 4 0; #X connect 7 0 32 0; #X connect 8 0 7 0; #X connect 9 0 3 1; #X connect 9 0 11 0; #X connect 10 0 12 0; #X connect 11 0 12 0; #X connect 12 0 20 0; #X connect 13 0 5 0; #X connect 14 0 5 0; #X connect 15 0 5 0; #X connect 16 0 5 0; #X connect 17 0 5 0; #X connect 18 0 27 0; #X connect 20 0 0 0; #X connect 21 0 27 0; #X connect 21 0 29 0; #X connect 22 0 21 0; #X connect 23 0 22 0; #X connect 24 0 23 0; #X connect 25 0 24 0; #X connect 26 0 28 0; #X connect 26 0 30 0; #X connect 27 0 8 0; #X connect 28 0 29 1; #X connect 29 0 6 0; #X connect 30 0 27 1; #X connect 32 0 33 0; #X connect 33 0 3 0; #X connect 33 0 10 0; #X restore 291 259 pd awesomedelayl; #X obj 249 775 *~; #X obj 332 776 *~; #X obj 290 229 *~; #X obj 392 234 *~; #X obj 370 114 line~; #X msg 370 92 \$1 20; #X obj 285 747 line~; #X obj 239 144 line~; #X text 386 312 clip; #X text 525 312 shape; #X text 528 325 0-.25; #X text 386 321 0-1; #N canvas 0 25 1016 656 soundshaper 0; #X obj -52 240 clip~ -1 1; #X obj -67 300 +~; #X obj -109 169 *~ 0.3; #X obj -24 213 * -1; #X obj -67 274 +~; #X obj -108 240 *~ 0.25; #X obj -67 384 hip~ 10; #X obj -67 404 outlet~; #X obj -11 20 inlet clip; #X obj -109 19 inlet~ sound; #X obj 95 20 inlet~ shape; #X obj 187 204 switch~; #X msg 182 139 1; #X msg 213 139 0; #X obj 221 108 sel 0; #X obj 191 -3 r sectionselect; #X obj 191 18 sel 0 1; #X msg 221 52 1 0 \, 0 1500; #X obj 221 72 line 1 1500; #X obj -66 350 cos~; #X connect 0 0 4 1; #X connect 1 0 19 0; #X connect 2 0 5 0; #X connect 2 0 0 0; #X connect 3 0 0 1; #X connect 4 0 1 0; #X connect 5 0 4 0; #X connect 6 0 7 0; #X connect 8 0 3 0; #X connect 8 0 0 2; #X connect 9 0 2 0; #X connect 10 0 1 1; #X connect 12 0 11 0; #X connect 13 0 11 0; #X connect 14 0 13 0; #X connect 15 0 16 0; #X connect 16 0 17 0; #X connect 16 1 12 0; #X connect 17 0 18 0; #X connect 18 0 14 0; #X connect 19 0 6 0; #X restore 338 404 pd soundshaper; #N canvas 0 25 1016 656 soundshaper 0; #X obj -52 240 clip~ -1 1; #X obj -67 300 +~; #X obj -109 169 *~ 0.3; #X obj -20 213 * -1; #X obj -67 274 +~; #X obj -108 240 *~ 0.25; #X obj -65 386 hip~ 10; #X obj -65 406 outlet~; #X obj -11 20 inlet clip; #X obj -109 19 inlet~ sound; #X obj 95 20 inlet~ shape; #X obj 187 204 switch~; #X msg 182 139 1; #X msg 213 139 0; #X obj 221 108 sel 0; #X obj 191 -3 r sectionselect; #X obj 191 18 sel 0 1; #X msg 221 52 1 0 \, 0 1500; #X obj 221 72 line 1 1500; #X obj -64 342 cos~; #X connect 0 0 4 1; #X connect 1 0 19 0; #X connect 2 0 5 0; #X connect 2 0 0 0; #X connect 3 0 0 1; #X connect 4 0 1 0; #X connect 5 0 4 0; #X connect 6 0 7 0; #X connect 8 0 3 0; #X connect 8 0 0 2; #X connect 9 0 2 0; #X connect 10 0 1 1; #X connect 12 0 11 0; #X connect 13 0 11 0; #X connect 14 0 13 0; #X connect 15 0 16 0; #X connect 16 0 17 0; #X connect 16 1 12 0; #X connect 17 0 18 0; #X connect 18 0 14 0; #X connect 19 0 6 0; #X restore 429 405 pd soundshaper; #X obj 322 450 *~; #X obj 350 450 *~; #X obj 263 554 *~; #X obj 191 550 *~; #X obj 268 176 +~; #X obj 291 121 osc~ 6; #X obj 432 684 *~; #X obj 534 685 *~; #X obj 513 649 line~; #N canvas 0 25 1016 656 delayl 0; #X obj 84 16 inlet~ dry; #X obj 77 349 outlet~ mixed; #X obj 8 234 *~ 0.5; #X text 14 256 feedback; #X obj 90 268 *~ 0.5; #X text 98 283 volume; #X obj 378 14 inlet time; #X obj 465 14 inlet feedback; #X obj 577 14 inlet volume; #X obj 303 298 *~ 0.5; #X text 357 302 dry volume; #X obj 251 14 inlet dry volume; #X obj 85 148 lop~ 1000; #X obj 85 174 hip~ 100; #X obj 365 100 line~; #X msg 364 80 \$1 10000; #X obj 89 52 delwrite~ \$0-masterfbdelayl 800; #X obj 89 82 vd~ \$0-masterfbdelayl; #X connect 0 0 9 0; #X connect 0 0 16 0; #X connect 2 0 16 0; #X connect 4 0 1 0; #X connect 6 0 15 0; #X connect 7 0 2 1; #X connect 8 0 4 1; #X connect 9 0 1 0; #X connect 11 0 9 1; #X connect 12 0 13 0; #X connect 13 0 2 0; #X connect 14 0 17 0; #X connect 15 0 14 0; #X connect 17 0 4 0; #X connect 17 0 12 0; #X restore 202 643 pd delayl; #N canvas 0 25 1016 656 delayr 0; #X obj 84 16 inlet~ dry; #X obj 77 349 outlet~ mixed; #X obj 8 234 *~ 0.5; #X text 14 256 feedback; #X obj 90 268 *~ 0.5; #X text 98 283 volume; #X obj 378 14 inlet time; #X obj 465 14 inlet feedback; #X obj 577 14 inlet volume; #X obj 303 298 *~ 0.5; #X text 357 302 dry volume; #X obj 251 14 inlet dry volume; #X obj 85 148 lop~ 1000; #X obj 85 174 hip~ 100; #X obj 365 100 line~; #X msg 364 80 \$1 10000; #X obj 90 76 vd~ \$0-masterfbdelayr; #X obj 85 36 delwrite~ \$0-masterfbdelayr 800; #X connect 0 0 9 0; #X connect 0 0 17 0; #X connect 2 0 17 0; #X connect 4 0 1 0; #X connect 6 0 15 0; #X connect 7 0 2 1; #X connect 8 0 4 1; #X connect 9 0 1 0; #X connect 11 0 9 1; #X connect 12 0 13 0; #X connect 13 0 2 0; #X connect 14 0 16 0; #X connect 15 0 14 0; #X connect 16 0 4 0; #X connect 16 0 12 0; #X restore 202 662 pd delayr; #X obj 193 620 + 10; #X obj 223 620 - 10; #X obj 83 465 expr ($f1/50) - 1; #X msg 566 160 0; #X msg 524 160 1; #X obj 279 338 line~; #X obj 524 209 line~; #X msg 576 183 \$1 500; #X msg 147 418 50; #X msg 110 418 0; #X msg 83 418 1; #N canvas 0 25 1016 656 randomwalk 0; #X obj 91 -57 f; #X obj 113 -8 random 4; #X obj 35 -9 random 2; #X obj 81 -33 t b b f; #X obj 35 47 sel 0 1; #X obj 127 111 +; #X obj 113 46 + 1; #X obj 83 88 *; #X msg 33 67 -1; #X obj 188 -89 moses 0; #X obj 262 -89 moses 100; #X obj 188 -65 * -1; #X obj 286 -65 * -1; #X obj 286 -40 + 200; #X msg 67 67 1; #X text 111 -106 on/off; #X text 244 -20 output; #X text 38 7 sign; #X text 117 8 magnitude; #X text 151 102 add prev value; #X text 148 119 to random increment; #X text 186 -129 coercion to range 0-100 \; if out of range \, reflect ; #X text 202 -108 us back in.; #X obj 91 -83 metro 1000; #X obj 91 -132 inlet onoff; #X obj 351 -130 inlet reset; #X obj 205 155 outlet; #X obj 222 -17 f; #X connect 0 0 3 0; #X connect 1 0 6 0; #X connect 2 0 4 0; #X connect 3 0 2 0; #X connect 3 1 1 0; #X connect 3 2 5 1; #X connect 4 0 8 0; #X connect 4 1 14 0; #X connect 5 0 9 0; #X connect 6 0 7 1; #X connect 7 0 5 0; #X connect 8 0 7 0; #X connect 9 0 11 0; #X connect 9 1 10 0; #X connect 10 0 27 0; #X connect 10 1 12 0; #X connect 11 0 27 0; #X connect 12 0 13 0; #X connect 13 0 27 0; #X connect 14 0 7 0; #X connect 23 0 0 0; #X connect 24 0 23 0; #X connect 25 0 27 0; #X connect 27 0 0 1; #X connect 27 0 26 0; #X restore 83 446 pd randomwalk; #X obj 517 367 line~; #X msg 517 345 \$1 1000; #X msg 412 345 \$1 1000; #X obj 412 367 line; #X obj 291 -125 r fbvibfreq; #X obj 307 -58 r fbvibamt; #X text 320 276 feedbacky delay instrument; #X text 385 5 this control briefly turns up volume of input to delay \, then turns it down again; #X text 293 58 vibrato; #X obj 83 395 r finallyinmiddle; #X obj 524 134 r sec1; #X obj 566 134 loadbang; #X obj 620 134 r sec0plus1000; #X obj 110 336 r sec0plus1500; #N canvas 0 0 471 434 notefollower 0; #X obj 22 71 mod 12; #X obj 49 168 -; #X obj 85 168 -; #X obj 49 187 abs; #X obj 85 187 abs; #X obj 67 210 <; #X obj 22 109 t f f f; #X obj 22 304 route 0 1; #X obj 22 266 pack f f; #X msg 22 285 \$2 \$1; #X obj 22 6 r currentkey; #X obj 117 49 r finalfbnote; #X obj 30 401 s finalfbnote; #X obj 12 327 + 60; #X obj 48 328 + 72; #X obj 49 133 + 60; #X obj 85 133 + 72; #X text 122 4 find nearest root note to last note played; #X obj 30 358 f; #X connect 0 0 6 0; #X connect 1 0 3 0; #X connect 2 0 4 0; #X connect 3 0 5 1; #X connect 4 0 5 0; #X connect 5 0 8 1; #X connect 6 0 8 0; #X connect 6 1 16 0; #X connect 6 2 15 0; #X connect 7 0 13 0; #X connect 7 1 14 0; #X connect 8 0 9 0; #X connect 9 0 7 0; #X connect 10 0 0 0; #X connect 11 0 2 1; #X connect 11 0 1 1; #X connect 13 0 18 0; #X connect 14 0 18 0; #X connect 15 0 1 0; #X connect 16 0 2 0; #X connect 18 0 12 0; #X restore 27 -114 pd notefollower; #X text 5 -130 feedback follows root note; #N canvas 430 155 471 284 leftvsright 0; #X obj 51 18 inlet number; #X obj 11 242 outlet~ leftvol; #X obj 126 242 outlet~ rightvol; #X obj 90 218 cos~; #X obj 58 68 t f f; #X obj 58 93 * 0.25; #X obj 93 116 * 0.25; #X obj 93 138 + 0.75; #X obj 93 184 line~; #X obj 53 184 line~; #X obj 60 218 cos~; #X obj 87 41 expr ($f1+1)/2; #X msg 41 162 \$1 1000; #X msg 93 162 \$1 1000; #X connect 0 0 11 0; #X connect 3 0 2 0; #X connect 4 0 5 0; #X connect 4 1 6 0; #X connect 5 0 12 0; #X connect 6 0 7 0; #X connect 7 0 13 0; #X connect 8 0 3 0; #X connect 9 0 10 0; #X connect 10 0 1 0; #X connect 11 0 4 0; #X connect 12 0 9 0; #X connect 13 0 8 0; #X restore 83 485 pd leftvsright; #N canvas 0 25 1018 658 reverbdrywet 0; #X obj 21 25 inlet drywetfader; #X obj 3 384 outlet~ dryleft; #X obj 100 384 outlet~ wetleft; #X obj 196 384 outlet~ dryright; #X obj 298 384 outlet~ wetright; #X obj 130 25 inlet~ delayl; #X obj 214 25 inlet~ delayr; #X obj 77 277 +~; #X obj 240 279 +~; #X obj 84 303 *~; #X obj 60 303 *~; #X obj 252 308 *~; #X obj 228 308 *~; #X obj 137 147 *; #X obj 137 128 * 2; #X obj 137 166 / 4; #X obj 137 185 swap 1; #X obj 145 204 -; #X obj 184 79 swap 1; #X obj 191 103 -; #X obj 198 147 *; #X obj 198 128 * 2; #X obj 198 166 / 4; #X obj 198 185 swap 1; #X obj 207 204 -; #X text 243 85 dry/wet (reverb); #X connect 0 0 14 0; #X connect 0 0 18 0; #X connect 5 0 7 0; #X connect 6 0 8 0; #X connect 7 0 10 0; #X connect 7 0 9 0; #X connect 8 0 12 0; #X connect 8 0 11 0; #X connect 9 0 2 0; #X connect 10 0 1 0; #X connect 11 0 4 0; #X connect 12 0 3 0; #X connect 13 0 15 0; #X connect 14 0 13 1; #X connect 14 0 13 0; #X connect 15 0 16 0; #X connect 16 0 17 0; #X connect 16 1 17 1; #X connect 17 0 10 1; #X connect 17 0 12 1; #X connect 18 0 19 0; #X connect 18 1 19 1; #X connect 19 0 21 0; #X connect 20 0 22 0; #X connect 21 0 20 1; #X connect 21 0 20 0; #X connect 22 0 23 0; #X connect 23 0 24 0; #X connect 23 1 24 1; #X connect 24 0 9 1; #X connect 24 0 11 1; #X restore 122 711 pd reverbdrywet; #N canvas 0 0 450 300 soundlinestuff 0; #X obj 85 245 outlet linemessage; #X msg 146 16 0; #X msg 105 16 1; #X obj 79 188 *; #X obj 79 159 t b f; #X text 128 36 sound on/off; #X obj 110 78 sel 0 1; #X msg 142 166 set; #X msg 85 211 \$1 1000; #X msg 88 130 add2 1000; #X obj 110 99 t b b b; #X obj 110 57 t f f; #X obj 158 99 t b b b; #X msg 222 163 set; #X msg 116 149 adddollar 1; #X msg 196 146 adddollar 1; #X msg 168 127 add2 20; #X obj 146 -3 r sec0; #X obj 105 -3 r sec1; #X text -2 97 feedback volume; #X obj 3 114 r fbvol; #X connect 1 0 11 0; #X connect 2 0 11 0; #X connect 3 0 8 0; #X connect 4 0 3 0; #X connect 4 1 3 1; #X connect 6 0 10 0; #X connect 6 1 12 0; #X connect 7 0 8 0; #X connect 8 0 0 0; #X connect 9 0 8 0; #X connect 10 0 9 0; #X connect 10 1 14 0; #X connect 10 2 7 0; #X connect 11 0 4 0; #X connect 11 1 6 0; #X connect 12 0 16 0; #X connect 12 1 15 0; #X connect 12 2 13 0; #X connect 13 0 8 0; #X connect 14 0 8 0; #X connect 15 0 8 0; #X connect 16 0 8 0; #X connect 17 0 1 0; #X connect 18 0 2 0; #X connect 20 0 3 0; #X restore 279 306 pd soundlinestuff; #N canvas 0 0 450 300 randomwalkstuff 0; #X obj 42 267 outlet clip; #X obj 130 267 outlet shape; #N canvas 0 25 1016 656 randomwalk 0; #X obj 91 -57 f; #X obj 113 -8 random 4; #X obj 35 -9 random 2; #X obj 81 -33 t b b f; #X obj 35 47 sel 0 1; #X obj 127 111 +; #X obj 113 46 + 1; #X obj 83 88 *; #X msg 33 67 -1; #X obj 188 -89 moses 0; #X obj 262 -89 moses 100; #X obj 188 -65 * -1; #X obj 286 -65 * -1; #X obj 286 -40 + 200; #X msg 67 67 1; #X text 111 -106 on/off; #X text 244 -20 output; #X text 38 7 sign; #X text 117 8 magnitude; #X text 151 102 add prev value; #X text 148 119 to random increment; #X text 186 -129 coercion to range 0-100 \; if out of range \, reflect ; #X text 202 -108 us back in.; #X obj 91 -83 metro 1000; #X obj 91 -132 inlet onoff; #X obj 351 -130 inlet reset; #X obj 205 155 outlet; #X obj 222 -17 f; #X connect 0 0 3 0; #X connect 1 0 6 0; #X connect 2 0 4 0; #X connect 3 0 2 0; #X connect 3 1 1 0; #X connect 3 2 5 1; #X connect 4 0 8 0; #X connect 4 1 14 0; #X connect 5 0 9 0; #X connect 6 0 7 1; #X connect 7 0 5 0; #X connect 8 0 7 0; #X connect 9 0 11 0; #X connect 9 1 10 0; #X connect 10 0 27 0; #X connect 10 1 12 0; #X connect 11 0 27 0; #X connect 12 0 13 0; #X connect 13 0 27 0; #X connect 14 0 7 0; #X connect 23 0 0 0; #X connect 24 0 23 0; #X connect 25 0 27 0; #X connect 27 0 0 1; #X connect 27 0 26 0; #X restore 42 157 pd randomwalk; #X obj 49 117 loadbang; #X msg 42 138 0; #X msg 69 138 1; #N canvas 0 25 1016 656 randomwalk 0; #X obj 91 -57 f; #X obj 113 -8 random 4; #X obj 35 -9 random 2; #X obj 81 -33 t b b f; #X obj 35 47 sel 0 1; #X obj 127 111 +; #X obj 113 46 + 1; #X obj 83 88 *; #X msg 33 67 -1; #X obj 188 -89 moses 0; #X obj 262 -89 moses 100; #X obj 188 -65 * -1; #X obj 286 -65 * -1; #X obj 286 -40 + 200; #X msg 67 67 1; #X text 111 -106 on/off; #X text 244 -20 output; #X text 38 7 sign; #X text 117 8 magnitude; #X text 151 102 add prev value; #X text 148 119 to random increment; #X text 186 -129 coercion to range 0-100 \; if out of range \, reflect ; #X text 202 -108 us back in.; #X obj 91 -83 metro 1000; #X obj 91 -132 inlet onoff; #X obj 351 -130 inlet reset; #X obj 205 155 outlet; #X obj 222 -17 f; #X connect 0 0 3 0; #X connect 1 0 6 0; #X connect 2 0 4 0; #X connect 3 0 2 0; #X connect 3 1 1 0; #X connect 3 2 5 1; #X connect 4 0 8 0; #X connect 4 1 14 0; #X connect 5 0 9 0; #X connect 6 0 7 1; #X connect 7 0 5 0; #X connect 8 0 7 0; #X connect 9 0 11 0; #X connect 9 1 10 0; #X connect 10 0 27 0; #X connect 10 1 12 0; #X connect 11 0 27 0; #X connect 12 0 13 0; #X connect 13 0 27 0; #X connect 14 0 7 0; #X connect 23 0 0 0; #X connect 24 0 23 0; #X connect 25 0 27 0; #X connect 27 0 0 1; #X connect 27 0 26 0; #X restore 143 156 pd randomwalk; #X obj 150 117 loadbang; #X msg 143 137 0; #X msg 170 137 1; #X obj 143 175 / 400; #X obj 42 176 / 100; #X obj 70 79 r finallyinmiddle; #X obj 194 80 r finallyinmiddle; #X obj 42 98 r sec0plus1500; #X obj 143 98 r sec0plus1500; #X connect 2 0 11 0; #X connect 3 0 4 0; #X connect 4 0 2 0; #X connect 5 0 2 0; #X connect 6 0 10 0; #X connect 7 0 8 0; #X connect 8 0 6 0; #X connect 9 0 6 0; #X connect 10 0 1 0; #X connect 11 0 0 0; #X connect 12 0 5 0; #X connect 13 0 9 0; #X connect 14 0 4 0; #X connect 15 0 8 0; #X restore 412 306 pd randomwalkstuff; #X obj 314 371 *~; #X obj 342 371 *~; #X text 544 388 volume affects pre- and post-shaper sound -- that was a mistake \, but I like the way it sounds.; #N canvas 0 25 1018 658 drylinestuff 0; #X obj 76 277 outlet to-line; #X msg 129 175 0; #X msg 101 175 1; #X msg 118 242 \$1 2000; #X msg 76 243 1; #X obj 76 223 loadbang; #X obj 101 149 r finallyinmiddle; #X obj 80 129 r sec0; #X obj 144 127 r sec1; #X connect 1 0 3 0; #X connect 2 0 3 0; #X connect 3 0 0 0; #X connect 4 0 0 0; #X connect 5 0 4 0; #X connect 6 0 2 0; #X connect 7 0 2 0; #X connect 8 0 1 0; #X restore 285 726 pd drylinestuff; #N canvas 0 0 450 300 wetlinestuff 0; #X obj 159 269 outlet to-line; #X msg 194 236 \$1 1000; #X msg 201 203 0; #X msg 173 203 1; #X msg 149 231 1; #X obj 119 203 loadbang; #X obj 174 173 r finallyinmiddle; #X obj 130 173 r sec0; #X obj 201 147 r sec1; #X connect 1 0 0 0; #X connect 2 0 1 0; #X connect 3 0 1 0; #X connect 4 0 0 0; #X connect 5 0 4 0; #X connect 6 0 3 0; #X connect 7 0 3 0; #X connect 8 0 2 0; #X restore 514 627 pd wetlinestuff; #N canvas 0 0 450 300 notelinestuff 0; #X obj 130 74 spigot; #X msg 163 29 0; #X msg 191 29 1; #X obj 151 -44 loadbang; #X msg 204 84 -10; #X msg 204 140 \$1 1500; #X text 139 137 portamento; #X obj 191 -1 r finallyinmiddle; #X obj 216 55 r sec1; #X obj 227 18 r sec0plus1500; #X obj 163 -20 r sec0; #X obj 95 48 r finalfbnote; #X obj 204 175 outlet to-line; #X connect 0 0 5 0; #X connect 1 0 0 1; #X connect 2 0 0 1; #X connect 3 0 1 0; #X connect 3 0 4 0; #X connect 4 0 5 0; #X connect 5 0 12 0; #X connect 7 0 2 0; #X connect 8 0 4 0; #X connect 9 0 4 0; #X connect 10 0 1 0; #X connect 11 0 0 0; #X restore 239 29 pd notelinestuff; #N canvas 0 0 450 300 volumestuff 0; #X obj 124 -55 line; #X msg 87 -73 0.2; #X msg 179 -78 0 1000; #X obj 143 -110 del 200; #X msg 124 -76 1 20; #X obj 124 -153 r sec1; #X obj 21 -135 r sec0plus1500; #X obj 87 -95 loadbang; #X obj 124 -13 outlet to-vol; #X connect 0 0 8 0; #X connect 1 0 0 0; #X connect 2 0 0 0; #X connect 3 0 2 0; #X connect 4 0 0 0; #X connect 5 0 4 0; #X connect 5 0 3 0; #X connect 6 0 1 0; #X connect 7 0 1 0; #X restore 370 -83 pd volumestuff; #X obj 307 -16 line~; #X msg 307 -37 \$1 20; #X obj 291 153 *~; #X obj 291 -83 line~; #X msg 291 -104 \$1 20; #N canvas 0 0 450 300 sectionstuff 0; #X obj 56 -174 r sectionselect; #X obj 56 -148 sel 0 1; #X text 0 -190 stuff to do when section changes; #X obj 43 -122 s sec0; #X obj 85 -122 s sec1; #X obj 126 -38 del 1000; #X obj 126 6 del 500; #X text 4 -83 some stuff to do a little bit into return of first section ; #X obj 126 -60 r sec0; #X obj 118 -13 s sec0plus1000; #X obj 126 28 s sec0plus1500; #X connect 0 0 1 0; #X connect 1 0 3 0; #X connect 1 1 4 0; #X connect 5 0 6 0; #X connect 5 0 9 0; #X connect 6 0 10 0; #X connect 8 0 5 0; #X restore 27 -84 pd sectionstuff; #X text 22 -66 send messages at section transitions; #X obj 127 595 r fbdeldry; #X obj 193 595 r 3period; #X obj 253 595 r fbdelfb; #X obj 313 595 r fbdelwet; #X obj 122 690 r fbwetdry; #X obj 473 750 r masterreverbtime; #X text 471 723 100% wet; #X obj 510 973 vsl 10 50 1 10 0 1 empty empty ratio -7 -9 0 8 -262144 -1 -1 4900 1; #X obj 552 973 vsl 10 50 -50 0 0 1 empty empty threshold -20 -9 0 8 -262144 -1 -1 4700 1; #X obj 587 973 vsl 10 50 0 100 0 1 empty empty attack -7 -9 0 8 -262144 -1 -1 0 1; #X obj 621 973 vsl 10 50 0 2000 0 1 empty empty release -7 -9 0 8 -262144 -1 -1 200 1; #X obj 653 973 vsl 10 50 0 20 0 1 empty empty gain -3 -9 0 8 -262144 -1 -1 0 1; #X floatatom 571 1085 5 0 0 0 - - -; #X floatatom 608 1085 5 0 0 0 - - -; #X floatatom 646 1085 5 0 0 0 - - -; #X floatatom 683 1085 5 0 0 0 - - -; #X floatatom 720 1085 5 0 0 0 - - -; #X obj 295 827 *~ 1; #X obj 402 827 *~ 1; #N canvas 0 0 822 586 limiter 0; #X obj 263 236 expr (($f1 - $f3) / $f2) - $f1 + $f3; #X obj 228 141 env~ 1024; #X obj 263 379 dbtorms; #X obj 263 308 expr 100 + $f1; #X obj 28 439 *~; #X obj 48 412 line~; #X floatatom 27 194 5 0 0 0 - - -; #X obj 228 188 moses; #X msg 228 250 1; #X text 74 189 forward control; #X text 310 275 value by which the signal must be reduced; #X text 389 345 conversion; #X text 367 386 correction factor of the input signal's rms value; #X text 453 504 www.pd-tutorial.com; #X text 462 479 Johannes Kreidler; #X obj 449 135 t f f; #X obj 686 112 dbtorms; #X obj 686 81 + 100; #X obj 28 501 *~; #X text 702 -1 makeup gain; #X obj 28 -16 inlet~ signal; #X text 36 9 signal to be compressed; #X obj 259 45 inlet ratio; #X text 254 12 x:1 ratio; #X obj 339 45 inlet threshold; #X obj 449 102 + 100; #X text 292 24 threshold / reference \, -100 to 0 dB; #X obj 27 152 loadbang; #X msg 27 173 23.22; #X obj 686 46 inlet makeupgain; #X obj 228 274 pack; #X obj 571 46 inlet release; #X obj 263 420 pack; #X obj 461 46 inlet attack; #X text 495 -2 attack and release in ms; #X obj 27 545 outlet~; #X obj 27 102 delwrite~ \$0-limitl 100; #X obj 27 214 delread~ \$0-limitl; #X connect 0 0 3 0; #X connect 1 0 7 0; #X connect 2 0 32 0; #X connect 3 0 2 0; #X connect 4 0 18 0; #X connect 5 0 4 1; #X connect 6 0 37 0; #X connect 7 0 8 0; #X connect 7 1 0 0; #X connect 8 0 30 0; #X connect 15 0 7 1; #X connect 15 1 0 2; #X connect 16 0 18 1; #X connect 17 0 16 0; #X connect 18 0 35 0; #X connect 20 0 1 0; #X connect 20 0 36 0; #X connect 22 0 0 1; #X connect 24 0 25 0; #X connect 25 0 15 0; #X connect 27 0 28 0; #X connect 28 0 6 0; #X connect 29 0 17 0; #X connect 30 0 5 0; #X connect 31 0 30 1; #X connect 32 0 5 0; #X connect 33 0 32 1; #X connect 37 0 4 0; #X restore 400 1059 pd limiter; #N canvas 0 0 822 586 limiter 0; #X obj 263 236 expr (($f1 - $f3) / $f2) - $f1 + $f3; #X obj 228 137 env~ 1024; #X obj 263 379 dbtorms; #X obj 263 308 expr 100 + $f1; #X obj 28 439 *~; #X obj 48 412 line~; #X floatatom 27 194 5 0 0 0 - - -; #X obj 228 188 moses; #X msg 228 250 1; #X text 74 189 forward control; #X text 310 275 value by which the signal must be reduced; #X text 389 345 conversion; #X text 367 386 correction factor of the input signal's rms value; #X text 453 504 www.pd-tutorial.com; #X text 462 479 Johannes Kreidler; #X obj 449 135 t f f; #X obj 686 112 dbtorms; #X obj 686 81 + 100; #X obj 28 501 *~; #X text 702 -1 makeup gain; #X obj 28 -16 inlet~ signal; #X text 36 9 signal to be compressed; #X obj 259 45 inlet ratio; #X text 253 4 x:1 ratio; #X obj 339 45 inlet threshold; #X obj 449 102 + 100; #X text 292 24 threshold / reference \, -100 to 0 dB; #X obj 27 152 loadbang; #X msg 27 173 23.22; #X obj 686 46 inlet makeupgain; #X obj 228 274 pack; #X obj 571 46 inlet release; #X obj 263 420 pack; #X obj 461 46 inlet attack; #X text 495 -2 attack and release in ms; #X obj 27 545 outlet~; #X obj 27 102 delwrite~ \$0-limitr 100; #X obj 27 214 delread~ \$0-limitr; #X connect 0 0 3 0; #X connect 1 0 7 0; #X connect 2 0 32 0; #X connect 3 0 2 0; #X connect 4 0 18 0; #X connect 5 0 4 1; #X connect 6 0 37 0; #X connect 7 0 8 0; #X connect 7 1 0 0; #X connect 8 0 30 0; #X connect 15 0 7 1; #X connect 15 1 0 2; #X connect 16 0 18 1; #X connect 17 0 16 0; #X connect 18 0 35 0; #X connect 20 0 1 0; #X connect 20 0 36 0; #X connect 22 0 0 1; #X connect 24 0 25 0; #X connect 25 0 15 0; #X connect 27 0 28 0; #X connect 28 0 6 0; #X connect 29 0 17 0; #X connect 30 0 5 0; #X connect 31 0 30 1; #X connect 32 0 5 0; #X connect 33 0 32 1; #X connect 37 0 4 0; #X restore 490 1059 pd limiter; #X obj 96 882 *~ 1; #X obj 127 882 *~ 1; #N canvas 0 0 822 586 compressor 0; #X obj 263 236 expr (($f1 - $f3) / $f2) - $f1 + $f3; #X obj 228 141 env~ 1024; #X obj 263 379 dbtorms; #X obj 263 308 expr 100 + $f1; #X obj 28 439 *~; #X obj 48 412 line~; #X floatatom 27 194 5 0 0 0 - - -; #X obj 228 188 moses; #X msg 228 250 1; #X text 74 189 forward control; #X text 310 275 value by which the signal must be reduced; #X text 389 345 conversion; #X text 367 386 correction factor of the input signal's rms value; #X text 453 504 www.pd-tutorial.com; #X text 462 479 Johannes Kreidler; #X obj 449 135 t f f; #X obj 686 112 dbtorms; #X obj 686 81 + 100; #X obj 28 501 *~; #X text 702 -1 makeup gain; #X obj 28 -16 inlet~ signal; #X text 36 9 signal to be compressed; #X obj 259 45 inlet ratio; #X text 254 12 x:1 ratio; #X obj 339 45 inlet threshold; #X obj 449 102 + 100; #X text 292 24 threshold / reference \, -100 to 0 dB; #X obj 27 152 loadbang; #X msg 27 173 23.22; #X obj 686 46 inlet makeupgain; #X obj 228 274 pack; #X obj 571 46 inlet release; #X obj 263 420 pack; #X obj 461 46 inlet attack; #X text 495 -2 attack and release in ms; #X obj 27 545 outlet~; #X obj 199 -12 inlet~ envsignal; #X obj 27 102 delwrite~ \$0-compl 100; #X obj 27 214 delread~ \$0-compl; #X connect 0 0 3 0; #X connect 1 0 7 0; #X connect 2 0 32 0; #X connect 3 0 2 0; #X connect 4 0 18 0; #X connect 5 0 4 1; #X connect 6 0 38 0; #X connect 7 0 8 0; #X connect 7 1 0 0; #X connect 8 0 30 0; #X connect 15 0 7 1; #X connect 15 1 0 2; #X connect 16 0 18 1; #X connect 17 0 16 0; #X connect 18 0 35 0; #X connect 20 0 37 0; #X connect 22 0 0 1; #X connect 24 0 25 0; #X connect 25 0 15 0; #X connect 27 0 28 0; #X connect 28 0 6 0; #X connect 29 0 17 0; #X connect 30 0 5 0; #X connect 31 0 30 1; #X connect 32 0 5 0; #X connect 33 0 32 1; #X connect 36 0 1 0; #X connect 38 0 4 0; #X restore 60 979 pd compressor; #X obj 170 893 vsl 10 50 1 10 0 1 empty empty ratio -7 -9 0 8 -262144 -1 -1 300 1; #X obj 212 893 vsl 10 50 -50 0 0 1 empty empty threshold -20 -9 0 8 -262144 -1 -1 900 1; #X obj 247 893 vsl 10 50 0 100 0 1 empty empty attack -7 -9 0 8 -262144 -1 -1 1500 1; #X obj 281 893 vsl 10 50 0 2000 0 1 empty empty release -7 -9 0 8 -262144 -1 -1 900 1; #X obj 313 893 vsl 10 50 0 20 0 1 empty empty gain -3 -9 0 8 -262144 -1 -1 1800 1; #N canvas 0 0 822 586 compressor 0; #X obj 263 236 expr (($f1 - $f3) / $f2) - $f1 + $f3; #X obj 228 137 env~ 1024; #X obj 263 379 dbtorms; #X obj 263 308 expr 100 + $f1; #X obj 28 439 *~; #X obj 48 412 line~; #X floatatom 27 194 5 0 0 0 - - -; #X obj 228 188 moses; #X msg 228 250 1; #X text 74 189 forward control; #X text 310 275 value by which the signal must be reduced; #X text 389 345 conversion; #X text 367 386 correction factor of the input signal's rms value; #X text 453 504 www.pd-tutorial.com; #X text 462 479 Johannes Kreidler; #X obj 449 135 t f f; #X obj 686 112 dbtorms; #X obj 686 81 + 100; #X obj 28 501 *~; #X text 702 -1 makeup gain; #X obj 28 -16 inlet~ signal; #X text 36 9 signal to be compressed; #X obj 259 45 inlet ratio; #X text 253 4 x:1 ratio; #X obj 339 45 inlet threshold; #X obj 449 102 + 100; #X text 292 24 threshold / reference \, -100 to 0 dB; #X obj 27 152 loadbang; #X msg 27 173 23.22; #X obj 686 46 inlet makeupgain; #X obj 228 274 pack; #X obj 571 46 inlet release; #X obj 263 420 pack; #X obj 461 46 inlet attack; #X text 495 -2 attack and release in ms; #X obj 27 545 outlet~; #X obj 199 -12 inlet~ envsignal; #X obj 27 102 delwrite~ \$0-compr 100; #X obj 27 214 delread~ \$0-compr; #X connect 0 0 3 0; #X connect 1 0 7 0; #X connect 2 0 32 0; #X connect 3 0 2 0; #X connect 4 0 18 0; #X connect 5 0 4 1; #X connect 6 0 38 0; #X connect 7 0 8 0; #X connect 7 1 0 0; #X connect 8 0 30 0; #X connect 15 0 7 1; #X connect 15 1 0 2; #X connect 16 0 18 1; #X connect 17 0 16 0; #X connect 18 0 35 0; #X connect 20 0 37 0; #X connect 22 0 0 1; #X connect 24 0 25 0; #X connect 25 0 15 0; #X connect 27 0 28 0; #X connect 28 0 6 0; #X connect 29 0 17 0; #X connect 30 0 5 0; #X connect 31 0 30 1; #X connect 32 0 5 0; #X connect 33 0 32 1; #X connect 36 0 1 0; #X connect 38 0 4 0; #X restore 150 979 pd compressor; #X obj 101 927 *~ 0.5; #X floatatom 251 975 5 0 0 0 - - -; #X floatatom 288 975 5 0 0 0 - - -; #X floatatom 326 975 5 0 0 0 - - -; #X floatatom 363 975 5 0 0 0 - - -; #X floatatom 400 975 5 0 0 0 - - -; #X obj 422 871 *~; #X obj 451 871 *~; #X obj 179 847 *~; #X obj 208 847 *~; #X obj 771 749 hradio 15 1 1 2 empty empty empty 0 -8 0 10 -262144 -1 -1 0; #X obj 772 793 swap 1; #X obj 780 820 -; #X obj 751 772 t f f; #X obj 780 844 t f f; #X obj 729 811 t f f; #X text 803 748 click right side to bypass compressor; #X obj 421 807 *~ 1.5; #X obj 498 807 *~ 1.5; #X msg 524 183 \$1 10000; #X connect 0 0 11 0; #X connect 0 0 13 0; #X connect 1 0 12 0; #X connect 1 0 14 0; #X connect 2 0 31 0; #X connect 2 0 13 0; #X connect 3 0 32 0; #X connect 3 0 14 0; #X connect 5 0 129 0; #X connect 6 0 7 0; #X connect 7 0 5 2; #X connect 7 0 8 2; #X connect 8 0 130 0; #X connect 9 0 69 0; #X connect 10 0 68 0; #X connect 11 0 99 0; #X connect 12 0 100 0; #X connect 13 0 10 1; #X connect 14 0 9 1; #X connect 15 0 14 1; #X connect 15 0 13 1; #X connect 16 0 15 0; #X connect 17 0 12 1; #X connect 17 0 11 1; #X connect 18 0 29 0; #X connect 23 0 25 0; #X connect 24 0 26 0; #X connect 25 0 28 0; #X connect 26 0 27 0; #X connect 27 0 35 0; #X connect 28 0 34 0; #X connect 29 0 10 0; #X connect 29 0 9 0; #X connect 30 0 77 0; #X connect 31 0 5 0; #X connect 32 0 8 0; #X connect 33 0 32 1; #X connect 33 0 31 1; #X connect 34 0 65 1; #X connect 35 0 65 2; #X connect 36 0 34 2; #X connect 37 0 35 2; #X connect 38 0 64 0; #X connect 39 0 43 0; #X connect 40 0 131 0; #X connect 41 0 26 1; #X connect 41 0 25 1; #X connect 41 0 68 1; #X connect 41 0 69 1; #X connect 42 0 9 3; #X connect 42 0 10 3; #X connect 43 0 42 0; #X connect 44 0 47 1; #X connect 45 0 47 0; #X connect 46 0 47 0; #X connect 47 0 38 0; #X connect 48 0 24 2; #X connect 48 0 23 2; #X connect 49 0 48 0; #X connect 50 0 51 0; #X connect 51 0 23 1; #X connect 51 0 24 1; #X connect 52 0 79 0; #X connect 53 0 76 0; #X connect 57 0 46 0; #X connect 58 0 40 0; #X connect 59 0 39 0; #X connect 60 0 39 0; #X connect 61 0 45 0; #X connect 61 0 44 0; #X connect 64 0 28 1; #X connect 64 1 27 1; #X connect 65 0 99 0; #X connect 65 1 5 0; #X connect 65 2 100 0; #X connect 65 3 8 0; #X connect 66 0 41 0; #X connect 67 0 50 0; #X connect 67 1 49 0; #X connect 68 0 23 0; #X connect 69 0 24 0; #X connect 71 0 17 0; #X connect 72 0 33 0; #X connect 73 0 18 0; #X connect 74 0 16 0; #X connect 75 0 77 1; #X connect 76 0 75 0; #X connect 77 0 29 1; #X connect 78 0 30 0; #X connect 79 0 78 0; #X connect 82 0 35 1; #X connect 82 0 34 1; #X connect 83 0 36 0; #X connect 83 0 37 0; #X connect 84 0 34 3; #X connect 84 0 35 3; #X connect 85 0 34 4; #X connect 85 0 35 4; #X connect 86 0 65 0; #X connect 87 0 5 1; #X connect 87 0 8 1; #X connect 89 0 101 1; #X connect 89 0 102 1; #X connect 89 0 94 0; #X connect 90 0 101 2; #X connect 90 0 102 2; #X connect 90 0 95 0; #X connect 91 0 101 3; #X connect 91 0 102 3; #X connect 91 0 96 0; #X connect 92 0 101 4; #X connect 92 0 102 4; #X connect 92 0 97 0; #X connect 93 0 101 5; #X connect 93 0 102 5; #X connect 93 0 98 0; #X connect 99 0 118 0; #X connect 99 0 120 0; #X connect 100 0 119 0; #X connect 100 0 121 0; #X connect 101 0 4 0; #X connect 102 0 4 1; #X connect 103 0 105 0; #X connect 103 0 112 0; #X connect 104 0 111 0; #X connect 104 0 112 0; #X connect 105 0 101 0; #X connect 106 0 105 2; #X connect 106 0 111 2; #X connect 106 0 113 0; #X connect 107 0 105 3; #X connect 107 0 111 3; #X connect 107 0 114 0; #X connect 108 0 105 4; #X connect 108 0 111 4; #X connect 108 0 115 0; #X connect 109 0 105 5; #X connect 109 0 111 5; #X connect 109 0 116 0; #X connect 110 0 105 6; #X connect 110 0 111 6; #X connect 110 0 117 0; #X connect 111 0 102 0; #X connect 112 0 105 1; #X connect 112 0 111 1; #X connect 118 0 101 0; #X connect 119 0 102 0; #X connect 120 0 103 0; #X connect 121 0 104 0; #X connect 122 0 125 0; #X connect 123 0 124 0; #X connect 123 1 124 1; #X connect 124 0 126 0; #X connect 125 0 127 0; #X connect 125 1 123 0; #X connect 126 0 120 1; #X connect 126 1 121 1; #X connect 127 0 118 1; #X connect 127 1 119 1; #X connect 129 0 101 0; #X connect 130 0 102 0; #X connect 131 0 42 0; #X restore 793 -157 pd wetdry; #N canvas 332 38 918 658 drums 0; #X text 204 288 pan; #X text 490 287 pan; #X text 81 285 pan; #X obj 389 225 line~; #X msg 389 203 \$1 20; #X obj 407 182 *; #X obj 407 153 t b f; #X obj 313 253 *~; #X obj 506 214 line~; #X msg 506 192 \$1 20; #X obj 524 171 *; #X obj 524 142 t b f; #X obj 457 250 *~; #X obj 271 212 line~; #X msg 271 190 \$1 20; #X obj 289 169 *; #X obj 289 140 t b f; #X obj 190 260 *~; #X obj 70 214 line~; #X msg 70 192 \$1 20; #X obj 88 171 *; #X obj 88 142 t b f; #X obj 19 254 *~; #X text 616 284 pan; #X obj 623 220 line~; #X msg 623 201 \$1 20; #X obj 623 182 *; #X obj 623 163 t b f; #X obj 594 241 *~; #X text 739 285 pan; #X obj 762 206 line~; #X msg 762 184 \$1 20; #X obj 780 163 *; #X obj 780 134 t b f; #X obj 714 250 *~; #X obj 342 472 *~; #X obj 317 472 *~; #X obj 426 472 *~; #X obj 401 472 *~; #X obj 605 103 switch~; #X obj 270 622 throw~ dryl; #X obj 334 601 *~; #X obj 309 601 *~; #X obj 463 601 *~; #X obj 438 601 *~; #X obj 342 622 throw~ wetl; #X obj 509 622 throw~ wetr; #X obj 438 622 throw~ dryr; #N canvas 0 25 1016 656 kick 0; #X obj 95 2 vline~; #X obj 95 23 *~; #X obj 197 -19 noise~; #X obj 307 90 *~; #X obj 285 -60 t b b; #X obj 533 6 vline~; #X obj 532 27 *~; #X obj 533 47 *~; #X obj 288 -184 inlet bang; #X obj 484 16 switch~; #X msg 479 -49 1; #X msg 510 -49 0; #X obj 569 -69 sel 0; #X obj 288 -155 t b b b; #X obj 286 297 vline~; #X obj 245 340 *~; #X obj 8 69 +~ 20; #X obj 51 71 +~ 33; #X obj 93 70 +~ 46; #X obj 135 70 +~ 59; #X obj 177 70 +~ 72; #X obj 174 241 *~ 70; #X obj 218 242 *~ 80; #X obj 264 241 *~ 90; #X obj 312 241 *~ 100; #X obj 219 294 *~ 1; #X obj 533 68 *~; #X obj 312 66 lop~ 100; #X obj 418 283 *~; #X msg 569 -109 1 0 \, 0 600; #X obj 569 -89 line 1 600; #X obj 245 407 outlet~; #X msg 94 -20 11 1 0 \, 0 50 1; #X obj 418 168 lop~ 300; #X obj 184 160 vcf~ 70; #X obj 116 158 vcf~ 70; #X obj 129 241 *~ 35; #X obj 245 160 vcf~ 70; #X obj 293 160 vcf~ 70; #X obj 341 160 vcf~ 70; #X msg 532 -15 1 2 0 \, 0 25 2; #X msg 286 277 1 2 0 \, 0 100 2; #X obj 244 372 *~ 1; #X obj 201 18 expr~ if ($v1 == 0 \, 0 \, (if ($v1 < 0 \, -1 \, 1))) ; #X obj 201 38 *~ 0.5; #X text 203 3 TOTAL DISTORTION; #X connect 0 0 1 0; #X connect 0 0 1 1; #X connect 1 0 16 0; #X connect 1 0 17 0; #X connect 1 0 18 0; #X connect 1 0 19 0; #X connect 1 0 20 0; #X connect 2 0 43 0; #X connect 3 0 34 0; #X connect 3 0 35 0; #X connect 3 0 37 0; #X connect 3 0 38 0; #X connect 3 0 39 0; #X connect 4 0 40 0; #X connect 4 0 41 0; #X connect 4 1 32 0; #X connect 5 0 6 0; #X connect 5 0 6 1; #X connect 6 0 7 0; #X connect 6 0 7 1; #X connect 7 0 26 0; #X connect 7 0 26 1; #X connect 7 0 3 1; #X connect 8 0 13 0; #X connect 10 0 9 0; #X connect 11 0 9 0; #X connect 12 0 11 0; #X connect 13 0 29 0; #X connect 13 1 4 0; #X connect 13 2 10 0; #X connect 14 0 15 1; #X connect 15 0 42 0; #X connect 16 0 35 1; #X connect 17 0 34 1; #X connect 18 0 37 1; #X connect 19 0 38 1; #X connect 20 0 39 1; #X connect 21 0 25 0; #X connect 22 0 25 0; #X connect 23 0 25 0; #X connect 24 0 25 0; #X connect 25 0 15 0; #X connect 26 0 28 1; #X connect 27 0 33 0; #X connect 27 0 3 0; #X connect 28 0 42 0; #X connect 29 0 30 0; #X connect 30 0 12 0; #X connect 32 0 0 0; #X connect 33 0 28 0; #X connect 34 0 21 0; #X connect 35 0 36 0; #X connect 36 0 25 0; #X connect 37 0 22 0; #X connect 38 0 23 0; #X connect 39 0 24 0; #X connect 40 0 5 0; #X connect 41 0 14 0; #X connect 42 0 31 0; #X connect 43 0 44 0; #X connect 44 0 27 0; #X restore 298 228 pd kick; #N canvas 0 25 1016 656 lotom 0; #X obj 135 5 vline~; #X obj 135 26 *~; #X obj 71 67 +~ 140; #X obj 114 67 +~ 275; #X obj 156 67 +~ 455; #X obj 434 101 *~; #X obj 478 -68 t b b; #X obj 407 233 *~ 30; #X obj 368 233 *~ 40; #X obj 457 233 *~ 10; #X obj 377 152 vcf~ 75; #X obj 438 152 vcf~ 64; #X obj 486 152 vcf~ 55; #X obj 309 150 vcf~ 150; #X obj 324 233 *~ 300; #X obj 553 -5 vline~; #X obj 553 15 *~; #X obj 553 35 *~; #X msg 553 -24 1 0 0 \, 0 50 1; #X obj 434 68 lop~ 1200; #X obj 198 67 +~ 645; #X obj 240 67 +~ 1155; #X obj 505 233 *~ 7; #X obj 534 152 vcf~ 45; #X msg 134 -17 6 1 0 \, 0 100 1; #X obj 403 289 *~ 0.7; #X obj 402 317 outlet~; #X obj 481 -192 inlet bang; #X obj 677 8 switch~; #X msg 672 -57 1; #X msg 703 -57 0; #X obj 762 -79 sel 0; #X obj 679 -149 t b b b; #X msg 762 -117 1 0 \, 0 600; #X obj 762 -98 line 1 600; #X obj 268 -18 noise~; #X obj 268 2 expr~ if ($v1 == 0 \, 0 \, (if ($v1 < 0 \, -1 \, 1))) ; #X obj 268 22 *~ 0.5; #X text 340 -13 TOTAL DISTORTION; #X connect 0 0 1 0; #X connect 0 0 1 1; #X connect 1 0 2 0; #X connect 1 0 3 0; #X connect 1 0 4 0; #X connect 1 0 20 0; #X connect 1 0 21 0; #X connect 2 0 13 1; #X connect 3 0 10 1; #X connect 4 0 11 1; #X connect 5 0 10 0; #X connect 5 0 11 0; #X connect 5 0 12 0; #X connect 5 0 13 0; #X connect 5 0 23 0; #X connect 6 0 18 0; #X connect 6 1 24 0; #X connect 7 0 25 0; #X connect 8 0 25 0; #X connect 9 0 25 0; #X connect 10 0 8 0; #X connect 11 0 7 0; #X connect 12 0 9 0; #X connect 13 0 14 0; #X connect 14 0 25 0; #X connect 15 0 16 0; #X connect 15 0 16 1; #X connect 16 0 17 0; #X connect 16 0 17 1; #X connect 17 0 5 1; #X connect 18 0 15 0; #X connect 19 0 5 0; #X connect 20 0 12 1; #X connect 21 0 23 1; #X connect 22 0 25 0; #X connect 23 0 22 0; #X connect 24 0 0 0; #X connect 25 0 26 0; #X connect 27 0 32 0; #X connect 29 0 28 0; #X connect 30 0 28 0; #X connect 31 0 30 0; #X connect 32 0 33 0; #X connect 32 1 6 0; #X connect 32 2 29 0; #X connect 33 0 34 0; #X connect 34 0 31 0; #X connect 35 0 36 0; #X connect 36 0 37 0; #X connect 37 0 19 0; #X restore 565 215 pd lotom; #N canvas 0 25 939 524 hitom 0; #X obj 73 -19 vline~; #X obj 73 2 *~; #X obj 437 60 *~; #X obj 415 -90 t b b; #X obj 490 -24 vline~; #X obj 490 -3 *~; #X obj 490 19 *~; #X msg 490 -46 1 0 0 \, 0 50 1; #X obj 391 28 lop~ 1200; #X obj 59 43 +~ 360; #X obj 17 42 +~ 190; #X obj 101 43 +~ 590; #X obj 143 43 +~ 825; #X obj 185 43 +~ 1470; #X obj 246 128 vcf~ 90; #X obj 314 130 vcf~ 55; #X obj 375 130 vcf~ 40; #X obj 261 211 *~ 200; #X obj 302 211 *~ 30; #X obj 344 211 *~ 20; #X obj 395 211 *~ 8; #X obj 443 211 *~ 3; #X obj 423 130 vcf~ 35; #X obj 471 130 vcf~ 30; #X msg 72 -41 6 1 0 \, 0 100 1; #X obj 290 251 *~ 0.7; #X obj 290 288 outlet~; #X obj 415 -155 inlet bang; #X obj 729 33 switch~; #X msg 714 4 1; #X msg 745 4 0; #X obj 745 -20 sel 0; #X obj 415 -126 t b b b; #X msg 745 -59 1 0 \, 0 600; #X obj 745 -40 line 1 600; #X obj 211 -44 noise~; #X obj 211 -24 expr~ if ($v1 == 0 \, 0 \, (if ($v1 < 0 \, -1 \, 1))) ; #X obj 211 -4 *~ 0.5; #X text 283 -39 TOTAL DISTORTION; #X connect 0 0 1 0; #X connect 0 0 1 1; #X connect 1 0 9 0; #X connect 1 0 10 0; #X connect 1 0 11 0; #X connect 1 0 12 0; #X connect 1 0 13 0; #X connect 2 0 14 0; #X connect 2 0 15 0; #X connect 2 0 16 0; #X connect 2 0 22 0; #X connect 2 0 23 0; #X connect 3 0 7 0; #X connect 3 1 24 0; #X connect 4 0 5 0; #X connect 4 0 5 1; #X connect 5 0 6 0; #X connect 5 0 6 1; #X connect 6 0 2 1; #X connect 7 0 4 0; #X connect 8 0 2 0; #X connect 9 0 15 1; #X connect 10 0 14 1; #X connect 11 0 16 1; #X connect 12 0 22 1; #X connect 13 0 23 1; #X connect 14 0 17 0; #X connect 15 0 18 0; #X connect 16 0 19 0; #X connect 17 0 25 0; #X connect 18 0 25 0; #X connect 19 0 25 0; #X connect 20 0 25 0; #X connect 21 0 25 0; #X connect 22 0 20 0; #X connect 23 0 21 0; #X connect 24 0 0 0; #X connect 25 0 26 0; #X connect 27 0 32 0; #X connect 29 0 28 0; #X connect 30 0 28 0; #X connect 31 0 30 0; #X connect 32 0 33 0; #X connect 32 1 3 0; #X connect 32 2 29 0; #X connect 33 0 34 0; #X connect 34 0 31 0; #X connect 35 0 36 0; #X connect 36 0 37 0; #X connect 37 0 8 0; #X restore 695 225 pd hitom; #N canvas 0 25 1016 656 soundshaper 0; #X obj -52 240 clip~ -1 1; #X obj -67 300 +~; #X obj -109 169 *~ 0.3; #X obj -20 213 * -1; #X obj -67 274 +~; #X obj -108 240 *~ 0.25; #X obj -67 377 hip~ 10; #X obj -67 397 outlet~; #X obj -109 19 inlet~ sound; #X text 64 13 clip; #X text 64 25 0-1; #X obj -20 19 r drumswsclip; #X text 181 13 shape; #X text 182 23 0-.25; #X obj 94 19 r drumswsshape; #X obj -66 340 cos~; #X connect 0 0 4 1; #X connect 1 0 15 0; #X connect 2 0 5 0; #X connect 2 0 0 0; #X connect 3 0 0 1; #X connect 4 0 1 0; #X connect 5 0 4 0; #X connect 6 0 7 0; #X connect 8 0 2 0; #X connect 11 0 3 0; #X connect 11 0 0 2; #X connect 14 0 1 1; #X connect 15 0 6 0; #X restore 365 417 pd soundshaper; #N canvas 0 25 1016 656 soundshaper 0; #X obj -52 240 clip~ -1 1; #X obj -67 300 +~; #X obj -109 169 *~ 0.3; #X obj -20 213 * -1; #X obj -67 274 +~; #X obj -108 240 *~ 0.25; #X obj -67 376 hip~ 10; #X obj -67 396 outlet~; #X obj -109 19 inlet~ sound; #X text 62 13 clip; #X text 62 25 0-1; #X obj -20 19 r drumswsclip; #X text 177 13 shape; #X text 178 23 0-.25; #X obj 90 19 r drumswsshape; #X obj -66 339 cos~; #X connect 0 0 4 1; #X connect 1 0 15 0; #X connect 2 0 5 0; #X connect 2 0 0 0; #X connect 3 0 0 1; #X connect 4 0 1 0; #X connect 5 0 4 0; #X connect 6 0 7 0; #X connect 8 0 2 0; #X connect 11 0 3 0; #X connect 11 0 0 2; #X connect 14 0 1 1; #X connect 15 0 6 0; #X restore 455 417 pd soundshaper; #N canvas 0 25 1016 656 snare 0; #X obj 134 2 vline~; #X obj 134 23 *~; #X obj 373 -6 noise~; #X obj 391 99 *~; #X obj 478 -152 t b b; #X obj 700 -4 vline~; #X obj 700 17 *~; #X obj 713 42 *~; #X obj 374 61 lop~ 1200; #X obj 403 289 *~ 0.7; #X obj 481 -192 inlet bang; #X obj 847 -17 switch~; #X msg 839 -47 1; #X msg 870 -47 0; #X obj 883 -85 sel 0; #X obj 482 -172 t b b b; #X msg 883 -125 1 0 \, 0 600; #X obj 883 -106 line 1 600; #X obj 309 150 vcf~ 30; #X obj 438 152 vcf~ 30; #X obj 486 152 vcf~ 30; #X obj 377 152 vcf~ 15; #X obj 70 64 +~ 150; #X obj 407 233 *~ 15; #X obj 457 233 *~ 3; #X obj 113 64 +~ 305; #X obj 155 64 +~ 490; #X obj 197 64 +~ 700; #X obj 803 103 vline~; #X obj 802 130 *~; #X obj 904 103 vline~; #X obj 903 130 *~; #X obj 705 158 *~; #X obj 779 201 *~; #X obj 735 121 lop~ 1000; #X obj 746 154 hip~ 950; #X obj 364 234 *~ 30; #X obj 372 -110 random 101; #X obj 133 -40 expr ($f1/200) + 5; #X obj 698 -49 expr ($f1/800) + 0.875; #X msg 802 83 \$1 0 0 \, 0 50 0; #X msg 904 83 \$1 0 0 \, 0 35 0; #X obj 745 47 + 900; #X obj 745 74 * 0.95; #X obj 719 179 expr ($f1/500) + 0.4; #X obj 403 318 outlet~; #X msg 699 -25 \$1 0 0 \, 0 30 1; #X obj 686 200 *~ 0.7; #X obj 451 289 *~ 0.5; #X msg 133 -20 \$1 1 0 \, 0 65 1; #X obj 318 233 *~ 25; #X obj 373 14 expr~ if ($v1 == 0 \, 0 \, (if ($v1 < 0 \, -1 \, 1))) ; #X obj 373 34 *~ 0.5; #X connect 0 0 1 0; #X connect 0 0 1 1; #X connect 1 0 22 0; #X connect 1 0 25 0; #X connect 1 0 26 0; #X connect 1 0 27 0; #X connect 2 0 51 0; #X connect 3 0 18 0; #X connect 3 0 19 0; #X connect 3 0 20 0; #X connect 3 0 21 0; #X connect 4 1 37 0; #X connect 5 0 6 0; #X connect 5 0 6 1; #X connect 6 0 7 0; #X connect 6 0 7 1; #X connect 7 0 3 1; #X connect 8 0 3 0; #X connect 9 0 45 0; #X connect 10 0 15 0; #X connect 12 0 11 0; #X connect 13 0 11 0; #X connect 14 0 13 0; #X connect 15 0 16 0; #X connect 15 1 4 0; #X connect 15 2 12 0; #X connect 16 0 17 0; #X connect 17 0 14 0; #X connect 18 0 50 0; #X connect 19 0 23 0; #X connect 20 0 24 0; #X connect 21 0 36 0; #X connect 22 0 18 1; #X connect 23 0 9 0; #X connect 24 0 9 0; #X connect 25 0 21 1; #X connect 26 0 19 1; #X connect 27 0 20 1; #X connect 28 0 29 0; #X connect 28 0 29 1; #X connect 29 0 32 1; #X connect 30 0 31 0; #X connect 30 0 31 1; #X connect 31 0 33 1; #X connect 32 0 47 0; #X connect 33 0 48 0; #X connect 34 0 32 0; #X connect 34 0 35 0; #X connect 35 0 33 0; #X connect 36 0 9 0; #X connect 37 0 38 0; #X connect 37 0 39 0; #X connect 37 0 42 0; #X connect 37 0 44 0; #X connect 38 0 49 0; #X connect 39 0 46 0; #X connect 39 0 40 0; #X connect 39 0 41 0; #X connect 40 0 28 0; #X connect 41 0 30 0; #X connect 42 0 43 0; #X connect 42 0 34 1; #X connect 43 0 35 1; #X connect 44 0 47 1; #X connect 46 0 5 0; #X connect 47 0 48 0; #X connect 48 0 45 0; #X connect 49 0 0 0; #X connect 50 0 9 0; #X connect 51 0 52 0; #X connect 52 0 8 0; #X connect 52 0 34 0; #X restore 445 225 pd snare; #X obj 342 499 +~; #X obj 405 498 +~; #X obj 319 574 +~; #X obj 446 576 +~; #N canvas 0 25 1018 658 sequencer 0; #X obj 346 -430 t b f; #X text 350 -454 this is a switch; #X obj 331 -402 pack 0 f f; #X obj 331 -383 route 0; #X text 384 -382 eliminates the 0; #X obj 346 -479 t f b; #X text 407 -433 first 0 prevents switching from outputting bang immediately ; #X obj 346 -500 r drumtimemain; #X obj 599 -295 / 2; #X obj 598 -276 int; #X obj 257 -444 r drumpattern; #N canvas 0 25 997 656 markovdrums 0; #X msg 9 -280 1; #X msg 52 -248 2; #X msg 83 -248 3; #X msg 162 -314 1; #X msg 198 -300 2; #X msg 326 -309 1; #X msg 369 -301 2; #X msg 397 -290 3; #X obj 357 -521 f 1; #X obj 12 -359 random 100; #X obj 162 -395 random 100; #X obj 162 -375 moses 10; #X obj 317 -403 random 100; #X text 325 -567 STEP; #X obj 162 -553 del 62.5; #X obj 175 -632 r period; #X obj 174 -610 / 2; #X obj 162 -534 random 6; #X obj 201 -610 / 3; #X obj 239 -587 * 2; #X obj 276 -553 del 83.3; #X obj 216 -553 del 41.7; #X obj 162 -514 sel 0; #X obj 216 -515 sel 0; #X obj 276 -515 sel 0; #X obj 216 -534 random 20; #X obj 276 -534 random 20; #X obj 357 -499 sel 1 2 3 4 5; #X msg 471 -318 1; #X msg 516 -292 2; #X msg 543 -207 3; #X obj 471 -395 random 100; #X obj 338 -637 sel 1 2 3 4 5; #X obj 65 -280 sel 0 1 2 3; #X obj 64 -300 random 4; #X msg 111 -248 4; #X msg 142 -248 5; #X obj 317 -383 moses 10; #X obj 471 -366 moses 10; #X text 64 -386 rest; #X text 204 -423 kick; #X msg 224 -255 3; #X obj 226 -299 random 4; #X msg 252 -255 4; #X msg 283 -255 5; #X obj 227 -279 sel 0 1 2; #X obj 360 -363 moses 20; #X obj 416 -266 random 2; #X msg 406 -219 4; #X msg 437 -219 5; #X text 358 -421 snare; #X text 365 -449 choose next state from...; #X obj 516 -345 moses 20; #X obj 561 -317 moses 40; #X obj 606 -294 moses 65; #X msg 572 -207 4; #X msg 613 -207 5; #X msg 660 -317 1; #X msg 705 -291 2; #X msg 732 -206 3; #X obj 660 -394 random 100; #X obj 660 -365 moses 10; #X obj 705 -344 moses 20; #X obj 750 -316 moses 40; #X obj 795 -293 moses 65; #X msg 783 -207 5; #X msg 824 -207 4; #X obj 405 -343 moses 70; #X obj 12 -338 moses 65; #X obj 207 -355 moses 12; #X obj 416 -245 sel 0 1; #X obj 381 -583 sel 0; #X obj 435 -583 sel 0; #X obj 435 -603 random 5; #X obj 381 -603 random 5; #X obj 304 -779 mod 16; #X obj 328 -756 sel 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15; #N canvas 0 25 997 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 146 -713 pd pct; #X floatatom 169 -733 5 0 100 0 - - -; #N canvas 0 25 1016 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 188 -712 pd pct; #X floatatom 210 -730 5 0 100 0 - - -; #N canvas 0 25 1016 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 230 -711 pd pct; #X floatatom 256 -729 5 0 100 0 - - -; #N canvas 0 25 1016 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 272 -710 pd pct; #X floatatom 298 -727 5 0 100 0 - - -; #N canvas 0 25 1016 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 315 -710 pd pct; #X floatatom 344 -726 5 0 100 0 - - -; #N canvas 0 25 1016 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 357 -708 pd pct; #X floatatom 385 -726 5 0 100 0 - - -; #N canvas 0 25 1016 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 404 -707 pd pct; #X floatatom 423 -724 5 0 100 0 - - -; #N canvas 0 25 1016 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 446 -706 pd pct; #X floatatom 464 -723 5 0 100 0 - - -; #N canvas 0 25 1016 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 490 -706 pd pct; #X floatatom 506 -723 5 0 100 0 - - -; #N canvas 0 25 1016 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 532 -706 pd pct; #X floatatom 546 -722 5 0 100 0 - - -; #N canvas 0 25 1016 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 580 -705 pd pct; #X floatatom 589 -723 5 0 100 0 - - -; #N canvas 0 25 1016 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 622 -704 pd pct; #X floatatom 639 -721 5 0 100 0 - - -; #N canvas 0 25 1016 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 664 -703 pd pct; #X floatatom 687 -722 5 0 100 0 - - -; #N canvas 0 25 1016 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 706 -703 pd pct; #X floatatom 731 -720 5 0 100 0 - - -; #N canvas 0 25 1016 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 748 -703 pd pct; #X floatatom 775 -720 5 0 100 0 - - -; #N canvas 0 25 1016 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 790 -703 pd pct; #X floatatom 816 -720 5 0 100 0 - - -; #X obj 39 -638 random 50; #X obj 39 -619 sel 0; #X obj 39 -657 t b; #X obj 241 -850 inlet number; #X obj 50 -165 outlet cymbal; #X obj 135 -164 outlet kick; #X obj 213 -164 outlet snare; #X obj 295 -164 outlet lotom; #X obj 373 -164 outlet hitom; #X obj 663 -894 loadbang; #X msg 593 -861 99; #X msg 626 -860 75; #X msg 655 -859 85; #X msg 744 -858 90; #X msg 698 -858 80; #X text 749 -665 % chance of step on each beat; #X msg 660 -415 bang; #X msg 471 -419 bang; #X msg 317 -424 bang; #X msg 162 -418 bang; #X msg 12 -384 bang; #X msg 64 -319 bang; #X msg 248 -330 bang; #X msg 425 -290 bang; #X obj 241 -827 t b b b f; #X msg 357 -542 bang; #X obj 40 -217 s \$0-drumstate1; #X obj 208 -215 s \$0-drumstate1; #X obj 367 -186 s \$0-drumstate1; #X obj 528 -179 s \$0-drumstate1; #X obj 711 -176 s \$0-drumstate1; #X obj 338 -664 r \$0-drumstate1; #X connect 0 0 135 0; #X connect 1 0 135 0; #X connect 2 0 135 0; #X connect 3 0 136 0; #X connect 4 0 136 0; #X connect 5 0 137 0; #X connect 6 0 137 0; #X connect 7 0 137 0; #X connect 8 0 27 0; #X connect 9 0 68 0; #X connect 10 0 11 0; #X connect 11 0 3 0; #X connect 11 1 69 0; #X connect 12 0 37 0; #X connect 14 0 17 0; #X connect 15 0 16 0; #X connect 15 0 18 0; #X connect 16 0 14 1; #X connect 17 0 22 0; #X connect 18 0 19 0; #X connect 18 0 21 1; #X connect 19 0 20 1; #X connect 20 0 26 0; #X connect 21 0 25 0; #X connect 22 0 134 0; #X connect 23 0 134 0; #X connect 24 0 134 0; #X connect 25 0 23 0; #X connect 26 0 24 0; #X connect 27 0 129 0; #X connect 27 1 128 0; #X connect 27 2 127 0; #X connect 27 3 126 0; #X connect 27 4 125 0; #X connect 28 0 138 0; #X connect 29 0 138 0; #X connect 30 0 138 0; #X connect 31 0 38 0; #X connect 32 1 114 0; #X connect 32 2 115 0; #X connect 32 3 74 0; #X connect 32 4 73 0; #X connect 33 0 1 0; #X connect 33 1 2 0; #X connect 33 2 35 0; #X connect 33 3 36 0; #X connect 34 0 33 0; #X connect 35 0 135 0; #X connect 36 0 135 0; #X connect 37 0 5 0; #X connect 37 1 46 0; #X connect 38 0 28 0; #X connect 38 1 52 0; #X connect 41 0 136 0; #X connect 42 0 45 0; #X connect 43 0 136 0; #X connect 44 0 136 0; #X connect 45 0 41 0; #X connect 45 1 43 0; #X connect 45 2 44 0; #X connect 46 0 6 0; #X connect 46 1 67 0; #X connect 47 0 70 0; #X connect 48 0 137 0; #X connect 49 0 137 0; #X connect 52 0 29 0; #X connect 52 1 53 0; #X connect 53 0 30 0; #X connect 53 1 54 0; #X connect 54 0 55 0; #X connect 54 1 56 0; #X connect 55 0 138 0; #X connect 56 0 138 0; #X connect 57 0 139 0; #X connect 58 0 139 0; #X connect 59 0 139 0; #X connect 60 0 61 0; #X connect 61 0 57 0; #X connect 61 1 62 0; #X connect 62 0 58 0; #X connect 62 1 63 0; #X connect 63 0 59 0; #X connect 63 1 64 0; #X connect 64 0 65 0; #X connect 64 1 66 0; #X connect 65 0 139 0; #X connect 66 0 139 0; #X connect 67 0 7 0; #X connect 67 1 132 0; #X connect 68 0 0 0; #X connect 68 1 130 0; #X connect 69 0 4 0; #X connect 69 1 131 0; #X connect 70 0 48 0; #X connect 70 1 49 0; #X connect 71 1 116 0; #X connect 72 1 117 0; #X connect 73 0 72 0; #X connect 74 0 71 0; #X connect 75 0 76 0; #X connect 76 0 77 0; #X connect 76 1 79 0; #X connect 76 2 81 0; #X connect 76 3 83 0; #X connect 76 4 85 0; #X connect 76 5 87 0; #X connect 76 6 89 0; #X connect 76 7 91 0; #X connect 76 8 93 0; #X connect 76 9 95 0; #X connect 76 10 97 0; #X connect 76 11 99 0; #X connect 76 12 101 0; #X connect 76 13 103 0; #X connect 76 14 105 0; #X connect 76 15 107 0; #X connect 77 0 111 0; #X connect 77 0 134 0; #X connect 78 0 77 1; #X connect 79 0 111 0; #X connect 79 0 134 0; #X connect 80 0 79 1; #X connect 81 0 111 0; #X connect 81 0 134 0; #X connect 82 0 81 1; #X connect 83 0 111 0; #X connect 83 0 134 0; #X connect 84 0 83 1; #X connect 85 0 111 0; #X connect 85 0 134 0; #X connect 86 0 85 1; #X connect 87 0 111 0; #X connect 87 0 134 0; #X connect 88 0 87 1; #X connect 89 0 111 0; #X connect 89 0 134 0; #X connect 90 0 89 1; #X connect 91 0 111 0; #X connect 91 0 134 0; #X connect 92 0 91 1; #X connect 93 0 111 0; #X connect 93 0 134 0; #X connect 94 0 93 1; #X connect 95 0 111 0; #X connect 95 0 134 0; #X connect 96 0 95 1; #X connect 97 0 111 0; #X connect 97 0 134 0; #X connect 98 0 97 1; #X connect 99 0 111 0; #X connect 99 0 134 0; #X connect 100 0 99 1; #X connect 101 0 111 0; #X connect 101 0 134 0; #X connect 102 0 101 1; #X connect 103 0 111 0; #X connect 103 0 134 0; #X connect 104 0 103 1; #X connect 105 0 111 0; #X connect 105 0 134 0; #X connect 106 0 105 1; #X connect 107 0 111 0; #X connect 107 0 134 0; #X connect 108 0 107 1; #X connect 109 0 110 0; #X connect 110 0 113 0; #X connect 111 0 109 0; #X connect 112 0 133 0; #X connect 118 0 119 0; #X connect 118 0 120 0; #X connect 118 0 121 0; #X connect 118 0 122 0; #X connect 118 0 123 0; #X connect 119 0 78 0; #X connect 119 0 94 0; #X connect 120 0 80 0; #X connect 120 0 108 0; #X connect 121 0 82 0; #X connect 121 0 90 0; #X connect 121 0 98 0; #X connect 121 0 106 0; #X connect 122 0 86 0; #X connect 122 0 102 0; #X connect 123 0 84 0; #X connect 123 0 88 0; #X connect 123 0 92 0; #X connect 123 0 96 0; #X connect 123 0 100 0; #X connect 123 0 104 0; #X connect 125 0 60 0; #X connect 126 0 31 0; #X connect 127 0 12 0; #X connect 128 0 10 0; #X connect 129 0 9 0; #X connect 130 0 34 0; #X connect 131 0 42 0; #X connect 132 0 47 0; #X connect 133 0 20 0; #X connect 133 1 14 0; #X connect 133 2 21 0; #X connect 133 3 75 0; #X connect 134 0 8 0; #X connect 140 0 8 1; #X connect 140 0 32 0; #X restore 718 -161 pd markovdrums; #N canvas 0 25 1016 656 keywalkdrumseq 0; #X obj 239 -196 r drumnum; #X obj 205 -60 sel 1; #X obj 100 174 outlet cymbal; #X obj 184 174 outlet hat; #X obj 250 174 outlet kick; #X obj 322 174 outlet snare; #X obj 122 56 random 10; #X obj 120 100 sel 0; #X obj 81 -29 r chord; #X obj 60 68 sel 0; #X obj 28 22 t f f; #X obj 55 143 spigot; #X msg 86 114 1; #X msg 51 113 0; #X obj 277 -111 random 3; #X obj 277 -91 + 2; #X obj 262 -45 sel; #X obj 239 -111 mod; #X obj 331 -111 random 3; #X obj 331 -91 + 3; #X obj 205 -14 s playchord; #X obj 338 -48 s timesig; #X obj 239 -176 t b f b b; #X connect 0 0 22 0; #X connect 1 0 4 0; #X connect 1 0 6 0; #X connect 1 0 20 0; #X connect 6 0 7 0; #X connect 7 0 11 0; #X connect 8 0 10 0; #X connect 9 0 13 0; #X connect 9 1 12 0; #X connect 10 0 9 1; #X connect 10 1 9 0; #X connect 11 0 2 0; #X connect 12 0 11 1; #X connect 13 0 11 1; #X connect 14 0 15 0; #X connect 15 0 16 1; #X connect 16 0 5 0; #X connect 17 0 16 0; #X connect 17 0 1 0; #X connect 18 0 19 0; #X connect 19 0 17 1; #X connect 19 0 21 0; #X connect 22 0 3 0; #X connect 22 1 17 0; #X connect 22 2 14 0; #X connect 22 3 18 0; #X restore -206 -161 pd keywalkdrumseq; #N canvas 0 25 997 656 markovdrums 0; #X msg 9 -280 1; #X msg 52 -248 2; #X msg 83 -248 3; #X msg 159 -314 1; #X msg 198 -300 2; #X msg 326 -309 1; #X msg 369 -301 2; #X msg 397 -290 3; #X obj 359 -520 f 1; #X obj 12 -359 random 100; #X obj 162 -395 random 100; #X obj 162 -365 moses 10; #X obj 317 -403 random 100; #X text 325 -567 STEP; #X obj 162 -554 del 62.5; #X obj 175 -632 r period; #X obj 174 -610 / 2; #X obj 155 -521 random 6; #X obj 220 -608 / 3; #X obj 239 -587 * 2; #X obj 270 -553 del 83.3; #X obj 216 -553 del 41.7; #X obj 155 -499 sel 0; #X obj 212 -500 sel 0; #X obj 273 -500 sel 0; #X obj 212 -521 random 20; #X obj 273 -521 random 20; #X obj 357 -499 sel 1 2 3 4 5; #X msg 471 -318 1; #X msg 516 -292 2; #X msg 543 -207 3; #X obj 471 -395 random 100; #X obj 337 -640 sel 1 2 3 4 5; #X obj 65 -280 sel 0 1 2 3; #X obj 64 -300 random 4; #X msg 111 -248 4; #X msg 142 -248 5; #X obj 317 -383 moses 10; #X obj 471 -366 moses 10; #X text 64 -386 rest; #X text 204 -423 kick; #X msg 224 -255 3; #X obj 226 -299 random 4; #X msg 252 -255 4; #X msg 283 -255 5; #X obj 227 -279 sel 0 1 2; #X obj 360 -363 moses 20; #X obj 416 -266 random 2; #X msg 406 -219 4; #X msg 437 -219 5; #X text 358 -421 snare; #X text 365 -449 choose next state from...; #X obj 516 -345 moses 20; #X obj 561 -317 moses 40; #X obj 606 -294 moses 65; #X msg 572 -207 4; #X msg 613 -207 5; #X msg 660 -317 1; #X msg 705 -291 2; #X msg 732 -206 3; #X obj 660 -394 random 100; #X obj 660 -365 moses 10; #X obj 705 -344 moses 20; #X obj 750 -316 moses 40; #X obj 795 -293 moses 65; #X msg 783 -207 5; #X msg 824 -207 4; #X obj 405 -343 moses 70; #X obj 12 -338 moses 65; #X obj 207 -339 moses 12; #X obj 416 -245 sel 0 1; #X obj 381 -583 sel 0; #X obj 435 -583 sel 0; #X obj 435 -603 random 5; #X obj 381 -603 random 5; #X obj 304 -779 mod 16; #X obj 328 -756 sel 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15; #N canvas 0 25 1016 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 146 -713 pd pct; #X floatatom 169 -733 5 0 100 0 - - -; #N canvas 0 25 1016 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 188 -712 pd pct; #X floatatom 210 -730 5 0 100 0 - - -; #N canvas 0 25 1016 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 230 -711 pd pct; #X floatatom 256 -729 5 0 100 0 - - -; #N canvas 0 25 1016 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 272 -710 pd pct; #X floatatom 298 -727 5 0 100 0 - - -; #N canvas 0 25 1016 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 315 -710 pd pct; #X floatatom 344 -726 5 0 100 0 - - -; #N canvas 0 25 1016 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 357 -708 pd pct; #X floatatom 385 -726 5 0 100 0 - - -; #N canvas 0 25 1016 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 404 -707 pd pct; #X floatatom 423 -724 5 0 100 0 - - -; #N canvas 0 25 1016 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 446 -706 pd pct; #X floatatom 464 -723 5 0 100 0 - - -; #N canvas 0 25 1016 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 490 -706 pd pct; #X floatatom 506 -723 5 0 100 0 - - -; #N canvas 0 25 1016 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 532 -706 pd pct; #X floatatom 546 -722 5 0 100 0 - - -; #N canvas 0 25 1016 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 580 -705 pd pct; #X floatatom 589 -723 5 0 100 0 - - -; #N canvas 0 25 1016 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 622 -704 pd pct; #X floatatom 639 -721 5 0 100 0 - - -; #N canvas 0 25 1016 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 664 -703 pd pct; #X floatatom 687 -722 5 0 100 0 - - -; #N canvas 0 25 1016 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 706 -703 pd pct; #X floatatom 731 -720 5 0 100 0 - - -; #N canvas 0 25 1016 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 748 -703 pd pct; #X floatatom 775 -720 5 0 100 0 - - -; #N canvas 0 25 1016 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 790 -703 pd pct; #X floatatom 816 -720 5 0 100 0 - - -; #X obj 39 -638 random 50; #X obj 39 -618 sel 0; #X obj 39 -662 t b; #X obj 230 -848 inlet number; #X obj 50 -165 outlet cymbal; #X obj 135 -164 outlet kick; #X obj 213 -164 outlet snare; #X obj 295 -164 outlet lotom; #X obj 373 -164 outlet hitom; #X obj 663 -894 loadbang; #X msg 593 -861 99; #X msg 626 -860 75; #X msg 655 -859 85; #X msg 744 -858 90; #X msg 698 -858 80; #X text 749 -665 % chance of step on each beat; #X obj 208 -215 s \$0-drumstate2; #X obj 367 -186 s \$0-drumstate2; #X obj 528 -179 s \$0-drumstate2; #X obj 711 -176 s \$0-drumstate2; #X obj 40 -217 s \$0-drumstate2; #X obj 391 -664 r \$0-drumstate2; #X msg 359 -539 bang; #X msg 12 -383 bang; #X msg 162 -416 bang; #X msg 317 -423 bang; #X msg 471 -421 bang; #X msg 660 -415 bang; #X obj 230 -818 t b b b f; #X msg 64 -319 bang; #X msg 226 -318 bang; #X msg 425 -290 bang; #X connect 0 0 129 0; #X connect 1 0 129 0; #X connect 2 0 129 0; #X connect 3 0 125 0; #X connect 4 0 125 0; #X connect 5 0 126 0; #X connect 6 0 126 0; #X connect 7 0 126 0; #X connect 8 0 27 0; #X connect 9 0 68 0; #X connect 10 0 11 0; #X connect 11 0 3 0; #X connect 11 1 69 0; #X connect 12 0 37 0; #X connect 14 0 17 0; #X connect 15 0 16 0; #X connect 15 0 18 0; #X connect 16 0 14 1; #X connect 17 0 22 0; #X connect 18 0 19 0; #X connect 18 0 21 1; #X connect 19 0 20 1; #X connect 20 0 26 0; #X connect 21 0 25 0; #X connect 22 0 131 0; #X connect 23 0 131 0; #X connect 24 0 131 0; #X connect 25 0 23 0; #X connect 26 0 24 0; #X connect 27 0 132 0; #X connect 27 1 133 0; #X connect 27 2 134 0; #X connect 27 3 135 0; #X connect 27 4 136 0; #X connect 28 0 127 0; #X connect 29 0 127 0; #X connect 30 0 127 0; #X connect 31 0 38 0; #X connect 32 1 114 0; #X connect 32 2 115 0; #X connect 32 3 74 0; #X connect 32 4 73 0; #X connect 33 0 1 0; #X connect 33 1 2 0; #X connect 33 2 35 0; #X connect 33 3 36 0; #X connect 34 0 33 0; #X connect 35 0 129 0; #X connect 36 0 129 0; #X connect 37 0 5 0; #X connect 37 1 46 0; #X connect 38 0 28 0; #X connect 38 1 52 0; #X connect 41 0 125 0; #X connect 42 0 45 0; #X connect 43 0 125 0; #X connect 44 0 125 0; #X connect 45 0 41 0; #X connect 45 1 43 0; #X connect 45 2 44 0; #X connect 46 0 6 0; #X connect 46 1 67 0; #X connect 47 0 70 0; #X connect 48 0 126 0; #X connect 49 0 126 0; #X connect 52 0 29 0; #X connect 52 1 53 0; #X connect 53 0 30 0; #X connect 53 1 54 0; #X connect 54 0 55 0; #X connect 54 1 56 0; #X connect 55 0 127 0; #X connect 56 0 127 0; #X connect 57 0 128 0; #X connect 58 0 128 0; #X connect 59 0 128 0; #X connect 60 0 61 0; #X connect 61 0 57 0; #X connect 61 1 62 0; #X connect 62 0 58 0; #X connect 62 1 63 0; #X connect 63 0 59 0; #X connect 63 1 64 0; #X connect 64 0 65 0; #X connect 64 1 66 0; #X connect 65 0 128 0; #X connect 66 0 128 0; #X connect 67 0 7 0; #X connect 67 1 140 0; #X connect 68 0 0 0; #X connect 68 1 138 0; #X connect 69 0 4 0; #X connect 69 1 139 0; #X connect 70 0 48 0; #X connect 70 1 49 0; #X connect 71 1 116 0; #X connect 72 1 117 0; #X connect 73 0 72 0; #X connect 74 0 71 0; #X connect 75 0 76 0; #X connect 76 0 77 0; #X connect 76 1 79 0; #X connect 76 2 81 0; #X connect 76 3 83 0; #X connect 76 4 85 0; #X connect 76 5 87 0; #X connect 76 6 89 0; #X connect 76 7 91 0; #X connect 76 8 93 0; #X connect 76 9 95 0; #X connect 76 10 97 0; #X connect 76 11 99 0; #X connect 76 12 101 0; #X connect 76 13 103 0; #X connect 76 14 105 0; #X connect 76 15 107 0; #X connect 77 0 111 0; #X connect 77 0 131 0; #X connect 78 0 77 1; #X connect 79 0 111 0; #X connect 79 0 131 0; #X connect 80 0 79 1; #X connect 81 0 111 0; #X connect 81 0 131 0; #X connect 82 0 81 1; #X connect 83 0 111 0; #X connect 83 0 131 0; #X connect 84 0 83 1; #X connect 85 0 111 0; #X connect 85 0 131 0; #X connect 86 0 85 1; #X connect 87 0 111 0; #X connect 87 0 131 0; #X connect 88 0 87 1; #X connect 89 0 111 0; #X connect 89 0 131 0; #X connect 90 0 89 1; #X connect 91 0 111 0; #X connect 91 0 131 0; #X connect 92 0 91 1; #X connect 93 0 111 0; #X connect 93 0 131 0; #X connect 94 0 93 1; #X connect 95 0 111 0; #X connect 95 0 131 0; #X connect 96 0 95 1; #X connect 97 0 111 0; #X connect 97 0 131 0; #X connect 98 0 97 1; #X connect 99 0 111 0; #X connect 99 0 131 0; #X connect 100 0 99 1; #X connect 101 0 111 0; #X connect 101 0 131 0; #X connect 102 0 101 1; #X connect 103 0 111 0; #X connect 103 0 131 0; #X connect 104 0 103 1; #X connect 105 0 111 0; #X connect 105 0 131 0; #X connect 106 0 105 1; #X connect 107 0 111 0; #X connect 107 0 131 0; #X connect 108 0 107 1; #X connect 109 0 110 0; #X connect 110 0 113 0; #X connect 111 0 109 0; #X connect 112 0 137 0; #X connect 118 0 119 0; #X connect 118 0 120 0; #X connect 118 0 121 0; #X connect 118 0 122 0; #X connect 118 0 123 0; #X connect 119 0 78 0; #X connect 119 0 94 0; #X connect 120 0 80 0; #X connect 120 0 108 0; #X connect 121 0 82 0; #X connect 121 0 90 0; #X connect 121 0 98 0; #X connect 121 0 106 0; #X connect 122 0 86 0; #X connect 122 0 102 0; #X connect 123 0 84 0; #X connect 123 0 88 0; #X connect 123 0 92 0; #X connect 123 0 96 0; #X connect 123 0 100 0; #X connect 123 0 104 0; #X connect 130 0 8 1; #X connect 130 0 32 0; #X connect 131 0 8 0; #X connect 132 0 9 0; #X connect 133 0 10 0; #X connect 134 0 12 0; #X connect 135 0 31 0; #X connect 136 0 60 0; #X connect 137 0 20 0; #X connect 137 1 14 0; #X connect 137 2 21 0; #X connect 137 3 75 0; #X connect 138 0 34 0; #X connect 139 0 42 0; #X connect 140 0 47 0; #X restore 628 -161 pd markovdrums; #X obj 130 -24 outlet crash; #X obj 208 -24 outlet hat; #X obj 274 -24 outlet kick; #X obj 346 -24 outlet snare; #X obj 424 -24 outlet lotom; #X obj 502 -24 outlet hitom; #X obj 613 -223 -; #X obj 598 -249 t f f f; #X obj 628 -184 spigot; #X obj 331 -356 route 3 4 2 12 6 7 5 11 8 9 10 1; #X text 580 -311 Markov drums 1/2 speed; #X text 729 -176 Markov drums; #X msg 208 -43 bang; #X msg 274 -43 bang; #X msg 346 -43 bang; #X msg 130 -43 bang; #X msg 424 -43 bang; #X msg 502 -43 bang; #N canvas 0 0 450 300 pattern1 0; #X obj 12 -164 mod 16; #X obj 12 -143 sel 0 4 8 12 14; #X obj 191 -104 random 4; #X obj 191 -85 sel 0; #X obj 246 -63 sel 0; #X obj 247 -83 random 10; #X obj 137 -86 sel 0; #X obj 29 -86 sel 0; #X obj 137 -105 random 4; #X obj 29 -105 random 4; #X obj 83 -86 sel 0; #X obj 83 -105 random 3; #X obj 247 -103 t b; #X obj 12 -187 inlet pattern1-beatnumbers; #X obj 60 -18 outlet kick; #X obj 139 -18 outlet snare; #X connect 0 0 1 0; #X connect 1 0 14 0; #X connect 1 1 9 0; #X connect 1 2 11 0; #X connect 1 3 8 0; #X connect 1 4 2 0; #X connect 1 5 12 0; #X connect 2 0 3 0; #X connect 3 0 15 0; #X connect 4 0 15 0; #X connect 5 0 4 0; #X connect 6 0 14 0; #X connect 7 0 14 0; #X connect 8 0 6 0; #X connect 9 0 7 0; #X connect 10 0 14 0; #X connect 11 0 10 0; #X connect 12 0 5 0; #X connect 13 0 0 0; #X restore -98 -161 pd pattern1; #N canvas 0 0 450 300 pattern2 0; #X obj 10 -111 mod 2; #X obj 10 -89 sel 0; #X obj 7 -189 inlet pattern2-beatnumbers; #X obj 56 -147 mod 16; #X obj 56 -126 sel 0 2 4 6 10 12; #X obj 10 -64 outlet hat; #X obj 40 -40 outlet crash; #X obj 53 -14 outlet kick; #X obj 68 6 outlet snare; #X connect 0 0 1 0; #X connect 1 0 5 0; #X connect 2 0 0 0; #X connect 2 0 3 0; #X connect 3 0 4 0; #X connect 4 0 6 0; #X connect 4 0 7 0; #X connect 4 1 7 0; #X connect 4 2 8 0; #X connect 4 3 7 0; #X connect 4 4 7 0; #X connect 4 5 8 0; #X restore -26 -161 pd pattern2; #N canvas 0 0 450 300 pattern3 0; #X obj 56 -147 mod 16; #X obj 56 -126 sel 0 2 4 6 10 12; #X obj 7 -189 inlet pattern3-beatnumbers; #X obj 7 -64 outlet hat; #X obj 40 -40 outlet crash; #X obj 53 -14 outlet kick; #X obj 68 6 outlet snare; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 1 0 5 0; #X connect 1 1 5 0; #X connect 1 2 6 0; #X connect 1 3 5 0; #X connect 1 4 5 0; #X connect 1 5 6 0; #X connect 2 0 0 0; #X connect 2 0 3 0; #X restore 46 -161 pd pattern3; #N canvas 0 0 496 491 pattern4 0; #X obj -186 -307 mod 16; #X obj -186 -286 sel 0 2 4 6 10 12; #X obj -186 -350 mod 64; #X obj -186 -329 moses 48; #X obj -141 -261 mod 16; #X obj -150 -239 t b; #X obj -125 -238 sel 0; #X obj -182 -41 sel 0 1 2 3; #X obj -151 2 random 10; #X obj -151 22 sel 0; #X obj -186 -151 del 62.5; #X obj -139 -209 r period; #X obj -140 -187 / 2; #X obj -152 -109 sel 0; #X obj -152 -130 random 6; #X obj -94 -185 / 3; #X obj -75 -164 * 2; #X obj -5 -115 del 83.3; #X obj -84 -116 del 41.7; #X obj -83 -74 sel 0; #X obj -5 -74 sel 0; #X obj -83 -95 random 20; #X obj -5 -95 random 20; #X obj -48 -27 sel 0 1 2; #X obj -48 -47 random 5; #X obj -182 -68 random 7; #X obj -186 -373 inlet pattern4-beatnumbers; #X obj -344 86 outlet hat; #X obj -272 86 outlet crash; #X obj -188 86 outlet kick; #X obj -110 86 outlet snare; #X obj -26 86 outlet lotom; #X obj 58 86 outlet hitom; #X connect 0 0 1 0; #X connect 1 0 28 0; #X connect 1 0 29 0; #X connect 1 1 29 0; #X connect 1 2 30 0; #X connect 1 3 29 0; #X connect 1 4 29 0; #X connect 1 5 30 0; #X connect 2 0 3 0; #X connect 3 0 0 0; #X connect 3 0 27 0; #X connect 3 1 4 0; #X connect 4 0 5 0; #X connect 4 0 6 0; #X connect 5 0 10 0; #X connect 5 0 18 0; #X connect 5 0 17 0; #X connect 5 0 25 0; #X connect 6 0 28 0; #X connect 6 0 29 0; #X connect 7 0 8 0; #X connect 7 0 31 0; #X connect 7 1 8 0; #X connect 7 1 32 0; #X connect 7 2 29 0; #X connect 7 3 8 0; #X connect 7 3 30 0; #X connect 8 0 9 0; #X connect 9 0 29 0; #X connect 10 0 14 0; #X connect 11 0 12 0; #X connect 11 0 15 0; #X connect 12 0 10 1; #X connect 13 0 25 0; #X connect 14 0 13 0; #X connect 15 0 16 0; #X connect 15 0 18 1; #X connect 16 0 17 1; #X connect 17 0 22 0; #X connect 18 0 21 0; #X connect 19 0 24 0; #X connect 20 0 24 0; #X connect 21 0 19 0; #X connect 22 0 20 0; #X connect 23 0 31 0; #X connect 23 1 32 0; #X connect 23 2 30 0; #X connect 24 0 23 0; #X connect 25 0 7 0; #X connect 26 0 2 0; #X restore 118 -161 pd pattern4; #N canvas 0 0 450 300 pattern5 0; #X obj 40 -194 inlet pattern5-beatnumbers; #X obj 40 -171 mod 16; #X obj 25 -108 sel 0 10; #X obj 79 -107 sel 4 7 9 12; #X obj 6 -59 sel 0 1; #X obj 6 -80 random 33; #X msg 48 18 bang; #X msg 107 1 bang; #X msg 5 -25 bang; #X obj 159 -106 sel 1 2 3 5 6 8 11; #X obj 189 -53 sel 0 1 2 3 4; #X obj 189 -76 random 77; #X msg 159 -2 bang; #X msg 200 1 bang; #X obj 5 -3 outlet crash; #X obj 48 42 outlet kick; #X obj 107 66 outlet snare; #X connect 0 0 1 0; #X connect 1 0 2 0; #X connect 1 0 3 0; #X connect 1 0 9 0; #X connect 2 0 5 0; #X connect 2 0 6 0; #X connect 2 1 6 0; #X connect 3 0 7 0; #X connect 3 1 7 0; #X connect 3 2 7 0; #X connect 3 3 7 0; #X connect 4 0 8 0; #X connect 4 1 8 0; #X connect 5 0 4 0; #X connect 6 0 15 0; #X connect 7 0 16 0; #X connect 8 0 14 0; #X connect 9 0 11 0; #X connect 9 1 11 0; #X connect 9 2 11 0; #X connect 9 3 11 0; #X connect 9 4 11 0; #X connect 9 5 11 0; #X connect 9 6 11 0; #X connect 10 0 12 0; #X connect 10 1 12 0; #X connect 10 2 12 0; #X connect 10 3 12 0; #X connect 10 4 13 0; #X connect 11 0 10 0; #X connect 12 0 15 0; #X connect 13 0 16 0; #X restore 190 -161 pd pattern5; #N canvas 0 25 1018 658 pattern6 0; #X obj 40 -171 mod 16; #X obj 25 -108 sel 0 10; #X obj 79 -107 sel 4 7 9 12; #X obj 6 -59 sel 0 1; #X obj 6 -80 random 33; #X msg 48 18 bang; #X msg 107 1 bang; #X msg 6 -25 bang; #X obj 159 -106 sel 1 2 3 5 6 8 11; #X obj 189 -53 sel 0 1 2 3 4; #X obj 189 -76 random 77; #X msg 159 -2 bang; #X msg 200 1 bang; #X obj 40 -194 inlet pattern6-beatnumbers; #X obj 35 60 outlet crash; #X obj 113 60 outlet kick; #X obj -31 -80 mod 2; #X obj -31 -60 sel 0; #X msg -31 -39 bang; #X obj -31 60 outlet hat; #X obj 185 60 outlet snare; #X connect 0 0 1 0; #X connect 0 0 2 0; #X connect 0 0 8 0; #X connect 1 0 4 0; #X connect 1 0 5 0; #X connect 1 1 5 0; #X connect 2 0 6 0; #X connect 2 1 6 0; #X connect 2 2 6 0; #X connect 2 3 6 0; #X connect 3 0 7 0; #X connect 3 1 7 0; #X connect 4 0 3 0; #X connect 5 0 15 0; #X connect 6 0 20 0; #X connect 7 0 14 0; #X connect 8 0 10 0; #X connect 8 1 10 0; #X connect 8 2 10 0; #X connect 8 3 10 0; #X connect 8 4 10 0; #X connect 8 5 10 0; #X connect 8 6 10 0; #X connect 9 0 11 0; #X connect 9 1 11 0; #X connect 9 2 11 0; #X connect 9 3 11 0; #X connect 9 4 12 0; #X connect 10 0 9 0; #X connect 11 0 15 0; #X connect 12 0 20 0; #X connect 13 0 0 0; #X connect 13 0 16 0; #X connect 16 0 17 0; #X connect 17 0 18 0; #X connect 18 0 19 0; #X restore 262 -161 pd pattern6; #N canvas 0 25 1018 658 pattern7 0; #X obj 40 -171 mod 16; #X obj 25 -108 sel 0 10; #X obj 79 -107 sel 4 7 9 12; #X obj 6 -59 sel 0 1; #X obj 6 -80 random 33; #X msg 48 18 bang; #X msg 107 1 bang; #X msg 6 -25 bang; #X obj 159 -106 sel 1 2 3 5 6 8 11; #X obj 189 -53 sel 0 1 2 3 4; #X obj 189 -76 random 77; #X msg 159 -2 bang; #X msg 200 1 bang; #X obj 35 60 outlet crash; #X obj 113 60 outlet kick; #X msg -31 -39 bang; #X obj -31 60 outlet hat; #X obj 185 60 outlet snare; #X obj 40 -194 inlet pattern7-beatnumbers; #X connect 0 0 1 0; #X connect 0 0 2 0; #X connect 0 0 8 0; #X connect 1 0 4 0; #X connect 1 0 5 0; #X connect 1 1 5 0; #X connect 2 0 6 0; #X connect 2 1 6 0; #X connect 2 2 6 0; #X connect 2 3 6 0; #X connect 3 0 7 0; #X connect 3 1 7 0; #X connect 4 0 3 0; #X connect 5 0 14 0; #X connect 6 0 17 0; #X connect 7 0 13 0; #X connect 8 0 10 0; #X connect 8 1 10 0; #X connect 8 2 10 0; #X connect 8 3 10 0; #X connect 8 4 10 0; #X connect 8 5 10 0; #X connect 8 6 10 0; #X connect 9 0 11 0; #X connect 9 1 11 0; #X connect 9 2 11 0; #X connect 9 3 11 0; #X connect 9 4 12 0; #X connect 10 0 9 0; #X connect 11 0 14 0; #X connect 12 0 17 0; #X connect 15 0 16 0; #X connect 18 0 0 0; #X connect 18 0 15 0; #X restore 334 -161 pd pattern7; #N canvas 370 135 348 468 pattern8 0; #X obj 77 -315 sel 0 4 5 6 8 12; #X obj 77 -335 mod 16; #X obj 21 -112 sel 0 1; #X obj 21 -132 random 5; #X obj 208 -93 loadbang; #X obj 126 30 spigot; #X msg 136 2 0; #X msg 166 2 1; #X obj 128 -28 loadbang; #X obj 116 -49 metro 30; #X obj 141 -93 metro 5; #X obj 208 -62 random 11; #X obj 199 -40 + 33; #X msg 203 -187 1; #X msg 266 -191 0; #X obj 266 -223 r turnrolloff; #X obj 21 -53 outlet crash; #X obj 63 10 outlet kick; #X obj 113 89 outlet snare; #X msg 63 -16 bang; #X msg 113 65 bang; #X msg 21 -85 bang; #X obj 77 -354 inlet pattern8-beatnumbers; #X obj 63 -208 sel 0 1; #X obj 63 -228 random 5; #X obj 231 -151 f; #X connect 0 0 19 0; #X connect 0 1 7 0; #X connect 0 1 13 0; #X connect 0 1 20 0; #X connect 0 1 24 0; #X connect 0 3 6 0; #X connect 0 3 14 0; #X connect 0 3 20 0; #X connect 0 4 3 0; #X connect 0 4 19 0; #X connect 0 4 20 0; #X connect 0 5 20 0; #X connect 0 5 24 0; #X connect 1 0 0 0; #X connect 2 2 21 0; #X connect 3 0 2 0; #X connect 4 0 11 0; #X connect 5 0 20 0; #X connect 6 0 5 1; #X connect 7 0 5 1; #X connect 8 0 6 0; #X connect 9 0 5 0; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 12 0 9 1; #X connect 13 0 25 0; #X connect 14 0 5 1; #X connect 14 0 25 0; #X connect 15 0 14 0; #X connect 19 0 17 0; #X connect 20 0 18 0; #X connect 21 0 16 0; #X connect 22 0 1 0; #X connect 23 0 19 0; #X connect 23 1 19 0; #X connect 24 0 23 0; #X connect 25 0 10 0; #X connect 25 0 9 0; #X restore 406 -161 pd pattern8; #N canvas 0 25 348 468 pattern9 0; #X obj 77 -315 sel 0 4 5 6 8 12; #X obj 77 -335 mod 16; #X obj -7 -114 sel 0 1; #X obj -7 -134 random 5; #X obj 208 -93 loadbang; #X obj 126 30 spigot; #X msg 136 2 0; #X msg 166 2 1; #X obj 128 -28 loadbang; #X obj 116 -49 metro 30; #X obj 151 -93 metro 5; #X obj 208 -62 random 11; #X obj 199 -40 + 33; #X msg 122 -163 1; #X msg 185 -167 0; #X obj 185 -199 r turnrolloff; #X obj 21 -53 outlet crash; #X obj 63 10 outlet kick; #X obj 113 89 outlet snare; #X msg 63 -16 bang; #X msg 113 65 bang; #X msg 21 -85 bang; #X obj 77 -354 inlet pattern9-beatnumbers; #X obj -47 -166 mod 2; #X obj -47 -144 sel 0; #X obj -47 -53 outlet hat; #X msg -47 -77 bang; #X obj 47 -114 sel 0 1; #X obj 47 -134 random 5; #X obj 151 -126 f; #X connect 0 0 19 0; #X connect 0 1 7 0; #X connect 0 1 13 0; #X connect 0 1 20 0; #X connect 0 1 28 0; #X connect 0 3 6 0; #X connect 0 3 14 0; #X connect 0 3 20 0; #X connect 0 4 3 0; #X connect 0 4 19 0; #X connect 0 4 20 0; #X connect 0 5 20 0; #X connect 0 5 28 0; #X connect 1 0 0 0; #X connect 2 2 21 0; #X connect 3 0 2 0; #X connect 4 0 11 0; #X connect 5 0 20 0; #X connect 6 0 5 1; #X connect 7 0 5 1; #X connect 8 0 6 0; #X connect 9 0 5 0; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 12 0 9 1; #X connect 13 0 29 0; #X connect 14 0 5 1; #X connect 14 0 29 0; #X connect 15 0 14 0; #X connect 19 0 17 0; #X connect 20 0 18 0; #X connect 21 0 16 0; #X connect 22 0 1 0; #X connect 22 0 23 0; #X connect 23 0 24 0; #X connect 24 0 26 0; #X connect 26 0 25 0; #X connect 27 0 19 0; #X connect 27 1 19 0; #X connect 28 0 27 0; #X connect 29 0 10 0; #X connect 29 0 9 0; #X restore 478 -161 pd pattern9; #N canvas 0 25 348 468 pattern10 0; #X obj 77 -315 sel 0 4 5 6 8 12; #X obj 77 -335 mod 16; #X obj -18 -114 sel 0 1; #X obj -18 -134 random 5; #X obj 208 -93 loadbang; #X obj 126 30 spigot; #X msg 136 2 0; #X msg 166 2 1; #X obj 128 -28 loadbang; #X obj 116 -49 metro 30; #X obj 141 -93 metro 5; #X obj 208 -62 random 11; #X obj 199 -40 + 33; #X msg 122 -163 1; #X msg 185 -167 0; #X obj 185 -199 r turnrolloff; #X obj 21 -53 outlet crash; #X obj 63 10 outlet kick; #X obj 113 89 outlet snare; #X msg 63 -16 bang; #X msg 113 65 bang; #X msg 21 -85 bang; #X obj -47 -53 outlet hat; #X msg -47 -77 bang; #X obj 77 -354 inlet pattern10-beatnumbers; #X obj 36 -114 sel 0 1; #X obj 36 -134 random 5; #X obj 147 -127 f; #X connect 0 0 19 0; #X connect 0 1 7 0; #X connect 0 1 13 0; #X connect 0 1 20 0; #X connect 0 1 26 0; #X connect 0 3 6 0; #X connect 0 3 14 0; #X connect 0 3 20 0; #X connect 0 4 3 0; #X connect 0 4 19 0; #X connect 0 4 20 0; #X connect 0 5 20 0; #X connect 0 5 26 0; #X connect 1 0 0 0; #X connect 2 2 21 0; #X connect 3 0 2 0; #X connect 4 0 11 0; #X connect 5 0 20 0; #X connect 6 0 5 1; #X connect 7 0 5 1; #X connect 8 0 6 0; #X connect 9 0 5 0; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 12 0 9 1; #X connect 13 0 27 0; #X connect 14 0 5 1; #X connect 14 0 27 0; #X connect 15 0 14 0; #X connect 19 0 17 0; #X connect 20 0 18 0; #X connect 21 0 16 0; #X connect 23 0 22 0; #X connect 24 0 1 0; #X connect 24 0 23 0; #X connect 25 0 19 0; #X connect 25 1 19 0; #X connect 26 0 25 0; #X connect 27 0 10 0; #X connect 27 0 9 0; #X restore 550 -161 pd pattern10; #X connect 0 0 2 0; #X connect 0 1 2 2; #X connect 2 0 3 0; #X connect 3 0 23 0; #X connect 5 0 0 0; #X connect 7 0 5 0; #X connect 8 0 9 0; #X connect 9 0 21 0; #X connect 10 0 2 1; #X connect 11 0 29 0; #X connect 11 1 27 0; #X connect 11 2 28 0; #X connect 11 3 30 0; #X connect 11 4 31 0; #X connect 12 0 29 0; #X connect 12 1 26 0; #X connect 12 2 27 0; #X connect 12 3 28 0; #X connect 13 0 29 0; #X connect 13 1 27 0; #X connect 13 2 28 0; #X connect 13 3 30 0; #X connect 13 4 31 0; #X connect 20 0 22 1; #X connect 21 0 20 1; #X connect 21 1 22 0; #X connect 21 2 20 0; #X connect 22 0 13 0; #X connect 23 0 34 0; #X connect 23 1 35 0; #X connect 23 2 33 0; #X connect 23 3 11 0; #X connect 23 4 37 0; #X connect 23 5 38 0; #X connect 23 6 36 0; #X connect 23 7 8 0; #X connect 23 8 39 0; #X connect 23 9 40 0; #X connect 23 10 41 0; #X connect 23 11 32 0; #X connect 26 0 15 0; #X connect 27 0 16 0; #X connect 28 0 17 0; #X connect 29 0 14 0; #X connect 30 0 18 0; #X connect 31 0 19 0; #X connect 32 0 27 0; #X connect 32 1 28 0; #X connect 33 0 26 0; #X connect 33 1 29 0; #X connect 33 2 27 0; #X connect 33 3 28 0; #X connect 34 0 26 0; #X connect 34 1 29 0; #X connect 34 2 27 0; #X connect 34 3 28 0; #X connect 35 0 26 0; #X connect 35 1 29 0; #X connect 35 2 27 0; #X connect 35 3 28 0; #X connect 35 4 30 0; #X connect 35 5 31 0; #X connect 36 0 29 0; #X connect 36 1 27 0; #X connect 36 2 28 0; #X connect 37 0 26 0; #X connect 37 1 29 0; #X connect 37 2 27 0; #X connect 37 3 28 0; #X connect 38 0 26 0; #X connect 38 1 29 0; #X connect 38 2 27 0; #X connect 38 3 28 0; #X connect 39 0 29 0; #X connect 39 1 27 0; #X connect 39 2 28 0; #X connect 40 0 26 0; #X connect 40 1 29 0; #X connect 40 2 27 0; #X connect 40 3 28 0; #X connect 41 0 26 0; #X connect 41 1 29 0; #X connect 41 2 27 0; #X connect 41 3 28 0; #X restore 408 4 pd sequencer; #X obj 587 33 sel 0 1; #X msg 606 52 1; #X msg 580 52 0; #X obj 606 71 pipe 20; #X obj 558 71 pipe 20; #X text 51 525 eq so it doesn't crowd out the other instruments; #N canvas 0 0 450 300 wetdrystuff 0; #X obj 19 -50 *; #X obj 25 -73 * 2; #X obj 19 -31 / 4; #X obj 19 -12 swap 1; #X obj 26 12 -; #X obj 76 -112 swap 1; #X obj 84 -93 -; #X obj 76 -51 *; #X obj 84 -73 * 2; #X obj 76 -32 / 4; #X obj 76 -13 swap 1; #X obj 83 11 -; #X text 136 -111 dry/wet (reverb); #X obj 25 -195 r drumswetdry; #X obj 23 50 outlet dry; #X obj 96 50 outlet wet; #X connect 0 0 2 0; #X connect 1 0 0 1; #X connect 1 0 0 0; #X connect 2 0 3 0; #X connect 3 0 4 0; #X connect 3 1 4 1; #X connect 4 0 14 0; #X connect 5 0 6 0; #X connect 5 1 6 1; #X connect 6 0 8 0; #X connect 7 0 9 0; #X connect 8 0 7 1; #X connect 8 0 7 0; #X connect 9 0 10 0; #X connect 10 0 11 0; #X connect 10 1 11 1; #X connect 11 0 15 0; #X connect 13 0 1 0; #X connect 13 0 5 0; #X restore 381 548 pd wetdrystuff; #N canvas 0 0 450 300 waveshapewetdry 0; #X obj -73 118 *; #X obj -73 94 * 2; #X obj -83 143 / 4; #X obj -84 192 swap 1; #X obj -77 216 -; #X obj -26 45 swap 1; #X obj -19 69 -; #X obj -12 118 *; #X obj -12 94 * 2; #X obj -22 143 / 4; #X obj -27 191 swap 1; #X obj -20 215 -; #X text -201 23 dry/wet (waveshaping); #X text -344 44 there's some cancellation here \, but what the hell. ; #X obj -73 6 r drumswswetdry; #X obj -82 258 outlet dry; #X obj -16 258 outlet wet; #X connect 0 0 2 0; #X connect 1 0 0 1; #X connect 1 0 0 0; #X connect 2 0 3 0; #X connect 3 0 4 0; #X connect 3 1 4 1; #X connect 4 0 15 0; #X connect 5 0 6 0; #X connect 5 1 6 1; #X connect 6 0 8 0; #X connect 7 0 9 0; #X connect 8 0 7 1; #X connect 8 0 7 0; #X connect 9 0 10 0; #X connect 10 0 11 0; #X connect 10 1 11 1; #X connect 11 0 16 0; #X connect 14 0 5 0; #X connect 14 0 1 0; #X restore 328 439 pd waveshapewetdry; #N canvas 0 0 450 300 drumeq 0; #X obj -6 96 *~ 0.9; #X obj -64 96 *~ 0.9; #X obj -18 72 hip~ 1000; #X obj -72 72 lop~ 300; #X obj 42 87 *~ 0.4; #X obj 8 120 hip~ 35; #X obj -38 16 inlet~; #X obj 16 149 outlet~; #X connect 0 0 5 0; #X connect 1 0 5 0; #X connect 2 0 0 0; #X connect 3 0 1 0; #X connect 4 0 7 0; #X connect 5 0 7 0; #X connect 6 0 3 0; #X connect 6 0 2 0; #X connect 6 0 4 0; #X restore 343 525 pd drumeq; #N canvas 0 0 450 300 drumeq 0; #X obj -6 96 *~ 0.9; #X obj -64 96 *~ 0.9; #X obj -18 72 hip~ 1000; #X obj -72 72 lop~ 300; #X obj 42 87 *~ 0.4; #X obj 8 120 hip~ 35; #X obj -38 16 inlet~; #X obj 16 149 outlet~; #X connect 0 0 5 0; #X connect 1 0 5 0; #X connect 2 0 0 0; #X connect 3 0 1 0; #X connect 4 0 7 0; #X connect 5 0 7 0; #X connect 6 0 3 0; #X connect 6 0 2 0; #X connect 6 0 4 0; #X restore 403 525 pd drumeq; #X obj 22 142 r crashvol; #X obj 235 140 r hatvol; #X obj 347 153 r kickvol; #X obj 458 142 r snarevol; #X obj 594 137 r lotomvol; #X obj 714 134 r hitomvol; #X obj 587 13 r drumsonoff; #X obj 80 302 r crashpan; #X obj 205 304 r hatpan; #X obj 328 296 r kickpan; #X obj 493 303 r snarepan; #X obj 619 301 r lotompan; #X obj 739 304 r hitompan; #X text 329 278 pan; #N canvas 0 25 997 637 crash 0; #X obj 318 334 vline~; #X obj 318 361 *~; #X obj 341 517 *~; #X obj 264 280 hip~ 2000; #X obj 438 334 vline~; #X obj 438 361 *~; #X obj 557 334 vline~; #X obj 557 361 *~; #X obj 375 518 *~; #X obj 449 518 *~; #X obj 618 -55 loadbang; #X obj -27 136 *~; #X obj 210 149 *~; #X obj 483 150 *~; #X obj 138 175 *~; #X obj 363 146 *~; #X obj 253 201 *~; #X obj -28 177 *~; #X obj 405 184 *~; #X obj 187 176 *~; #X obj 78 187 *~; #X obj 294 159 *~; #X obj 311 195 *~; #X obj 379 600 *~ 0.5; #X msg 312 5 821; #X msg 414 6 1669; #X msg 529 7 3049; #X obj 523 169 inlet bang; #X obj 556 389 *~; #X msg 102 6 337; #X msg 201 5 509; #X obj 683 123 *~; #X obj 894 122 *~; #X obj 1121 109 *~; #X obj 780 124 *~; #X obj 1005 152 *~; #X obj 951 137 *~; #X obj 641 146 *~; #X obj 1108 158 *~; #X obj 864 195 *~; #X obj 823 177 *~; #X obj 917 187 *~; #X obj 966 186 *~; #X obj 248 238 *~ 0.05; #X obj 743 252 *~ 0.05; #X obj 292 493 bp~ 2000 3; #X obj 439 389 *~; #X obj 319 390 *~; #X msg 26 8 431; #X msg 664 -19 293; #X msg 740 -21 1511; #X msg 839 -22 1021; #X msg 950 -22 631; #X msg 1052 -21 1277; #X msg 1167 -20 2293; #X msg 439 306 1 0 0 \, 0 70 0; #X msg 317 305 1 0 0 \, 0 30 0; #X msg 852 364 1; #X msg 883 364 0; #X obj 883 340 sel 0; #X obj 379 619 outlet~; #X obj 380 549 hip~ 3000; #X msg 884 283 1 0 \, 0 3100; #X obj 884 302 line 1 3100; #X text 207 -49 phasors through expr~ stuff make square waves; #X text 956 333 switch computation on/off; #X obj 523 205 t b b b b b; #X obj -122 76 *~ 1; #N canvas 0 25 1018 658 antialiastabosc 0; #X obj 226 230 until; #X obj 232 194 t b f; #X obj 226 253 f; #X obj 255 253 + 1; #X obj 311 362 *; #X msg 374 485 bang; #X msg 284 192 1; #X obj 211 364 mod 2; #X obj 211 342 t f f; #X obj 236 436 pow -1; #X obj 211 387 pack f f; #X obj 211 409 route 0 1; #X msg 201 436 0; #X obj 226 312 t f f f; #X obj 261 466 spigot; #X obj 211 466 spigot; #X msg 294 445 1; #X msg 280 420 1; #X obj 374 412 t b b b; #X msg 323 445 0; #X msg 308 420 0; #X msg 402 291 \; squaretable1 sinesum 32768 1 0 0.333333 0 0.2 0 0.142857 0 0.111111 0 0.0909091 0 0.0769231 0 0.0666667 0 0.0588235 0 0.0526316 0 0.047619 0 0.0434783 0 0.04; #X obj 232 158 t f b b b b; #X msg 389 260 set; #X msg 417 260 addsemi; #X obj 346 193 t b b b; #X obj 232 71 moses 20; #X msg 239 523 add2 \$1; #X obj 277 119 t b f; #X obj 277 93 t f f; #X obj 311 390 moses 11025; #X text 381 390 for ring-modulation purposes; #X obj 69 537 outlet~; #X obj 232 39 inlet; #X msg 469 259 add2 squaretable1 sinesum 32768; #X obj 721 231 table squaretable1 32771; #X obj 68 232 tabosc4~ squaretable1; #X connect 0 0 2 0; #X connect 1 0 0 0; #X connect 1 1 4 1; #X connect 2 0 3 0; #X connect 2 0 13 0; #X connect 3 0 2 1; #X connect 4 0 30 0; #X connect 5 0 0 1; #X connect 6 0 2 1; #X connect 7 0 10 0; #X connect 8 0 7 0; #X connect 8 1 10 1; #X connect 9 0 15 0; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 11 1 9 0; #X connect 12 0 15 0; #X connect 13 0 8 0; #X connect 13 1 14 0; #X connect 13 2 4 0; #X connect 15 0 27 0; #X connect 16 0 14 1; #X connect 17 0 15 1; #X connect 18 0 20 0; #X connect 18 1 19 0; #X connect 18 2 5 0; #X connect 19 0 14 1; #X connect 20 0 15 1; #X connect 22 0 1 0; #X connect 22 1 6 0; #X connect 22 2 17 0; #X connect 22 3 16 0; #X connect 22 4 25 0; #X connect 23 0 21 0; #X connect 24 0 21 0; #X connect 25 0 34 0; #X connect 25 1 24 0; #X connect 25 2 23 0; #X connect 26 1 29 0; #X connect 27 0 21 0; #X connect 28 0 21 0; #X connect 28 1 22 0; #X connect 29 0 36 0; #X connect 29 1 28 0; #X connect 30 1 18 0; #X connect 33 0 26 0; #X connect 34 0 21 0; #X connect 36 0 32 0; #X restore -73 52 pd antialiastabosc; #X obj 13 98 *~ 1; #X obj 177 75 *~ 1; #X obj 290 101 *~ 1; #X obj 423 79 *~ 1; #X obj 523 98 *~ 1; #X obj 635 51 *~ 1; #X obj 743 72 *~ 1; #X obj 843 50 *~ 1; #X obj 948 70 *~ 1; #X obj 1051 47 *~ 1; #X obj 1161 72 *~ 1; #N canvas 0 25 1018 658 antialiastabosc 0; #X obj 226 230 until; #X obj 232 194 t b f; #X obj 226 253 f; #X obj 255 253 + 1; #X obj 311 362 *; #X msg 374 485 bang; #X msg 284 192 1; #X obj 211 364 mod 2; #X obj 211 342 t f f; #X obj 236 436 pow -1; #X obj 211 387 pack f f; #X obj 211 409 route 0 1; #X msg 201 436 0; #X obj 226 312 t f f f; #X obj 261 466 spigot; #X obj 211 466 spigot; #X msg 294 445 1; #X msg 280 420 1; #X obj 374 412 t b b b; #X msg 323 445 0; #X msg 308 420 0; #X obj 232 158 t f b b b b; #X msg 389 260 set; #X msg 417 260 addsemi; #X obj 346 193 t b b b; #X obj 232 71 moses 20; #X msg 239 523 add2 \$1; #X obj 277 119 t b f; #X obj 277 93 t f f; #X obj 311 390 moses 11025; #X text 381 390 for ring-modulation purposes; #X obj 69 537 outlet~; #X obj 232 39 inlet; #X msg 402 291 \; squaretable2 sinesum 32768 1 0 0.333333 0 0.2 0 0.142857 0 0.111111 0 0.0909091 0 0.0769231 0 0.0666667 0 0.0588235 0 0.0526316 0 0.047619 0 0.0434783 0 0.04 0 0.037037 0 0.0344828 0 0.0322581 0 ; #X msg 469 259 add2 squaretable2 sinesum 32768; #X obj 712 232 table squaretable2 32771; #X obj 68 232 tabosc4~ squaretable2; #X connect 0 0 2 0; #X connect 1 0 0 0; #X connect 1 1 4 1; #X connect 2 0 3 0; #X connect 2 0 13 0; #X connect 3 0 2 1; #X connect 4 0 29 0; #X connect 5 0 0 1; #X connect 6 0 2 1; #X connect 7 0 10 0; #X connect 8 0 7 0; #X connect 8 1 10 1; #X connect 9 0 15 0; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 11 1 9 0; #X connect 12 0 15 0; #X connect 13 0 8 0; #X connect 13 1 14 0; #X connect 13 2 4 0; #X connect 15 0 26 0; #X connect 16 0 14 1; #X connect 17 0 15 1; #X connect 18 0 20 0; #X connect 18 1 19 0; #X connect 18 2 5 0; #X connect 19 0 14 1; #X connect 20 0 15 1; #X connect 21 0 1 0; #X connect 21 1 6 0; #X connect 21 2 17 0; #X connect 21 3 16 0; #X connect 21 4 24 0; #X connect 22 0 33 0; #X connect 23 0 33 0; #X connect 24 0 34 0; #X connect 24 1 23 0; #X connect 24 2 22 0; #X connect 25 1 28 0; #X connect 26 0 33 0; #X connect 27 0 33 0; #X connect 27 1 21 0; #X connect 28 0 36 0; #X connect 28 1 27 0; #X connect 29 1 18 0; #X connect 32 0 25 0; #X connect 34 0 33 0; #X connect 36 0 31 0; #X restore 41 52 pd antialiastabosc; #N canvas 0 25 1018 658 antialiastabosc 0; #X obj 226 230 until; #X obj 232 194 t b f; #X obj 226 253 f; #X obj 255 253 + 1; #X obj 311 362 *; #X msg 374 485 bang; #X msg 284 192 1; #X obj 211 364 mod 2; #X obj 211 342 t f f; #X obj 236 436 pow -1; #X obj 211 387 pack f f; #X obj 211 409 route 0 1; #X msg 201 436 0; #X obj 226 312 t f f f; #X obj 261 466 spigot; #X obj 211 466 spigot; #X msg 294 445 1; #X msg 280 420 1; #X obj 374 412 t b b b; #X msg 323 445 0; #X msg 308 420 0; #X obj 232 158 t f b b b b; #X msg 389 260 set; #X msg 417 260 addsemi; #X obj 346 193 t b b b; #X obj 232 71 moses 20; #X msg 239 523 add2 \$1; #X obj 277 119 t b f; #X obj 277 93 t f f; #X obj 311 390 moses 11025; #X text 381 390 for ring-modulation purposes; #X obj 69 537 outlet~; #X obj 232 39 inlet; #X msg 402 291 \; squaretable3 sinesum 32768 1 0 0.333333 0 0.2 0 0.142857 0 0.111111 0 0.0909091 0 0.0769231 0 0.0666667 0 0.0588235 0 0.0526316 0 0.047619; #X msg 469 259 add2 squaretable3 sinesum 32768; #X obj 712 232 table squaretable3 32771; #X obj 68 232 tabosc4~ squaretable3; #X connect 0 0 2 0; #X connect 1 0 0 0; #X connect 1 1 4 1; #X connect 2 0 3 0; #X connect 2 0 13 0; #X connect 3 0 2 1; #X connect 4 0 29 0; #X connect 5 0 0 1; #X connect 6 0 2 1; #X connect 7 0 10 0; #X connect 8 0 7 0; #X connect 8 1 10 1; #X connect 9 0 15 0; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 11 1 9 0; #X connect 12 0 15 0; #X connect 13 0 8 0; #X connect 13 1 14 0; #X connect 13 2 4 0; #X connect 15 0 26 0; #X connect 16 0 14 1; #X connect 17 0 15 1; #X connect 18 0 20 0; #X connect 18 1 19 0; #X connect 18 2 5 0; #X connect 19 0 14 1; #X connect 20 0 15 1; #X connect 21 0 1 0; #X connect 21 1 6 0; #X connect 21 2 17 0; #X connect 21 3 16 0; #X connect 21 4 24 0; #X connect 22 0 33 0; #X connect 23 0 33 0; #X connect 24 0 34 0; #X connect 24 1 23 0; #X connect 24 2 22 0; #X connect 25 1 28 0; #X connect 26 0 33 0; #X connect 27 0 33 0; #X connect 27 1 21 0; #X connect 28 0 36 0; #X connect 28 1 27 0; #X connect 29 1 18 0; #X connect 32 0 25 0; #X connect 34 0 33 0; #X connect 36 0 31 0; #X restore 167 52 pd antialiastabosc; #N canvas 0 25 1018 658 antialiastabosc 0; #X obj 226 230 until; #X obj 232 194 t b f; #X obj 226 253 f; #X obj 255 253 + 1; #X obj 311 362 *; #X msg 374 485 bang; #X msg 284 192 1; #X obj 211 364 mod 2; #X obj 211 342 t f f; #X obj 236 436 pow -1; #X obj 211 387 pack f f; #X obj 211 409 route 0 1; #X msg 201 436 0; #X obj 226 312 t f f f; #X obj 261 466 spigot; #X obj 211 466 spigot; #X msg 294 445 1; #X msg 280 420 1; #X obj 374 412 t b b b; #X msg 323 445 0; #X msg 308 420 0; #X obj 232 158 t f b b b b; #X msg 389 260 set; #X msg 417 260 addsemi; #X obj 346 193 t b b b; #X obj 232 71 moses 20; #X msg 239 523 add2 \$1; #X obj 277 119 t b f; #X obj 277 93 t f f; #X obj 311 390 moses 11025; #X text 381 390 for ring-modulation purposes; #X obj 69 537 outlet~; #X obj 232 39 inlet; #X msg 402 291 \; squaretable4 sinesum 32768 1 0 0.333333 0 0.2 0 0.142857 0 0.111111 0 0.0909091 0 0.0769231; #X msg 469 259 add2 squaretable4 sinesum 32768; #X obj 712 232 table squaretable4 32771; #X obj 68 232 tabosc4~ squaretable4; #X connect 0 0 2 0; #X connect 1 0 0 0; #X connect 1 1 4 1; #X connect 2 0 3 0; #X connect 2 0 13 0; #X connect 3 0 2 1; #X connect 4 0 29 0; #X connect 5 0 0 1; #X connect 6 0 2 1; #X connect 7 0 10 0; #X connect 8 0 7 0; #X connect 8 1 10 1; #X connect 9 0 15 0; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 11 1 9 0; #X connect 12 0 15 0; #X connect 13 0 8 0; #X connect 13 1 14 0; #X connect 13 2 4 0; #X connect 15 0 26 0; #X connect 16 0 14 1; #X connect 17 0 15 1; #X connect 18 0 20 0; #X connect 18 1 19 0; #X connect 18 2 5 0; #X connect 19 0 14 1; #X connect 20 0 15 1; #X connect 21 0 1 0; #X connect 21 1 6 0; #X connect 21 2 17 0; #X connect 21 3 16 0; #X connect 21 4 24 0; #X connect 22 0 33 0; #X connect 23 0 33 0; #X connect 24 0 34 0; #X connect 24 1 23 0; #X connect 24 2 22 0; #X connect 25 1 28 0; #X connect 26 0 33 0; #X connect 27 0 33 0; #X connect 27 1 21 0; #X connect 28 0 36 0; #X connect 28 1 27 0; #X connect 29 1 18 0; #X connect 32 0 25 0; #X connect 34 0 33 0; #X connect 36 0 31 0; #X restore 281 52 pd antialiastabosc; #N canvas 0 25 1018 658 antialiastabosc 0; #X obj 226 230 until; #X obj 232 194 t b f; #X obj 226 253 f; #X obj 255 253 + 1; #X obj 311 362 *; #X msg 374 485 bang; #X msg 284 192 1; #X obj 211 364 mod 2; #X obj 211 342 t f f; #X obj 236 436 pow -1; #X obj 211 387 pack f f; #X obj 211 409 route 0 1; #X msg 201 436 0; #X obj 226 312 t f f f; #X obj 261 466 spigot; #X obj 211 466 spigot; #X msg 294 445 1; #X msg 280 420 1; #X obj 374 412 t b b b; #X msg 323 445 0; #X msg 308 420 0; #X obj 232 158 t f b b b b; #X msg 389 260 set; #X msg 417 260 addsemi; #X obj 346 193 t b b b; #X obj 232 71 moses 20; #X msg 239 523 add2 \$1; #X obj 277 119 t b f; #X obj 277 93 t f f; #X obj 311 390 moses 11025; #X text 381 390 for ring-modulation purposes; #X obj 69 537 outlet~; #X obj 232 39 inlet; #X msg 402 291 \; squaretable5 sinesum 32768 1 0 0.333333 0 0.2 0; #X msg 469 259 add2 squaretable5 sinesum 32768; #X obj 712 232 table squaretable5 32771; #X obj 68 232 tabosc4~ squaretable5; #X connect 0 0 2 0; #X connect 1 0 0 0; #X connect 1 1 4 1; #X connect 2 0 3 0; #X connect 2 0 13 0; #X connect 3 0 2 1; #X connect 4 0 29 0; #X connect 5 0 0 1; #X connect 6 0 2 1; #X connect 7 0 10 0; #X connect 8 0 7 0; #X connect 8 1 10 1; #X connect 9 0 15 0; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 11 1 9 0; #X connect 12 0 15 0; #X connect 13 0 8 0; #X connect 13 1 14 0; #X connect 13 2 4 0; #X connect 15 0 26 0; #X connect 16 0 14 1; #X connect 17 0 15 1; #X connect 18 0 20 0; #X connect 18 1 19 0; #X connect 18 2 5 0; #X connect 19 0 14 1; #X connect 20 0 15 1; #X connect 21 0 1 0; #X connect 21 1 6 0; #X connect 21 2 17 0; #X connect 21 3 16 0; #X connect 21 4 24 0; #X connect 22 0 33 0; #X connect 23 0 33 0; #X connect 24 0 34 0; #X connect 24 1 23 0; #X connect 24 2 22 0; #X connect 25 1 28 0; #X connect 26 0 33 0; #X connect 27 0 33 0; #X connect 27 1 21 0; #X connect 28 0 36 0; #X connect 28 1 27 0; #X connect 29 1 18 0; #X connect 32 0 25 0; #X connect 34 0 33 0; #X connect 36 0 31 0; #X restore 397 52 pd antialiastabosc; #N canvas 0 25 1018 658 antialiastabosc 0; #X obj 226 230 until; #X obj 232 194 t b f; #X obj 226 253 f; #X obj 255 253 + 1; #X obj 311 362 *; #X msg 374 485 bang; #X msg 284 192 1; #X obj 211 364 mod 2; #X obj 211 342 t f f; #X obj 236 436 pow -1; #X obj 211 387 pack f f; #X obj 211 409 route 0 1; #X msg 201 436 0; #X obj 226 312 t f f f; #X obj 261 466 spigot; #X obj 211 466 spigot; #X msg 294 445 1; #X msg 280 420 1; #X obj 374 412 t b b b; #X msg 323 445 0; #X msg 308 420 0; #X obj 232 158 t f b b b b; #X msg 389 260 set; #X msg 417 260 addsemi; #X obj 346 193 t b b b; #X obj 232 71 moses 20; #X msg 239 523 add2 \$1; #X obj 277 119 t b f; #X obj 277 93 t f f; #X obj 311 390 moses 11025; #X text 381 390 for ring-modulation purposes; #X obj 69 537 outlet~; #X obj 232 39 inlet; #X msg 402 291 \; squaretable6 sinesum 32768 1 0 0.333333; #X msg 469 259 add2 squaretable6 sinesum 32768; #X obj 712 232 table squaretable6 32771; #X obj 68 232 tabosc4~ squaretable6; #X connect 0 0 2 0; #X connect 1 0 0 0; #X connect 1 1 4 1; #X connect 2 0 3 0; #X connect 2 0 13 0; #X connect 3 0 2 1; #X connect 4 0 29 0; #X connect 5 0 0 1; #X connect 6 0 2 1; #X connect 7 0 10 0; #X connect 8 0 7 0; #X connect 8 1 10 1; #X connect 9 0 15 0; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 11 1 9 0; #X connect 12 0 15 0; #X connect 13 0 8 0; #X connect 13 1 14 0; #X connect 13 2 4 0; #X connect 15 0 26 0; #X connect 16 0 14 1; #X connect 17 0 15 1; #X connect 18 0 20 0; #X connect 18 1 19 0; #X connect 18 2 5 0; #X connect 19 0 14 1; #X connect 20 0 15 1; #X connect 21 0 1 0; #X connect 21 1 6 0; #X connect 21 2 17 0; #X connect 21 3 16 0; #X connect 21 4 24 0; #X connect 22 0 33 0; #X connect 23 0 33 0; #X connect 24 0 34 0; #X connect 24 1 23 0; #X connect 24 2 22 0; #X connect 25 1 28 0; #X connect 26 0 33 0; #X connect 27 0 33 0; #X connect 27 1 21 0; #X connect 28 0 36 0; #X connect 28 1 27 0; #X connect 29 1 18 0; #X connect 32 0 25 0; #X connect 34 0 33 0; #X connect 36 0 31 0; #X restore 511 52 pd antialiastabosc; #N canvas 0 25 1018 658 antialiastabosc 0; #X obj 226 230 until; #X obj 232 194 t b f; #X obj 226 253 f; #X obj 255 253 + 1; #X obj 311 362 *; #X msg 374 485 bang; #X msg 284 192 1; #X obj 211 364 mod 2; #X obj 211 342 t f f; #X obj 236 436 pow -1; #X obj 211 387 pack f f; #X obj 211 409 route 0 1; #X msg 201 436 0; #X obj 226 312 t f f f; #X obj 261 466 spigot; #X obj 211 466 spigot; #X msg 294 445 1; #X msg 280 420 1; #X obj 374 412 t b b b; #X msg 323 445 0; #X msg 308 420 0; #X obj 232 158 t f b b b b; #X msg 389 260 set; #X msg 417 260 addsemi; #X obj 346 193 t b b b; #X obj 232 71 moses 20; #X msg 239 523 add2 \$1; #X obj 277 119 t b f; #X obj 277 93 t f f; #X obj 311 390 moses 11025; #X text 381 390 for ring-modulation purposes; #X obj 69 537 outlet~; #X obj 232 39 inlet; #X msg 402 291 \; squaretable7 sinesum 32768 1 0 0.333333 0 0.2 0 0.142857 0 0.111111 0 0.0909091 0 0.0769231 0 0.0666667 0 0.0588235 0 0.0526316 0 0.047619 0 0.0434783 0 0.04 0 0.037037 0 0.0344828 0 0.0322581 0 0.030303 0 0.0285714 0 0.027027; #X obj 68 232 tabosc4~ squaretable7; #X obj 712 232 table squaretable7 32771; #X msg 469 259 add2 squaretable7 sinesum 32768; #X connect 0 0 2 0; #X connect 1 0 0 0; #X connect 1 1 4 1; #X connect 2 0 3 0; #X connect 2 0 13 0; #X connect 3 0 2 1; #X connect 4 0 29 0; #X connect 5 0 0 1; #X connect 6 0 2 1; #X connect 7 0 10 0; #X connect 8 0 7 0; #X connect 8 1 10 1; #X connect 9 0 15 0; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 11 1 9 0; #X connect 12 0 15 0; #X connect 13 0 8 0; #X connect 13 1 14 0; #X connect 13 2 4 0; #X connect 15 0 26 0; #X connect 16 0 14 1; #X connect 17 0 15 1; #X connect 18 0 20 0; #X connect 18 1 19 0; #X connect 18 2 5 0; #X connect 19 0 14 1; #X connect 20 0 15 1; #X connect 21 0 1 0; #X connect 21 1 6 0; #X connect 21 2 17 0; #X connect 21 3 16 0; #X connect 21 4 24 0; #X connect 22 0 33 0; #X connect 23 0 33 0; #X connect 24 0 36 0; #X connect 24 1 23 0; #X connect 24 2 22 0; #X connect 25 1 28 0; #X connect 26 0 33 0; #X connect 27 0 33 0; #X connect 27 1 21 0; #X connect 28 0 34 0; #X connect 28 1 27 0; #X connect 29 1 18 0; #X connect 32 0 25 0; #X connect 34 0 31 0; #X connect 36 0 33 0; #X restore 657 22 pd antialiastabosc; #N canvas 0 25 1018 658 antialiastabosc 0; #X obj 226 230 until; #X obj 232 194 t b f; #X obj 226 253 f; #X obj 255 253 + 1; #X obj 311 362 *; #X msg 374 485 bang; #X msg 284 192 1; #X obj 211 364 mod 2; #X obj 211 342 t f f; #X obj 236 436 pow -1; #X obj 211 387 pack f f; #X obj 211 409 route 0 1; #X msg 201 436 0; #X obj 226 312 t f f f; #X obj 261 466 spigot; #X obj 211 466 spigot; #X msg 294 445 1; #X msg 280 420 1; #X obj 374 412 t b b b; #X msg 323 445 0; #X msg 308 420 0; #X obj 232 158 t f b b b b; #X msg 389 260 set; #X msg 417 260 addsemi; #X obj 346 193 t b b b; #X obj 232 71 moses 20; #X msg 239 523 add2 \$1; #X obj 277 119 t b f; #X obj 277 93 t f f; #X obj 311 390 moses 11025; #X text 381 390 for ring-modulation purposes; #X obj 69 537 outlet~; #X obj 232 39 inlet; #X msg 402 291 \; squaretable8 sinesum 32768 1 0 0.333333 0 0.2 0 0.142857 ; #X msg 474 260 add2 squaretable8 sinesum 32768; #X obj 712 232 table squaretable8 32771; #X obj 68 232 tabosc4~ squaretable8; #X connect 0 0 2 0; #X connect 1 0 0 0; #X connect 1 1 4 1; #X connect 2 0 3 0; #X connect 2 0 13 0; #X connect 3 0 2 1; #X connect 4 0 29 0; #X connect 5 0 0 1; #X connect 6 0 2 1; #X connect 7 0 10 0; #X connect 8 0 7 0; #X connect 8 1 10 1; #X connect 9 0 15 0; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 11 1 9 0; #X connect 12 0 15 0; #X connect 13 0 8 0; #X connect 13 1 14 0; #X connect 13 2 4 0; #X connect 15 0 26 0; #X connect 16 0 14 1; #X connect 17 0 15 1; #X connect 18 0 20 0; #X connect 18 1 19 0; #X connect 18 2 5 0; #X connect 19 0 14 1; #X connect 20 0 15 1; #X connect 21 0 1 0; #X connect 21 1 6 0; #X connect 21 2 17 0; #X connect 21 3 16 0; #X connect 21 4 24 0; #X connect 22 0 33 0; #X connect 23 0 33 0; #X connect 24 0 34 0; #X connect 24 1 23 0; #X connect 24 2 22 0; #X connect 25 1 28 0; #X connect 26 0 33 0; #X connect 27 0 33 0; #X connect 27 1 21 0; #X connect 28 0 36 0; #X connect 28 1 27 0; #X connect 29 1 18 0; #X connect 32 0 25 0; #X connect 34 0 33 0; #X connect 36 0 31 0; #X restore 771 22 pd antialiastabosc; #N canvas 0 25 1018 658 antialiastabosc 0; #X obj 226 230 until; #X obj 232 194 t b f; #X obj 226 253 f; #X obj 255 253 + 1; #X obj 311 362 *; #X msg 374 485 bang; #X msg 284 192 1; #X obj 211 364 mod 2; #X obj 211 342 t f f; #X obj 236 436 pow -1; #X obj 211 387 pack f f; #X obj 211 409 route 0 1; #X msg 201 436 0; #X obj 226 312 t f f f; #X obj 261 466 spigot; #X obj 211 466 spigot; #X msg 294 445 1; #X msg 280 420 1; #X obj 374 412 t b b b; #X msg 323 445 0; #X msg 308 420 0; #X obj 232 158 t f b b b b; #X msg 389 260 set; #X msg 417 260 addsemi; #X obj 346 193 t b b b; #X obj 232 71 moses 20; #X msg 239 523 add2 \$1; #X obj 277 119 t b f; #X obj 277 93 t f f; #X obj 311 390 moses 11025; #X text 381 390 for ring-modulation purposes; #X obj 69 537 outlet~; #X obj 232 39 inlet; #X msg 402 291 \; squaretable9 sinesum 32768 1 0 0.333333 0 0.2 0 0.142857 0 0.111111 0; #X msg 469 260 add2 squaretable9 sinesum 32768; #X obj 712 232 table squaretable9 32771; #X obj 68 232 tabosc4~ squaretable9; #X connect 0 0 2 0; #X connect 1 0 0 0; #X connect 1 1 4 1; #X connect 2 0 3 0; #X connect 2 0 13 0; #X connect 3 0 2 1; #X connect 4 0 29 0; #X connect 5 0 0 1; #X connect 6 0 2 1; #X connect 7 0 10 0; #X connect 8 0 7 0; #X connect 8 1 10 1; #X connect 9 0 15 0; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 11 1 9 0; #X connect 12 0 15 0; #X connect 13 0 8 0; #X connect 13 1 14 0; #X connect 13 2 4 0; #X connect 15 0 26 0; #X connect 16 0 14 1; #X connect 17 0 15 1; #X connect 18 0 20 0; #X connect 18 1 19 0; #X connect 18 2 5 0; #X connect 19 0 14 1; #X connect 20 0 15 1; #X connect 21 0 1 0; #X connect 21 1 6 0; #X connect 21 2 17 0; #X connect 21 3 16 0; #X connect 21 4 24 0; #X connect 22 0 33 0; #X connect 23 0 33 0; #X connect 24 0 34 0; #X connect 24 1 23 0; #X connect 24 2 22 0; #X connect 25 1 28 0; #X connect 26 0 33 0; #X connect 27 0 33 0; #X connect 27 1 21 0; #X connect 28 0 36 0; #X connect 28 1 27 0; #X connect 29 1 18 0; #X connect 32 0 25 0; #X connect 34 0 33 0; #X connect 36 0 31 0; #X restore 839 2 pd antialiastabosc; #N canvas 0 25 1018 658 antialiastabosc 0; #X obj 226 230 until; #X obj 232 194 t b f; #X obj 226 253 f; #X obj 255 253 + 1; #X obj 311 362 *; #X msg 374 485 bang; #X msg 284 192 1; #X obj 211 364 mod 2; #X obj 211 342 t f f; #X obj 236 436 pow -1; #X obj 211 387 pack f f; #X obj 211 409 route 0 1; #X msg 201 436 0; #X obj 226 312 t f f f; #X obj 261 466 spigot; #X obj 211 466 spigot; #X msg 294 445 1; #X msg 280 420 1; #X obj 374 412 t b b b; #X msg 323 445 0; #X msg 308 420 0; #X obj 232 158 t f b b b b; #X msg 389 260 set; #X msg 417 260 addsemi; #X obj 346 193 t b b b; #X obj 232 71 moses 20; #X msg 239 523 add2 \$1; #X obj 277 119 t b f; #X obj 277 93 t f f; #X obj 311 390 moses 11025; #X text 381 390 for ring-modulation purposes; #X obj 69 537 outlet~; #X obj 232 39 inlet; #X msg 402 291 \; squaretable10 sinesum 32768 1 0 0.333333 0 0.2 0 0.142857 0 0.111111 0 0.0909091 0 0.0769231 0 0.0666667 0 0.0588235 ; #X msg 469 259 add2 squaretable10 sinesum 32768; #X obj 712 232 table squaretable10 32771; #X obj 68 232 tabosc4~ squaretable10; #X connect 0 0 2 0; #X connect 1 0 0 0; #X connect 1 1 4 1; #X connect 2 0 3 0; #X connect 2 0 13 0; #X connect 3 0 2 1; #X connect 4 0 29 0; #X connect 5 0 0 1; #X connect 6 0 2 1; #X connect 7 0 10 0; #X connect 8 0 7 0; #X connect 8 1 10 1; #X connect 9 0 15 0; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 11 1 9 0; #X connect 12 0 15 0; #X connect 13 0 8 0; #X connect 13 1 14 0; #X connect 13 2 4 0; #X connect 15 0 26 0; #X connect 16 0 14 1; #X connect 17 0 15 1; #X connect 18 0 20 0; #X connect 18 1 19 0; #X connect 18 2 5 0; #X connect 19 0 14 1; #X connect 20 0 15 1; #X connect 21 0 1 0; #X connect 21 1 6 0; #X connect 21 2 17 0; #X connect 21 3 16 0; #X connect 21 4 24 0; #X connect 22 0 33 0; #X connect 23 0 33 0; #X connect 24 0 34 0; #X connect 24 1 23 0; #X connect 24 2 22 0; #X connect 25 1 28 0; #X connect 26 0 33 0; #X connect 27 0 33 0; #X connect 27 1 21 0; #X connect 28 0 36 0; #X connect 28 1 27 0; #X connect 29 1 18 0; #X connect 32 0 25 0; #X connect 34 0 33 0; #X connect 36 0 31 0; #X restore 953 2 pd antialiastabosc; #N canvas 0 25 1018 658 antialiastabosc 0; #X obj 226 230 until; #X obj 232 194 t b f; #X obj 226 253 f; #X obj 255 253 + 1; #X obj 311 362 *; #X msg 374 485 bang; #X msg 284 192 1; #X obj 211 364 mod 2; #X obj 211 342 t f f; #X obj 236 436 pow -1; #X obj 211 387 pack f f; #X obj 211 409 route 0 1; #X msg 201 436 0; #X obj 226 312 t f f f; #X obj 261 466 spigot; #X obj 211 466 spigot; #X msg 294 445 1; #X msg 280 420 1; #X obj 374 412 t b b b; #X msg 323 445 0; #X msg 308 420 0; #X obj 232 158 t f b b b b; #X msg 389 260 set; #X msg 417 260 addsemi; #X obj 346 193 t b b b; #X obj 232 71 moses 20; #X msg 239 523 add2 \$1; #X obj 277 119 t b f; #X obj 277 93 t f f; #X obj 311 390 moses 11025; #X text 381 390 for ring-modulation purposes; #X obj 69 537 outlet~; #X obj 232 39 inlet; #X msg 402 291 \; squaretable11 sinesum 32768 1 0 0.333333 0 0.2 0 0.142857 0; #X msg 469 259 add2 squaretable11 sinesum 32768; #X obj 712 232 table squaretable11 32771; #X obj 68 232 tabosc4~ squaretable11; #X connect 0 0 2 0; #X connect 1 0 0 0; #X connect 1 1 4 1; #X connect 2 0 3 0; #X connect 2 0 13 0; #X connect 3 0 2 1; #X connect 4 0 29 0; #X connect 5 0 0 1; #X connect 6 0 2 1; #X connect 7 0 10 0; #X connect 8 0 7 0; #X connect 8 1 10 1; #X connect 9 0 15 0; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 11 1 9 0; #X connect 12 0 15 0; #X connect 13 0 8 0; #X connect 13 1 14 0; #X connect 13 2 4 0; #X connect 15 0 26 0; #X connect 16 0 14 1; #X connect 17 0 15 1; #X connect 18 0 20 0; #X connect 18 1 19 0; #X connect 18 2 5 0; #X connect 19 0 14 1; #X connect 20 0 15 1; #X connect 21 0 1 0; #X connect 21 1 6 0; #X connect 21 2 17 0; #X connect 21 3 16 0; #X connect 21 4 24 0; #X connect 22 0 33 0; #X connect 23 0 33 0; #X connect 24 0 34 0; #X connect 24 1 23 0; #X connect 24 2 22 0; #X connect 25 1 28 0; #X connect 26 0 33 0; #X connect 27 0 33 0; #X connect 27 1 21 0; #X connect 28 0 36 0; #X connect 28 1 27 0; #X connect 29 1 18 0; #X connect 32 0 25 0; #X connect 34 0 33 0; #X connect 36 0 31 0; #X restore 1039 22 pd antialiastabosc; #N canvas 0 25 1018 658 antialiastabosc 0; #X obj 226 230 until; #X obj 232 194 t b f; #X obj 226 253 f; #X obj 255 253 + 1; #X obj 311 362 *; #X msg 374 485 bang; #X msg 284 192 1; #X obj 211 364 mod 2; #X obj 211 342 t f f; #X obj 236 436 pow -1; #X obj 211 387 pack f f; #X obj 211 409 route 0 1; #X msg 201 436 0; #X obj 226 312 t f f f; #X obj 261 466 spigot; #X obj 211 466 spigot; #X msg 294 445 1; #X msg 280 420 1; #X obj 374 412 t b b b; #X msg 323 445 0; #X msg 308 420 0; #X obj 232 158 t f b b b b; #X msg 389 260 set; #X msg 417 260 addsemi; #X obj 346 193 t b b b; #X obj 232 71 moses 20; #X msg 239 523 add2 \$1; #X obj 277 119 t b f; #X obj 277 93 t f f; #X obj 311 390 moses 11025; #X text 381 390 for ring-modulation purposes; #X obj 69 537 outlet~; #X obj 232 39 inlet; #X msg 402 291 \; squaretable12 sinesum 32768 1 0 0.333333 0; #X msg 469 259 add2 squaretable12 sinesum 32768; #X obj 712 232 table squaretable12 32771; #X obj 68 232 tabosc4~ squaretable12; #X connect 0 0 2 0; #X connect 1 0 0 0; #X connect 1 1 4 1; #X connect 2 0 3 0; #X connect 2 0 13 0; #X connect 3 0 2 1; #X connect 4 0 29 0; #X connect 5 0 0 1; #X connect 6 0 2 1; #X connect 7 0 10 0; #X connect 8 0 7 0; #X connect 8 1 10 1; #X connect 9 0 15 0; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 11 1 9 0; #X connect 12 0 15 0; #X connect 13 0 8 0; #X connect 13 1 14 0; #X connect 13 2 4 0; #X connect 15 0 26 0; #X connect 16 0 14 1; #X connect 17 0 15 1; #X connect 18 0 20 0; #X connect 18 1 19 0; #X connect 18 2 5 0; #X connect 19 0 14 1; #X connect 20 0 15 1; #X connect 21 0 1 0; #X connect 21 1 6 0; #X connect 21 2 17 0; #X connect 21 3 16 0; #X connect 21 4 24 0; #X connect 22 0 33 0; #X connect 23 0 33 0; #X connect 24 0 34 0; #X connect 24 1 23 0; #X connect 24 2 22 0; #X connect 25 1 28 0; #X connect 26 0 33 0; #X connect 27 0 33 0; #X connect 27 1 21 0; #X connect 28 0 36 0; #X connect 28 1 27 0; #X connect 29 1 18 0; #X connect 32 0 25 0; #X connect 34 0 33 0; #X connect 36 0 31 0; #X restore 1153 22 pd antialiastabosc; #X obj 865 414 switch~; #X msg 557 305 1 0 0 \, 0 3000 0; #X obj 380 574 lop~ 10000; #X obj 461 492 bp~ 12000 3; #X obj 376 493 bp~ 7000 3; #X connect 0 0 1 0; #X connect 0 0 1 1; #X connect 1 0 47 0; #X connect 1 0 47 1; #X connect 2 0 61 0; #X connect 3 0 45 0; #X connect 3 0 94 0; #X connect 3 0 95 0; #X connect 4 0 5 0; #X connect 4 0 5 1; #X connect 5 0 46 0; #X connect 5 0 46 1; #X connect 6 0 7 0; #X connect 6 0 7 1; #X connect 7 0 28 0; #X connect 7 0 28 1; #X connect 8 0 61 0; #X connect 9 0 61 0; #X connect 10 0 48 0; #X connect 10 0 29 0; #X connect 10 0 30 0; #X connect 10 0 24 0; #X connect 10 0 25 0; #X connect 10 0 26 0; #X connect 10 0 49 0; #X connect 10 0 50 0; #X connect 10 0 51 0; #X connect 10 0 52 0; #X connect 10 0 53 0; #X connect 10 0 54 0; #X connect 11 0 43 0; #X connect 12 0 43 0; #X connect 13 0 43 0; #X connect 14 0 43 0; #X connect 15 0 43 0; #X connect 16 0 43 0; #X connect 17 0 43 0; #X connect 18 0 43 0; #X connect 19 0 43 0; #X connect 20 0 43 0; #X connect 21 0 43 0; #X connect 22 0 43 0; #X connect 23 0 60 0; #X connect 24 0 82 0; #X connect 25 0 83 0; #X connect 26 0 84 0; #X connect 27 0 66 0; #X connect 28 0 9 1; #X connect 29 0 80 0; #X connect 30 0 81 0; #X connect 31 0 44 0; #X connect 32 0 44 0; #X connect 33 0 44 0; #X connect 34 0 44 0; #X connect 35 0 44 0; #X connect 36 0 44 0; #X connect 37 0 44 0; #X connect 38 0 44 0; #X connect 39 0 44 0; #X connect 40 0 44 0; #X connect 41 0 44 0; #X connect 42 0 44 0; #X connect 43 0 3 0; #X connect 44 0 3 0; #X connect 45 0 2 0; #X connect 46 0 8 1; #X connect 47 0 2 1; #X connect 48 0 68 0; #X connect 49 0 85 0; #X connect 50 0 86 0; #X connect 51 0 87 0; #X connect 52 0 88 0; #X connect 53 0 89 0; #X connect 54 0 90 0; #X connect 55 0 4 0; #X connect 56 0 0 0; #X connect 57 0 91 0; #X connect 58 0 91 0; #X connect 59 0 58 0; #X connect 61 0 93 0; #X connect 62 0 63 0; #X connect 63 0 59 0; #X connect 66 0 62 0; #X connect 66 1 92 0; #X connect 66 2 55 0; #X connect 66 3 56 0; #X connect 66 4 57 0; #X connect 67 0 11 0; #X connect 67 0 16 0; #X connect 67 0 17 0; #X connect 67 0 20 0; #X connect 68 0 67 0; #X connect 69 0 11 1; #X connect 69 0 14 0; #X connect 69 0 19 0; #X connect 69 0 22 0; #X connect 70 0 12 0; #X connect 70 0 14 1; #X connect 70 0 17 1; #X connect 70 0 21 0; #X connect 71 0 12 1; #X connect 71 0 15 0; #X connect 71 0 18 0; #X connect 71 0 20 1; #X connect 72 0 13 0; #X connect 72 0 15 1; #X connect 72 0 19 1; #X connect 72 0 21 1; #X connect 73 0 13 1; #X connect 73 0 16 1; #X connect 73 0 18 1; #X connect 73 0 22 1; #X connect 74 0 31 0; #X connect 74 0 36 0; #X connect 74 0 37 0; #X connect 74 0 40 0; #X connect 75 0 31 1; #X connect 75 0 34 0; #X connect 75 0 39 0; #X connect 75 0 42 0; #X connect 76 0 32 0; #X connect 76 0 34 1; #X connect 76 0 37 1; #X connect 76 0 41 0; #X connect 77 0 32 1; #X connect 77 0 35 0; #X connect 77 0 38 0; #X connect 77 0 40 1; #X connect 78 0 33 0; #X connect 78 0 35 1; #X connect 78 0 39 1; #X connect 78 0 41 1; #X connect 79 0 33 1; #X connect 79 0 36 1; #X connect 79 0 38 1; #X connect 79 0 42 1; #X connect 80 0 69 0; #X connect 81 0 70 0; #X connect 82 0 71 0; #X connect 83 0 72 0; #X connect 84 0 73 0; #X connect 85 0 74 0; #X connect 86 0 75 0; #X connect 87 0 76 0; #X connect 88 0 77 0; #X connect 89 0 78 0; #X connect 90 0 79 0; #X connect 92 0 6 0; #X connect 93 0 23 0; #X connect 94 0 9 0; #X connect 95 0 8 0; #X restore -75 208 pd crash; #N canvas 0 25 1016 637 hat 0; #X obj 411 304 vline~; #X obj 411 331 *~; #X obj 427 479 hip~ 3000; #X obj 398 428 *~; #X obj 264 280 hip~ 2000; #X obj 531 304 vline~; #X obj 531 331 *~; #X obj 650 304 vline~; #X obj 432 429 *~; #X obj 506 429 *~; #X obj 605 -64 loadbang; #X obj 62 142 *~; #X obj 239 144 *~; #X obj 482 134 *~; #X obj 162 146 *~; #X obj 345 133 *~; #X obj 277 152 *~; #X obj 20 142 *~; #X obj 415 130 *~; #X obj 154 174 *~; #X obj 65 178 *~; #X obj 332 171 *~; #X obj 217 183 *~; #X obj 427 527 *~ 0.5; #X msg 312 5 821; #X msg 414 6 1669; #X msg 529 7 3049; #X obj 534 141 inlet bang; #X msg 102 6 337; #X msg 201 5 509; #X obj 688 121 *~; #X obj 855 122 *~; #X obj 1126 107 *~; #X obj 793 136 *~; #X obj 938 135 *~; #X obj 893 148 *~; #X obj 739 109 *~; #X obj 1027 109 *~; #X obj 869 176 *~; #X obj 792 196 *~; #X obj 926 174 *~; #X obj 980 184 *~; #X obj 248 238 *~ 0.05; #X obj 696 249 *~ 0.05; #X obj 412 360 *~; #X msg 26 8 431; #X msg 664 -19 293; #X msg 740 -21 1511; #X msg 839 -22 1021; #X msg 950 -22 631; #X obj 349 404 bp~ 3000 3; #X msg 409 275 1 0 0 \, 0 30 0; #X msg 531 276 1 0 0 \, 0 50 0; #X msg 650 275 1 0 0 \, 0 80 0; #X msg 1052 -21 857; #X msg 1167 -20 1187; #X obj 176 467 *~; #X obj 88 382 noise~; #X obj 212 410 vline~; #X obj 210 436 *~; #X obj 124 431 hip~ 3000; #X msg 217 382 1 0 0 \, 0 140 0; #X obj 428 547 outlet~; #X msg 793 344 1; #X msg 824 344 0; #X obj 824 322 sel 0; #X msg 825 265 1 0 \, 0 180; #X obj 825 284 line 1 180; #X text 864 321 switch computation on/off; #X text 183 -49 phasors through expr~ stuff make square waves; #X obj 534 188 t b b b b b b; #X obj 798 409 switch~; #N canvas 0 25 1018 658 antialiastabosc 0; #X obj 226 230 until; #X obj 232 194 t b f; #X obj 226 253 f; #X obj 255 253 + 1; #X obj 311 362 *; #X msg 374 485 bang; #X msg 284 192 1; #X obj 211 364 mod 2; #X obj 211 342 t f f; #X obj 236 436 pow -1; #X obj 211 387 pack f f; #X obj 211 409 route 0 1; #X msg 201 436 0; #X obj 226 312 t f f f; #X obj 261 466 spigot; #X obj 211 466 spigot; #X msg 294 445 1; #X msg 280 420 1; #X obj 374 412 t b b b; #X msg 323 445 0; #X msg 308 420 0; #X msg 402 291 \; squaretable1-2 sinesum 32768 1 0 0.333333 0 0.2 0 0.142857 0 0.111111 0 0.0909091 0 0.0769231 0 0.0666667 0 0.0588235 0 0.0526316 0 0.047619 0 0.0434783 0 0.04; #X obj 232 158 t f b b b b; #X msg 389 260 set; #X msg 417 260 addsemi; #X obj 346 193 t b b b; #X obj 232 71 moses 20; #X msg 239 523 add2 \$1; #X obj 277 119 t b f; #X obj 277 93 t f f; #X obj 311 390 moses 11025; #X text 381 390 for ring-modulation purposes; #X obj 69 537 outlet~; #X obj 232 39 inlet; #X msg 469 259 add2 squaretable1-2 sinesum 32768; #X obj 712 232 table squaretable1-2 32771; #X obj 68 232 tabosc4~ squaretable1-2; #X connect 0 0 2 0; #X connect 1 0 0 0; #X connect 1 1 4 1; #X connect 2 0 3 0; #X connect 2 0 13 0; #X connect 3 0 2 1; #X connect 4 0 30 0; #X connect 5 0 0 1; #X connect 6 0 2 1; #X connect 7 0 10 0; #X connect 8 0 7 0; #X connect 8 1 10 1; #X connect 9 0 15 0; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 11 1 9 0; #X connect 12 0 15 0; #X connect 13 0 8 0; #X connect 13 1 14 0; #X connect 13 2 4 0; #X connect 15 0 27 0; #X connect 16 0 14 1; #X connect 17 0 15 1; #X connect 18 0 20 0; #X connect 18 1 19 0; #X connect 18 2 5 0; #X connect 19 0 14 1; #X connect 20 0 15 1; #X connect 22 0 1 0; #X connect 22 1 6 0; #X connect 22 2 17 0; #X connect 22 3 16 0; #X connect 22 4 25 0; #X connect 23 0 21 0; #X connect 24 0 21 0; #X connect 25 0 34 0; #X connect 25 1 24 0; #X connect 25 2 23 0; #X connect 26 1 29 0; #X connect 27 0 21 0; #X connect 28 0 21 0; #X connect 28 1 22 0; #X connect 29 0 36 0; #X connect 29 1 28 0; #X connect 30 1 18 0; #X connect 33 0 26 0; #X connect 34 0 21 0; #X connect 36 0 32 0; #X restore -73 52 pd antialiastabosc; #N canvas 0 25 1018 658 antialiastabosc 0; #X obj 226 230 until; #X obj 232 194 t b f; #X obj 226 253 f; #X obj 255 253 + 1; #X obj 311 362 *; #X msg 374 485 bang; #X msg 284 192 1; #X obj 211 364 mod 2; #X obj 211 342 t f f; #X obj 236 436 pow -1; #X obj 211 387 pack f f; #X obj 211 409 route 0 1; #X msg 201 436 0; #X obj 226 312 t f f f; #X obj 261 466 spigot; #X obj 211 466 spigot; #X msg 294 445 1; #X msg 280 420 1; #X obj 374 412 t b b b; #X msg 323 445 0; #X msg 308 420 0; #X obj 232 158 t f b b b b; #X msg 389 260 set; #X msg 417 260 addsemi; #X obj 346 193 t b b b; #X obj 232 71 moses 20; #X msg 239 523 add2 \$1; #X obj 277 119 t b f; #X obj 277 93 t f f; #X obj 311 390 moses 11025; #X text 381 390 for ring-modulation purposes; #X obj 69 537 outlet~; #X obj 232 39 inlet; #X msg 402 291 \; squaretable2-2 sinesum 32768 1 0 0.333333 0 0.2 0 0.142857 0 0.111111 0 0.0909091 0 0.0769231 0 0.0666667 0 0.0588235 0 0.0526316 0 0.047619 0 0.0434783 0 0.04 0 0.037037 0 0.0344828 0 0.0322581 0; #X msg 469 259 add2 squaretable2-2 sinesum 32768; #X obj 712 232 table squaretable2-2 32771; #X obj 68 232 tabosc4~ squaretable2-2; #X connect 0 0 2 0; #X connect 1 0 0 0; #X connect 1 1 4 1; #X connect 2 0 3 0; #X connect 2 0 13 0; #X connect 3 0 2 1; #X connect 4 0 29 0; #X connect 5 0 0 1; #X connect 6 0 2 1; #X connect 7 0 10 0; #X connect 8 0 7 0; #X connect 8 1 10 1; #X connect 9 0 15 0; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 11 1 9 0; #X connect 12 0 15 0; #X connect 13 0 8 0; #X connect 13 1 14 0; #X connect 13 2 4 0; #X connect 15 0 26 0; #X connect 16 0 14 1; #X connect 17 0 15 1; #X connect 18 0 20 0; #X connect 18 1 19 0; #X connect 18 2 5 0; #X connect 19 0 14 1; #X connect 20 0 15 1; #X connect 21 0 1 0; #X connect 21 1 6 0; #X connect 21 2 17 0; #X connect 21 3 16 0; #X connect 21 4 24 0; #X connect 22 0 33 0; #X connect 23 0 33 0; #X connect 24 0 34 0; #X connect 24 1 23 0; #X connect 24 2 22 0; #X connect 25 1 28 0; #X connect 26 0 33 0; #X connect 27 0 33 0; #X connect 27 1 21 0; #X connect 28 0 36 0; #X connect 28 1 27 0; #X connect 29 1 18 0; #X connect 32 0 25 0; #X connect 34 0 33 0; #X connect 36 0 31 0; #X restore 42 51 pd antialiastabosc; #N canvas 0 25 1018 658 antialiastabosc 0; #X obj 226 230 until; #X obj 232 194 t b f; #X obj 226 253 f; #X obj 255 253 + 1; #X obj 311 362 *; #X msg 374 485 bang; #X msg 284 192 1; #X obj 211 364 mod 2; #X obj 211 342 t f f; #X obj 236 436 pow -1; #X obj 211 387 pack f f; #X obj 211 409 route 0 1; #X msg 201 436 0; #X obj 226 312 t f f f; #X obj 261 466 spigot; #X obj 211 466 spigot; #X msg 294 445 1; #X msg 280 420 1; #X obj 374 412 t b b b; #X msg 323 445 0; #X msg 308 420 0; #X obj 232 158 t f b b b b; #X msg 389 260 set; #X msg 417 260 addsemi; #X obj 346 193 t b b b; #X obj 232 71 moses 20; #X msg 239 523 add2 \$1; #X obj 277 119 t b f; #X obj 277 93 t f f; #X obj 311 390 moses 11025; #X text 381 390 for ring-modulation purposes; #X obj 69 537 outlet~; #X obj 232 39 inlet; #X msg 402 291 \; squaretable3-2 sinesum 32768 1 0 0.333333 0 0.2 0 0.142857 0 0.111111 0 0.0909091 0 0.0769231 0 0.0666667 0 0.0588235 0 0.0526316 0 0.047619; #X msg 469 259 add2 squaretable3-2 sinesum 32768; #X obj 712 232 table squaretable3-2 32771; #X obj 68 232 tabosc4~ squaretable3-2; #X connect 0 0 2 0; #X connect 1 0 0 0; #X connect 1 1 4 1; #X connect 2 0 3 0; #X connect 2 0 13 0; #X connect 3 0 2 1; #X connect 4 0 29 0; #X connect 5 0 0 1; #X connect 6 0 2 1; #X connect 7 0 10 0; #X connect 8 0 7 0; #X connect 8 1 10 1; #X connect 9 0 15 0; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 11 1 9 0; #X connect 12 0 15 0; #X connect 13 0 8 0; #X connect 13 1 14 0; #X connect 13 2 4 0; #X connect 15 0 26 0; #X connect 16 0 14 1; #X connect 17 0 15 1; #X connect 18 0 20 0; #X connect 18 1 19 0; #X connect 18 2 5 0; #X connect 19 0 14 1; #X connect 20 0 15 1; #X connect 21 0 1 0; #X connect 21 1 6 0; #X connect 21 2 17 0; #X connect 21 3 16 0; #X connect 21 4 24 0; #X connect 22 0 33 0; #X connect 23 0 33 0; #X connect 24 0 34 0; #X connect 24 1 23 0; #X connect 24 2 22 0; #X connect 25 1 28 0; #X connect 26 0 33 0; #X connect 27 0 33 0; #X connect 27 1 21 0; #X connect 28 0 36 0; #X connect 28 1 27 0; #X connect 29 1 18 0; #X connect 32 0 25 0; #X connect 34 0 33 0; #X connect 36 0 31 0; #X restore 167 52 pd antialiastabosc; #N canvas 0 25 1018 658 antialiastabosc 0; #X obj 226 230 until; #X obj 232 194 t b f; #X obj 226 253 f; #X obj 255 253 + 1; #X obj 311 362 *; #X msg 374 485 bang; #X msg 284 192 1; #X obj 211 364 mod 2; #X obj 211 342 t f f; #X obj 236 436 pow -1; #X obj 211 387 pack f f; #X obj 211 409 route 0 1; #X msg 201 436 0; #X obj 226 312 t f f f; #X obj 261 466 spigot; #X obj 211 466 spigot; #X msg 294 445 1; #X msg 280 420 1; #X obj 374 412 t b b b; #X msg 323 445 0; #X msg 308 420 0; #X obj 232 158 t f b b b b; #X msg 389 260 set; #X msg 417 260 addsemi; #X obj 346 193 t b b b; #X obj 232 71 moses 20; #X msg 239 523 add2 \$1; #X obj 277 119 t b f; #X obj 277 93 t f f; #X obj 311 390 moses 11025; #X text 381 390 for ring-modulation purposes; #X obj 69 537 outlet~; #X obj 232 39 inlet; #X msg 402 291 \; squaretable4-2 sinesum 32768 1 0 0.333333 0 0.2 0 0.142857 0 0.111111 0 0.0909091 0 0.0769231; #X msg 469 259 add2 squaretable4-2 sinesum 32768; #X obj 712 232 table squaretable4-2 32771; #X obj 68 232 tabosc4~ squaretable4-2; #X connect 0 0 2 0; #X connect 1 0 0 0; #X connect 1 1 4 1; #X connect 2 0 3 0; #X connect 2 0 13 0; #X connect 3 0 2 1; #X connect 4 0 29 0; #X connect 5 0 0 1; #X connect 6 0 2 1; #X connect 7 0 10 0; #X connect 8 0 7 0; #X connect 8 1 10 1; #X connect 9 0 15 0; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 11 1 9 0; #X connect 12 0 15 0; #X connect 13 0 8 0; #X connect 13 1 14 0; #X connect 13 2 4 0; #X connect 15 0 26 0; #X connect 16 0 14 1; #X connect 17 0 15 1; #X connect 18 0 20 0; #X connect 18 1 19 0; #X connect 18 2 5 0; #X connect 19 0 14 1; #X connect 20 0 15 1; #X connect 21 0 1 0; #X connect 21 1 6 0; #X connect 21 2 17 0; #X connect 21 3 16 0; #X connect 21 4 24 0; #X connect 22 0 33 0; #X connect 23 0 33 0; #X connect 24 0 34 0; #X connect 24 1 23 0; #X connect 24 2 22 0; #X connect 25 1 28 0; #X connect 26 0 33 0; #X connect 27 0 33 0; #X connect 27 1 21 0; #X connect 28 0 36 0; #X connect 28 1 27 0; #X connect 29 1 18 0; #X connect 32 0 25 0; #X connect 34 0 33 0; #X connect 36 0 31 0; #X restore 281 52 pd antialiastabosc; #N canvas 0 25 1018 658 antialiastabosc 0; #X obj 226 230 until; #X obj 232 194 t b f; #X obj 226 253 f; #X obj 255 253 + 1; #X obj 311 362 *; #X msg 374 485 bang; #X msg 284 192 1; #X obj 211 364 mod 2; #X obj 211 342 t f f; #X obj 236 436 pow -1; #X obj 211 387 pack f f; #X obj 211 409 route 0 1; #X msg 201 436 0; #X obj 226 312 t f f f; #X obj 261 466 spigot; #X obj 211 466 spigot; #X msg 294 445 1; #X msg 280 420 1; #X obj 374 412 t b b b; #X msg 323 445 0; #X msg 308 420 0; #X obj 232 158 t f b b b b; #X msg 389 260 set; #X msg 417 260 addsemi; #X obj 346 193 t b b b; #X obj 232 71 moses 20; #X msg 239 523 add2 \$1; #X obj 277 119 t b f; #X obj 277 93 t f f; #X obj 311 390 moses 11025; #X text 381 390 for ring-modulation purposes; #X obj 69 537 outlet~; #X obj 232 39 inlet; #X msg 402 291 \; squaretable5-2 sinesum 32768 1 0 0.333333 0 0.2 0 ; #X msg 469 260 add2 squaretable5-2 sinesum 32768; #X obj 712 232 table squaretable5-2 32771; #X obj 68 232 tabosc4~ squaretable5-2; #X connect 0 0 2 0; #X connect 1 0 0 0; #X connect 1 1 4 1; #X connect 2 0 3 0; #X connect 2 0 13 0; #X connect 3 0 2 1; #X connect 4 0 29 0; #X connect 5 0 0 1; #X connect 6 0 2 1; #X connect 7 0 10 0; #X connect 8 0 7 0; #X connect 8 1 10 1; #X connect 9 0 15 0; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 11 1 9 0; #X connect 12 0 15 0; #X connect 13 0 8 0; #X connect 13 1 14 0; #X connect 13 2 4 0; #X connect 15 0 26 0; #X connect 16 0 14 1; #X connect 17 0 15 1; #X connect 18 0 20 0; #X connect 18 1 19 0; #X connect 18 2 5 0; #X connect 19 0 14 1; #X connect 20 0 15 1; #X connect 21 0 1 0; #X connect 21 1 6 0; #X connect 21 2 17 0; #X connect 21 3 16 0; #X connect 21 4 24 0; #X connect 22 0 33 0; #X connect 23 0 33 0; #X connect 24 0 34 0; #X connect 24 1 23 0; #X connect 24 2 22 0; #X connect 25 1 28 0; #X connect 26 0 33 0; #X connect 27 0 33 0; #X connect 27 1 21 0; #X connect 28 0 36 0; #X connect 28 1 27 0; #X connect 29 1 18 0; #X connect 32 0 25 0; #X connect 34 0 33 0; #X connect 36 0 31 0; #X restore 397 52 pd antialiastabosc; #N canvas 0 25 1018 658 antialiastabosc 0; #X obj 226 230 until; #X obj 232 194 t b f; #X obj 226 253 f; #X obj 255 253 + 1; #X obj 311 362 *; #X msg 374 485 bang; #X msg 284 192 1; #X obj 211 364 mod 2; #X obj 211 342 t f f; #X obj 236 436 pow -1; #X obj 211 387 pack f f; #X obj 211 409 route 0 1; #X msg 201 436 0; #X obj 226 312 t f f f; #X obj 261 466 spigot; #X obj 211 466 spigot; #X msg 294 445 1; #X msg 280 420 1; #X obj 374 412 t b b b; #X msg 323 445 0; #X msg 308 420 0; #X obj 232 158 t f b b b b; #X msg 389 260 set; #X msg 417 260 addsemi; #X obj 346 193 t b b b; #X obj 232 71 moses 20; #X msg 239 523 add2 \$1; #X obj 277 119 t b f; #X obj 277 93 t f f; #X obj 311 390 moses 11025; #X text 381 390 for ring-modulation purposes; #X obj 69 537 outlet~; #X obj 232 39 inlet; #X msg 402 291 \; squaretable6-2 sinesum 32768 1 0 0.333333; #X msg 469 259 add2 squaretable6-2 sinesum 32768; #X obj 712 232 table squaretable6-2 32771; #X obj 68 232 tabosc4~ squaretable6-2; #X connect 0 0 2 0; #X connect 1 0 0 0; #X connect 1 1 4 1; #X connect 2 0 3 0; #X connect 2 0 13 0; #X connect 3 0 2 1; #X connect 4 0 29 0; #X connect 5 0 0 1; #X connect 6 0 2 1; #X connect 7 0 10 0; #X connect 8 0 7 0; #X connect 8 1 10 1; #X connect 9 0 15 0; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 11 1 9 0; #X connect 12 0 15 0; #X connect 13 0 8 0; #X connect 13 1 14 0; #X connect 13 2 4 0; #X connect 15 0 26 0; #X connect 16 0 14 1; #X connect 17 0 15 1; #X connect 18 0 20 0; #X connect 18 1 19 0; #X connect 18 2 5 0; #X connect 19 0 14 1; #X connect 20 0 15 1; #X connect 21 0 1 0; #X connect 21 1 6 0; #X connect 21 2 17 0; #X connect 21 3 16 0; #X connect 21 4 24 0; #X connect 22 0 33 0; #X connect 23 0 33 0; #X connect 24 0 34 0; #X connect 24 1 23 0; #X connect 24 2 22 0; #X connect 25 1 28 0; #X connect 26 0 33 0; #X connect 27 0 33 0; #X connect 27 1 21 0; #X connect 28 0 36 0; #X connect 28 1 27 0; #X connect 29 1 18 0; #X connect 32 0 25 0; #X connect 34 0 33 0; #X connect 36 0 31 0; #X restore 511 52 pd antialiastabosc; #N canvas 0 25 1018 658 antialiastabosc 0; #X obj 226 230 until; #X obj 232 194 t b f; #X obj 226 253 f; #X obj 255 253 + 1; #X obj 311 362 *; #X msg 374 485 bang; #X msg 284 192 1; #X obj 211 364 mod 2; #X obj 211 342 t f f; #X obj 236 436 pow -1; #X obj 211 387 pack f f; #X obj 211 409 route 0 1; #X msg 201 436 0; #X obj 226 312 t f f f; #X obj 261 466 spigot; #X obj 211 466 spigot; #X msg 294 445 1; #X msg 280 420 1; #X obj 374 412 t b b b; #X msg 323 445 0; #X msg 308 420 0; #X obj 232 158 t f b b b b; #X msg 389 260 set; #X msg 417 260 addsemi; #X obj 346 193 t b b b; #X obj 232 71 moses 20; #X msg 239 523 add2 \$1; #X obj 277 119 t b f; #X obj 277 93 t f f; #X obj 311 390 moses 11025; #X text 381 390 for ring-modulation purposes; #X obj 69 537 outlet~; #X obj 232 39 inlet; #X msg 402 291 \; squaretable7-2 sinesum 32768 1 0 0.333333 0 0.2 0 0.142857 0 0.111111 0 0.0909091 0 0.0769231 0 0.0666667 0 0.0588235 0 0.0526316 0 0.047619 0 0.0434783 0 0.04 0 0.037037 0 0.0344828 0 0.0322581 0 0.030303 0 0.0285714 0 0.027027; #X msg 469 260 add2 squaretable7-2 sinesum 32768; #X obj 712 232 table squaretable7-2 32771; #X obj 68 232 tabosc4~ squaretable7-2; #X connect 0 0 2 0; #X connect 1 0 0 0; #X connect 1 1 4 1; #X connect 2 0 3 0; #X connect 2 0 13 0; #X connect 3 0 2 1; #X connect 4 0 29 0; #X connect 5 0 0 1; #X connect 6 0 2 1; #X connect 7 0 10 0; #X connect 8 0 7 0; #X connect 8 1 10 1; #X connect 9 0 15 0; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 11 1 9 0; #X connect 12 0 15 0; #X connect 13 0 8 0; #X connect 13 1 14 0; #X connect 13 2 4 0; #X connect 15 0 26 0; #X connect 16 0 14 1; #X connect 17 0 15 1; #X connect 18 0 20 0; #X connect 18 1 19 0; #X connect 18 2 5 0; #X connect 19 0 14 1; #X connect 20 0 15 1; #X connect 21 0 1 0; #X connect 21 1 6 0; #X connect 21 2 17 0; #X connect 21 3 16 0; #X connect 21 4 24 0; #X connect 22 0 33 0; #X connect 23 0 33 0; #X connect 24 0 34 0; #X connect 24 1 23 0; #X connect 24 2 22 0; #X connect 25 1 28 0; #X connect 26 0 33 0; #X connect 27 0 33 0; #X connect 27 1 21 0; #X connect 28 0 36 0; #X connect 28 1 27 0; #X connect 29 1 18 0; #X connect 32 0 25 0; #X connect 34 0 33 0; #X connect 36 0 31 0; #X restore 657 22 pd antialiastabosc; #N canvas 0 25 1018 658 antialiastabosc 0; #X obj 226 230 until; #X obj 232 194 t b f; #X obj 226 253 f; #X obj 255 253 + 1; #X obj 311 362 *; #X msg 374 485 bang; #X msg 284 192 1; #X obj 211 364 mod 2; #X obj 211 342 t f f; #X obj 236 436 pow -1; #X obj 211 387 pack f f; #X obj 211 409 route 0 1; #X msg 201 436 0; #X obj 226 312 t f f f; #X obj 261 466 spigot; #X obj 211 466 spigot; #X msg 294 445 1; #X msg 280 420 1; #X obj 374 412 t b b b; #X msg 323 445 0; #X msg 308 420 0; #X obj 232 158 t f b b b b; #X msg 389 260 set; #X msg 417 260 addsemi; #X obj 346 193 t b b b; #X obj 232 71 moses 20; #X msg 239 523 add2 \$1; #X obj 277 119 t b f; #X obj 277 93 t f f; #X obj 311 390 moses 11025; #X text 381 390 for ring-modulation purposes; #X obj 69 537 outlet~; #X obj 232 39 inlet; #X msg 402 291 \; squaretable8-2 sinesum 32768 1 0 0.333333 0 0.2 0 0.142857; #X msg 470 260 add2 squaretable8-2 sinesum 32768; #X obj 712 232 table squaretable8-2 32771; #X obj 68 232 tabosc4~ squaretable8-2; #X connect 0 0 2 0; #X connect 1 0 0 0; #X connect 1 1 4 1; #X connect 2 0 3 0; #X connect 2 0 13 0; #X connect 3 0 2 1; #X connect 4 0 29 0; #X connect 5 0 0 1; #X connect 6 0 2 1; #X connect 7 0 10 0; #X connect 8 0 7 0; #X connect 8 1 10 1; #X connect 9 0 15 0; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 11 1 9 0; #X connect 12 0 15 0; #X connect 13 0 8 0; #X connect 13 1 14 0; #X connect 13 2 4 0; #X connect 15 0 26 0; #X connect 16 0 14 1; #X connect 17 0 15 1; #X connect 18 0 20 0; #X connect 18 1 19 0; #X connect 18 2 5 0; #X connect 19 0 14 1; #X connect 20 0 15 1; #X connect 21 0 1 0; #X connect 21 1 6 0; #X connect 21 2 17 0; #X connect 21 3 16 0; #X connect 21 4 24 0; #X connect 22 0 33 0; #X connect 23 0 33 0; #X connect 24 0 34 0; #X connect 24 1 23 0; #X connect 24 2 22 0; #X connect 25 1 28 0; #X connect 26 0 33 0; #X connect 27 0 33 0; #X connect 27 1 21 0; #X connect 28 0 36 0; #X connect 28 1 27 0; #X connect 29 1 18 0; #X connect 32 0 25 0; #X connect 34 0 33 0; #X connect 36 0 31 0; #X restore 771 22 pd antialiastabosc; #N canvas 0 25 1018 658 antialiastabosc 0; #X obj 226 230 until; #X obj 232 194 t b f; #X obj 226 253 f; #X obj 255 253 + 1; #X obj 311 362 *; #X msg 374 485 bang; #X msg 284 192 1; #X obj 211 364 mod 2; #X obj 211 342 t f f; #X obj 236 436 pow -1; #X obj 211 387 pack f f; #X obj 211 409 route 0 1; #X msg 201 436 0; #X obj 226 312 t f f f; #X obj 261 466 spigot; #X obj 211 466 spigot; #X msg 294 445 1; #X msg 280 420 1; #X obj 374 412 t b b b; #X msg 323 445 0; #X msg 308 420 0; #X obj 232 158 t f b b b b; #X msg 389 260 set; #X msg 417 260 addsemi; #X obj 346 193 t b b b; #X obj 232 71 moses 20; #X msg 239 523 add2 \$1; #X obj 277 119 t b f; #X obj 277 93 t f f; #X obj 311 390 moses 11025; #X text 381 390 for ring-modulation purposes; #X obj 69 537 outlet~; #X obj 232 39 inlet; #X msg 402 291 \; squaretable9-2 sinesum 32768 1 0 0.333333 0 0.2 0 0.142857 0 0.111111 0; #X msg 469 259 add2 squaretable9-2 sinesum 32768; #X obj 712 232 table squaretable9-2 32771; #X obj 68 232 tabosc4~ squaretable9-2; #X connect 0 0 2 0; #X connect 1 0 0 0; #X connect 1 1 4 1; #X connect 2 0 3 0; #X connect 2 0 13 0; #X connect 3 0 2 1; #X connect 4 0 29 0; #X connect 5 0 0 1; #X connect 6 0 2 1; #X connect 7 0 10 0; #X connect 8 0 7 0; #X connect 8 1 10 1; #X connect 9 0 15 0; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 11 1 9 0; #X connect 12 0 15 0; #X connect 13 0 8 0; #X connect 13 1 14 0; #X connect 13 2 4 0; #X connect 15 0 26 0; #X connect 16 0 14 1; #X connect 17 0 15 1; #X connect 18 0 20 0; #X connect 18 1 19 0; #X connect 18 2 5 0; #X connect 19 0 14 1; #X connect 20 0 15 1; #X connect 21 0 1 0; #X connect 21 1 6 0; #X connect 21 2 17 0; #X connect 21 3 16 0; #X connect 21 4 24 0; #X connect 22 0 33 0; #X connect 23 0 33 0; #X connect 24 0 34 0; #X connect 24 1 23 0; #X connect 24 2 22 0; #X connect 25 1 28 0; #X connect 26 0 33 0; #X connect 27 0 33 0; #X connect 27 1 21 0; #X connect 28 0 36 0; #X connect 28 1 27 0; #X connect 29 1 18 0; #X connect 32 0 25 0; #X connect 34 0 33 0; #X connect 36 0 31 0; #X restore 839 2 pd antialiastabosc; #N canvas 0 25 1018 658 antialiastabosc 0; #X obj 226 230 until; #X obj 232 194 t b f; #X obj 226 253 f; #X obj 255 253 + 1; #X obj 311 362 *; #X msg 374 485 bang; #X msg 284 192 1; #X obj 211 364 mod 2; #X obj 211 342 t f f; #X obj 236 436 pow -1; #X obj 211 387 pack f f; #X obj 211 409 route 0 1; #X msg 201 436 0; #X obj 226 312 t f f f; #X obj 261 466 spigot; #X obj 211 466 spigot; #X msg 294 445 1; #X msg 280 420 1; #X obj 374 412 t b b b; #X msg 323 445 0; #X msg 308 420 0; #X obj 232 158 t f b b b b; #X msg 389 260 set; #X msg 417 260 addsemi; #X obj 346 193 t b b b; #X obj 232 71 moses 20; #X msg 239 523 add2 \$1; #X obj 277 119 t b f; #X obj 277 93 t f f; #X obj 311 390 moses 11025; #X text 381 390 for ring-modulation purposes; #X obj 69 537 outlet~; #X obj 232 39 inlet; #X msg 402 291 \; squaretable10-2 sinesum 32768 1 0 0.333333 0 0.2 0 0.142857 0 0.111111 0 0.0909091 0 0.0769231 0 0.0666667 0 0.0588235 ; #X msg 469 259 add2 squaretable10-2 sinesum 32768; #X obj 712 232 table squaretable10-2 32771; #X obj 68 232 tabosc4~ squaretable10-2; #X connect 0 0 2 0; #X connect 1 0 0 0; #X connect 1 1 4 1; #X connect 2 0 3 0; #X connect 2 0 13 0; #X connect 3 0 2 1; #X connect 4 0 29 0; #X connect 5 0 0 1; #X connect 6 0 2 1; #X connect 7 0 10 0; #X connect 8 0 7 0; #X connect 8 1 10 1; #X connect 9 0 15 0; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 11 1 9 0; #X connect 12 0 15 0; #X connect 13 0 8 0; #X connect 13 1 14 0; #X connect 13 2 4 0; #X connect 15 0 26 0; #X connect 16 0 14 1; #X connect 17 0 15 1; #X connect 18 0 20 0; #X connect 18 1 19 0; #X connect 18 2 5 0; #X connect 19 0 14 1; #X connect 20 0 15 1; #X connect 21 0 1 0; #X connect 21 1 6 0; #X connect 21 2 17 0; #X connect 21 3 16 0; #X connect 21 4 24 0; #X connect 22 0 33 0; #X connect 23 0 33 0; #X connect 24 0 34 0; #X connect 24 1 23 0; #X connect 24 2 22 0; #X connect 25 1 28 0; #X connect 26 0 33 0; #X connect 27 0 33 0; #X connect 27 1 21 0; #X connect 28 0 36 0; #X connect 28 1 27 0; #X connect 29 1 18 0; #X connect 32 0 25 0; #X connect 34 0 33 0; #X connect 36 0 31 0; #X restore 953 2 pd antialiastabosc; #N canvas 0 25 1018 658 antialiastabosc 0; #X obj 226 230 until; #X obj 232 194 t b f; #X obj 226 253 f; #X obj 255 253 + 1; #X obj 311 362 *; #X msg 374 485 bang; #X msg 284 192 1; #X obj 211 364 mod 2; #X obj 211 342 t f f; #X obj 236 436 pow -1; #X obj 211 387 pack f f; #X obj 211 409 route 0 1; #X msg 201 436 0; #X obj 226 312 t f f f; #X obj 261 466 spigot; #X obj 211 466 spigot; #X msg 294 445 1; #X msg 280 420 1; #X obj 374 412 t b b b; #X msg 323 445 0; #X msg 308 420 0; #X obj 232 158 t f b b b b; #X msg 389 260 set; #X msg 417 260 addsemi; #X obj 346 193 t b b b; #X obj 232 71 moses 20; #X msg 239 523 add2 \$1; #X obj 277 119 t b f; #X obj 277 93 t f f; #X obj 311 390 moses 11025; #X text 381 390 for ring-modulation purposes; #X obj 69 537 outlet~; #X obj 232 39 inlet; #X msg 402 291 \; squaretable11-2 sinesum 32768 1 0 0.333333 0 0.2 0 0.142857 0 0.111111 0 0.0909091 0; #X msg 469 259 add2 squaretable11-2 sinesum 32768; #X obj 712 232 table squaretable11-2 32771; #X obj 68 232 tabosc4~ squaretable11-2; #X connect 0 0 2 0; #X connect 1 0 0 0; #X connect 1 1 4 1; #X connect 2 0 3 0; #X connect 2 0 13 0; #X connect 3 0 2 1; #X connect 4 0 29 0; #X connect 5 0 0 1; #X connect 6 0 2 1; #X connect 7 0 10 0; #X connect 8 0 7 0; #X connect 8 1 10 1; #X connect 9 0 15 0; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 11 1 9 0; #X connect 12 0 15 0; #X connect 13 0 8 0; #X connect 13 1 14 0; #X connect 13 2 4 0; #X connect 15 0 26 0; #X connect 16 0 14 1; #X connect 17 0 15 1; #X connect 18 0 20 0; #X connect 18 1 19 0; #X connect 18 2 5 0; #X connect 19 0 14 1; #X connect 20 0 15 1; #X connect 21 0 1 0; #X connect 21 1 6 0; #X connect 21 2 17 0; #X connect 21 3 16 0; #X connect 21 4 24 0; #X connect 22 0 33 0; #X connect 23 0 33 0; #X connect 24 0 34 0; #X connect 24 1 23 0; #X connect 24 2 22 0; #X connect 25 1 28 0; #X connect 26 0 33 0; #X connect 27 0 33 0; #X connect 27 1 21 0; #X connect 28 0 36 0; #X connect 28 1 27 0; #X connect 29 1 18 0; #X connect 32 0 25 0; #X connect 34 0 33 0; #X connect 36 0 31 0; #X restore 1039 22 pd antialiastabosc; #N canvas 0 25 1018 658 antialiastabosc 0; #X obj 226 230 until; #X obj 232 194 t b f; #X obj 226 253 f; #X obj 255 253 + 1; #X obj 311 362 *; #X msg 374 485 bang; #X msg 284 192 1; #X obj 211 364 mod 2; #X obj 211 342 t f f; #X obj 236 436 pow -1; #X obj 211 387 pack f f; #X obj 211 409 route 0 1; #X msg 201 436 0; #X obj 226 312 t f f f; #X obj 261 466 spigot; #X obj 211 466 spigot; #X msg 294 445 1; #X msg 280 420 1; #X obj 374 412 t b b b; #X msg 323 445 0; #X msg 308 420 0; #X obj 232 158 t f b b b b; #X msg 389 260 set; #X msg 417 260 addsemi; #X obj 346 193 t b b b; #X obj 232 71 moses 20; #X msg 239 523 add2 \$1; #X obj 277 119 t b f; #X obj 277 93 t f f; #X obj 311 390 moses 11025; #X text 381 390 for ring-modulation purposes; #X obj 69 537 outlet~; #X obj 232 39 inlet; #X msg 402 291 \; squaretable12-2 sinesum 32768 1 0 0.333333 0 0.2 0 0.142857 0 0.111111; #X msg 469 259 add2 squaretable12-2 sinesum 32768; #X obj 712 232 table squaretable12-2 32771; #X obj 68 232 tabosc4~ squaretable12-2; #X connect 0 0 2 0; #X connect 1 0 0 0; #X connect 1 1 4 1; #X connect 2 0 3 0; #X connect 2 0 13 0; #X connect 3 0 2 1; #X connect 4 0 29 0; #X connect 5 0 0 1; #X connect 6 0 2 1; #X connect 7 0 10 0; #X connect 8 0 7 0; #X connect 8 1 10 1; #X connect 9 0 15 0; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 11 1 9 0; #X connect 12 0 15 0; #X connect 13 0 8 0; #X connect 13 1 14 0; #X connect 13 2 4 0; #X connect 15 0 26 0; #X connect 16 0 14 1; #X connect 17 0 15 1; #X connect 18 0 20 0; #X connect 18 1 19 0; #X connect 18 2 5 0; #X connect 19 0 14 1; #X connect 20 0 15 1; #X connect 21 0 1 0; #X connect 21 1 6 0; #X connect 21 2 17 0; #X connect 21 3 16 0; #X connect 21 4 24 0; #X connect 22 0 33 0; #X connect 23 0 33 0; #X connect 24 0 34 0; #X connect 24 1 23 0; #X connect 24 2 22 0; #X connect 25 1 28 0; #X connect 26 0 33 0; #X connect 27 0 33 0; #X connect 27 1 21 0; #X connect 28 0 36 0; #X connect 28 1 27 0; #X connect 29 1 18 0; #X connect 32 0 25 0; #X connect 34 0 33 0; #X connect 36 0 31 0; #X restore 1153 22 pd antialiastabosc; #X obj -12 75 *~ 1; #X obj 98 101 *~ 1; #X obj 207 76 *~ 1; #X obj 313 100 *~ 1; #X obj 418 73 *~ 1; #X obj 526 98 *~ 1; #X obj 634 50 *~ 1; #X obj 743 72 *~ 1; #X obj 843 50 *~ 1; #X obj 949 69 *~ 1; #X obj 1057 49 *~ 1; #X obj 1163 71 *~ 1; #X obj 518 403 bp~ 12000 3; #X obj 434 404 bp~ 7500 3; #X obj 428 503 lop~ 10000; #X connect 0 0 1 0; #X connect 0 0 1 1; #X connect 1 0 44 0; #X connect 1 0 44 1; #X connect 2 0 98 0; #X connect 3 0 2 0; #X connect 4 0 50 0; #X connect 4 0 96 0; #X connect 4 0 97 0; #X connect 5 0 6 0; #X connect 5 0 6 1; #X connect 6 0 8 1; #X connect 7 0 9 1; #X connect 8 0 2 0; #X connect 9 0 2 0; #X connect 10 0 45 0; #X connect 10 0 28 0; #X connect 10 0 29 0; #X connect 10 0 24 0; #X connect 10 0 25 0; #X connect 10 0 26 0; #X connect 10 0 46 0; #X connect 10 0 47 0; #X connect 10 0 48 0; #X connect 10 0 49 0; #X connect 10 0 54 0; #X connect 10 0 55 0; #X connect 11 0 42 0; #X connect 12 0 42 0; #X connect 13 0 42 0; #X connect 14 0 42 0; #X connect 15 0 42 0; #X connect 16 0 42 0; #X connect 17 0 42 0; #X connect 18 0 42 0; #X connect 19 0 42 0; #X connect 20 0 42 0; #X connect 21 0 42 0; #X connect 22 0 42 0; #X connect 23 0 62 0; #X connect 24 0 75 0; #X connect 25 0 76 0; #X connect 26 0 77 0; #X connect 27 0 70 0; #X connect 28 0 73 0; #X connect 29 0 74 0; #X connect 30 0 43 0; #X connect 31 0 43 0; #X connect 32 0 43 0; #X connect 33 0 43 0; #X connect 34 0 43 0; #X connect 35 0 43 0; #X connect 36 0 43 0; #X connect 37 0 43 0; #X connect 38 0 43 0; #X connect 39 0 43 0; #X connect 40 0 43 0; #X connect 41 0 43 0; #X connect 42 0 4 0; #X connect 43 0 4 0; #X connect 44 0 3 1; #X connect 45 0 72 0; #X connect 46 0 78 0; #X connect 47 0 79 0; #X connect 48 0 80 0; #X connect 49 0 81 0; #X connect 50 0 3 0; #X connect 51 0 0 0; #X connect 52 0 5 0; #X connect 53 0 7 0; #X connect 54 0 82 0; #X connect 55 0 83 0; #X connect 56 0 98 0; #X connect 57 0 60 0; #X connect 58 0 59 0; #X connect 58 0 59 1; #X connect 59 0 56 1; #X connect 60 0 56 0; #X connect 61 0 58 0; #X connect 63 0 71 0; #X connect 64 0 71 0; #X connect 65 0 64 0; #X connect 66 0 67 0; #X connect 67 0 65 0; #X connect 70 0 66 0; #X connect 70 1 61 0; #X connect 70 2 53 0; #X connect 70 3 52 0; #X connect 70 4 51 0; #X connect 70 5 63 0; #X connect 72 0 84 0; #X connect 73 0 85 0; #X connect 74 0 86 0; #X connect 75 0 87 0; #X connect 76 0 88 0; #X connect 77 0 89 0; #X connect 78 0 90 0; #X connect 79 0 91 0; #X connect 80 0 92 0; #X connect 81 0 93 0; #X connect 82 0 94 0; #X connect 83 0 95 0; #X connect 84 0 11 0; #X connect 84 0 16 0; #X connect 84 0 17 0; #X connect 84 0 20 0; #X connect 85 0 11 1; #X connect 85 0 14 0; #X connect 85 0 19 0; #X connect 85 0 22 0; #X connect 86 0 12 0; #X connect 86 0 14 1; #X connect 86 0 17 1; #X connect 86 0 21 0; #X connect 87 0 12 1; #X connect 87 0 15 0; #X connect 87 0 18 0; #X connect 87 0 20 1; #X connect 88 0 13 0; #X connect 88 0 15 1; #X connect 88 0 19 1; #X connect 88 0 21 1; #X connect 89 0 13 1; #X connect 89 0 16 1; #X connect 89 0 18 1; #X connect 89 0 22 1; #X connect 90 0 30 0; #X connect 90 0 35 0; #X connect 90 0 36 0; #X connect 90 0 39 0; #X connect 91 0 30 1; #X connect 91 0 33 0; #X connect 91 0 38 0; #X connect 91 0 41 0; #X connect 92 0 31 0; #X connect 92 0 33 1; #X connect 92 0 36 1; #X connect 92 0 40 0; #X connect 93 0 31 1; #X connect 93 0 34 0; #X connect 93 0 37 0; #X connect 93 0 39 1; #X connect 94 0 32 0; #X connect 94 0 34 1; #X connect 94 0 38 1; #X connect 94 0 40 1; #X connect 95 0 32 1; #X connect 95 0 35 1; #X connect 95 0 37 1; #X connect 95 0 41 1; #X connect 96 0 9 0; #X connect 97 0 8 0; #X connect 98 0 23 0; #X restore 142 206 pd hat; #N canvas 0 0 450 300 hitoncethensample 0; #X obj -305 57 f 0; #X obj -277 57 + 1; #X msg -290 33 0; #X obj -341 9 inlet bang; #X obj -305 120 sel 0; #X obj -342 175 outlet hit; #X obj -276 175 outlet sample; #X obj -276 148 t b; #X connect 0 0 1 0; #X connect 0 0 4 0; #X connect 1 0 0 1; #X connect 2 0 0 1; #X connect 3 0 0 0; #X connect 4 0 5 0; #X connect 4 1 7 0; #X connect 7 0 6 0; #X restore -75 168 pd hitoncethensample; #N canvas 0 25 1018 658 crashsample 0; #X obj 150 15 inlet hitbang; #X msg 150 48 \; tabwritecrash start; #X obj 80 112 r tabwritecrash; #X obj 263 15 inlet samplebang; #X obj 34 313 outlet~ crashsound; #X obj 34 15 inlet~ synthsound; #X obj 80 144 tabwrite~ \$0-crashrecording; #X obj 247 144 table \$0-crashrecording 136710; #X obj 100 222 tabplay~ \$0-crashrecording; #X connect 0 0 1 0; #X connect 2 0 6 0; #X connect 3 0 8 0; #X connect 5 0 4 0; #X connect 5 0 6 0; #X connect 8 0 4 0; #X restore -75 228 pd crashsample; #X obj -75 187 t b b; #N canvas 0 0 450 300 hitoncethensample 0; #X obj -305 57 f 0; #X obj -277 57 + 1; #X msg -290 33 0; #X obj -341 9 inlet bang; #X obj -305 120 sel 0; #X obj -342 175 outlet hit; #X obj -276 175 outlet sample; #X obj -276 148 t b; #X connect 0 0 1 0; #X connect 0 0 4 0; #X connect 1 0 0 1; #X connect 2 0 0 1; #X connect 3 0 0 0; #X connect 4 0 5 0; #X connect 4 1 7 0; #X connect 7 0 6 0; #X restore 142 167 pd hitoncethensample; #X obj 142 186 t b b; #N canvas 0 25 1018 658 hatsample 0; #X obj 150 15 inlet hitbang; #X obj 263 15 inlet samplebang; #X obj 34 15 inlet~ synthsound; #X msg 150 48 \; tabwritehat start; #X obj 80 112 r tabwritehat; #X obj 34 313 outlet~ hatsound; #X obj 80 144 tabwrite~ \$0-hatrecording; #X obj 247 144 table \$0-hatrecording 7938; #X obj 100 222 tabplay~ \$0-hatrecording; #X connect 0 0 3 0; #X connect 1 0 8 0; #X connect 2 0 5 0; #X connect 2 0 6 0; #X connect 4 0 6 0; #X connect 8 0 5 0; #X restore 142 227 pd hatsample; #N canvas 0 0 471 452 equalpowerpan 0; #X obj 105 313 cos~; #X obj 73 163 t f f; #X obj 73 188 * 0.25; #X obj 108 211 * 0.25; #X obj 108 233 + 0.75; #X msg 108 257 \$1 20; #X obj 108 279 line~; #X msg 68 257 \$1 20; #X obj 68 279 line~; #X obj 105 334 *~; #X obj 75 313 cos~; #X obj 75 334 *~; #X obj 58 415 outlet~ left; #X obj 138 415 outlet~ right; #X obj 20 48 inlet~ sound; #X obj 102 136 expr ($f1+1)/2; #X obj 102 110 inlet negonetoone; #X connect 0 0 9 1; #X connect 1 0 2 0; #X connect 1 1 3 0; #X connect 2 0 7 0; #X connect 3 0 4 0; #X connect 4 0 5 0; #X connect 5 0 6 0; #X connect 6 0 0 0; #X connect 7 0 8 0; #X connect 8 0 10 0; #X connect 9 0 13 0; #X connect 10 0 11 1; #X connect 11 0 12 0; #X connect 14 0 11 0; #X connect 14 0 9 0; #X connect 15 0 1 0; #X connect 16 0 15 0; #X restore -13 330 pd equalpowerpan; #N canvas 0 0 471 452 equalpowerpan 0; #X obj 105 313 cos~; #X obj 73 163 t f f; #X obj 73 188 * 0.25; #X obj 108 211 * 0.25; #X obj 108 233 + 0.75; #X msg 108 257 \$1 20; #X obj 108 279 line~; #X msg 68 257 \$1 20; #X obj 68 279 line~; #X obj 105 334 *~; #X obj 75 313 cos~; #X obj 75 334 *~; #X obj 58 415 outlet~ left; #X obj 138 415 outlet~ right; #X obj 20 48 inlet~ sound; #X obj 102 136 expr ($f1+1)/2; #X obj 102 110 inlet negonetoone; #X connect 0 0 9 1; #X connect 1 0 2 0; #X connect 1 1 3 0; #X connect 2 0 7 0; #X connect 3 0 4 0; #X connect 4 0 5 0; #X connect 5 0 6 0; #X connect 6 0 0 0; #X connect 7 0 8 0; #X connect 8 0 10 0; #X connect 9 0 13 0; #X connect 10 0 11 1; #X connect 11 0 12 0; #X connect 14 0 11 0; #X connect 14 0 9 0; #X connect 15 0 1 0; #X connect 16 0 15 0; #X restore 112 330 pd equalpowerpan; #X obj 366 393 *~ 1; #X obj 454 393 *~ 1; #N canvas 0 0 471 452 equalpowerpan 0; #X obj 105 313 cos~; #X obj 73 163 t f f; #X obj 73 188 * 0.25; #X obj 108 211 * 0.25; #X obj 108 233 + 0.75; #X msg 108 257 \$1 20; #X obj 108 279 line~; #X msg 68 257 \$1 20; #X obj 68 279 line~; #X obj 105 334 *~; #X obj 75 313 cos~; #X obj 75 334 *~; #X obj 58 415 outlet~ left; #X obj 138 415 outlet~ right; #X obj 20 48 inlet~ sound; #X obj 102 136 expr ($f1+1)/2; #X obj 102 110 inlet negonetoone; #X connect 0 0 9 1; #X connect 1 0 2 0; #X connect 1 1 3 0; #X connect 2 0 7 0; #X connect 3 0 4 0; #X connect 4 0 5 0; #X connect 5 0 6 0; #X connect 6 0 0 0; #X connect 7 0 8 0; #X connect 8 0 10 0; #X connect 9 0 13 0; #X connect 10 0 11 1; #X connect 11 0 12 0; #X connect 14 0 11 0; #X connect 14 0 9 0; #X connect 15 0 1 0; #X connect 16 0 15 0; #X restore 235 330 pd equalpowerpan; #N canvas 0 0 471 452 equalpowerpan 0; #X obj 105 313 cos~; #X obj 73 163 t f f; #X obj 73 188 * 0.25; #X obj 108 211 * 0.25; #X obj 108 233 + 0.75; #X msg 108 257 \$1 20; #X obj 108 279 line~; #X msg 68 257 \$1 20; #X obj 68 279 line~; #X obj 105 334 *~; #X obj 75 313 cos~; #X obj 75 334 *~; #X obj 58 415 outlet~ left; #X obj 138 415 outlet~ right; #X obj 20 48 inlet~ sound; #X obj 102 136 expr ($f1+1)/2; #X obj 102 110 inlet negonetoone; #X connect 0 0 9 1; #X connect 1 0 2 0; #X connect 1 1 3 0; #X connect 2 0 7 0; #X connect 3 0 4 0; #X connect 4 0 5 0; #X connect 5 0 6 0; #X connect 6 0 0 0; #X connect 7 0 8 0; #X connect 8 0 10 0; #X connect 9 0 13 0; #X connect 10 0 11 1; #X connect 11 0 12 0; #X connect 14 0 11 0; #X connect 14 0 9 0; #X connect 15 0 1 0; #X connect 16 0 15 0; #X restore 400 330 pd equalpowerpan; #N canvas 0 0 471 452 equalpowerpan 0; #X obj 105 313 cos~; #X obj 73 163 t f f; #X obj 73 188 * 0.25; #X obj 108 211 * 0.25; #X obj 108 233 + 0.75; #X msg 108 257 \$1 20; #X obj 108 279 line~; #X msg 68 257 \$1 20; #X obj 68 279 line~; #X obj 105 334 *~; #X obj 75 313 cos~; #X obj 75 334 *~; #X obj 58 415 outlet~ left; #X obj 138 415 outlet~ right; #X obj 20 48 inlet~ sound; #X obj 102 136 expr ($f1+1)/2; #X obj 102 110 inlet negonetoone; #X connect 0 0 9 1; #X connect 1 0 2 0; #X connect 1 1 3 0; #X connect 2 0 7 0; #X connect 3 0 4 0; #X connect 4 0 5 0; #X connect 5 0 6 0; #X connect 6 0 0 0; #X connect 7 0 8 0; #X connect 8 0 10 0; #X connect 9 0 13 0; #X connect 10 0 11 1; #X connect 11 0 12 0; #X connect 14 0 11 0; #X connect 14 0 9 0; #X connect 15 0 1 0; #X connect 16 0 15 0; #X restore 526 330 pd equalpowerpan; #N canvas 0 0 471 452 equalpowerpan 0; #X obj 105 313 cos~; #X obj 73 163 t f f; #X obj 73 188 * 0.25; #X obj 108 211 * 0.25; #X obj 108 233 + 0.75; #X msg 108 257 \$1 20; #X obj 108 279 line~; #X msg 68 257 \$1 20; #X obj 68 279 line~; #X obj 105 334 *~; #X obj 75 313 cos~; #X obj 75 334 *~; #X obj 58 415 outlet~ left; #X obj 138 415 outlet~ right; #X obj 20 48 inlet~ sound; #X obj 102 136 expr ($f1+1)/2; #X obj 102 110 inlet negonetoone; #X connect 0 0 9 1; #X connect 1 0 2 0; #X connect 1 1 3 0; #X connect 2 0 7 0; #X connect 3 0 4 0; #X connect 4 0 5 0; #X connect 5 0 6 0; #X connect 6 0 0 0; #X connect 7 0 8 0; #X connect 8 0 10 0; #X connect 9 0 13 0; #X connect 10 0 11 1; #X connect 11 0 12 0; #X connect 14 0 11 0; #X connect 14 0 9 0; #X connect 15 0 1 0; #X connect 16 0 15 0; #X restore 646 330 pd equalpowerpan; #X connect 3 0 7 1; #X connect 4 0 3 0; #X connect 5 0 4 0; #X connect 6 0 5 0; #X connect 6 1 5 1; #X connect 7 0 95 0; #X connect 8 0 12 1; #X connect 9 0 8 0; #X connect 10 0 9 0; #X connect 11 0 10 0; #X connect 11 1 10 1; #X connect 12 0 96 0; #X connect 13 0 17 1; #X connect 14 0 13 0; #X connect 15 0 14 0; #X connect 16 0 15 0; #X connect 16 1 15 1; #X connect 17 0 92 0; #X connect 18 0 22 1; #X connect 19 0 18 0; #X connect 20 0 19 0; #X connect 21 0 20 0; #X connect 21 1 20 1; #X connect 22 0 91 0; #X connect 24 0 28 1; #X connect 25 0 24 0; #X connect 26 0 25 0; #X connect 27 0 26 0; #X connect 27 1 26 1; #X connect 28 0 97 0; #X connect 30 0 34 1; #X connect 31 0 30 0; #X connect 32 0 31 0; #X connect 33 0 32 0; #X connect 33 1 32 1; #X connect 34 0 98 0; #X connect 35 0 54 0; #X connect 36 0 54 0; #X connect 37 0 55 0; #X connect 38 0 55 0; #X connect 41 0 45 0; #X connect 42 0 40 0; #X connect 43 0 46 0; #X connect 44 0 47 0; #X connect 48 0 7 0; #X connect 49 0 28 0; #X connect 50 0 34 0; #X connect 51 0 35 0; #X connect 52 0 37 0; #X connect 53 0 12 0; #X connect 54 0 67 0; #X connect 55 0 68 0; #X connect 56 0 42 0; #X connect 56 0 41 0; #X connect 57 0 44 0; #X connect 57 0 43 0; #X connect 58 0 85 0; #X connect 58 1 88 0; #X connect 58 2 48 0; #X connect 58 3 53 0; #X connect 58 4 49 0; #X connect 58 5 50 0; #X connect 59 0 61 0; #X connect 59 1 60 0; #X connect 60 0 39 0; #X connect 60 0 62 0; #X connect 61 0 63 0; #X connect 61 0 21 0; #X connect 61 0 16 0; #X connect 61 0 6 0; #X connect 61 0 11 0; #X connect 61 0 27 0; #X connect 61 0 33 0; #X connect 62 0 21 0; #X connect 62 0 16 0; #X connect 62 0 6 0; #X connect 62 0 11 0; #X connect 62 0 27 0; #X connect 62 0 33 0; #X connect 63 0 39 0; #X connect 65 0 42 1; #X connect 65 0 44 1; #X connect 65 1 41 1; #X connect 65 1 43 1; #X connect 66 0 36 1; #X connect 66 0 38 1; #X connect 66 1 35 1; #X connect 66 1 37 1; #X connect 67 0 56 0; #X connect 68 0 57 0; #X connect 69 0 20 0; #X connect 70 0 15 0; #X connect 71 0 5 0; #X connect 72 0 10 0; #X connect 73 0 26 0; #X connect 74 0 32 0; #X connect 75 0 59 0; #X connect 76 0 91 1; #X connect 77 0 92 1; #X connect 78 0 95 1; #X connect 79 0 96 1; #X connect 80 0 97 1; #X connect 81 0 98 1; #X connect 83 0 86 0; #X connect 84 0 90 0; #X connect 85 0 87 0; #X connect 85 1 86 2; #X connect 86 0 22 0; #X connect 87 0 83 0; #X connect 87 1 86 1; #X connect 88 0 89 0; #X connect 88 1 90 2; #X connect 89 0 84 0; #X connect 89 1 90 1; #X connect 90 0 17 0; #X connect 91 0 93 0; #X connect 92 0 93 0; #X connect 93 0 36 0; #X connect 93 0 51 0; #X connect 94 0 38 0; #X connect 94 0 52 0; #X connect 95 0 93 0; #X connect 95 1 94 0; #X connect 96 0 93 0; #X connect 96 1 94 0; #X connect 97 0 93 0; #X connect 97 1 94 0; #X connect 98 0 93 0; #X connect 98 1 94 0; #X restore 721 -138 pd drums; #N canvas 0 25 997 658 leadguitar 0; #X obj 264 709 *~; #X obj 428 761 - 10; #X obj 423 729 + 10; #X obj 258 42 r currentkey; #X obj 325 -63 r scoretime; #X floatatom 338 351 5 0 0 3 lower-limit - -; #X floatatom 405 351 5 0 0 3 upper-limit - -; #X obj 356 4 s forrand; #X obj 278 689 line~; #X msg 278 667 \$1 20; #X obj 296 646 *; #X obj 296 617 t b f; #X obj 338 332 init 52; #X obj 405 332 init 76; #X obj 303 451 spigot; #X obj 300 908 throw~ dryl; #X obj 337 855 +~; #X obj 503 856 +~; #X obj 372 889 *~; #X obj 300 889 *~; #X obj 539 889 *~; #X obj 468 889 *~; #X obj 372 908 throw~ wetl; #X obj 539 908 throw~ wetr; #X obj 468 908 throw~ dryr; #X obj 205 387 unpack f f f; #X obj 363 428 r guitarharmonyonoff; #X obj 325 -27 t f b f b b; #X obj 325 23 s rginterludetime; #N canvas 0 25 997 637 leadguitarseq 0; #X obj -525 -407 mod 384; #X obj -532 -383 moses 256; #X obj -8 65 outlet leadnotes; #X obj -532 -362 mod 128; #X obj -553 -450 r scoretimemain; #X obj -524 -187 sel 4 6 8 10 12 14 16; #X obj -529 -342 moses 64; #X obj -527 -311 mod 32; #X obj -480 -319 moses 96; #X obj -476 -294 mod 32; #X obj -291 -187 sel 4 6 8 10 12 16 24; #X obj -136 -184 sel 4 6 8 10 12 16 24; #X obj -425 -293 mod 32; #X obj 190 -344 mod 128; #X obj 184 -260 mod 32; #X obj 291 -267 moses 96; #X obj 295 -242 mod 32; #X obj 346 -241 mod 32; #X obj 59 -184 sel 4 6 8 10 12 16 22 24; #X obj 230 -290 moses 64; #X obj 191 -315 moses 32; #X obj 232 -254 mod 32; #X obj 262 -178 sel 4 6 8 10 12 16 22 24; #X obj 309 -62 sel 4 6 8 10 12 16 22 24; #X msg 379 -29 59; #X obj 214 -182 sel 28; #X msg -566 -137 66 70; #X msg -525 -136 68 71; #X msg -486 -134 70 73; #X msg -333 -156 65 69; #X msg -294 -156 64 67; #X msg -254 -153 62 65; #X msg -219 -152 64 69; #X msg -181 -156 61 64; #X msg -209 -120 59 64; #X msg -171 -118 61 66; #X msg -132 -117 62 67; #X msg -92 -117 61 66; #X msg -53 -118 59 64; #X msg -11 -117 62 65; #X msg 30 -118 64 67; #X msg -408 -134 73 77; #X msg -447 -135 71 75; #X msg -367 -130 69 74; #X msg -20 -140 61 58; #X msg 21 -140 63 59; #X msg 55 -140 65 61; #X msg 95 -139 66 63; #X msg 133 -140 63 59; #X msg 172 -141 61 57; #X msg 240 -136 56 53; #X msg 280 -137 58 54; #X msg 316 -136 60 56; #X msg 356 -135 61 58; #X msg 394 -131 58 54; #X msg 433 -134 56 52; #X msg 241 -31 54 50; #X msg 285 -30 56 52; #X msg 323 -28 57 54; #X msg 403 -29 56 54; #X msg 180 -109 57 54; #X obj -379 220 s mainchord; #X msg -505 106 1 6 10; #X obj -542 12 sel 0 16; #X msg -459 107 2 6 9; #X obj -482 13 sel 0 16; #X msg -417 107 2 5 9; #X msg -377 107 1 4 9; #X obj -321 17 sel 0 8 16 24; #X msg -335 107 4 8 11; #X msg -290 107 2 7 11; #X msg -245 107 2 5 10; #X msg -199 107 0 4 7; #X obj -126 72 sel 0 16; #X msg -135 108 1 6 10; #X msg -88 109 1 6 9; #X obj -35 108 sel 0 16; #X msg -45 143 1 5 8; #X msg 2 144 1 4 8; #X obj 110 119 sel 0 16 24; #X msg 409 9 61 54; #X msg 414 33 61 53; #X msg 100 151 2 6 9; #X msg 144 155 1 6 8; #X msg 189 155 1 5 8; #X obj -555 165 s bangstuffmain; #X obj -546 189 s bangstuffmain2; #X obj -530 210 s bangstuffmain3; #X obj -555 89 mod 8; #X obj -555 122 sel 0 2 4 6; #X obj -553 -429 t f f f; #X obj -568 232 s rgtime; #X obj -307 220 s rootnote; #X msg -475 135 6; #X msg -436 136 2; #X msg -403 136 2; #X msg -370 136 9; #X msg -327 138 4; #X msg -295 140 7; #X msg -262 139 10; #X msg -223 139 0; #X msg -135 134 6; #X msg -88 134 6; #X msg -48 165 1; #X msg 6 167 1; #X msg 100 176 2; #X msg 139 179 1; #X obj -546 -33 s basstime; #X text -170 -212 this is the main melody; #X text -224 52 chords and root notes; #X connect 0 0 1 0; #X connect 1 0 3 0; #X connect 1 1 13 0; #X connect 3 0 6 0; #X connect 4 0 90 0; #X connect 5 0 26 0; #X connect 5 1 27 0; #X connect 5 2 28 0; #X connect 5 3 42 0; #X connect 5 4 41 0; #X connect 5 5 42 0; #X connect 5 6 43 0; #X connect 6 0 7 0; #X connect 6 1 8 0; #X connect 7 0 5 0; #X connect 7 0 63 0; #X connect 8 0 9 0; #X connect 8 1 12 0; #X connect 9 0 10 0; #X connect 9 0 65 0; #X connect 10 0 29 0; #X connect 10 1 30 0; #X connect 10 2 31 0; #X connect 10 3 30 0; #X connect 10 4 29 0; #X connect 10 5 32 0; #X connect 10 6 33 0; #X connect 11 0 34 0; #X connect 11 1 35 0; #X connect 11 2 36 0; #X connect 11 3 37 0; #X connect 11 4 38 0; #X connect 11 5 39 0; #X connect 11 6 40 0; #X connect 12 0 11 0; #X connect 12 0 68 0; #X connect 13 0 20 0; #X connect 14 0 18 0; #X connect 14 0 73 0; #X connect 15 0 16 0; #X connect 15 1 17 0; #X connect 16 0 22 0; #X connect 16 0 76 0; #X connect 17 0 23 0; #X connect 17 0 79 0; #X connect 18 0 44 0; #X connect 18 1 45 0; #X connect 18 2 46 0; #X connect 18 3 47 0; #X connect 18 4 46 0; #X connect 18 5 48 0; #X connect 18 6 49 0; #X connect 18 7 49 0; #X connect 19 0 21 0; #X connect 19 1 15 0; #X connect 20 0 14 0; #X connect 20 1 19 0; #X connect 21 0 18 0; #X connect 21 0 25 0; #X connect 21 0 73 0; #X connect 22 0 50 0; #X connect 22 1 51 0; #X connect 22 2 52 0; #X connect 22 3 53 0; #X connect 22 4 52 0; #X connect 22 5 54 0; #X connect 22 6 55 0; #X connect 22 7 55 0; #X connect 23 0 56 0; #X connect 23 1 57 0; #X connect 23 2 58 0; #X connect 23 3 24 0; #X connect 23 4 58 0; #X connect 23 5 59 0; #X connect 23 6 80 0; #X connect 23 7 81 0; #X connect 24 0 2 0; #X connect 25 0 60 0; #X connect 26 0 2 0; #X connect 27 0 2 0; #X connect 28 0 2 0; #X connect 29 0 2 0; #X connect 30 0 2 0; #X connect 31 0 2 0; #X connect 32 0 2 0; #X connect 33 0 2 0; #X connect 34 0 2 0; #X connect 35 0 2 0; #X connect 36 0 2 0; #X connect 37 0 2 0; #X connect 38 0 2 0; #X connect 39 0 2 0; #X connect 40 0 2 0; #X connect 41 0 2 0; #X connect 42 0 2 0; #X connect 43 0 2 0; #X connect 44 0 2 0; #X connect 45 0 2 0; #X connect 46 0 2 0; #X connect 47 0 2 0; #X connect 48 0 2 0; #X connect 49 0 2 0; #X connect 50 0 2 0; #X connect 51 0 2 0; #X connect 52 0 2 0; #X connect 53 0 2 0; #X connect 54 0 2 0; #X connect 55 0 2 0; #X connect 56 0 2 0; #X connect 57 0 2 0; #X connect 58 0 2 0; #X connect 59 0 2 0; #X connect 60 0 2 0; #X connect 62 0 61 0; #X connect 63 0 62 0; #X connect 63 0 93 0; #X connect 63 1 64 0; #X connect 63 1 94 0; #X connect 64 0 61 0; #X connect 65 0 66 0; #X connect 65 0 95 0; #X connect 65 1 67 0; #X connect 65 1 96 0; #X connect 66 0 61 0; #X connect 67 0 61 0; #X connect 68 0 69 0; #X connect 68 0 97 0; #X connect 68 1 70 0; #X connect 68 1 98 0; #X connect 68 2 71 0; #X connect 68 2 99 0; #X connect 68 3 72 0; #X connect 68 3 100 0; #X connect 69 0 61 0; #X connect 70 0 61 0; #X connect 71 0 61 0; #X connect 72 0 61 0; #X connect 73 0 74 0; #X connect 73 0 101 0; #X connect 73 1 75 0; #X connect 73 1 102 0; #X connect 74 0 61 0; #X connect 75 0 61 0; #X connect 76 0 77 0; #X connect 76 0 103 0; #X connect 76 1 78 0; #X connect 76 1 104 0; #X connect 77 0 61 0; #X connect 78 0 61 0; #X connect 79 0 82 0; #X connect 79 0 105 0; #X connect 79 1 83 0; #X connect 79 1 106 0; #X connect 79 2 84 0; #X connect 79 2 106 0; #X connect 80 0 2 0; #X connect 81 0 2 0; #X connect 82 0 61 0; #X connect 83 0 61 0; #X connect 84 0 61 0; #X connect 88 0 89 0; #X connect 89 0 85 0; #X connect 89 1 87 0; #X connect 89 2 86 0; #X connect 89 3 87 0; #X connect 90 0 91 0; #X connect 90 1 88 0; #X connect 90 1 107 0; #X connect 90 2 0 0; #X connect 93 0 92 0; #X connect 94 0 92 0; #X connect 95 0 92 0; #X connect 96 0 92 0; #X connect 97 0 92 0; #X connect 98 0 92 0; #X connect 99 0 92 0; #X connect 100 0 92 0; #X connect 101 0 92 0; #X connect 102 0 92 0; #X connect 103 0 92 0; #X connect 104 0 92 0; #X connect 105 0 92 0; #X connect 106 0 92 0; #X restore 205 367 pd leadguitarseq; #N canvas 0 25 1016 640 keywalk 0; #X obj 66 240 s currentkey; #X obj 198 115 swap 100; #X obj 213 140 -; #X obj 102 114 s mosesnum1; #X obj 239 181 s mosesnum2; #X obj 66 54 inlet step; #X obj 161 54 r changeamount; #X obj 161 89 i; #N canvas 0 25 1018 658 keyunit 0; #X obj 8 34 random 100; #X obj 8 53 moses 5; #X obj 49 72 moses 95; #X obj -31 -3 inlet bang; #X obj 35 -3 r mosesnum1; #X obj 125 -3 r mosesnum2; #X obj 46 269 +; #X obj 113 269 int; #X msg 42 209 0; #X msg 77 210 7; #X msg 11 209 -7; #X obj 46 306 mod 12; #X obj 46 343 outlet; #X obj 197 -3 inlet setkey; #X connect 0 0 1 0; #X connect 1 0 10 0; #X connect 1 1 2 0; #X connect 2 0 8 0; #X connect 2 1 9 0; #X connect 3 0 0 0; #X connect 4 0 1 1; #X connect 5 0 2 1; #X connect 6 0 7 0; #X connect 6 0 11 0; #X connect 7 0 6 1; #X connect 8 0 6 0; #X connect 9 0 6 0; #X connect 10 0 6 0; #X connect 11 0 12 0; #X connect 13 0 6 1; #X restore 66 221 pd keyunit; #X obj 156 188 r setkey; #X connect 1 0 2 0; #X connect 1 1 2 1; #X connect 2 0 4 0; #X connect 5 0 8 0; #X connect 6 0 7 0; #X connect 7 0 3 0; #X connect 7 0 1 0; #X connect 8 0 0 0; #X connect 9 0 8 1; #X restore 258 23 pd keywalk; #N canvas 0 25 1001 640 guitarsound 0; #X obj 302 533 *~; #X obj 278 533 *~; #X obj 94 413 bp~ 199 5; #X obj 154 413 bp~ 297 5; #X obj 214 413 bp~ 391 5; #X obj 274 413 bp~ 493 5; #X obj 334 413 bp~ 861 5; #X obj 225 452 *~ 0.48; #X obj 169 167 pipe 8; #X text 322 142 mute strings; #X obj 291 566 outlet~; #X obj 40 101 inlet; #X obj 124 101 inlet note2; #N canvas 0 25 1018 658 stringunit 0; #N canvas 0 25 995 656 delay-writer 0; #X obj 86 220 inlet~; #X obj 252 739 outlet~; #X obj 84 462 +~; #X obj 165 221 inlet; #X obj 313 309 hip~ 5; #X obj 354 411 *~ 3; #X obj 296 231 lop~ 1000; #X obj 296 212 *~ 0.015; #X obj 109 382 hip~ 5; #X obj 103 417 clip~ -1 1; #X obj 116 352 lop~ 6000; #X obj 135 313 *~ 0.973; #X obj 353 431 clip~ -1 1; #X obj 317 628 *~ 0.11; #X obj 231 629 *~ 400; #X obj 253 698 hip~ 200; #X obj 554 240 inlet muting; #X obj 241 359 bp~ 311 50; #X obj 319 359 bp~ 504 50; #X obj 399 357 bp~ 767 50; #X obj 477 357 bp~ 1119 50; #X obj 562 358 bp~ 1246 50; #X obj 392 197 block~ 1; #X obj 84 481 delwrite~ \$0-leadstringdel1 1000; #X obj 130 252 delread~ \$0-leadstringdel1; #X connect 0 0 11 0; #X connect 2 0 23 0; #X connect 3 0 24 0; #X connect 4 0 17 0; #X connect 4 0 18 0; #X connect 4 0 19 0; #X connect 4 0 20 0; #X connect 4 0 21 0; #X connect 5 0 12 0; #X connect 6 0 4 0; #X connect 7 0 6 0; #X connect 8 0 9 0; #X connect 9 0 13 0; #X connect 9 0 2 0; #X connect 10 0 8 0; #X connect 11 0 10 0; #X connect 12 0 2 1; #X connect 12 0 14 0; #X connect 13 0 15 0; #X connect 14 0 15 0; #X connect 15 0 1 0; #X connect 16 0 11 1; #X connect 17 0 5 0; #X connect 18 0 5 0; #X connect 19 0 5 0; #X connect 20 0 5 0; #X connect 21 0 5 0; #X connect 24 0 7 0; #X connect 24 0 11 0; #X restore 155 259 pd delay-writer; #X obj 283 201 expr 1000/$f1; #X obj 283 182 mtof; #N canvas 0 0 450 300 gopluckyourself 0; #X obj 62 57 noise~; #X obj 144 203 *~; #X obj 95 151 hip~ 5; #X obj 128 55 vline~; #X obj 159 168 *~; #X msg 124 34 1 1 0 \, 0 9 1; #X obj 104 -43 inlet bang; #X obj 145 226 outlet~; #X obj 241 168 switch~; #X msg 239 134 1; #X msg 270 134 0; #X obj 326 99 sel 0; #X obj 214 -7 t b b b; #X obj 71 129 lop~ 12000; #X msg 326 43 1 0 \, 0 25; #X obj 326 62 line 1 25; #X obj 14 85 expr~ if ($v1 == 0 \, 0 \, (if ($v1 < 0 \, -1 \, 1))) ; #X text 16 70 TOTAL DISTORTION; #X obj 14 112 *~ 0.3; #X connect 0 0 16 0; #X connect 1 0 7 0; #X connect 2 0 1 0; #X connect 3 0 4 0; #X connect 3 0 4 1; #X connect 4 0 1 1; #X connect 5 0 3 0; #X connect 6 0 12 0; #X connect 9 0 8 0; #X connect 10 0 8 0; #X connect 11 0 10 0; #X connect 12 0 14 0; #X connect 12 1 5 0; #X connect 12 2 9 0; #X connect 13 0 2 0; #X connect 14 0 15 0; #X connect 15 0 11 0; #X connect 16 0 18 0; #X connect 18 0 13 0; #X restore 119 151 pd gopluckyourself; #X obj 104 29 inlet note; #X obj 156 315 outlet~; #X obj 242 30 inlet muting; #X msg 19 263 1; #X msg 50 263 0; #X obj 50 244 sel 0; #X msg 50 187 1 0 \, 0 15000; #X obj 50 206 line 1 15000; #X obj 104 53 moses 1; #N canvas 0 25 1016 656 pick-position 0; #X obj 81 21 inlet~; #X obj 80 267 outlet~; #X obj 171 20 inlet position; #X obj 81 216 -~; #X obj 15 21 inlet bang; #X msg -9 181 1; #X msg 22 181 0; #X obj 31 153 sel 0; #X obj 1 64 t b b; #X msg 31 97 1 0 \, 0 40; #X obj 31 116 line 1 40; #X obj 141 116 delread~ \$0-pick-position 3; #X obj 143 87 delwrite~ \$0-pick-position 40; #X obj -4 247 switch~ 16; #X connect 0 0 3 0; #X connect 0 0 12 0; #X connect 2 0 11 0; #X connect 3 0 1 0; #X connect 4 0 8 0; #X connect 5 0 13 0; #X connect 6 0 13 0; #X connect 7 0 6 0; #X connect 8 0 9 0; #X connect 8 1 5 0; #X connect 9 0 10 0; #X connect 10 0 7 0; #X connect 11 0 3 1; #X restore 155 201 pd pick-position; #N canvas 0 25 369 240 pick-position-delay-calculator 0; #N canvas 0 0 450 300 midi-to-delay-length 0; #X obj 33 51 mtof; #X obj 33 71 expr 1000/$f1; #X obj 33 31 inlet; #X obj 33 92 outlet; #X connect 0 0 1 0; #X connect 1 0 3 0; #X connect 2 0 0 0; #X restore 56 6 pd midi-to-delay-length; #X obj 56 -34 loadbang; #X msg 56 -14 40; #X obj 32 47 / 4; #X floatatom 5 -59 5 0 0 0 - - -; #X obj 5 -42 t b f; #X obj 5 -80 r \$0-pick-location; #X obj 32 67 outlet pickpositiondelay; #X obj 143 -80 inlet midinote; #X obj 143 -34 - 5; #X obj 201 -14 s \$0-lead2-which-string; #X obj 143 -58 t f f; #X connect 0 0 3 0; #X connect 1 0 2 0; #X connect 2 0 0 0; #X connect 3 0 7 0; #X connect 4 0 5 0; #X connect 5 0 3 0; #X connect 5 1 3 1; #X connect 6 0 4 0; #X connect 8 0 11 0; #X connect 9 0 0 0; #X connect 11 0 9 0; #X connect 11 1 10 0; #X restore 280 107 pd pick-position-delay-calculator; #X obj 143 81 t b b b f f b; #X obj 24 334 switch~ 16; #X connect 0 0 5 0; #X connect 1 0 0 1; #X connect 2 0 1 0; #X connect 3 0 13 1; #X connect 4 0 12 0; #X connect 6 0 0 2; #X connect 7 0 16 0; #X connect 8 0 16 0; #X connect 9 0 8 0; #X connect 10 0 11 0; #X connect 11 0 9 0; #X connect 12 1 15 0; #X connect 13 0 0 0; #X connect 14 0 13 2; #X connect 15 0 10 0; #X connect 15 1 3 0; #X connect 15 2 13 0; #X connect 15 3 2 0; #X connect 15 4 14 0; #X connect 15 5 7 0; #X restore 85 244 pd stringunit; #N canvas 0 25 538 323 stringunit 0; #N canvas 0 25 997 656 delay-writer 0; #X obj 86 220 inlet~; #X obj 253 718 outlet~; #X obj 103 458 +~; #X obj 165 221 inlet; #X obj 313 309 hip~ 5; #X obj 354 411 *~ 3; #X obj 296 231 lop~ 1000; #X obj 296 212 *~ 0.015; #X obj 109 382 hip~ 5; #X obj 103 417 clip~ -1 1; #X obj 116 352 lop~ 6000; #X obj 135 313 *~ 0.973; #X obj 354 431 clip~ -1 1; #X obj 317 628 *~ 0.11; #X obj 231 629 *~ 400; #X obj 253 698 hip~ 200; #X obj 554 240 inlet muting; #X obj 241 359 bp~ 311 50; #X obj 319 359 bp~ 504 50; #X obj 399 357 bp~ 767 50; #X obj 477 357 bp~ 1119 50; #X obj 562 358 bp~ 1246 50; #X obj 392 197 block~ 1; #X obj 75 485 delwrite~ \$0-leadstringdel2 1000; #X obj 130 252 delread~ \$0-leadstringdel2; #X connect 0 0 11 0; #X connect 2 0 23 0; #X connect 3 0 24 0; #X connect 4 0 17 0; #X connect 4 0 18 0; #X connect 4 0 19 0; #X connect 4 0 20 0; #X connect 4 0 21 0; #X connect 5 0 12 0; #X connect 6 0 4 0; #X connect 7 0 6 0; #X connect 8 0 9 0; #X connect 9 0 13 0; #X connect 9 0 2 0; #X connect 10 0 8 0; #X connect 11 0 10 0; #X connect 12 0 2 1; #X connect 12 0 14 0; #X connect 13 0 15 0; #X connect 14 0 15 0; #X connect 15 0 1 0; #X connect 16 0 11 1; #X connect 17 0 5 0; #X connect 18 0 5 0; #X connect 19 0 5 0; #X connect 20 0 5 0; #X connect 21 0 5 0; #X connect 24 0 7 0; #X connect 24 0 11 0; #X restore -91 249 pd delay-writer; #X obj 39 213 expr 1000/$f1; #X obj 39 187 mtof; #N canvas 0 0 450 300 gopluckyourself 0; #X obj 62 57 noise~; #X obj 144 203 *~; #X obj 95 151 hip~ 5; #X obj 128 55 vline~; #X obj 158 179 *~; #X msg 124 34 1 1 0 \, 0 9 1; #X obj 104 -43 inlet bang; #X obj 145 226 outlet~; #X obj 241 168 switch~; #X msg 242 136 1; #X msg 273 136 0; #X obj 326 99 sel 0; #X obj 214 -7 t b b b; #X obj 71 129 lop~ 12000; #X msg 326 43 1 0 \, 0 25; #X obj 326 62 line 1 25; #X obj 15 86 expr~ if ($v1 == 0 \, 0 \, (if ($v1 < 0 \, -1 \, 1))) ; #X text 16 70 TOTAL DISTORTION; #X obj 14 112 *~ 0.3; #X connect 0 0 16 0; #X connect 1 0 7 0; #X connect 2 0 1 0; #X connect 3 0 4 0; #X connect 3 0 4 1; #X connect 4 0 1 1; #X connect 5 0 3 0; #X connect 6 0 12 0; #X connect 9 0 8 0; #X connect 10 0 8 0; #X connect 11 0 10 0; #X connect 12 0 14 0; #X connect 12 1 5 0; #X connect 12 2 9 0; #X connect 13 0 2 0; #X connect 14 0 15 0; #X connect 15 0 11 0; #X connect 16 0 18 0; #X connect 18 0 13 0; #X restore -127 141 pd gopluckyourself; #X obj -142 19 inlet note; #X obj -91 274 outlet~; #X obj -4 19 inlet muting; #X msg -236 199 1; #X msg -205 199 0; #X obj -206 179 sel 0; #X msg -206 122 1 0 \, 0 15000; #X obj -206 141 line 1 15000; #X obj -137 45 moses 1; #X obj -157 81 t b b b f b; #N canvas 0 25 1016 656 pick-position 0; #X obj 81 21 inlet~; #X obj 80 267 outlet~; #X obj 171 20 inlet position; #X obj 81 216 -~; #X obj 15 21 inlet bang; #X msg -9 181 1; #X msg 22 181 0; #X obj 31 153 sel 0; #X obj 1 64 t b b; #X msg 31 97 1 0 \, 0 40; #X obj 31 116 line 1 40; #X obj -4 247 switch~ 16; #X obj 143 87 delwrite~ \$0-pick-position-2 40; #X obj 141 116 delread~ \$0-pick-position-2 3; #X connect 0 0 3 0; #X connect 0 0 12 0; #X connect 2 0 13 0; #X connect 3 0 1 0; #X connect 4 0 8 0; #X connect 5 0 11 0; #X connect 6 0 11 0; #X connect 7 0 6 0; #X connect 8 0 9 0; #X connect 8 1 5 0; #X connect 9 0 10 0; #X connect 10 0 7 0; #X connect 13 0 3 1; #X restore -91 190 pd pick-position; #N canvas 358 102 288 203 pick-position-delay-calculator 0; #N canvas 0 0 450 300 midi-to-delay-length 0; #X obj 33 51 mtof; #X obj 33 71 expr 1000/$f1; #X obj 33 31 inlet; #X obj 33 92 outlet; #X connect 0 0 1 0; #X connect 1 0 3 0; #X connect 2 0 0 0; #X restore 56 6 pd midi-to-delay-length; #X obj 56 -34 loadbang; #X obj 32 47 / 4; #X floatatom 5 -59 5 0 0 0 - - -; #X obj 5 -42 t b f; #X obj 5 -80 r \$0-pick-location; #X obj 32 67 outlet pickpositiondelay; #X msg 56 -14 44; #X obj 119 -80 r \$0-lead2-which-string; #X floatatom 119 -56 5 0 0 0 - - -; #X connect 0 0 2 0; #X connect 1 0 7 0; #X connect 2 0 6 0; #X connect 3 0 4 0; #X connect 4 0 2 0; #X connect 4 1 2 1; #X connect 5 0 3 0; #X connect 7 0 0 0; #X connect 8 0 9 0; #X connect 9 0 0 0; #X restore 75 19 pd pick-position-delay-calculator; #X obj -230 242 switch~ 16; #X connect 0 0 5 0; #X connect 1 0 0 1; #X connect 2 0 1 0; #X connect 3 0 14 1; #X connect 4 0 12 0; #X connect 6 0 0 2; #X connect 7 0 16 0; #X connect 8 0 16 0; #X connect 9 0 8 0; #X connect 10 0 11 0; #X connect 11 0 9 0; #X connect 12 1 13 0; #X connect 13 0 10 0; #X connect 13 1 3 0; #X connect 13 2 14 0; #X connect 13 3 2 0; #X connect 13 4 7 0; #X connect 14 0 0 0; #X connect 15 0 14 2; #X restore 169 244 pd stringunit; #X obj 225 478 hip~ 500; #X obj 40 413 hip~ 500; #X obj 40 121 moses 40; #X obj 124 121 moses 40; #X text 366 187 I originally programmed 6 strings \, but it only uses 2 \, so...; #X obj 244 143 r leadmuting; #N canvas 0 0 450 300 ampwetdry 0; #X obj 63 148 *; #X obj 63 124 * 2; #X obj 63 167 / 4; #X obj 63 186 swap 1; #X obj 71 207 -; #X obj 101 72 swap 1; #X obj 108 96 -; #X obj 124 148 *; #X obj 124 124 * 2; #X obj 124 167 / 4; #X obj 124 186 swap 1; #X obj 131 206 -; #X obj 63 17 r leadampwetdry; #X obj 71 239 outlet dryvol; #X obj 155 239 outlet wetvol; #X connect 0 0 2 0; #X connect 1 0 0 1; #X connect 1 0 0 0; #X connect 2 0 3 0; #X connect 3 0 4 0; #X connect 3 1 4 1; #X connect 4 0 13 0; #X connect 5 0 6 0; #X connect 5 1 6 1; #X connect 6 0 8 0; #X connect 7 0 9 0; #X connect 8 0 7 1; #X connect 8 0 7 0; #X connect 9 0 10 0; #X connect 10 0 11 0; #X connect 10 1 11 1; #X connect 11 0 14 0; #X connect 12 0 1 0; #X connect 12 0 5 0; #X restore 279 478 pd ampwetdry; #X obj 202 121 r leadpickdel; #X floatatom 475 332 5 0 0 0 - - -; #X text 459 332 1/; #X text 508 332 up string from bridge; #X obj 475 304 r \$0-pick-location; #X obj 147 346 *~ 0.2; #X connect 0 0 10 0; #X connect 1 0 10 0; #X connect 2 0 7 0; #X connect 3 0 7 0; #X connect 4 0 7 0; #X connect 5 0 7 0; #X connect 6 0 7 0; #X connect 7 0 15 0; #X connect 8 0 14 0; #X connect 11 0 17 0; #X connect 12 0 18 0; #X connect 13 0 27 0; #X connect 14 0 27 0; #X connect 15 0 0 0; #X connect 16 0 1 0; #X connect 17 1 13 0; #X connect 18 1 8 0; #X connect 20 0 14 1; #X connect 20 0 13 1; #X connect 21 0 1 1; #X connect 21 1 0 1; #X connect 22 0 8 1; #X connect 26 0 23 0; #X connect 27 0 2 0; #X connect 27 0 3 0; #X connect 27 0 4 0; #X connect 27 0 5 0; #X connect 27 0 6 0; #X connect 27 0 16 0; #X restore 263 472 pd guitarsound; #X obj 327 524 sel 0 1; #X msg 346 543 1; #X msg 320 543 0; #X obj 346 562 pipe 20; #X obj 298 562 pipe 20; #X msg 245 308 set; #X msg 245 327 1 3 5 6 8 10 0; #X obj 140 108 + 2; #X obj 164 108 + 4; #X obj 188 108 + 5; #X obj 212 108 + 7; #X obj 236 108 + 9; #X obj 260 108 + 11; #X obj 116 108 + 0; #X obj 116 127 mod 12; #X obj 140 146 mod 12; #X obj 164 165 mod 12; #X obj 188 184 mod 12; #X obj 212 203 mod 12; #X obj 236 222 mod 12; #X obj 260 241 mod 12; #X msg 116 170 add2 \$1; #X msg 140 189 add2 \$1; #X msg 164 208 add2 \$1; #X msg 188 227 add2 \$1; #X msg 212 246 add2 \$1; #X msg 236 265 add2 \$1; #X msg 260 284 add2 \$1; #X obj 245 346 sort; #X obj 238 79 t b f b; #N canvas 0 25 1016 656 delayl 0; #X obj 84 16 inlet~ dry; #X obj 77 349 outlet~ mixed; #X obj 8 234 *~ 0.5; #X text 14 256 feedback; #X obj 90 268 *~ 0.5; #X text 98 283 volume; #X obj 373 14 inlet time; #X obj 465 14 inlet feedback; #X obj 577 14 inlet volume; #X obj 303 298 *~ 0.5; #X text 357 302 dry volume; #X obj 251 14 inlet dry volume; #X obj 85 148 lop~ 1000; #X obj 85 174 hip~ 100; #X obj 90 76 delread~ \$0-leaddelayl; #X obj 85 36 delwrite~ \$0-leaddelayl 800; #X connect 0 0 9 0; #X connect 0 0 15 0; #X connect 2 0 15 0; #X connect 4 0 1 0; #X connect 6 0 14 0; #X connect 7 0 2 1; #X connect 8 0 4 1; #X connect 9 0 1 0; #X connect 11 0 9 1; #X connect 12 0 13 0; #X connect 13 0 2 0; #X connect 14 0 4 0; #X connect 14 0 12 0; #X restore 396 795 pd delayl; #N canvas 0 25 1016 656 delayr 0; #X obj 84 16 inlet~ dry; #X obj 89 350 outlet~ mixed; #X obj 8 234 *~ 0.5; #X text 14 256 feedback; #X obj 90 268 *~ 0.5; #X text 98 283 volume; #X obj 378 14 inlet time; #X obj 465 14 inlet feedback; #X obj 564 14 inlet volume; #X obj 172 195 *~ 0.5; #X text 226 199 dry volume; #X obj 251 14 inlet dry volume; #X obj 85 148 lop~ 1000; #X obj 85 174 hip~ 100; #X obj 90 76 delread~ \$0-leaddelayr; #X obj 85 36 delwrite~ \$0-leaddelayr 800; #X connect 0 0 9 0; #X connect 0 0 15 0; #X connect 2 0 15 0; #X connect 4 0 1 0; #X connect 6 0 14 0; #X connect 7 0 2 1; #X connect 8 0 4 1; #X connect 9 0 1 0; #X connect 11 0 9 1; #X connect 12 0 13 0; #X connect 13 0 2 0; #X connect 14 0 4 0; #X connect 14 0 12 0; #X restore 396 814 pd delayr; #X obj 425 588 switch~; #N canvas 0 25 997 637 randnoteseq 0; #X msg 601 -22 1; #X msg 535 -23 -1; #X obj 570 37 +; #X obj 638 35 int; #X text 672 82 integer floor to determine octave correctly; #X obj 783 361 +; #X msg 501 -23 -2; #X msg 634 -23 2; #X msg 471 -24 -3; #X msg 665 -22 3; #X msg 440 -25 -4; #X msg 695 -21 4; #X msg 409 -26 -5; #X msg 726 -20 5; #X obj 130 357 f; #X obj 161 357 f; #X obj 192 357 f; #X obj 223 357 f; #X obj 253 357 f; #X obj 312 214 select 0 1 2 3 4 5 6; #X obj 280 358 f; #X obj 306 358 f; #X obj 180 267 unpack f f f f f f f; #X obj 550 139 t f f; #X obj 34 -423 inlet scalelist; #X obj 707 491 outlet note; #X msg 566 -23 0; #X obj 790 -248 random 100; #X obj 557 -74 random 2; #X obj 557 -55 sel 0 1; #X obj 557 -118 random 2; #X obj 557 -99 sel 0 1; #X obj 556 -161 random 2; #X obj 556 -142 sel 0 1; #X obj 555 -203 random 2; #X obj 555 -184 sel 0 1; #X obj 554 -243 random 2; #X obj 554 -224 sel 0 1; #X msg 381 -26 -6; #X msg 754 -20 6; #X msg 353 -26 -7; #X msg 783 -19 7; #X obj 553 -283 random 2; #X obj 553 -264 sel 0 1; #X obj 553 -323 random 2; #X obj 553 -304 sel 0 1; #X obj 783 388 < 28; #X text 1091 440 to make sure it doesn't stray from boundaries; #X obj 781 408 sel 1; #X obj 819 408 sel 1; #X obj 1027 438 random 13; #X obj 1027 458 + 30; #X obj 813 388 > 100; #X obj 835 -185 moses 45; #X obj 880 -165 moses 65; #X obj 925 -144 moses 77; #X obj 970 -122 moses 86; #X obj 1015 -100 moses 92; #X obj 1060 -79 moses 97; #X obj 790 -205 moses 10; #X obj 829 -423 inlet bang; #X obj 895 -422 inlet lowerlimit; #X obj 996 -422 inlet upperlimit; #X obj 996 -267 moses 20; #X obj 1041 -226 s bangstuff; #X obj 1041 -331 / 15; #X obj 1041 -351 * 11; #X obj 1240 41 +; #X obj 1280 41 int; #X floatatom 1267 21 5 0 0 0 - - -; #X msg 1240 21 1; #X obj 1240 78 s drumnum; #X obj 977 -361 sel 1 2; #X obj 746 144 + 4; #X obj 451 354 f; #X obj 482 354 f; #X obj 513 354 f; #X obj 544 354 f; #X obj 574 354 f; #X obj 601 355 f; #X obj 627 355 f; #X obj 414 270 unpack f f f f f f f; #X obj 564 252 select 0 1 2 3 4 5 6; #X obj 746 163 t f f; #X obj 849 467 +; #X obj 849 491 outlet note2; #X obj 978 24 sel 0; #X obj 978 1 t f f; #X obj 983 74 spigot; #X msg 1013 46 1; #X msg 978 45 0; #X obj 1017 2 random 3; #X obj 1017 23 + 2; #X msg 978 -19 0; #X msg 1008 -18 1; #X obj 829 -404 t b b; #X obj 996 -297 random 100; #X obj 312 176 mod 7; #X obj 564 229 mod 7; #X obj 1098 -422 r leadrestclust; #X obj 1097 -403 i; #X obj 1237 -402 i; #X obj 1237 -422 r leadnoteclust; #X text 469 -357 these random modules select whether you're going up or down \, so as to keep things balanced; #X text 1146 4 this tells the drums what number note you've reached in a "measure"; #X text 847 -206 determine scale interval between current and next note; #X text 197 238 unpack scale to individual notes (twice \, because two notes play at once); #X text 997 -283 other stuff doesn't always play when lead guitar does ; #X text 935 115 choose harmony (third \, fourth \, or fifth) after each rest; #X obj 223 387 f; #X obj 544 386 f; #X msg 835 -164 bang; #X msg 880 -145 bang; #X msg 925 -125 bang; #X msg 970 -103 bang; #X msg 1015 -81 bang; #X msg 1060 -58 bang; #X msg 1105 -58 bang; #X msg 1041 -246 bang; #X obj 1119 -135 t b b; #X obj 1023 -174 t b b b; #X obj 996 -332 t b b; #X obj 570 58 t f f; #X obj 977 -387 r \$0-leadrestornot; #N canvas 0 0 450 300 restornotmarkov 0; #X msg -342 33 1; #X msg -297 34 2; #X obj -246 -149 f 1; #X obj -342 -8 random 100; #X obj -209 -27 random 100; #X text -280 -196 STEP; #X text -319 -37 rest; #X text -261 -92 choose next state from...; #X obj -342 13 moses 85; #X obj -248 -128 sel 1 2; #X obj -209 -8 moses 85; #X msg -211 18 2; #X msg -167 17 1; #X obj -325 58 s \$0-leadrestornot; #X obj -189 58 s \$0-leadrestornot; #X obj -231 -192 r \$0-leadrestornot; #X text -178 -48 note; #X obj -278 -173 inlet bang-f; #X obj -200 -173 inlet leadrestclust; #X obj -80 -173 inlet leadnoteclust; #X connect 0 0 13 0; #X connect 1 0 13 0; #X connect 2 0 9 0; #X connect 3 0 8 0; #X connect 4 0 10 0; #X connect 8 0 0 0; #X connect 8 1 1 0; #X connect 9 0 3 0; #X connect 9 1 4 0; #X connect 10 0 11 0; #X connect 10 1 12 0; #X connect 11 0 14 0; #X connect 12 0 14 0; #X connect 15 0 2 1; #X connect 17 0 2 0; #X connect 18 0 8 1; #X connect 19 0 10 1; #X restore 1165 -342 pd restornotmarkov; #N canvas 0 0 450 300 integerfloor 0; #X obj 61 11 inlet; #X obj 71 238 outlet; #X obj 61 31 / 7; #X obj 87 79 int; #X obj 87 121 * -1; #X obj 71 140 +; #X obj 71 162 < 0; #X obj 71 181 * -1; #X obj 71 200 +; #X obj 71 218 * 12; #X obj 61 60 t f f; #X obj 87 100 t f f; #X connect 0 0 2 0; #X connect 2 0 10 0; #X connect 3 0 11 0; #X connect 4 0 5 1; #X connect 5 0 6 0; #X connect 6 0 7 0; #X connect 7 0 8 0; #X connect 8 0 9 0; #X connect 9 0 1 0; #X connect 10 0 5 0; #X connect 10 1 3 0; #X connect 11 0 4 0; #X connect 11 1 8 1; #X restore 763 326 pd integerfloor; #N canvas 0 0 450 300 integerfloor 0; #X obj 61 11 inlet; #X obj 71 238 outlet; #X obj 61 31 / 7; #X obj 87 79 int; #X obj 87 121 * -1; #X obj 71 140 +; #X obj 71 162 < 0; #X obj 71 181 * -1; #X obj 71 200 +; #X obj 71 218 * 12; #X obj 61 60 t f f; #X obj 87 100 t f f; #X connect 0 0 2 0; #X connect 2 0 10 0; #X connect 3 0 11 0; #X connect 4 0 5 1; #X connect 5 0 6 0; #X connect 6 0 7 0; #X connect 7 0 8 0; #X connect 8 0 9 0; #X connect 9 0 1 0; #X connect 10 0 5 0; #X connect 10 1 3 0; #X connect 11 0 4 0; #X connect 11 1 8 1; #X restore 859 326 pd integerfloor; #X connect 0 0 2 0; #X connect 1 0 2 0; #X connect 2 0 3 0; #X connect 2 0 122 0; #X connect 3 0 2 1; #X connect 5 0 25 0; #X connect 5 0 46 0; #X connect 5 0 52 0; #X connect 6 0 2 0; #X connect 7 0 2 0; #X connect 8 0 2 0; #X connect 9 0 2 0; #X connect 10 0 2 0; #X connect 11 0 2 0; #X connect 12 0 2 0; #X connect 13 0 2 0; #X connect 14 0 109 0; #X connect 15 0 109 0; #X connect 16 0 109 0; #X connect 17 0 109 0; #X connect 18 0 109 0; #X connect 19 0 14 0; #X connect 19 1 15 0; #X connect 19 2 16 0; #X connect 19 3 17 0; #X connect 19 4 18 0; #X connect 19 5 20 0; #X connect 19 6 21 0; #X connect 20 0 109 0; #X connect 21 0 109 0; #X connect 22 0 14 1; #X connect 22 1 15 1; #X connect 22 2 16 1; #X connect 22 3 17 1; #X connect 22 4 18 1; #X connect 22 5 20 1; #X connect 22 6 21 1; #X connect 23 0 125 0; #X connect 23 1 97 0; #X connect 24 0 22 0; #X connect 24 0 81 0; #X connect 26 0 2 0; #X connect 27 0 59 0; #X connect 28 0 29 0; #X connect 29 0 1 0; #X connect 29 1 0 0; #X connect 30 0 31 0; #X connect 31 0 6 0; #X connect 31 1 7 0; #X connect 32 0 33 0; #X connect 33 0 8 0; #X connect 33 1 9 0; #X connect 34 0 35 0; #X connect 35 0 10 0; #X connect 35 1 11 0; #X connect 36 0 37 0; #X connect 37 0 12 0; #X connect 37 1 13 0; #X connect 38 0 2 0; #X connect 39 0 2 0; #X connect 40 0 2 0; #X connect 41 0 2 0; #X connect 42 0 43 0; #X connect 43 0 38 0; #X connect 43 1 39 0; #X connect 44 0 45 0; #X connect 45 0 40 0; #X connect 45 1 41 0; #X connect 46 0 48 0; #X connect 48 0 50 0; #X connect 49 0 50 0; #X connect 50 0 51 0; #X connect 51 0 2 1; #X connect 52 0 49 0; #X connect 53 0 111 0; #X connect 53 1 54 0; #X connect 54 0 112 0; #X connect 54 1 55 0; #X connect 55 0 113 0; #X connect 55 1 56 0; #X connect 56 0 114 0; #X connect 56 1 57 0; #X connect 57 0 115 0; #X connect 57 1 58 0; #X connect 58 0 116 0; #X connect 58 1 117 0; #X connect 59 0 26 0; #X connect 59 1 53 0; #X connect 60 0 95 0; #X connect 61 0 46 1; #X connect 62 0 52 1; #X connect 63 1 118 0; #X connect 65 0 63 1; #X connect 66 0 65 0; #X connect 67 0 68 0; #X connect 67 0 71 0; #X connect 68 0 67 1; #X connect 69 0 67 1; #X connect 70 0 67 0; #X connect 72 0 119 0; #X connect 72 1 121 0; #X connect 73 0 83 0; #X connect 74 0 110 0; #X connect 75 0 110 0; #X connect 76 0 110 0; #X connect 77 0 110 0; #X connect 78 0 110 0; #X connect 79 0 110 0; #X connect 80 0 110 0; #X connect 81 0 74 1; #X connect 81 1 75 1; #X connect 81 2 76 1; #X connect 81 3 77 1; #X connect 81 4 78 1; #X connect 81 5 79 1; #X connect 81 6 80 1; #X connect 82 0 74 0; #X connect 82 1 75 0; #X connect 82 2 76 0; #X connect 82 3 77 0; #X connect 82 4 78 0; #X connect 82 5 79 0; #X connect 82 6 80 0; #X connect 83 0 126 0; #X connect 83 1 98 0; #X connect 84 0 85 0; #X connect 86 0 90 0; #X connect 86 1 89 0; #X connect 87 0 86 1; #X connect 87 1 86 0; #X connect 88 0 73 1; #X connect 89 0 88 1; #X connect 90 0 88 1; #X connect 91 0 92 0; #X connect 92 0 88 0; #X connect 93 0 87 0; #X connect 94 0 87 0; #X connect 95 0 91 0; #X connect 95 1 124 0; #X connect 96 0 63 0; #X connect 97 0 19 0; #X connect 98 0 82 0; #X connect 99 0 100 0; #X connect 100 0 66 0; #X connect 100 0 124 1; #X connect 101 0 124 2; #X connect 102 0 101 0; #X connect 109 0 5 1; #X connect 110 0 84 1; #X connect 111 0 28 0; #X connect 112 0 30 0; #X connect 113 0 32 0; #X connect 114 0 34 0; #X connect 115 0 36 0; #X connect 116 0 42 0; #X connect 117 0 44 0; #X connect 118 0 64 0; #X connect 119 0 93 0; #X connect 119 1 69 0; #X connect 120 0 27 0; #X connect 120 1 94 0; #X connect 120 2 70 0; #X connect 121 0 96 0; #X connect 121 1 120 0; #X connect 122 0 73 0; #X connect 122 1 23 0; #X connect 123 0 72 0; #X connect 125 0 5 0; #X connect 126 0 84 0; #X restore 284 387 pd randnoteseq; #X text 287 101 this makes a scale -- you could edit the right inlets of these numbers to change the mode; #X text 86 9 random walk around circle of fifths; #X obj 263 426 f; #X obj 303 426 f; #X obj 327 500 r leadonoff; #X obj 267 500 r leadvol; #X obj 334 738 r leadpan; #X obj 332 617 r leaddeldry; #X obj 482 617 r 3period; #X obj 410 617 r leaddelfb; #X obj 542 617 r leaddelwet; #N canvas 0 0 450 300 wetdrystuff 0; #X obj 19 -50 *; #X obj 25 -73 * 2; #X obj 19 -31 / 4; #X obj 19 -12 swap 1; #X obj 26 12 -; #X obj 76 -112 swap 1; #X obj 84 -93 -; #X obj 76 -51 *; #X obj 84 -73 * 2; #X obj 76 -32 / 4; #X obj 76 -13 swap 1; #X obj 83 11 -; #X text 136 -111 dry/wet (reverb); #X obj 23 50 outlet dry; #X obj 96 50 outlet wet; #X obj 25 -195 r leadwetdry; #X connect 0 0 2 0; #X connect 1 0 0 1; #X connect 1 0 0 0; #X connect 2 0 3 0; #X connect 3 0 4 0; #X connect 3 1 4 1; #X connect 4 0 13 0; #X connect 5 0 6 0; #X connect 5 1 6 1; #X connect 6 0 8 0; #X connect 7 0 9 0; #X connect 8 0 7 1; #X connect 8 0 7 0; #X connect 9 0 10 0; #X connect 10 0 11 0; #X connect 10 1 11 1; #X connect 11 0 14 0; #X connect 15 0 1 0; #X connect 15 0 5 0; #X restore 380 841 pd wetdrystuff; #N canvas 0 0 450 300 stringnumbermarkov 0; #X msg 70 151 0; #X msg 46 151 1; #X msg 93 228 1; #X msg 138 228 2; #X obj 158 85 f 1; #X obj 93 173 random 100; #X obj 202 171 random 100; #X text 119 137 choose next state from...; #X obj 93 192 moses 85; #X obj 225 92 sel 1 2; #X msg 203 226 2; #X msg 248 226 1; #X obj 108 106 sel 1 2; #X obj 109 252 s \$0-howmanystrings; #X obj 229 252 s \$0-howmanystrings; #X obj 173 57 r \$0-howmanystrings; #X obj 203 190 moses 75; #X text 2 28 Markov chain switches between 1 and 2 strings during interlude ; #X obj 159 173 i; #X obj 268 171 i; #X obj 71 273 s guitarharmonymain; #X obj 273 153 r lead2stringclust; #X obj 159 153 r lead1stringclust; #X msg 244 119 bang; #X msg 209 119 bang; #X obj 129 6 inlet bang; #X connect 0 0 20 0; #X connect 1 0 20 0; #X connect 2 0 13 0; #X connect 3 0 13 0; #X connect 4 0 9 0; #X connect 5 0 8 0; #X connect 6 0 16 0; #X connect 8 0 2 0; #X connect 8 1 3 0; #X connect 9 0 24 0; #X connect 9 1 23 0; #X connect 10 0 14 0; #X connect 11 0 14 0; #X connect 12 0 0 0; #X connect 12 1 1 0; #X connect 15 0 4 1; #X connect 15 0 12 0; #X connect 16 0 10 0; #X connect 16 1 11 0; #X connect 18 0 8 1; #X connect 19 0 16 1; #X connect 21 0 19 0; #X connect 22 0 18 0; #X connect 23 0 6 0; #X connect 24 0 5 0; #X connect 25 0 4 0; #X restore 388 142 pd stringnumbermarkov; #N canvas 0 0 471 452 equalpowerpan 0; #X obj 105 313 cos~; #X obj 73 163 t f f; #X obj 73 188 * 0.25; #X obj 108 211 * 0.25; #X obj 108 233 + 0.75; #X msg 108 257 \$1 20; #X obj 108 279 line~; #X msg 68 257 \$1 20; #X obj 68 279 line~; #X obj 105 334 *~; #X obj 75 313 cos~; #X obj 75 334 *~; #X obj 58 415 outlet~ left; #X obj 138 415 outlet~ right; #X obj 20 48 inlet~ sound; #X obj 102 136 expr ($f1+1)/2; #X obj 102 110 inlet negonetoone; #X connect 0 0 9 1; #X connect 1 0 2 0; #X connect 1 1 3 0; #X connect 2 0 7 0; #X connect 3 0 4 0; #X connect 4 0 5 0; #X connect 5 0 6 0; #X connect 6 0 0 0; #X connect 7 0 8 0; #X connect 8 0 10 0; #X connect 9 0 13 0; #X connect 10 0 11 1; #X connect 11 0 12 0; #X connect 14 0 11 0; #X connect 14 0 9 0; #X connect 15 0 1 0; #X connect 16 0 15 0; #X restore 241 766 pd equalpowerpan; #X connect 0 0 79 0; #X connect 1 0 62 2; #X connect 2 0 63 2; #X connect 3 0 61 0; #X connect 4 0 27 0; #X connect 5 0 65 2; #X connect 6 0 65 3; #X connect 8 0 0 1; #X connect 9 0 8 0; #X connect 10 0 9 0; #X connect 11 0 10 0; #X connect 11 1 10 1; #X connect 12 0 5 0; #X connect 13 0 6 0; #X connect 14 0 31 1; #X connect 16 0 19 0; #X connect 16 0 18 0; #X connect 17 0 21 0; #X connect 17 0 20 0; #X connect 18 0 22 0; #X connect 19 0 15 0; #X connect 20 0 23 0; #X connect 21 0 24 0; #X connect 25 0 68 0; #X connect 25 1 69 0; #X connect 26 0 14 1; #X connect 27 0 28 0; #X connect 27 1 65 1; #X connect 27 2 7 0; #X connect 27 3 30 0; #X connect 27 4 78 0; #X connect 29 0 25 0; #X connect 31 0 0 0; #X connect 32 0 34 0; #X connect 32 1 33 0; #X connect 33 0 35 0; #X connect 33 0 64 0; #X connect 34 0 36 0; #X connect 34 0 11 0; #X connect 35 0 11 0; #X connect 36 0 64 0; #X connect 37 0 38 0; #X connect 38 0 60 0; #X connect 39 0 47 0; #X connect 40 0 48 0; #X connect 41 0 49 0; #X connect 42 0 50 0; #X connect 43 0 51 0; #X connect 44 0 52 0; #X connect 45 0 46 0; #X connect 46 0 53 0; #X connect 47 0 54 0; #X connect 48 0 55 0; #X connect 49 0 56 0; #X connect 50 0 57 0; #X connect 51 0 58 0; #X connect 52 0 59 0; #X connect 53 0 38 0; #X connect 54 0 38 0; #X connect 55 0 38 0; #X connect 56 0 38 0; #X connect 57 0 38 0; #X connect 58 0 38 0; #X connect 59 0 38 0; #X connect 60 0 65 0; #X connect 61 0 38 0; #X connect 61 1 45 0; #X connect 61 1 39 0; #X connect 61 1 40 0; #X connect 61 1 41 0; #X connect 61 1 42 0; #X connect 61 1 43 0; #X connect 61 1 44 0; #X connect 61 2 37 0; #X connect 62 0 16 0; #X connect 63 0 17 0; #X connect 65 0 68 0; #X connect 65 1 69 0; #X connect 68 0 31 0; #X connect 69 0 14 0; #X connect 70 0 32 0; #X connect 71 0 10 0; #X connect 72 0 79 1; #X connect 73 0 62 1; #X connect 73 0 63 1; #X connect 74 0 1 0; #X connect 74 0 2 0; #X connect 75 0 62 3; #X connect 75 0 63 3; #X connect 76 0 62 4; #X connect 76 0 63 4; #X connect 77 0 19 1; #X connect 77 0 21 1; #X connect 77 1 18 1; #X connect 77 1 20 1; #X connect 79 0 62 0; #X connect 79 1 63 0; #X restore 775 -138 pd leadguitar; #N canvas 0 25 997 658 rhythmguitar 0; #X obj 608 471 *~; #X obj 459 412 *~; #X obj 397 417 *~; #X obj 361 337 bp~ 199 5; #X obj 421 337 bp~ 297 5; #X obj 481 337 bp~ 391 5; #X obj 541 337 bp~ 493 5; #X obj 601 337 bp~ 861 5; #X obj 496 366 *~ 0.48; #X obj 91 20 * 2; #X obj 118 20 * 3; #X obj 144 20 * 4; #X obj 169 20 * 5; #X obj 249 122 pipe 8; #X obj 376 122 pipe 16; #X obj 494 122 pipe 24; #X obj 607 122 pipe 32; #X obj 713 122 pipe 40; #X obj 469 24 unpack f f f f f f; #X obj 535 577 throw~ dryl; #X obj 635 549 *~; #X obj 610 549 *~; #X obj 695 551 *~; #X obj 669 550 *~; #X obj 607 577 throw~ wetl; #X obj 774 577 throw~ wetr; #X obj 703 577 throw~ dryr; #X obj 469 4 r mainstrum; #N canvas 0 25 997 640 mainstrum 0; #X msg -38 -450 42 49 54 58 61 66; #X msg 64 -400 42 45 50 57 62 66; #X msg 14 -260 41 45 50 57 62 65; #X text 38 -276 dm; #X text 86 -416 D; #X text 0 -471 F#; #X msg 101 -194 40 45 52 57 61 64; #X text 107 -210 A; #X msg 251 -270 40 47 52 56 59 64; #X text 257 -284 E; #X msg 279 -166 43 50 55 59 62 67; #X text 286 -183 G; #X msg 335 -78 41 46 53 58 62 65; #X text 352 -95 Bb; #X msg 380 -9 43 48 55 60 64 67; #X text 389 -25 C; #X obj 9 -546 mod 32; #X obj 9 -565 moses 64; #X obj 9 -584 mod 128; #X obj 54 -546 moses 96; #X obj 99 -527 moses 128; #X obj 251 -355 mod 32; #X obj 9 -627 mod 384; #X obj 9 -603 moses 256; #X obj 59 -160 mod 128; #X obj 59 -122 mod 32; #X obj 59 -141 moses 64; #X obj 104 -122 moses 96; #X obj 149 143 moses 128; #X text 109 -32 f#m; #X msg 95 -16 42 49 54 57 61 66; #X text -53 -562 main; #X text 111 -161 little bridge thing; #X obj 54 -364 mod 32; #X obj 104 -103 mod 32; #X text 119 39 C#; #X text 158 108 c#m; #X msg 104 57 44 49 56 61 65 68; #X obj -38 323 s mainstrum; #X msg 149 124 44 49 56 61 64 68; #X obj 149 162 mod 32; #X text 209 233 C#sus; #X msg 194 248 44 49 56 61 66 68; #X obj 9 -527 moses 16; #X obj -38 -471 sel 0; #X obj 64 -429 sel 0; #X obj 53 -508 mod 16; #X obj -38 -491 mod 16; #X obj 54 -345 moses 16; #X obj 100 -242 mod 16; #X obj 14 -309 mod 16; #X obj 14 -289 sel 0; #X obj 101 -222 sel 0; #X obj 251 -336 moses 8; #X obj 290 -244 moses 16; #X obj 335 -147 moses 24; #X obj 251 -297 sel 0; #X obj 251 -317 mod 8; #X obj 279 -216 mod 8; #X obj 335 -128 mod 8; #X obj 380 -58 mod 8; #X obj 279 -197 sel 0; #X obj 380 -39 sel 0; #X obj 335 -109 sel 0; #X obj 50 -103 moses 16; #X obj 95 -65 mod 16; #X obj 49 -83 mod 16; #X obj 95 -46 sel 0; #X obj 104 -84 moses 16; #X obj 149 76 mod 16; #X obj 104 6 mod 16; #X obj 104 25 sel 0; #X obj 149 95 sel 0; #X obj 149 181 moses 16; #X obj 194 200 mod 16; #X obj 149 200 mod 16; #X obj 149 219 sel 0; #X obj 194 219 sel 0 8; #X obj 152 -991 r rgtime; #X obj 397 -151 f; #X obj 428 -151 f; #X obj 459 -151 f; #X obj 490 -151 f; #X obj 520 -151 f; #X obj 545 -261 t b; #X obj 152 -733 t b f; #X text 142 -752 this is a switch; #X obj 137 -705 pack 0 f f; #X obj 137 -686 route 0; #X msg 119 -772 1; #X msg 119 -753 2; #X text 190 -685 eliminates the 0; #X obj 119 -792 loadbang; #X obj 152 -955 t f b; #X text -23 -720 first 0 prevents switching from outputting bang immediately ; #X obj 543 -34 t b f; #X text 536 -57 this is a switch; #X obj 528 -6 pack 0 f f; #X obj 528 13 route 0; #X text 581 14 eliminates the 0; #X obj 535 -74 t f b; #X text 577 -34 first 0 prevents switching from outputting bang immediately ; #X obj 602 -105 f 0; #X obj 649 -108 + 1; #X text 703 -118 counter; #X obj 571 -122 t b; #X obj 601 -74 mod 6; #X obj 374 182 outlet string1; #X obj 464 182 outlet string2; #X obj 554 182 outlet string3; #X obj 644 182 outlet string4; #X obj 734 182 outlet string5; #X obj 824 182 outlet string6; #N canvas 0 25 1018 640 markovguitarnotes 0; #X obj 264 -419 mod 16; #X obj 288 -396 sel 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15; #N canvas 0 25 997 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 106 -353 pd pct; #X floatatom 129 -373 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 148 -352 pd pct; #X floatatom 170 -370 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 190 -351 pd pct; #X floatatom 216 -369 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 232 -350 pd pct; #X floatatom 258 -367 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 275 -350 pd pct; #X floatatom 304 -366 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 317 -348 pd pct; #X floatatom 345 -366 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 364 -347 pd pct; #X floatatom 383 -364 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 406 -346 pd pct; #X floatatom 424 -363 5 0 100 0 - - -; #N canvas 0 25 1016 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 450 -346 pd pct; #X floatatom 466 -363 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 492 -346 pd pct; #X floatatom 506 -362 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 540 -345 pd pct; #X floatatom 549 -363 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 582 -344 pd pct; #X floatatom 599 -361 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 624 -343 pd pct; #X floatatom 647 -362 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 666 -343 pd pct; #X floatatom 691 -360 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 708 -343 pd pct; #X floatatom 735 -360 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 750 -343 pd pct; #X floatatom 776 -360 5 0 100 0 - - -; #X obj 198 -442 inlet number; #X obj 623 -534 loadbang; #X msg 617 -101 1; #X msg 662 -101 2; #X obj 477 -267 f 1; #X obj 617 -143 random 100; #X obj 795 -164 random 100; #X text 445 -314 STEP; #X text 669 -170 rest; #X text 864 -180 choose next state from...; #X obj 617 -122 moses 85; #X obj 477 -246 sel 1 2; #X msg 795 -123 2; #X msg 840 -123 1; #X obj 492 0 sel 1 2; #X obj 511 20 outlet bang; #X obj 645 -238 inlet restclust; #X obj 818 -240 inlet noteclust; #X obj 795 -145 moses 99; #X obj 640 -1 s \$0-rgrestornot; #X obj 825 -1 s \$0-rgrestornot; #X obj 492 -295 r \$0-rgrestornot; #X msg 553 -501 98; #X msg 586 -500 50; #X msg 658 -498 60; #X msg 616 -498 70; #X msg 704 -498 80; #X msg 416 -313 bang; #X connect 0 0 1 0; #X connect 1 0 2 0; #X connect 1 1 4 0; #X connect 1 2 6 0; #X connect 1 3 8 0; #X connect 1 4 10 0; #X connect 1 5 12 0; #X connect 1 6 14 0; #X connect 1 7 16 0; #X connect 1 8 18 0; #X connect 1 9 20 0; #X connect 1 10 22 0; #X connect 1 11 24 0; #X connect 1 12 26 0; #X connect 1 13 28 0; #X connect 1 14 30 0; #X connect 1 15 32 0; #X connect 2 0 61 0; #X connect 3 0 2 1; #X connect 4 0 61 0; #X connect 5 0 4 1; #X connect 6 0 61 0; #X connect 7 0 6 1; #X connect 8 0 61 0; #X connect 9 0 8 1; #X connect 10 0 61 0; #X connect 11 0 10 1; #X connect 12 0 61 0; #X connect 13 0 12 1; #X connect 14 0 61 0; #X connect 15 0 14 1; #X connect 16 0 61 0; #X connect 17 0 16 1; #X connect 18 0 61 0; #X connect 19 0 18 1; #X connect 20 0 61 0; #X connect 21 0 20 1; #X connect 22 0 61 0; #X connect 23 0 22 1; #X connect 24 0 61 0; #X connect 25 0 24 1; #X connect 26 0 61 0; #X connect 27 0 26 1; #X connect 28 0 61 0; #X connect 29 0 28 1; #X connect 30 0 61 0; #X connect 31 0 30 1; #X connect 32 0 61 0; #X connect 33 0 32 1; #X connect 34 0 0 0; #X connect 35 0 56 0; #X connect 35 0 57 0; #X connect 35 0 59 0; #X connect 35 0 60 0; #X connect 35 0 58 0; #X connect 36 0 53 0; #X connect 37 0 53 0; #X connect 38 0 45 0; #X connect 39 0 44 0; #X connect 40 0 52 0; #X connect 44 0 36 0; #X connect 44 1 37 0; #X connect 45 0 39 0; #X connect 45 1 40 0; #X connect 46 0 54 0; #X connect 47 0 54 0; #X connect 48 1 49 0; #X connect 50 0 44 1; #X connect 51 0 52 1; #X connect 52 0 46 0; #X connect 52 1 47 0; #X connect 55 0 38 1; #X connect 55 0 48 0; #X connect 56 0 3 0; #X connect 56 0 19 0; #X connect 57 0 5 0; #X connect 57 0 33 0; #X connect 58 0 9 0; #X connect 58 0 13 0; #X connect 58 0 17 0; #X connect 58 0 21 0; #X connect 58 0 25 0; #X connect 58 0 29 0; #X connect 59 0 7 0; #X connect 59 0 15 0; #X connect 59 0 23 0; #X connect 59 0 31 0; #X connect 60 0 11 0; #X connect 60 0 27 0; #X connect 61 0 38 0; #X restore 545 -300 pd markovguitarnotes; #X obj 546 -151 f; #X obj 577 -151 f; #X obj 608 -151 f; #X obj 634 -151 f; #X obj 669 -151 f; #X obj 695 -151 f; #X obj 725 -151 f; #X obj 498 -186 unpack f f f f f f f f f f f f; #X obj 545 -209 select 0 1 2 3 4 5 6 7 8 9 10 11; #X msg 323 -761 1; #X msg 368 -761 2; #X obj 323 -880 f 1; #X obj 323 -816 random 100; #X obj 466 -816 random 100; #X text 404 -858 choose next state from...; #X obj 323 -797 moses 85; #X obj 323 -857 sel 1 2; #X msg 466 -761 2; #X msg 511 -761 1; #X obj 275 -909 sel 1 2; #X obj 466 -797 moses 99; #X obj 323 -699 s \$0-rgarporstrum; #X obj 466 -699 s \$0-rgarporstrum; #X text 387 -817 strum; #X text 530 -816 arpeggio; #X obj 275 -960 r \$0-rgarporstrum; #X obj 545 -241 random 8; #X obj 171 -666 route 1 2; #X obj 368 -927 r rgmainstrumclust; #X obj 511 -927 r rgmainarpclust; #X obj 603 -360 r rgmainrestclust; #X obj 662 -340 r rgmainnoteclust; #X obj 368 -892 i; #X obj 511 -892 i; #X obj 603 -320 i; #X obj 662 -320 i; #X text 467 -224 connect more of these if you want some higher notes to play too; #X text 304 62 This part assigns the newest note to the string that hasn't been triggered in the longest time. There are more realistic ways of assigning notes to strings \, but this is good enough \, especially since I didn't build thickness or stiffness into the waveguides.; #X text 740 -202 plays notes; #N canvas 0 25 1018 658 findnotesavailable 0; #X obj 259 333 outlet; #X obj 244 -250 r mainchord; #X obj 272 -173 unpack f f f; #X obj 221 14 sort 1; #X obj 221 -7 route 0; #X msg 280 -8 1; #X msg 314 -8 -1; #X msg 211 258 85 82 78 73 70 66 61 58 54 49 46 42; #X msg 211 236 add2 \$1; #X msg 269 231 set; #X obj 259 303 sort 1; #X msg 275 281 1; #X msg 309 281 -1; #X obj 274 -201 t b b b l b; #X obj 170 -108 + 36; #X obj 200 -108 + 48; #X obj 230 -108 + 60; #X obj 320 -108 + 36; #X obj 350 -108 + 48; #X obj 380 -108 + 60; #X obj 470 -108 + 36; #X obj 500 -108 + 48; #X obj 530 -108 + 60; #X obj 260 -108 + 72; #X obj 410 -108 + 72; #X obj 560 -108 + 72; #X obj -27 102 moses 40; #X obj 27 102 moses 40; #X obj 81 102 moses 40; #X obj 221 -29 pack 0 f f f f f f f f f f f f f f f; #X obj 64 34 unpack f f f f f f f f f f f f f f f; #X obj 290 -108 + 84; #X obj 440 -108 + 84; #X obj 590 -108 + 84; #X obj 258 102 moses 88; #X obj 312 102 moses 88; #X obj 366 102 moses 88; #X text 351 -205 this assembly finds the current chord's notes in a bunch of octaves \, and then clips it to what would sound good on the guitar; #X text 300 303 sends available notes; #X obj 199 -141 t f f f f f; #X obj 349 -141 t f f f f f; #X obj 499 -141 t f f f f f; #X connect 1 0 13 0; #X connect 2 0 39 0; #X connect 2 1 40 0; #X connect 2 2 41 0; #X connect 3 0 30 0; #X connect 4 0 3 0; #X connect 5 0 3 1; #X connect 6 0 3 1; #X connect 7 0 10 0; #X connect 8 0 7 0; #X connect 9 0 7 0; #X connect 10 0 0 0; #X connect 11 0 10 1; #X connect 12 0 10 1; #X connect 13 1 7 0; #X connect 13 2 29 0; #X connect 13 3 2 0; #X connect 13 4 9 0; #X connect 14 0 29 1; #X connect 15 0 29 2; #X connect 16 0 29 3; #X connect 17 0 29 6; #X connect 18 0 29 7; #X connect 19 0 29 8; #X connect 20 0 29 11; #X connect 21 0 29 12; #X connect 22 0 29 13; #X connect 23 0 29 4; #X connect 24 0 29 9; #X connect 25 0 29 14; #X connect 26 1 8 0; #X connect 27 1 8 0; #X connect 28 1 8 0; #X connect 29 0 4 0; #X connect 30 0 26 0; #X connect 30 1 27 0; #X connect 30 2 28 0; #X connect 30 3 8 0; #X connect 30 4 8 0; #X connect 30 5 8 0; #X connect 30 6 8 0; #X connect 30 7 8 0; #X connect 30 8 8 0; #X connect 30 9 8 0; #X connect 30 10 8 0; #X connect 30 11 8 0; #X connect 30 12 34 0; #X connect 30 13 35 0; #X connect 30 14 36 0; #X connect 31 0 29 5; #X connect 32 0 29 10; #X connect 33 0 29 15; #X connect 34 0 8 0; #X connect 35 0 8 0; #X connect 36 0 8 0; #X connect 39 0 14 0; #X connect 39 1 15 0; #X connect 39 2 16 0; #X connect 39 3 23 0; #X connect 39 4 31 0; #X connect 40 0 17 0; #X connect 40 1 18 0; #X connect 40 2 19 0; #X connect 40 3 24 0; #X connect 40 4 32 0; #X connect 41 0 20 0; #X connect 41 1 21 0; #X connect 41 2 22 0; #X connect 41 3 25 0; #X connect 41 4 33 0; #X restore 498 -280 pd findnotesavailable; #X text 636 -281 find notes available to arpeggio; #X obj 535 -93 f; #X obj 562 33 route 0 1 2 3 4 5; #X connect 0 0 38 0; #X connect 1 0 38 0; #X connect 2 0 38 0; #X connect 6 0 38 0; #X connect 8 0 38 0; #X connect 10 0 38 0; #X connect 12 0 38 0; #X connect 14 0 38 0; #X connect 16 0 43 0; #X connect 17 0 16 0; #X connect 17 1 19 0; #X connect 18 0 17 0; #X connect 19 0 33 0; #X connect 19 1 20 0; #X connect 20 0 21 0; #X connect 21 0 53 0; #X connect 22 0 23 0; #X connect 23 0 18 0; #X connect 23 1 24 0; #X connect 24 0 26 0; #X connect 25 0 64 0; #X connect 26 0 25 0; #X connect 26 1 27 0; #X connect 27 0 34 0; #X connect 27 1 28 0; #X connect 28 0 40 0; #X connect 30 0 38 0; #X connect 33 0 48 0; #X connect 34 0 68 0; #X connect 37 0 38 0; #X connect 39 0 38 0; #X connect 40 0 73 0; #X connect 42 0 38 0; #X connect 43 0 47 0; #X connect 43 1 46 0; #X connect 44 0 0 0; #X connect 45 0 1 0; #X connect 46 0 45 0; #X connect 47 0 44 0; #X connect 48 0 50 0; #X connect 48 1 49 0; #X connect 49 0 52 0; #X connect 50 0 51 0; #X connect 51 0 2 0; #X connect 52 0 6 0; #X connect 53 0 57 0; #X connect 53 1 54 0; #X connect 54 0 58 0; #X connect 54 1 55 0; #X connect 55 0 59 0; #X connect 55 1 60 0; #X connect 56 0 8 0; #X connect 57 0 56 0; #X connect 58 0 61 0; #X connect 59 0 63 0; #X connect 60 0 62 0; #X connect 61 0 10 0; #X connect 62 0 14 0; #X connect 63 0 12 0; #X connect 64 0 66 0; #X connect 64 1 65 0; #X connect 65 0 67 0; #X connect 66 0 44 0; #X connect 67 0 30 0; #X connect 68 0 70 0; #X connect 68 1 69 0; #X connect 69 0 72 0; #X connect 70 0 71 0; #X connect 71 0 37 0; #X connect 72 0 39 0; #X connect 73 0 75 0; #X connect 73 1 74 0; #X connect 74 0 77 0; #X connect 75 0 76 0; #X connect 76 0 1 0; #X connect 77 0 42 0; #X connect 77 1 37 0; #X connect 78 0 93 0; #X connect 79 0 155 0; #X connect 80 0 155 0; #X connect 81 0 155 0; #X connect 82 0 155 0; #X connect 83 0 155 0; #X connect 84 0 140 0; #X connect 85 0 87 0; #X connect 85 1 87 2; #X connect 87 0 88 0; #X connect 88 0 141 0; #X connect 89 0 87 1; #X connect 90 0 87 1; #X connect 92 0 89 0; #X connect 93 0 85 0; #X connect 93 1 125 0; #X connect 95 0 97 0; #X connect 95 1 97 2; #X connect 97 0 98 0; #X connect 98 0 156 0; #X connect 100 0 95 0; #X connect 100 1 105 0; #X connect 102 0 103 0; #X connect 102 0 106 0; #X connect 103 0 102 1; #X connect 105 0 102 0; #X connect 106 0 97 1; #X connect 113 0 84 0; #X connect 114 0 155 0; #X connect 115 0 155 0; #X connect 116 0 155 0; #X connect 117 0 155 0; #X connect 118 0 155 0; #X connect 119 0 155 0; #X connect 120 0 155 0; #X connect 121 0 79 1; #X connect 121 1 80 1; #X connect 121 2 81 1; #X connect 121 3 82 1; #X connect 121 4 83 1; #X connect 121 5 114 1; #X connect 121 6 115 1; #X connect 121 7 116 1; #X connect 121 8 117 1; #X connect 121 9 118 1; #X connect 121 10 119 1; #X connect 121 11 120 1; #X connect 122 0 79 0; #X connect 122 1 80 0; #X connect 122 2 81 0; #X connect 122 3 82 0; #X connect 122 4 83 0; #X connect 122 5 114 0; #X connect 122 6 115 0; #X connect 123 0 135 0; #X connect 124 0 135 0; #X connect 125 0 130 0; #X connect 126 0 129 0; #X connect 127 0 134 0; #X connect 129 0 123 0; #X connect 129 1 124 0; #X connect 130 0 126 0; #X connect 130 1 127 0; #X connect 131 0 136 0; #X connect 132 0 136 0; #X connect 133 0 89 0; #X connect 133 1 90 0; #X connect 134 0 131 0; #X connect 134 1 132 0; #X connect 139 0 125 1; #X connect 139 0 133 0; #X connect 140 0 122 0; #X connect 141 0 22 0; #X connect 141 1 113 0; #X connect 142 0 146 0; #X connect 143 0 147 0; #X connect 144 0 148 0; #X connect 145 0 149 0; #X connect 146 0 129 1; #X connect 147 0 134 1; #X connect 148 0 113 1; #X connect 149 0 113 2; #X connect 153 0 121 0; #X connect 155 0 100 0; #X connect 156 0 107 0; #X connect 156 1 108 0; #X connect 156 2 109 0; #X connect 156 3 110 0; #X connect 156 4 111 0; #X connect 156 5 112 0; #X restore 314 -22 pd mainstrum; #X obj 706 440 line~; #X msg 706 418 \$1 20; #X obj 724 397 *; #X obj 724 368 t b f; #N canvas 0 25 1016 656 stringunit 0; #N canvas 0 25 997 658 delay-writer 0; #X obj 86 220 inlet~; #X obj 252 739 outlet~; #X obj 85 451 +~; #X obj 165 221 inlet; #X obj 313 309 hip~ 5; #X obj 354 411 *~ 3; #X obj 238 296 lop~ 1000; #X obj 238 277 *~ 0.015; #X obj 109 382 hip~ 5; #X obj 103 417 clip~ -1 1; #X obj 116 352 lop~ 6000; #X obj 135 313 *~ 0.973; #X obj 315 439 clip~ -1 1; #X obj 317 628 *~ 0.11; #X obj 231 629 *~ 400; #X obj 253 698 hip~ 200; #X obj 554 240 inlet muting; #X obj 241 359 bp~ 311 50; #X obj 319 359 bp~ 504 50; #X obj 399 357 bp~ 767 50; #X obj 477 357 bp~ 1119 50; #X obj 562 358 bp~ 1246 50; #X obj 392 197 block~ 1; #X obj 130 252 delread~ \$0-rgstringdel1; #X obj 96 481 delwrite~ \$0-rgstringdel1 1000; #X connect 0 0 11 0; #X connect 2 0 24 0; #X connect 3 0 23 0; #X connect 4 0 17 0; #X connect 4 0 18 0; #X connect 4 0 19 0; #X connect 4 0 20 0; #X connect 4 0 21 0; #X connect 5 0 12 0; #X connect 6 0 4 0; #X connect 7 0 6 0; #X connect 8 0 9 0; #X connect 9 0 13 0; #X connect 9 0 2 0; #X connect 10 0 8 0; #X connect 11 0 10 0; #X connect 12 0 2 1; #X connect 12 0 14 0; #X connect 13 0 15 0; #X connect 14 0 15 0; #X connect 15 0 1 0; #X connect 16 0 11 1; #X connect 17 0 5 0; #X connect 18 0 5 0; #X connect 19 0 5 0; #X connect 20 0 5 0; #X connect 21 0 5 0; #X connect 23 0 7 0; #X connect 23 0 11 0; #X restore 153 420 pd delay-writer; #X obj 283 384 expr 1000/$f1; #X obj 283 358 mtof; #N canvas 0 0 450 300 gopluckyourself 0; #X obj 62 57 noise~; #X obj 144 203 *~; #X obj 95 151 hip~ 5; #X obj 128 55 vline~; #X obj 159 183 *~; #X msg 124 34 1 1 0 \, 0 9 1; #X obj 104 -43 inlet bang; #X obj 145 226 outlet~; #X obj 295 158 switch~; #X msg 294 130 1; #X msg 325 130 0; #X obj 326 99 sel 0; #X obj 214 -7 t b b b; #X obj 71 129 lop~ 12000; #X obj 45 84 expr~ if ($v1 == 0 \, 0 \, (if ($v1 < 0 \, -1 \, 1))) ; #X text 47 69 TOTAL DISTORTION; #X obj 45 111 *~ 0.3; #X msg 326 43 1 0 \, 0 25; #X obj 326 62 line 1 25; #X connect 0 0 14 0; #X connect 1 0 7 0; #X connect 2 0 1 0; #X connect 3 0 4 0; #X connect 3 0 4 1; #X connect 4 0 1 1; #X connect 5 0 3 0; #X connect 6 0 12 0; #X connect 9 0 8 0; #X connect 10 0 8 0; #X connect 11 0 10 0; #X connect 12 0 17 0; #X connect 12 1 5 0; #X connect 12 2 9 0; #X connect 13 0 2 0; #X connect 14 0 16 0; #X connect 16 0 13 0; #X connect 17 0 18 0; #X connect 18 0 11 0; #X restore 117 312 pd gopluckyourself; #X obj 102 190 inlet note; #X obj 156 476 outlet~; #X obj 611 193 inlet muting; #X obj 102 210 moses 1; #X msg 54 424 1; #X msg 85 424 0; #X obj 85 405 sel 0; #X msg 85 366 1 0 \, 0 15000; #X obj 85 385 line 1 15000; #X obj 141 256 t b b b f f b; #X obj 65 476 switch~ 16; #N canvas 0 25 369 240 pick-position-delay-calculator 0; #N canvas 0 0 450 300 midi-to-delay-length 0; #X obj 33 51 mtof; #X obj 33 71 expr 1000/$f1; #X obj 33 31 inlet; #X obj 33 92 outlet; #X connect 0 0 1 0; #X connect 1 0 3 0; #X connect 2 0 0 0; #X restore 56 6 pd midi-to-delay-length; #X obj 56 -34 loadbang; #X msg 56 -14 40; #X floatatom 5 -63 5 0 0 0 - - -; #X obj 5 -42 t b f; #X obj 32 67 outlet pickpositiondelay; #X obj 143 -80 inlet midinote; #X obj 143 -34 - 5; #X obj 32 47 / 4; #X obj 6 -83 r \$0-rg-pick-position; #X connect 0 0 8 0; #X connect 1 0 2 0; #X connect 2 0 0 0; #X connect 3 0 4 0; #X connect 4 0 8 0; #X connect 4 1 8 1; #X connect 6 0 7 0; #X connect 7 0 0 0; #X connect 8 0 5 0; #X connect 9 0 3 0; #X restore 248 313 pd pick-position-delay-calculator; #N canvas 0 25 1016 656 pick-position 0; #X obj 81 21 inlet~; #X obj 80 267 outlet~; #X obj 171 20 inlet position; #X obj 81 216 -~; #X obj 15 21 inlet bang; #X msg -9 181 1; #X msg 22 181 0; #X obj 31 153 sel 0; #X obj 1 64 t b b; #X msg 31 97 1 0 \, 0 40; #X obj 31 116 line 1 40; #X obj -4 247 switch~ 16; #X obj 143 87 delwrite~ \$0-rg-pick-position1 40; #X obj 141 116 delread~ \$0-rg-pick-position1 3; #X connect 0 0 3 0; #X connect 0 0 12 0; #X connect 2 0 13 0; #X connect 3 0 1 0; #X connect 4 0 8 0; #X connect 5 0 11 0; #X connect 6 0 11 0; #X connect 7 0 6 0; #X connect 8 0 9 0; #X connect 8 1 5 0; #X connect 9 0 10 0; #X connect 10 0 7 0; #X connect 13 0 3 1; #X restore 169 366 pd pick-position; #X connect 0 0 5 0; #X connect 1 0 0 1; #X connect 2 0 1 0; #X connect 3 0 16 1; #X connect 4 0 7 0; #X connect 6 0 0 2; #X connect 7 1 13 0; #X connect 8 0 14 0; #X connect 9 0 14 0; #X connect 10 0 9 0; #X connect 11 0 12 0; #X connect 12 0 10 0; #X connect 13 0 11 0; #X connect 13 1 3 0; #X connect 13 2 16 0; #X connect 13 3 2 0; #X connect 13 4 15 0; #X connect 13 5 8 0; #X connect 15 0 16 2; #X connect 16 0 0 0; #X restore 170 161 pd stringunit; #N canvas 0 25 997 637 ----interluderg---- 0; #X obj 166 -109 sel 0; #X obj 159 -52 spigot; #X msg 193 -73 1; #X msg 166 -73 0; #X obj 159 -132 t f f f; #X obj 159 169 sort 1; #X obj 159 149 route 0; #X obj 337 69 r playchord; #X obj 238 317 f; #X obj 262 317 f; #X obj 286 317 f; #X obj 310 317 f; #X obj 334 317 f; #X obj 358 317 f; #X obj 556 244 spigot; #X msg 587 215 1; #X msg 552 214 0; #X obj 486 242 spigot; #X msg 524 213 1; #X msg 489 212 0; #X obj 428 241 spigot; #X msg 459 212 1; #X msg 424 211 0; #X obj 365 240 spigot; #X msg 396 211 1; #X msg 361 210 0; #X obj 300 238 spigot; #X msg 331 209 1; #X msg 296 208 0; #X obj 238 236 spigot; #X msg 268 207 1; #X msg 233 206 0; #X obj 459 105 loadbang; #X obj 159 130 pack 0 f f f f f f; #X obj 233 59 moses 52; #X obj 233 40 + 48; #X obj 267 40 + 50; #X obj 301 40 + 55; #X obj 335 40 + 60; #X obj 369 40 + 62; #X obj 403 40 + 67; #X msg 218 149 1; #X msg 252 149 -1; #X obj 175 2 random 2; #X obj 175 29 sel 0 1; #X obj 54 374 outlet packedlist; #X obj 162 374 outlet nonpipe1; #X obj 258 374 outlet pipe2; #X obj 336 374 outlet pipe3; #X obj 414 374 outlet pipe4; #X obj 492 374 outlet pipe5; #X obj 570 374 outlet pipe6; #X obj 159 266 unpack f f f f f f; #X obj 1073 146 f; #X obj 1104 146 f; #X obj 1135 146 f; #X obj 1166 146 f; #X obj 1196 146 f; #X obj 848 -174 t b; #X obj 638 -355 t b f; #X text 631 -378 this is a switch; #X obj 623 -327 pack 0 f f; #X obj 623 -308 route 0; #X msg 581 -411 1; #X msg 581 -392 2; #X text 676 -307 eliminates the 0; #X obj 579 -445 loadbang; #X obj 662 -400 t f b; #X text 671 -356 first 0 prevents switching from outputting bang immediately ; #X obj 1188 437 t b f; #X text 1181 414 this is a switch; #X obj 1173 465 pack 0 f f; #X obj 1173 484 route 0; #X text 1226 485 eliminates the 0; #X obj 1188 327 t f b; #X text 1084 450 first 0 prevents switching from outputting bang immediately ; #X obj 1254 366 f 0; #X obj 1284 366 + 1; #X text 1286 388 counter; #X obj 1223 349 t b; #X obj 1254 401 mod 6; #X obj 1032 571 outlet string1; #X obj 1122 571 outlet string2; #X obj 1212 571 outlet string3; #X obj 1302 571 outlet string4; #X obj 1392 571 outlet string5; #X obj 1482 571 outlet string6; #X obj 1222 146 f; #X obj 1253 146 f; #X obj 1284 146 f; #X obj 1310 146 f; #X obj 1345 146 f; #X obj 1371 146 f; #X obj 1401 146 f; #X obj 1186 35 unpack f f f f f f f f f f f f; #X obj 1233 12 select 0 1 2 3 4 5 6 7 8 9 10 11; #X msg 924 -504 1; #X msg 969 -504 2; #X obj 890 -643 f 1; #X obj 924 -561 random 100; #X text 1040 -693 choose next state from...; #X obj 888 -622 sel 1 2; #X msg 1102 -526 2; #X msg 1147 -526 1; #X obj 801 -648 sel 1 2; #X text 947 -590 strum; #X text 1176 -577 arpeggio; #X obj 848 -155 random 8; #X obj 801 -713 r \$0-rgarporstrum2; #X obj 1125 -478 s \$0-rgarporstrum2; #X obj 947 -478 s \$0-rgarporstrum2; #X obj 159 -181 r chord; #X obj 446 -969 r currentkey; #X obj 427 -906 + 5; #X obj 498 -908 + 7; #X obj 427 -868 mod 12; #X obj 510 -868 mod 12; #X obj 436 -804 pack 0 f f f; #X obj 436 -785 route 0; #X obj 270 -972 r forrand; #X obj 270 -918 mod 4; #X obj 270 -899 sel 0; #X obj 270 -653 f; #X obj 315 -653 f; #X obj 360 -653 f; #X obj 436 -766 unpack f f f; #X obj 270 -844 moses 10; #X obj 315 -825 moses 90; #X obj 270 -863 random 100; #X obj 315 -591 s chord; #X obj 270 -937 t f f; #X obj 159 -151 spigot; #X msg 234 -181 1; #X msg 207 -181 0; #X obj 337 88 spigot; #N canvas 0 25 997 637 markovguitarnotesint 0; #X obj 304 -779 mod 16; #X obj 328 -756 sel 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15; #N canvas 0 25 1016 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 146 -713 pd pct; #X floatatom 169 -733 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 188 -712 pd pct; #X floatatom 210 -730 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 230 -711 pd pct; #X floatatom 256 -729 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 272 -710 pd pct; #X floatatom 298 -727 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 315 -710 pd pct; #X floatatom 344 -726 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 357 -708 pd pct; #X floatatom 385 -726 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 404 -707 pd pct; #X floatatom 423 -724 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 446 -706 pd pct; #X floatatom 464 -723 5 0 100 0 - - -; #N canvas 0 25 1016 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 490 -706 pd pct; #X floatatom 506 -723 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 532 -706 pd pct; #X floatatom 546 -722 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 580 -705 pd pct; #X floatatom 589 -723 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 622 -704 pd pct; #X floatatom 639 -721 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 664 -703 pd pct; #X floatatom 687 -722 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 706 -703 pd pct; #X floatatom 731 -720 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 748 -703 pd pct; #X floatatom 775 -720 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 790 -703 pd pct; #X floatatom 816 -720 5 0 100 0 - - -; #X obj 238 -802 inlet number; #X obj 663 -894 loadbang; #X floatatom 221 -769 5 0 0 0 - - -; #X obj 657 -531 bng 15 250 50 0 empty empty empty 20 8 0 8 -262144 -1 -1; #X obj 654 -446 bng 15 250 50 0 empty empty empty 20 8 0 8 -262144 -1 -1; #X msg 654 -424 1; #X msg 697 -420 2; #X obj 502 -653 bng 20 250 50 0 empty empty empty 20 8 0 8 -262144 -1 -1; #X obj 838 -544 bng 15 250 50 0 empty empty empty 20 8 0 8 -262144 -1 -1; #X obj 849 -420 bng 15 250 50 0 empty empty empty 20 8 0 8 -262144 -1 -1; #X obj 893 -421 bng 15 250 50 0 empty empty empty 20 8 0 8 -262144 -1 -1; #X obj 519 -627 f 1; #X obj 657 -503 random 100; #X obj 835 -524 random 100; #X text 485 -674 STEP; #X obj 702 -446 bng 15 250 50 0 empty empty empty 0 -6 0 10 -262144 -1 -1; #X text 709 -530 rest; #X text 904 -540 choose next state from...; #X obj 657 -482 moses 85; #X obj 517 -606 sel 1 2; #X msg 849 -402 2; #X msg 893 -403 1; #X obj 537 -438 sel 1 2; #X obj 563 -340 outlet bang; #X floatatom 728 -570 5 0 0 0 - - -; #X floatatom 877 -569 5 0 0 0 - - -; #X obj 685 -598 inlet restclust; #X obj 858 -600 inlet noteclust; #X obj 835 -505 moses 99; #X msg 593 -861 98; #X obj 680 -361 s \$0-rgrestornotint; #X obj 883 -361 s \$0-rgrestornotint; #X obj 534 -655 r \$0-rgrestornotint; #X msg 626 -860 60; #X msg 698 -858 70; #X msg 656 -858 80; #X msg 744 -858 90; #X connect 0 0 1 0; #X connect 1 0 2 0; #X connect 1 1 4 0; #X connect 1 2 6 0; #X connect 1 3 8 0; #X connect 1 4 10 0; #X connect 1 5 12 0; #X connect 1 6 14 0; #X connect 1 7 16 0; #X connect 1 8 18 0; #X connect 1 9 20 0; #X connect 1 10 22 0; #X connect 1 11 24 0; #X connect 1 12 26 0; #X connect 1 13 28 0; #X connect 1 14 30 0; #X connect 1 15 32 0; #X connect 2 0 41 0; #X connect 3 0 2 1; #X connect 4 0 41 0; #X connect 5 0 4 1; #X connect 6 0 41 0; #X connect 7 0 6 1; #X connect 8 0 41 0; #X connect 9 0 8 1; #X connect 10 0 41 0; #X connect 11 0 10 1; #X connect 12 0 41 0; #X connect 13 0 12 1; #X connect 14 0 41 0; #X connect 15 0 14 1; #X connect 16 0 41 0; #X connect 17 0 16 1; #X connect 18 0 41 0; #X connect 19 0 18 1; #X connect 20 0 41 0; #X connect 21 0 20 1; #X connect 22 0 41 0; #X connect 23 0 22 1; #X connect 24 0 41 0; #X connect 25 0 24 1; #X connect 26 0 41 0; #X connect 27 0 26 1; #X connect 28 0 41 0; #X connect 29 0 28 1; #X connect 30 0 41 0; #X connect 31 0 30 1; #X connect 32 0 41 0; #X connect 33 0 32 1; #X connect 34 0 0 0; #X connect 34 0 36 0; #X connect 35 0 63 0; #X connect 35 0 67 0; #X connect 35 0 69 0; #X connect 35 0 70 0; #X connect 35 0 68 0; #X connect 37 0 46 0; #X connect 38 0 39 0; #X connect 39 0 64 0; #X connect 40 0 64 0; #X connect 41 0 45 0; #X connect 42 0 47 0; #X connect 43 0 54 0; #X connect 44 0 55 0; #X connect 45 0 53 0; #X connect 46 0 52 0; #X connect 47 0 62 0; #X connect 49 0 40 0; #X connect 52 0 38 0; #X connect 52 1 49 0; #X connect 53 0 37 0; #X connect 53 1 42 0; #X connect 54 0 65 0; #X connect 55 0 65 0; #X connect 56 1 57 0; #X connect 58 0 52 1; #X connect 59 0 62 1; #X connect 60 0 58 0; #X connect 61 0 59 0; #X connect 62 0 43 0; #X connect 62 1 44 0; #X connect 63 0 3 0; #X connect 63 0 19 0; #X connect 66 0 45 1; #X connect 66 0 56 0; #X connect 67 0 5 0; #X connect 67 0 33 0; #X connect 68 0 9 0; #X connect 68 0 13 0; #X connect 68 0 17 0; #X connect 68 0 21 0; #X connect 68 0 25 0; #X connect 68 0 29 0; #X connect 69 0 7 0; #X connect 69 0 15 0; #X connect 69 0 23 0; #X connect 69 0 31 0; #X connect 70 0 11 0; #X connect 70 0 27 0; #X restore 848 -193 pd markovguitarnotesint; #X obj 1102 -582 random 100; #X obj 1102 -562 moses 50; #X obj 924 -540 moses 50; #X obj 915 -217 i; #X obj 983 -217 i; #X obj 1147 -623 i; #X obj 968 -623 i; #X obj 968 -643 r rgintstrumclust; #X obj 1147 -643 r rgintarpclust; #X obj 897 -245 r rgintrestclust; #X obj 999 -245 r rgintnoteclust; #X obj 657 -288 route 1 2; #X text 618 -247 [spigot] would be fine here \, but whatever.; #X text 485 119 if you wanted repetitions of a chord not to include all strings; #X text 377 91 spiffy little suspended-second chord; #X text 27 45 might strum up \, might strum down; #X text 233 339 repetitions of a chord after it's introduced: these notes output separately in case you want to eliminate some strings ; #X text 874 367 This part assigns the newest note to the string that hasn't been triggered in the longest time. There are more realistic ways of assigning notes to strings \, but this is good enough \, especially since I didn't build thickness or stiffness into the waveguides.; #X text 1160 -5 connect more of these if you want some higher notes to play too; #X text 1433 17 plays notes; #X text 200 -109 same as last time?; #N canvas 0 25 1016 640 findavailablenotes 0; #X obj 222 269 outlet; #X obj 64 -55 sort 1; #X obj 64 -76 route 0; #X msg 123 -77 1; #X msg 157 -77 -1; #X msg 174 189 85 80 78 73 68 66 61 56 54 49 44 42; #X msg 174 167 add2 \$1; #X msg 232 162 set; #X obj 222 234 sort 1; #X msg 238 212 1; #X msg 272 212 -1; #X obj 12 -149 + 36; #X obj 42 -149 + 48; #X obj 72 -149 + 60; #X obj 162 -149 + 36; #X obj 192 -149 + 48; #X obj 222 -149 + 60; #X obj 312 -149 + 36; #X obj 342 -149 + 48; #X obj 372 -149 + 60; #X obj 102 -149 + 72; #X obj 252 -149 + 72; #X obj 402 -149 + 72; #X obj -44 33 moses 40; #X obj 10 33 moses 40; #X obj 64 33 moses 40; #X obj 64 -98 pack 0 f f f f f f f f f f f f f f f; #X obj 64 -35 unpack f f f f f f f f f f f f f f f; #X obj 132 -149 + 84; #X obj 282 -149 + 84; #X obj 432 -149 + 84; #X obj 266 33 moses 88; #X obj 320 33 moses 88; #X obj 375 33 moses 88; #X obj 149 -262 + 0; #X obj 173 -262 + 2; #X obj 197 -262 + 7; #X obj 233 -242 mod 12; #X obj 191 -242 mod 12; #X obj 149 -242 mod 12; #X obj 115 -320 r chord; #X text 352 236 sends available notes; #X text 211 -304 this assembly finds the current chord's notes in a bunch of octaves \, and then clips it to what would sound good on the guitar; #X obj 115 -298 t b b b f f f b; #X obj 41 -195 t f f f f f; #X obj 191 -195 t f f f f f; #X obj 341 -195 t f f f f f; #X connect 1 0 27 0; #X connect 2 0 1 0; #X connect 3 0 1 1; #X connect 4 0 1 1; #X connect 5 0 8 0; #X connect 6 0 5 0; #X connect 7 0 5 0; #X connect 8 0 0 0; #X connect 9 0 8 1; #X connect 10 0 8 1; #X connect 11 0 26 1; #X connect 12 0 26 2; #X connect 13 0 26 3; #X connect 14 0 26 6; #X connect 15 0 26 7; #X connect 16 0 26 8; #X connect 17 0 26 11; #X connect 18 0 26 12; #X connect 19 0 26 13; #X connect 20 0 26 4; #X connect 21 0 26 9; #X connect 22 0 26 14; #X connect 23 1 6 0; #X connect 24 1 6 0; #X connect 25 1 6 0; #X connect 26 0 2 0; #X connect 27 0 23 0; #X connect 27 1 24 0; #X connect 27 2 25 0; #X connect 27 3 6 0; #X connect 27 4 6 0; #X connect 27 5 6 0; #X connect 27 6 6 0; #X connect 27 7 6 0; #X connect 27 8 6 0; #X connect 27 9 6 0; #X connect 27 10 6 0; #X connect 27 11 6 0; #X connect 27 12 31 0; #X connect 27 13 32 0; #X connect 27 14 33 0; #X connect 28 0 26 5; #X connect 29 0 26 10; #X connect 30 0 26 15; #X connect 31 0 6 0; #X connect 32 0 6 0; #X connect 33 0 6 0; #X connect 34 0 39 0; #X connect 35 0 38 0; #X connect 36 0 37 0; #X connect 37 0 46 0; #X connect 38 0 45 0; #X connect 39 0 44 0; #X connect 40 0 43 0; #X connect 43 1 5 0; #X connect 43 2 26 0; #X connect 43 3 34 0; #X connect 43 4 35 0; #X connect 43 5 36 0; #X connect 43 6 7 0; #X connect 44 0 11 0; #X connect 44 1 12 0; #X connect 44 2 13 0; #X connect 44 3 20 0; #X connect 44 4 28 0; #X connect 45 0 14 0; #X connect 45 1 15 0; #X connect 45 2 16 0; #X connect 45 3 21 0; #X connect 45 4 29 0; #X connect 46 0 17 0; #X connect 46 1 18 0; #X connect 46 2 19 0; #X connect 46 3 22 0; #X connect 46 4 30 0; #X restore 1186 -122 pd findavailablenotes; #X text 1164 -81 find notes available to arpeggio; #X msg 270 -806 bang; #X msg 315 -806 bang; #X msg 360 -806 bang; #X obj 446 -950 t b f f f; #X obj 1188 275 f; #X obj 1207 504 route 0 1 2 3 4 5; #X obj 337 107 t b b b b b b; #X obj 176 109 f; #X obj 434 40 + 72; #X obj 434 59 moses 76; #X obj 159 -33 t b f f f f f f f b; #X connect 0 0 3 0; #X connect 0 1 2 0; #X connect 1 0 169 0; #X connect 2 0 1 1; #X connect 3 0 1 1; #X connect 4 0 1 0; #X connect 4 1 0 1; #X connect 4 2 0 0; #X connect 5 0 45 0; #X connect 5 0 52 0; #X connect 6 0 5 0; #X connect 7 0 134 0; #X connect 8 0 46 0; #X connect 9 0 47 0; #X connect 10 0 48 0; #X connect 11 0 49 0; #X connect 12 0 50 0; #X connect 13 0 51 0; #X connect 14 0 13 0; #X connect 15 0 14 1; #X connect 16 0 14 1; #X connect 17 0 12 0; #X connect 18 0 17 1; #X connect 19 0 17 1; #X connect 20 0 11 0; #X connect 21 0 20 1; #X connect 22 0 20 1; #X connect 23 0 10 0; #X connect 24 0 23 1; #X connect 25 0 23 1; #X connect 26 0 9 0; #X connect 27 0 26 1; #X connect 28 0 26 1; #X connect 29 0 8 0; #X connect 30 0 29 1; #X connect 31 0 29 1; #X connect 32 0 30 0; #X connect 32 0 27 0; #X connect 32 0 24 0; #X connect 32 0 21 0; #X connect 32 0 18 0; #X connect 32 0 15 0; #X connect 33 0 6 0; #X connect 34 1 166 0; #X connect 35 0 34 0; #X connect 36 0 33 2; #X connect 37 0 33 3; #X connect 38 0 33 4; #X connect 39 0 33 5; #X connect 40 0 33 6; #X connect 41 0 5 1; #X connect 42 0 5 1; #X connect 43 0 44 0; #X connect 44 0 41 0; #X connect 44 1 42 0; #X connect 52 0 8 1; #X connect 52 1 9 1; #X connect 52 2 10 1; #X connect 52 3 11 1; #X connect 52 4 12 1; #X connect 52 5 13 1; #X connect 53 0 163 0; #X connect 54 0 163 0; #X connect 55 0 163 0; #X connect 56 0 163 0; #X connect 57 0 163 0; #X connect 58 0 107 0; #X connect 59 0 61 0; #X connect 59 1 61 2; #X connect 61 0 62 0; #X connect 62 0 147 0; #X connect 63 0 61 1; #X connect 63 0 132 0; #X connect 64 0 61 1; #X connect 64 0 133 0; #X connect 66 0 63 0; #X connect 67 0 59 0; #X connect 67 1 98 0; #X connect 69 0 71 0; #X connect 69 1 71 2; #X connect 71 0 72 0; #X connect 72 0 164 0; #X connect 74 0 69 0; #X connect 74 1 79 0; #X connect 76 0 77 0; #X connect 76 0 80 0; #X connect 77 0 76 1; #X connect 79 0 76 0; #X connect 80 0 71 1; #X connect 87 0 163 0; #X connect 88 0 163 0; #X connect 89 0 163 0; #X connect 90 0 163 0; #X connect 91 0 163 0; #X connect 92 0 163 0; #X connect 93 0 163 0; #X connect 94 0 53 1; #X connect 94 1 54 1; #X connect 94 2 55 1; #X connect 94 3 56 1; #X connect 94 4 57 1; #X connect 94 5 87 1; #X connect 94 6 88 1; #X connect 94 7 89 1; #X connect 94 8 90 1; #X connect 94 9 91 1; #X connect 94 10 92 1; #X connect 94 11 93 1; #X connect 95 0 53 0; #X connect 95 1 54 0; #X connect 95 2 55 0; #X connect 95 3 56 0; #X connect 95 4 57 0; #X connect 95 5 87 0; #X connect 95 6 88 0; #X connect 96 0 110 0; #X connect 97 0 110 0; #X connect 98 0 101 0; #X connect 99 0 138 0; #X connect 101 0 99 0; #X connect 101 1 136 0; #X connect 102 0 109 0; #X connect 103 0 109 0; #X connect 104 0 63 0; #X connect 104 1 64 0; #X connect 107 0 95 0; #X connect 108 0 98 1; #X connect 108 0 104 0; #X connect 111 0 131 0; #X connect 112 0 162 0; #X connect 113 0 115 0; #X connect 114 0 116 0; #X connect 115 0 117 1; #X connect 116 0 117 3; #X connect 117 0 118 0; #X connect 118 0 125 0; #X connect 119 0 130 0; #X connect 120 0 121 0; #X connect 121 0 128 0; #X connect 122 0 129 0; #X connect 123 0 129 0; #X connect 124 0 129 0; #X connect 125 0 122 1; #X connect 125 1 123 1; #X connect 125 2 124 1; #X connect 126 0 159 0; #X connect 126 1 127 0; #X connect 127 0 160 0; #X connect 127 1 161 0; #X connect 128 0 126 0; #X connect 130 0 120 0; #X connect 130 1 67 0; #X connect 131 0 4 0; #X connect 132 0 131 1; #X connect 132 0 134 1; #X connect 133 0 131 1; #X connect 133 0 134 1; #X connect 134 0 165 0; #X connect 135 0 58 0; #X connect 136 0 137 0; #X connect 137 0 102 0; #X connect 137 1 103 0; #X connect 138 0 96 0; #X connect 138 1 97 0; #X connect 139 0 135 1; #X connect 140 0 135 2; #X connect 141 0 137 1; #X connect 142 0 138 1; #X connect 143 0 142 0; #X connect 144 0 141 0; #X connect 145 0 139 0; #X connect 146 0 140 0; #X connect 147 1 135 0; #X connect 157 0 94 0; #X connect 159 0 122 0; #X connect 160 0 123 0; #X connect 161 0 124 0; #X connect 162 0 117 0; #X connect 162 1 113 0; #X connect 162 2 117 2; #X connect 162 3 114 0; #X connect 163 0 74 0; #X connect 164 0 81 0; #X connect 164 1 82 0; #X connect 164 2 83 0; #X connect 164 3 84 0; #X connect 164 4 85 0; #X connect 164 5 86 0; #X connect 165 0 14 0; #X connect 165 1 17 0; #X connect 165 2 20 0; #X connect 165 3 23 0; #X connect 165 4 26 0; #X connect 165 5 29 0; #X connect 166 0 33 1; #X connect 167 0 168 0; #X connect 168 0 166 0; #X connect 169 0 33 0; #X connect 169 1 167 0; #X connect 169 2 40 0; #X connect 169 3 39 0; #X connect 169 4 38 0; #X connect 169 5 37 0; #X connect 169 6 36 0; #X connect 169 7 35 0; #X connect 169 8 43 0; #X restore 392 -22 pd ----interluderg----; #N canvas 0 25 1016 656 stringunit 0; #N canvas 170 152 626 451 delay-writer 0; #X obj 42 36 inlet~; #X obj 208 555 outlet~; #X obj 91 277 +~; #X obj 91 36 inlet; #X obj 277 140 hip~ 5; #X obj 310 227 *~ 3; #X obj 165 114 lop~ 1000; #X obj 165 95 *~ 0.015; #X obj 91 167 hip~ 5; #X obj 91 186 clip~ -1 1; #X obj 91 148 lop~ 6000; #X obj 91 129 *~ 0.973; #X obj 271 255 clip~ -1 1; #X obj 273 444 *~ 0.11; #X obj 187 445 *~ 400; #X obj 209 514 hip~ 200; #X obj 510 56 inlet muting; #X obj 197 175 bp~ 311 50; #X obj 275 175 bp~ 504 50; #X obj 355 173 bp~ 767 50; #X obj 433 173 bp~ 1119 50; #X obj 518 174 bp~ 1246 50; #X obj 348 13 block~ 1; #X obj 91 69 delread~ \$0-rgstringdel2; #X obj 89 300 delwrite~ \$0-rgstringdel2 1000; #X connect 0 0 11 0; #X connect 2 0 24 0; #X connect 3 0 23 0; #X connect 4 0 17 0; #X connect 4 0 18 0; #X connect 4 0 19 0; #X connect 4 0 20 0; #X connect 4 0 21 0; #X connect 5 0 12 0; #X connect 6 0 4 0; #X connect 7 0 6 0; #X connect 8 0 9 0; #X connect 9 0 13 0; #X connect 9 0 2 0; #X connect 10 0 8 0; #X connect 11 0 10 0; #X connect 12 0 2 1; #X connect 12 0 14 0; #X connect 13 0 15 0; #X connect 14 0 15 0; #X connect 15 0 1 0; #X connect 16 0 11 1; #X connect 17 0 5 0; #X connect 18 0 5 0; #X connect 19 0 5 0; #X connect 20 0 5 0; #X connect 21 0 5 0; #X connect 23 0 7 0; #X connect 23 0 11 0; #X restore 153 420 pd delay-writer; #X obj 283 384 expr 1000/$f1; #X obj 283 358 mtof; #N canvas 0 0 450 300 gopluckyourself 0; #X obj 62 57 noise~; #X obj 144 203 *~; #X obj 95 151 hip~ 5; #X obj 128 55 vline~; #X obj 160 176 *~; #X msg 124 34 1 1 0 \, 0 9 1; #X obj 214 -36 inlet bang; #X obj 145 226 outlet~; #X obj 284 154 switch~; #X msg 274 128 1; #X msg 305 128 0; #X obj 326 99 sel 0; #X obj 214 -7 t b b b; #X obj 71 129 lop~ 12000; #X obj 22 83 expr~ if ($v1 == 0 \, 0 \, (if ($v1 < 0 \, -1 \, 1))) ; #X text 24 68 TOTAL DISTORTION; #X obj 22 110 *~ 0.3; #X msg 326 43 1 0 \, 0 25; #X obj 326 62 line 1 25; #X connect 0 0 14 0; #X connect 1 0 7 0; #X connect 2 0 1 0; #X connect 3 0 4 0; #X connect 3 0 4 1; #X connect 4 0 1 1; #X connect 5 0 3 0; #X connect 6 0 12 0; #X connect 9 0 8 0; #X connect 10 0 8 0; #X connect 11 0 10 0; #X connect 12 0 17 0; #X connect 12 1 5 0; #X connect 12 2 9 0; #X connect 13 0 2 0; #X connect 14 0 16 0; #X connect 16 0 13 0; #X connect 17 0 18 0; #X connect 18 0 11 0; #X restore 117 312 pd gopluckyourself; #X obj 102 190 inlet note; #X obj 156 476 outlet~; #X obj 611 193 inlet muting; #X obj 102 215 moses 1; #X msg 54 424 1; #X msg 85 424 0; #X obj 85 405 sel 0; #X msg 85 366 1 0 \, 0 15000; #X obj 85 385 line 1 15000; #X obj 141 259 t b b b f f b; #X obj 65 476 switch~ 16; #N canvas 0 25 369 240 pick-position-delay-calculator 0; #N canvas 0 0 450 300 midi-to-delay-length 0; #X obj 33 51 mtof; #X obj 33 71 expr 1000/$f1; #X obj 33 31 inlet; #X obj 33 92 outlet; #X connect 0 0 1 0; #X connect 1 0 3 0; #X connect 2 0 0 0; #X restore 56 6 pd midi-to-delay-length; #X obj 56 -34 loadbang; #X msg 56 -14 40; #X floatatom 5 -63 5 0 0 0 - - -; #X obj 5 -42 t b f; #X obj 32 67 outlet pickpositiondelay; #X obj 143 -80 inlet midinote; #X obj 143 -34 - 5; #X obj 6 -83 r \$0-rg-pick-position; #X obj 32 47 / 4; #X connect 0 0 9 0; #X connect 1 0 2 0; #X connect 2 0 0 0; #X connect 3 0 4 0; #X connect 4 0 9 0; #X connect 4 1 9 1; #X connect 6 0 7 0; #X connect 7 0 0 0; #X connect 8 0 3 0; #X connect 9 0 5 0; #X restore 248 313 pd pick-position-delay-calculator; #N canvas 0 25 1016 656 pick-position 0; #X obj 81 21 inlet~; #X obj 80 267 outlet~; #X obj 171 20 inlet position; #X obj 81 216 -~; #X obj 15 21 inlet bang; #X msg -9 181 1; #X msg 22 181 0; #X obj 31 153 sel 0; #X obj 1 64 t b b; #X msg 31 97 1 0 \, 0 40; #X obj 31 116 line 1 40; #X obj -4 247 switch~ 16; #X obj 143 87 delwrite~ \$0-rg-pick-position2 40; #X obj 141 116 delread~ \$0-rg-pick-position2 3; #X connect 0 0 3 0; #X connect 0 0 12 0; #X connect 2 0 13 0; #X connect 3 0 1 0; #X connect 4 0 8 0; #X connect 5 0 11 0; #X connect 6 0 11 0; #X connect 7 0 6 0; #X connect 8 0 9 0; #X connect 8 1 5 0; #X connect 9 0 10 0; #X connect 10 0 7 0; #X connect 13 0 3 1; #X restore 169 366 pd pick-position; #X connect 0 0 5 0; #X connect 1 0 0 1; #X connect 2 0 1 0; #X connect 3 0 16 1; #X connect 4 0 7 0; #X connect 6 0 0 2; #X connect 7 1 13 0; #X connect 8 0 14 0; #X connect 9 0 14 0; #X connect 10 0 9 0; #X connect 11 0 12 0; #X connect 12 0 10 0; #X connect 13 0 11 0; #X connect 13 1 3 0; #X connect 13 2 16 0; #X connect 13 3 2 0; #X connect 13 4 15 0; #X connect 13 5 8 0; #X connect 15 0 16 2; #X connect 16 0 0 0; #X restore 271 161 pd stringunit; #N canvas 0 25 1016 656 stringunit 0; #N canvas 170 152 737 451 delay-writer 0; #X obj 75 26 inlet~; #X obj 241 545 outlet~; #X obj 118 273 +~; #X obj 124 26 inlet; #X obj 302 115 hip~ 5; #X obj 343 217 *~ 3; #X obj 140 99 lop~ 1000; #X obj 140 80 *~ 0.015; #X obj 98 188 hip~ 5; #X obj 92 223 clip~ -1 1; #X obj 105 158 lop~ 6000; #X obj 124 119 *~ 0.973; #X obj 304 245 clip~ -1 1; #X obj 213 435 *~ 0.11; #X obj 261 435 *~ 400; #X obj 242 504 hip~ 200; #X obj 169 26 inlet muting; #X obj 230 165 bp~ 311 50; #X obj 308 165 bp~ 504 50; #X obj 388 163 bp~ 767 50; #X obj 466 163 bp~ 1119 50; #X obj 551 164 bp~ 1246 50; #X obj 381 3 block~ 1; #X obj 124 58 delread~ \$0-rgstringdel3; #X obj 118 303 delwrite~ \$0-rgstringdel3 1000; #X connect 0 0 11 0; #X connect 2 0 24 0; #X connect 3 0 23 0; #X connect 4 0 17 0; #X connect 4 0 18 0; #X connect 4 0 19 0; #X connect 4 0 20 0; #X connect 4 0 21 0; #X connect 5 0 12 0; #X connect 6 0 4 0; #X connect 7 0 6 0; #X connect 8 0 9 0; #X connect 9 0 13 0; #X connect 9 0 2 0; #X connect 10 0 8 0; #X connect 11 0 10 0; #X connect 12 0 2 1; #X connect 12 0 14 0; #X connect 13 0 15 0; #X connect 14 0 15 0; #X connect 15 0 1 0; #X connect 16 0 11 1; #X connect 17 0 5 0; #X connect 18 0 5 0; #X connect 19 0 5 0; #X connect 20 0 5 0; #X connect 21 0 5 0; #X connect 23 0 7 0; #X connect 23 0 11 0; #X restore 153 420 pd delay-writer; #X obj 283 384 expr 1000/$f1; #X obj 283 358 mtof; #N canvas 431 146 450 300 gopluckyourself 0; #X obj 62 57 noise~; #X obj 144 203 *~; #X obj 95 151 hip~ 5; #X obj 128 55 vline~; #X obj 160 176 *~; #X msg 124 34 1 1 0 \, 0 9 1; #X obj 214 -36 inlet bang; #X obj 145 226 outlet~; #X obj 284 154 switch~; #X msg 274 128 1; #X msg 305 128 0; #X obj 326 99 sel 0; #X obj 214 -7 t b b b; #X obj 71 129 lop~ 12000; #X obj 22 83 expr~ if ($v1 == 0 \, 0 \, (if ($v1 < 0 \, -1 \, 1))) ; #X text 24 68 TOTAL DISTORTION; #X obj 22 110 *~ 0.3; #X msg 326 43 1 0 \, 0 25; #X obj 326 62 line 1 25; #X connect 0 0 14 0; #X connect 1 0 7 0; #X connect 2 0 1 0; #X connect 3 0 4 0; #X connect 3 0 4 1; #X connect 4 0 1 1; #X connect 5 0 3 0; #X connect 6 0 12 0; #X connect 9 0 8 0; #X connect 10 0 8 0; #X connect 11 0 10 0; #X connect 12 0 17 0; #X connect 12 1 5 0; #X connect 12 2 9 0; #X connect 13 0 2 0; #X connect 14 0 16 0; #X connect 16 0 13 0; #X connect 17 0 18 0; #X connect 18 0 11 0; #X restore 141 312 pd gopluckyourself; #X obj 102 190 inlet note; #X obj 156 476 outlet~; #X obj 611 193 inlet muting; #X obj 102 215 moses 1; #X msg 54 424 1; #X msg 85 424 0; #X obj 85 405 sel 0; #X msg 85 366 1 0 \, 0 15000; #X obj 85 385 line 1 15000; #X obj 141 259 t b b b f f b; #X obj 65 476 switch~ 16; #N canvas 0 25 369 240 pick-position-delay-calculator 0; #N canvas 0 0 450 300 midi-to-delay-length 0; #X obj 33 51 mtof; #X obj 33 71 expr 1000/$f1; #X obj 33 31 inlet; #X obj 33 92 outlet; #X connect 0 0 1 0; #X connect 1 0 3 0; #X connect 2 0 0 0; #X restore 56 6 pd midi-to-delay-length; #X obj 56 -34 loadbang; #X msg 56 -14 40; #X floatatom 5 -63 5 0 0 0 - - -; #X obj 5 -42 t b f; #X obj 32 67 outlet pickpositiondelay; #X obj 143 -80 inlet midinote; #X obj 143 -34 - 5; #X obj 6 -83 r \$0-rg-pick-position; #X obj 32 47 / 4; #X connect 0 0 9 0; #X connect 1 0 2 0; #X connect 2 0 0 0; #X connect 3 0 4 0; #X connect 4 0 9 0; #X connect 4 1 9 1; #X connect 6 0 7 0; #X connect 7 0 0 0; #X connect 8 0 3 0; #X connect 9 0 5 0; #X restore 255 312 pd pick-position-delay-calculator; #N canvas 0 25 1016 656 pick-position 0; #X obj 81 21 inlet~; #X obj 80 267 outlet~; #X obj 171 20 inlet position; #X obj 81 216 -~; #X obj 15 21 inlet bang; #X msg -9 181 1; #X msg 22 181 0; #X obj 31 153 sel 0; #X obj 1 64 t b b; #X msg 31 97 1 0 \, 0 40; #X obj 31 116 line 1 40; #X obj -4 247 switch~ 16; #X obj 143 87 delwrite~ \$0-rg-pick-position3 40; #X obj 141 116 delread~ \$0-rg-pick-position3 3; #X connect 0 0 3 0; #X connect 0 0 12 0; #X connect 2 0 13 0; #X connect 3 0 1 0; #X connect 4 0 8 0; #X connect 5 0 11 0; #X connect 6 0 11 0; #X connect 7 0 6 0; #X connect 8 0 9 0; #X connect 8 1 5 0; #X connect 9 0 10 0; #X connect 10 0 7 0; #X connect 13 0 3 1; #X restore 169 366 pd pick-position; #X connect 0 0 5 0; #X connect 1 0 0 1; #X connect 2 0 1 0; #X connect 3 0 16 1; #X connect 4 0 7 0; #X connect 6 0 0 2; #X connect 7 1 13 0; #X connect 8 0 14 0; #X connect 9 0 14 0; #X connect 10 0 9 0; #X connect 11 0 12 0; #X connect 12 0 10 0; #X connect 13 0 11 0; #X connect 13 1 3 0; #X connect 13 2 16 0; #X connect 13 3 2 0; #X connect 13 4 15 0; #X connect 13 5 8 0; #X connect 15 0 16 2; #X connect 16 0 0 0; #X restore 397 160 pd stringunit; #N canvas 0 25 1016 656 stringunit 0; #N canvas 170 152 626 451 delay-writer 0; #X obj 68 31 inlet~; #X obj 234 550 outlet~; #X obj 150 260 +~; #X obj 147 32 inlet; #X obj 295 120 hip~ 5; #X obj 336 222 *~ 3; #X obj 172 101 lop~ 1000; #X obj 172 82 *~ 0.015; #X obj 91 193 hip~ 5; #X obj 85 228 clip~ -1 1; #X obj 98 163 lop~ 6000; #X obj 117 124 *~ 0.973; #X obj 297 250 clip~ -1 1; #X obj 201 439 *~ 0.11; #X obj 249 439 *~ 400; #X obj 235 509 hip~ 200; #X obj 256 33 inlet muting; #X obj 223 170 bp~ 311 50; #X obj 301 170 bp~ 504 50; #X obj 381 168 bp~ 767 50; #X obj 459 168 bp~ 1119 50; #X obj 544 169 bp~ 1246 50; #X obj 374 8 block~ 1; #X obj 116 63 delread~ \$0-rgstringdel4; #X obj 78 292 delwrite~ \$0-rgstringdel4 1000; #X connect 0 0 11 0; #X connect 2 0 24 0; #X connect 3 0 23 0; #X connect 4 0 17 0; #X connect 4 0 18 0; #X connect 4 0 19 0; #X connect 4 0 20 0; #X connect 4 0 21 0; #X connect 5 0 12 0; #X connect 6 0 4 0; #X connect 7 0 6 0; #X connect 8 0 9 0; #X connect 9 0 13 0; #X connect 9 0 2 0; #X connect 10 0 8 0; #X connect 11 0 10 0; #X connect 12 0 2 1; #X connect 12 0 14 0; #X connect 13 0 15 0; #X connect 14 0 15 0; #X connect 15 0 1 0; #X connect 16 0 11 1; #X connect 17 0 5 0; #X connect 18 0 5 0; #X connect 19 0 5 0; #X connect 20 0 5 0; #X connect 21 0 5 0; #X connect 23 0 7 0; #X connect 23 0 11 0; #X restore 153 420 pd delay-writer; #X obj 281 362 expr 1000/$f1; #X obj 281 343 mtof; #N canvas 0 0 450 300 gopluckyourself 0; #X obj 62 57 noise~; #X obj 144 203 *~; #X obj 95 151 hip~ 5; #X obj 128 55 vline~; #X obj 160 176 *~; #X msg 124 34 1 1 0 \, 0 9 1; #X obj 214 -36 inlet bang; #X obj 145 226 outlet~; #X obj 284 154 switch~; #X msg 274 128 1; #X msg 305 128 0; #X obj 326 99 sel 0; #X obj 214 -7 t b b b; #X obj 71 129 lop~ 12000; #X obj 22 83 expr~ if ($v1 == 0 \, 0 \, (if ($v1 < 0 \, -1 \, 1))) ; #X text 24 68 TOTAL DISTORTION; #X obj 22 110 *~ 0.3; #X msg 326 43 1 0 \, 0 25; #X obj 326 62 line 1 25; #X connect 0 0 14 0; #X connect 1 0 7 0; #X connect 2 0 1 0; #X connect 3 0 4 0; #X connect 3 0 4 1; #X connect 4 0 1 1; #X connect 5 0 3 0; #X connect 6 0 12 0; #X connect 9 0 8 0; #X connect 10 0 8 0; #X connect 11 0 10 0; #X connect 12 0 17 0; #X connect 12 1 5 0; #X connect 12 2 9 0; #X connect 13 0 2 0; #X connect 14 0 16 0; #X connect 16 0 13 0; #X connect 17 0 18 0; #X connect 18 0 11 0; #X restore 141 312 pd gopluckyourself; #X obj 102 190 inlet note; #X obj 154 444 outlet~; #X obj 611 191 inlet muting; #X obj 102 215 moses 1; #X msg 54 424 1; #X msg 85 424 0; #X obj 85 405 sel 0; #X msg 85 366 1 0 \, 0 15000; #X obj 85 385 line 1 15000; #X obj 141 256 t b b b f f b; #X obj 65 476 switch~ 16; #N canvas 0 25 369 240 pick-position-delay-calculator 0; #N canvas 0 0 450 300 midi-to-delay-length 0; #X obj 33 51 mtof; #X obj 33 71 expr 1000/$f1; #X obj 33 31 inlet; #X obj 33 92 outlet; #X connect 0 0 1 0; #X connect 1 0 3 0; #X connect 2 0 0 0; #X restore 56 6 pd midi-to-delay-length; #X obj 56 -34 loadbang; #X msg 56 -14 40; #X floatatom 5 -63 5 0 0 0 - - -; #X obj 5 -42 t b f; #X obj 32 67 outlet pickpositiondelay; #X obj 143 -80 inlet midinote; #X obj 143 -34 - 5; #X obj 6 -83 r \$0-rg-pick-position; #X obj 32 47 / 4; #X connect 0 0 9 0; #X connect 1 0 2 0; #X connect 2 0 0 0; #X connect 3 0 4 0; #X connect 4 0 9 0; #X connect 4 1 9 1; #X connect 6 0 7 0; #X connect 7 0 0 0; #X connect 8 0 3 0; #X connect 9 0 5 0; #X restore 248 313 pd pick-position-delay-calculator; #N canvas 0 25 1016 656 pick-position 0; #X obj 81 21 inlet~; #X obj 80 267 outlet~; #X obj 171 20 inlet position; #X obj 81 216 -~; #X obj 15 21 inlet bang; #X msg -9 181 1; #X msg 22 181 0; #X obj 31 153 sel 0; #X obj 1 64 t b b; #X msg 31 97 1 0 \, 0 40; #X obj 31 116 line 1 40; #X obj -4 247 switch~ 16; #X obj 143 87 delwrite~ \$0-rg-pick-position4 40; #X obj 141 116 delread~ \$0-rg-pick-position4 3; #X connect 0 0 3 0; #X connect 0 0 12 0; #X connect 2 0 13 0; #X connect 3 0 1 0; #X connect 4 0 8 0; #X connect 5 0 11 0; #X connect 6 0 11 0; #X connect 7 0 6 0; #X connect 8 0 9 0; #X connect 8 1 5 0; #X connect 9 0 10 0; #X connect 10 0 7 0; #X connect 13 0 3 1; #X restore 169 366 pd pick-position; #X connect 0 0 5 0; #X connect 1 0 0 1; #X connect 2 0 1 0; #X connect 3 0 16 1; #X connect 4 0 7 0; #X connect 6 0 0 2; #X connect 7 1 13 0; #X connect 8 0 14 0; #X connect 9 0 14 0; #X connect 10 0 9 0; #X connect 11 0 12 0; #X connect 12 0 10 0; #X connect 13 0 11 0; #X connect 13 1 3 0; #X connect 13 2 16 0; #X connect 13 3 2 0; #X connect 13 4 15 0; #X connect 13 5 8 0; #X connect 15 0 16 2; #X connect 16 0 0 0; #X restore 515 160 pd stringunit; #N canvas 0 25 1016 656 stringunit 0; #N canvas 170 152 626 451 delay-writer 0; #X obj 40 27 inlet~; #X obj 206 546 outlet~; #X obj 176 311 +~; #X obj 119 28 inlet; #X obj 333 131 hip~ 5; #X obj 308 218 *~ 3; #X obj 174 103 lop~ 1000; #X obj 174 84 *~ 0.015; #X obj 63 189 hip~ 5; #X obj 57 224 clip~ -1 1; #X obj 70 159 lop~ 6000; #X obj 89 120 *~ 0.973; #X obj 269 246 clip~ -1 1; #X obj 180 436 *~ 0.11; #X obj 228 436 *~ 400; #X obj 207 505 hip~ 200; #X obj 508 47 inlet muting; #X obj 195 166 bp~ 311 50; #X obj 273 166 bp~ 504 50; #X obj 353 164 bp~ 767 50; #X obj 431 164 bp~ 1119 50; #X obj 516 165 bp~ 1246 50; #X obj 346 4 block~ 1; #X obj 84 59 delread~ \$0-rgstringdel5; #X obj 176 330 delwrite~ \$0-rgstringdel5 1000; #X connect 0 0 11 0; #X connect 2 0 24 0; #X connect 3 0 23 0; #X connect 4 0 17 0; #X connect 4 0 18 0; #X connect 4 0 19 0; #X connect 4 0 20 0; #X connect 4 0 21 0; #X connect 5 0 12 0; #X connect 6 0 4 0; #X connect 7 0 6 0; #X connect 8 0 9 0; #X connect 9 0 13 0; #X connect 9 0 2 0; #X connect 10 0 8 0; #X connect 11 0 10 0; #X connect 12 0 2 1; #X connect 12 0 14 0; #X connect 13 0 15 0; #X connect 14 0 15 0; #X connect 15 0 1 0; #X connect 16 0 11 1; #X connect 17 0 5 0; #X connect 18 0 5 0; #X connect 19 0 5 0; #X connect 20 0 5 0; #X connect 21 0 5 0; #X connect 23 0 7 0; #X connect 23 0 11 0; #X restore 153 420 pd delay-writer; #X obj 281 364 expr 1000/$f1; #X obj 281 344 mtof; #N canvas 0 0 450 300 gopluckyourself 0; #X obj 62 57 noise~; #X obj 144 203 *~; #X obj 95 151 hip~ 5; #X obj 128 55 vline~; #X obj 160 176 *~; #X msg 124 34 1 1 0 \, 0 9 1; #X obj 214 -36 inlet bang; #X obj 145 226 outlet~; #X obj 284 154 switch~; #X msg 274 128 1; #X msg 305 128 0; #X obj 326 99 sel 0; #X obj 214 -7 t b b b; #X obj 71 129 lop~ 12000; #X obj 22 83 expr~ if ($v1 == 0 \, 0 \, (if ($v1 < 0 \, -1 \, 1))) ; #X text 24 68 TOTAL DISTORTION; #X obj 22 110 *~ 0.3; #X msg 326 43 1 0 \, 0 25; #X obj 326 62 line 1 25; #X connect 0 0 14 0; #X connect 1 0 7 0; #X connect 2 0 1 0; #X connect 3 0 4 0; #X connect 3 0 4 1; #X connect 4 0 1 1; #X connect 5 0 3 0; #X connect 6 0 12 0; #X connect 9 0 8 0; #X connect 10 0 8 0; #X connect 11 0 10 0; #X connect 12 0 17 0; #X connect 12 1 5 0; #X connect 12 2 9 0; #X connect 13 0 2 0; #X connect 14 0 16 0; #X connect 16 0 13 0; #X connect 17 0 18 0; #X connect 18 0 11 0; #X restore 141 312 pd gopluckyourself; #X obj 102 190 inlet note; #X obj 156 476 outlet~; #X obj 611 193 inlet muting; #X obj 102 215 moses 1; #X msg 54 424 1; #X msg 85 424 0; #X obj 85 405 sel 0; #X msg 85 366 1 0 \, 0 15000; #X obj 85 385 line 1 15000; #X obj 141 258 t b b b f f b; #X obj 65 476 switch~ 16; #N canvas 0 25 369 240 pick-position-delay-calculator 0; #N canvas 0 0 450 300 midi-to-delay-length 0; #X obj 33 51 mtof; #X obj 33 71 expr 1000/$f1; #X obj 33 31 inlet; #X obj 33 92 outlet; #X connect 0 0 1 0; #X connect 1 0 3 0; #X connect 2 0 0 0; #X restore 56 6 pd midi-to-delay-length; #X obj 56 -34 loadbang; #X msg 56 -14 40; #X floatatom 5 -63 5 0 0 0 - - -; #X obj 5 -42 t b f; #X obj 32 67 outlet pickpositiondelay; #X obj 143 -80 inlet midinote; #X obj 143 -34 - 5; #X obj 6 -83 r \$0-rg-pick-position; #X obj 32 47 / 4; #X connect 0 0 9 0; #X connect 1 0 2 0; #X connect 2 0 0 0; #X connect 3 0 4 0; #X connect 4 0 9 0; #X connect 4 1 9 1; #X connect 6 0 7 0; #X connect 7 0 0 0; #X connect 8 0 3 0; #X connect 9 0 5 0; #X restore 255 312 pd pick-position-delay-calculator; #N canvas 0 25 1016 656 pick-position 0; #X obj 81 21 inlet~; #X obj 80 267 outlet~; #X obj 171 20 inlet position; #X obj 81 216 -~; #X obj 15 21 inlet bang; #X msg -9 181 1; #X msg 22 181 0; #X obj 31 153 sel 0; #X obj 1 64 t b b; #X msg 31 97 1 0 \, 0 40; #X obj 31 116 line 1 40; #X obj -4 247 switch~ 16; #X obj 143 87 delwrite~ \$0-rg-pick-position5 40; #X obj 141 116 delread~ \$0-rg-pick-position5 3; #X connect 0 0 3 0; #X connect 0 0 12 0; #X connect 2 0 13 0; #X connect 3 0 1 0; #X connect 4 0 8 0; #X connect 5 0 11 0; #X connect 6 0 11 0; #X connect 7 0 6 0; #X connect 8 0 9 0; #X connect 8 1 5 0; #X connect 9 0 10 0; #X connect 10 0 7 0; #X connect 13 0 3 1; #X restore 169 366 pd pick-position; #X connect 0 0 5 0; #X connect 1 0 0 1; #X connect 2 0 1 0; #X connect 3 0 16 1; #X connect 4 0 7 0; #X connect 6 0 0 2; #X connect 7 1 13 0; #X connect 8 0 14 0; #X connect 9 0 14 0; #X connect 10 0 9 0; #X connect 11 0 12 0; #X connect 12 0 10 0; #X connect 13 0 11 0; #X connect 13 1 3 0; #X connect 13 2 16 0; #X connect 13 3 2 0; #X connect 13 4 15 0; #X connect 13 5 8 0; #X connect 15 0 16 2; #X connect 16 0 0 0; #X restore 627 159 pd stringunit; #N canvas 0 25 1016 656 stringunit 0; #N canvas 170 152 626 451 delay-writer 0; #X obj 59 28 inlet~; #X obj 225 467 outlet~; #X obj 208 284 +~; #X obj 103 29 inlet; #X obj 286 117 hip~ 5; #X obj 327 219 *~ 3; #X obj 182 99 lop~ 1000; #X obj 182 80 *~ 0.015; #X obj 82 190 hip~ 5; #X obj 76 225 clip~ -1 1; #X obj 89 160 lop~ 6000; #X obj 108 121 *~ 0.973; #X obj 288 247 clip~ -1 1; #X obj 200 409 *~ 0.11; #X obj 248 409 *~ 400; #X obj 226 445 hip~ 200; #X obj 153 29 inlet muting; #X obj 214 167 bp~ 311 50; #X obj 292 167 bp~ 504 50; #X obj 372 165 bp~ 767 50; #X obj 450 165 bp~ 1119 50; #X obj 535 166 bp~ 1246 50; #X obj 365 5 block~ 1; #X obj 103 60 delread~ \$0-rgstringdel6; #X obj 218 314 delwrite~ \$0-rgstringdel6 1000; #X connect 0 0 11 0; #X connect 2 0 24 0; #X connect 3 0 23 0; #X connect 4 0 17 0; #X connect 4 0 18 0; #X connect 4 0 19 0; #X connect 4 0 20 0; #X connect 4 0 21 0; #X connect 5 0 12 0; #X connect 6 0 4 0; #X connect 7 0 6 0; #X connect 8 0 9 0; #X connect 9 0 13 0; #X connect 9 0 2 0; #X connect 10 0 8 0; #X connect 11 0 10 0; #X connect 12 0 2 1; #X connect 12 0 14 0; #X connect 13 0 15 0; #X connect 14 0 15 0; #X connect 15 0 1 0; #X connect 16 0 11 1; #X connect 17 0 5 0; #X connect 18 0 5 0; #X connect 19 0 5 0; #X connect 20 0 5 0; #X connect 21 0 5 0; #X connect 23 0 7 0; #X connect 23 0 11 0; #X restore 153 420 pd delay-writer; #X obj 255 387 expr 1000/$f1; #X obj 255 368 mtof; #N canvas 0 0 450 300 gopluckyourself 0; #X obj 62 57 noise~; #X obj 144 203 *~; #X obj 95 151 hip~ 5; #X obj 128 55 vline~; #X obj 160 176 *~; #X msg 124 34 1 1 0 \, 0 9 1; #X obj 214 -36 inlet bang; #X obj 145 226 outlet~; #X obj 284 154 switch~; #X msg 274 128 1; #X msg 305 128 0; #X obj 326 99 sel 0; #X obj 214 -7 t b b b; #X obj 71 129 lop~ 12000; #X obj 22 83 expr~ if ($v1 == 0 \, 0 \, (if ($v1 < 0 \, -1 \, 1))) ; #X text 24 68 TOTAL DISTORTION; #X obj 22 110 *~ 0.3; #X msg 326 43 1 0 \, 0 25; #X obj 326 62 line 1 25; #X connect 0 0 14 0; #X connect 1 0 7 0; #X connect 2 0 1 0; #X connect 3 0 4 0; #X connect 3 0 4 1; #X connect 4 0 1 1; #X connect 5 0 3 0; #X connect 6 0 12 0; #X connect 9 0 8 0; #X connect 10 0 8 0; #X connect 11 0 10 0; #X connect 12 0 17 0; #X connect 12 1 5 0; #X connect 12 2 9 0; #X connect 13 0 2 0; #X connect 14 0 16 0; #X connect 16 0 13 0; #X connect 17 0 18 0; #X connect 18 0 11 0; #X restore 137 349 pd gopluckyourself; #X obj 102 190 inlet note; #X obj 156 476 outlet~; #X obj 611 193 inlet muting; #X obj 102 215 moses 1; #X msg 54 424 1; #X msg 85 424 0; #X obj 85 405 sel 0; #X msg 46 360 1 0 \, 0 15000; #X obj 73 380 line 1 15000; #X obj 141 256 t b b b f f b; #X obj 65 476 switch~ 16; #N canvas 0 25 369 240 pick-position-delay-calculator 0; #N canvas 0 0 450 300 midi-to-delay-length 0; #X obj 33 51 mtof; #X obj 33 71 expr 1000/$f1; #X obj 33 31 inlet; #X obj 33 92 outlet; #X connect 0 0 1 0; #X connect 1 0 3 0; #X connect 2 0 0 0; #X restore 56 6 pd midi-to-delay-length; #X obj 56 -34 loadbang; #X msg 56 -14 40; #X floatatom 5 -63 5 0 0 0 - - -; #X obj 5 -42 t b f; #X obj 32 67 outlet pickpositiondelay; #X obj 143 -80 inlet midinote; #X obj 143 -34 - 5; #X obj 6 -83 r \$0-rg-pick-position; #X obj 32 47 / 4; #X connect 0 0 9 0; #X connect 1 0 2 0; #X connect 2 0 0 0; #X connect 3 0 4 0; #X connect 4 0 9 0; #X connect 4 1 9 1; #X connect 6 0 7 0; #X connect 7 0 0 0; #X connect 8 0 3 0; #X connect 9 0 5 0; #X restore 248 313 pd pick-position-delay-calculator; #N canvas 0 25 1016 656 pick-position 0; #X obj 81 21 inlet~; #X obj 80 267 outlet~; #X obj 171 20 inlet position; #X obj 81 216 -~; #X obj 15 21 inlet bang; #X msg -9 181 1; #X msg 22 181 0; #X obj 31 153 sel 0; #X obj 1 64 t b b; #X msg 31 97 1 0 \, 0 40; #X obj 31 116 line 1 40; #X obj -4 247 switch~ 16; #X obj 143 87 delwrite~ \$0-rg-pick-position6 40; #X obj 141 116 delread~ \$0-rg-pick-position6 3; #X connect 0 0 3 0; #X connect 0 0 12 0; #X connect 2 0 13 0; #X connect 3 0 1 0; #X connect 4 0 8 0; #X connect 5 0 11 0; #X connect 6 0 11 0; #X connect 7 0 6 0; #X connect 8 0 9 0; #X connect 8 1 5 0; #X connect 9 0 10 0; #X connect 10 0 7 0; #X connect 13 0 3 1; #X restore 155 375 pd pick-position; #X connect 0 0 5 0; #X connect 1 0 0 1; #X connect 2 0 1 0; #X connect 3 0 16 1; #X connect 4 0 7 0; #X connect 6 0 0 2; #X connect 7 1 13 0; #X connect 8 0 14 0; #X connect 9 0 14 0; #X connect 10 0 9 0; #X connect 11 0 12 0; #X connect 12 0 10 0; #X connect 13 0 11 0; #X connect 13 1 3 0; #X connect 13 2 16 0; #X connect 13 3 2 0; #X connect 13 4 15 0; #X connect 13 5 8 0; #X connect 15 0 16 2; #X connect 16 0 0 0; #X restore 733 159 pd stringunit; #X obj 288 337 hip~ 500; #X obj 738 331 switch~; #X obj 704 245 sel 0 1; #X msg 723 264 1; #X msg 697 264 0; #X obj 723 283 pipe 20; #X obj 674 283 pipe 20; #X obj 497 385 hip~ 500; #X obj 471 210 *~ 0.2; #X obj 120 -18 r rgpickdel; #X obj 819 -6 r rgmuting; #N canvas 0 0 450 300 wetdrystuff 0; #X obj 19 -50 *; #X obj 25 -73 * 2; #X obj 19 -31 / 4; #X obj 19 -12 swap 1; #X obj 26 12 -; #X obj 76 -112 swap 1; #X obj 84 -93 -; #X obj 76 -51 *; #X obj 84 -73 * 2; #X obj 76 -32 / 4; #X obj 76 -13 swap 1; #X obj 83 11 -; #X text 136 -111 dry/wet (reverb); #X obj 23 50 outlet dry; #X obj 96 50 outlet wet; #X obj 25 -195 r rhythmwetdry; #X connect 0 0 2 0; #X connect 1 0 0 1; #X connect 1 0 0 0; #X connect 2 0 3 0; #X connect 3 0 4 0; #X connect 3 1 4 1; #X connect 4 0 13 0; #X connect 5 0 6 0; #X connect 5 1 6 1; #X connect 6 0 8 0; #X connect 7 0 9 0; #X connect 8 0 7 1; #X connect 8 0 7 0; #X connect 9 0 10 0; #X connect 10 0 11 0; #X connect 10 1 11 1; #X connect 11 0 14 0; #X connect 15 0 1 0; #X connect 15 0 5 0; #X restore 625 518 pd wetdrystuff; #X obj 678 471 r rhythmpan; #X obj 652 368 r rhythmvol; #N canvas 0 0 450 300 ampwetdry 0; #X obj 59 269 outlet dry; #X obj 270 269 outlet wet; #X obj 138 132 *; #X obj 138 113 * 2; #X obj 138 151 / 4; #X obj 138 170 swap 1; #X obj 145 194 -; #X obj 188 69 swap 1; #X obj 195 93 -; #X obj 195 131 *; #X obj 195 112 * 2; #X obj 195 150 / 4; #X obj 195 169 swap 1; #X obj 202 193 -; #X text 128 16 "amplifier" formant dry/wet; #X obj 159 41 r rgampwetdry; #X connect 2 0 4 0; #X connect 3 0 2 1; #X connect 3 0 2 0; #X connect 4 0 5 0; #X connect 5 0 6 0; #X connect 5 1 6 1; #X connect 6 0 0 0; #X connect 7 0 8 0; #X connect 7 1 8 1; #X connect 8 0 10 0; #X connect 9 0 11 0; #X connect 10 0 9 1; #X connect 10 0 9 0; #X connect 11 0 12 0; #X connect 12 0 13 0; #X connect 12 1 13 1; #X connect 13 0 1 0; #X connect 15 0 3 0; #X connect 15 0 7 0; #X restore 407 384 pd ampwetdry; #X obj 704 225 r rgonoff; #X obj 471 287 *~ 1; #N canvas 0 0 471 452 equalpowerpan 0; #X obj 105 313 cos~; #X obj 73 163 t f f; #X obj 73 188 * 0.25; #X obj 108 211 * 0.25; #X obj 108 233 + 0.75; #X msg 108 257 \$1 20; #X obj 108 279 line~; #X msg 68 257 \$1 20; #X obj 68 279 line~; #X obj 105 334 *~; #X obj 75 313 cos~; #X obj 75 334 *~; #X obj 58 415 outlet~ left; #X obj 138 415 outlet~ right; #X obj 20 48 inlet~ sound; #X obj 102 136 expr ($f1+1)/2; #X obj 102 110 inlet negonetoone; #X connect 0 0 9 1; #X connect 1 0 2 0; #X connect 1 1 3 0; #X connect 2 0 7 0; #X connect 3 0 4 0; #X connect 4 0 5 0; #X connect 5 0 6 0; #X connect 6 0 0 0; #X connect 7 0 8 0; #X connect 8 0 10 0; #X connect 9 0 13 0; #X connect 10 0 11 1; #X connect 11 0 12 0; #X connect 14 0 11 0; #X connect 14 0 9 0; #X connect 15 0 1 0; #X connect 16 0 15 0; #X restore 608 490 pd equalpowerpan; #X connect 0 0 57 0; #X connect 1 0 0 0; #X connect 2 0 0 0; #X connect 3 0 8 0; #X connect 4 0 8 0; #X connect 5 0 8 0; #X connect 6 0 8 0; #X connect 7 0 8 0; #X connect 8 0 47 0; #X connect 9 0 14 1; #X connect 10 0 15 1; #X connect 11 0 16 1; #X connect 12 0 17 1; #X connect 13 0 35 0; #X connect 14 0 36 0; #X connect 15 0 37 0; #X connect 16 0 38 0; #X connect 17 0 39 0; #X connect 18 0 33 0; #X connect 18 1 13 0; #X connect 18 2 14 0; #X connect 18 3 15 0; #X connect 18 4 16 0; #X connect 18 5 17 0; #X connect 20 0 24 0; #X connect 21 0 19 0; #X connect 22 0 25 0; #X connect 23 0 26 0; #X connect 27 0 18 0; #X connect 28 0 33 0; #X connect 28 1 35 0; #X connect 28 2 36 0; #X connect 28 3 37 0; #X connect 28 4 38 0; #X connect 28 5 39 0; #X connect 29 0 0 1; #X connect 30 0 29 0; #X connect 31 0 30 0; #X connect 32 0 31 0; #X connect 32 1 31 1; #X connect 33 0 48 0; #X connect 34 0 18 0; #X connect 34 1 33 0; #X connect 34 2 13 0; #X connect 34 3 14 0; #X connect 34 4 15 0; #X connect 34 5 16 0; #X connect 34 6 17 0; #X connect 34 7 33 0; #X connect 34 8 35 0; #X connect 34 9 36 0; #X connect 34 10 37 0; #X connect 34 11 38 0; #X connect 34 12 39 0; #X connect 35 0 48 0; #X connect 36 0 48 0; #X connect 37 0 48 0; #X connect 38 0 48 0; #X connect 39 0 48 0; #X connect 40 0 2 0; #X connect 42 0 44 0; #X connect 42 1 43 0; #X connect 43 0 41 0; #X connect 43 0 45 0; #X connect 44 0 46 0; #X connect 44 0 32 0; #X connect 45 0 32 0; #X connect 46 0 41 0; #X connect 47 0 1 0; #X connect 48 0 56 0; #X connect 49 0 9 0; #X connect 49 0 10 0; #X connect 49 0 11 0; #X connect 49 0 12 0; #X connect 49 0 13 1; #X connect 50 0 39 1; #X connect 50 0 38 1; #X connect 50 0 37 1; #X connect 50 0 36 1; #X connect 50 0 35 1; #X connect 50 0 33 1; #X connect 51 0 21 1; #X connect 51 0 23 1; #X connect 51 1 20 1; #X connect 51 1 22 1; #X connect 52 0 57 1; #X connect 53 0 31 0; #X connect 54 0 2 1; #X connect 54 1 1 1; #X connect 55 0 42 0; #X connect 56 0 3 0; #X connect 56 0 4 0; #X connect 56 0 5 0; #X connect 56 0 6 0; #X connect 56 0 7 0; #X connect 56 0 40 0; #X connect 57 0 21 0; #X connect 57 0 20 0; #X connect 57 1 23 0; #X connect 57 1 22 0; #X restore 769 -119 pd rhythmguitar; #N canvas 0 25 997 656 bass 0; #X obj -278 -325 r chord; #X obj -251 155 *~; #X obj -278 -247 - 4; #X obj -263 -227 mod 12; #X obj -301 -199 + 28; #X obj -343 -199 + 23; #X obj -222 -200 + 35; #X obj -178 -201 + 40; #X obj -372 -158 moses 28; #X obj 7 120 f; #X obj 38 120 f; #X obj 69 120 f; #X obj 100 120 f; #X obj 130 120 f; #X obj -59 -33 route 0; #X obj -286 -136 moses 49; #X obj -75 -53 pack 0 f f f f f; #X obj 103 -13 select 0 1 2 3 4; #X obj 22 59 unpack f f f f f; #X obj 62 -177 r bangstuff; #X obj 62 -132 t b b; #X obj -138 110 line~; #X msg -138 88 \$1 20; #X obj -120 67 *; #X obj -120 38 t b f; #X obj -261 -200 + 30; #X obj -133 -201 + 42; #X obj -277 445 throw~ dryl; #X obj -218 422 *~; #X obj -243 422 *~; #X obj -83 422 *~; #X obj -108 422 *~; #X obj -205 445 throw~ wetl; #X obj -38 445 throw~ wetr; #X obj -109 445 throw~ dryr; #X obj 103 -157 t b; #X obj 62 -56 random 5; #X obj 103 -137 random 10; #N canvas 0 25 1018 640 markovbass 0; #X obj 176 -361 mod 16; #X obj 200 -338 sel 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15; #N canvas 0 25 1016 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 18 -295 pd pct; #X floatatom 41 -315 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 60 -294 pd pct; #X floatatom 82 -312 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 102 -293 pd pct; #X floatatom 128 -311 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 144 -292 pd pct; #X floatatom 170 -309 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 187 -292 pd pct; #X floatatom 216 -308 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 229 -290 pd pct; #X floatatom 257 -308 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 276 -289 pd pct; #X floatatom 295 -306 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 318 -288 pd pct; #X floatatom 336 -305 5 0 100 0 - - -; #N canvas 0 25 1016 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 362 -288 pd pct; #X floatatom 378 -305 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 404 -288 pd pct; #X floatatom 418 -304 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 452 -287 pd pct; #X floatatom 461 -305 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 494 -286 pd pct; #X floatatom 511 -303 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 536 -285 pd pct; #X floatatom 559 -304 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 578 -285 pd pct; #X floatatom 603 -302 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 620 -285 pd pct; #X floatatom 647 -302 5 0 100 0 - - -; #N canvas 0 25 1022 640 pct 0; #X obj 34 -581 random 100; #X obj 34 -558 moses 50; #X obj 33 -602 inlet bang; #X obj 101 -601 inlet percenthits; #X obj 34 -537 outlet bang; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 1 1; #X restore 662 -285 pd pct; #X floatatom 688 -302 5 0 100 0 - - -; #X obj 110 -384 inlet number; #X obj 535 -476 loadbang; #X msg 536 -79 1; #X msg 563 -79 2; #X obj 391 -209 f 1; #X obj 536 -165 random 100; #X obj 714 -186 random 100; #X text 357 -256 STEP; #X text 588 -192 rest; #X text 783 -202 choose next state from...; #X obj 389 -188 sel 1 2; #X msg 714 -72 2; #X msg 741 -72 1; #X obj 335 -146 sel 1 2; #X obj 559 -23 s \$0-bassrestornot; #X obj 763 -29 s \$0-bassrestornot; #X obj 406 -237 r \$0-bassrestornot; #X obj 354 -48 outlet bang; #X msg 465 -443 95; #X msg 498 -442 15; #X msg 616 -440 50; #X msg 527 -441 35; #X msg 570 -440 25; #X obj 665 -370 r bassrestclust; #X obj 762 -370 r bassnoteclust; #X obj 536 -144 moses; #X obj 714 -167 moses; #X msg 320 -256 bang; #X obj 665 -230 i; #X obj 762 -229 i; #X connect 0 0 1 0; #X connect 1 0 2 0; #X connect 1 1 4 0; #X connect 1 2 6 0; #X connect 1 3 8 0; #X connect 1 4 10 0; #X connect 1 5 12 0; #X connect 1 6 14 0; #X connect 1 7 16 0; #X connect 1 8 18 0; #X connect 1 9 20 0; #X connect 1 10 22 0; #X connect 1 11 24 0; #X connect 1 12 26 0; #X connect 1 13 28 0; #X connect 1 14 30 0; #X connect 1 15 32 0; #X connect 2 0 61 0; #X connect 3 0 2 1; #X connect 4 0 61 0; #X connect 5 0 4 1; #X connect 6 0 61 0; #X connect 7 0 6 1; #X connect 8 0 61 0; #X connect 9 0 8 1; #X connect 10 0 61 0; #X connect 11 0 10 1; #X connect 12 0 61 0; #X connect 13 0 12 1; #X connect 14 0 61 0; #X connect 15 0 14 1; #X connect 16 0 61 0; #X connect 17 0 16 1; #X connect 18 0 61 0; #X connect 19 0 18 1; #X connect 20 0 61 0; #X connect 21 0 20 1; #X connect 22 0 61 0; #X connect 23 0 22 1; #X connect 24 0 61 0; #X connect 25 0 24 1; #X connect 26 0 61 0; #X connect 27 0 26 1; #X connect 28 0 61 0; #X connect 29 0 28 1; #X connect 30 0 61 0; #X connect 31 0 30 1; #X connect 32 0 61 0; #X connect 33 0 32 1; #X connect 34 0 0 0; #X connect 35 0 52 0; #X connect 35 0 53 0; #X connect 35 0 55 0; #X connect 35 0 54 0; #X connect 35 0 56 0; #X connect 36 0 48 0; #X connect 37 0 48 0; #X connect 38 0 44 0; #X connect 39 0 59 0; #X connect 40 0 60 0; #X connect 44 0 39 0; #X connect 44 1 40 0; #X connect 45 0 49 0; #X connect 46 0 49 0; #X connect 47 1 51 0; #X connect 50 0 38 1; #X connect 50 0 47 0; #X connect 52 0 3 0; #X connect 52 0 19 0; #X connect 53 0 5 0; #X connect 53 0 33 0; #X connect 54 0 11 0; #X connect 54 0 27 0; #X connect 55 0 7 0; #X connect 55 0 15 0; #X connect 55 0 23 0; #X connect 55 0 31 0; #X connect 56 0 9 0; #X connect 56 0 13 0; #X connect 56 0 17 0; #X connect 56 0 21 0; #X connect 56 0 25 0; #X connect 56 0 29 0; #X connect 57 0 62 0; #X connect 58 0 63 0; #X connect 59 0 36 0; #X connect 59 1 37 0; #X connect 60 0 45 0; #X connect 60 1 46 0; #X connect 61 0 38 0; #X connect 62 0 59 1; #X connect 63 0 60 1; #X restore 103 -343 pd markovbass; #X msg -262 -7 1000; #X msg -225 -16 65; #X msg -245 -35 500; #N canvas 0 25 997 637 basssound 0; #X obj 71 372 hip~ 5; #X obj 237 544 *~; #X obj 181 543 *~; #X obj 239 575 lop~ 40; #X obj 3 450 bp~ 199 5; #X obj 80 449 bp~ 297 5; #X obj 157 449 bp~ 391 5; #X obj 237 449 bp~ 493 5; #X obj 305 448 bp~ 861 5; #X obj 130 491 *~ 0.48; #X obj 131 517 lop~ 250; #X obj 248 253 line~; #X obj 225 188 sel 1 0; #X obj 71 343 *~; #X msg 220 209 1 5; #X msg 254 210 0 200; #N canvas 0 25 1001 656 notelengthguts 0; #X msg -129 270 1; #X msg -92 269 0; #X obj -131 161 line 1; #X floatatom -131 182 5 0 0 0 - - -; #X obj -116 45 bng 15 250 50 0 empty empty empty 0 -6 0 10 -262144 -1 -1; #X msg -131 142 1; #X obj -123 66 t b b b b; #X msg -142 123 0; #X msg -85 142 0; #X obj -98 100 f; #X floatatom -79 178 5 0 0 0 - - -; #X msg -100 124 \$1; #X obj -129 205 sel 1 0; #X obj -137 233 bng 15 250 50 0 empty empty empty 0 -6 0 10 -262144 -1 -1; #X obj -115 233 bng 15 250 50 0 empty empty empty 0 -6 0 10 -262144 -1 -1; #X floatatom -53 77 5 0 0 0 - - -; #X obj -123 341 sel; #X obj -127 361 bng 15 250 50 0 empty empty empty 0 -6 0 10 -262144 -1 -1; #X obj -108 361 bng 15 250 50 0 empty empty empty 0 -6 0 10 -262144 -1 -1; #X msg -132 386 0; #X msg -102 386 1; #X obj -138 409 spigot; #X obj -131 315 t f f f; #X text -50 96 note length; #X obj -109 15 inlet bang; #X obj -138 433 outlet onoff; #X obj 6 58 inlet length; #X connect 0 0 22 0; #X connect 1 0 22 0; #X connect 2 0 3 0; #X connect 3 0 12 0; #X connect 4 0 6 0; #X connect 5 0 2 0; #X connect 6 0 7 0; #X connect 6 1 9 0; #X connect 6 2 5 0; #X connect 6 3 8 0; #X connect 7 0 2 0; #X connect 8 0 2 1; #X connect 9 0 11 0; #X connect 11 0 2 1; #X connect 11 0 10 0; #X connect 12 0 13 0; #X connect 12 1 14 0; #X connect 13 0 0 0; #X connect 14 0 1 0; #X connect 15 0 9 1; #X connect 16 0 17 0; #X connect 16 1 18 0; #X connect 17 0 19 0; #X connect 18 0 20 0; #X connect 19 0 21 1; #X connect 20 0 21 1; #X connect 21 0 25 0; #X connect 22 0 21 0; #X connect 22 1 16 1; #X connect 22 2 16 0; #X connect 24 0 4 0; #X connect 26 0 15 0; #X restore 51 105 pd notelengthguts; #X obj 32 -8 inlet; #X obj 228 603 outlet~; #X obj 150 -7 inlet notelength; #X obj 88 404 *~ 1; #X msg 157 300 1; #X msg 187 301 0; #X obj 167 364 switch~; #X obj 170 268 sel 0; #X obj 177 575 hip~ 180; #N canvas 0 25 491 311 stringunit 0; #N canvas 99 57 801 658 delay-writer 0; #X obj 86 100 inlet~; #X obj 252 619 outlet~; #X obj 277 335 +~; #X obj 134 100 inlet; #X obj 398 199 hip~ 5; #X obj 400 286 *~ 3; #X obj 398 179 lop~ 1000; #X obj 398 160 *~ 0.015; #X obj 135 256 hip~ 5; #X obj 136 292 clip~ -1 1; #X obj 400 311 clip~ -1 1; #X obj 137 510 *~ 0.11; #X obj 401 510 *~ 400; #X obj 256 100 inlet muting; #X obj 392 77 block~ 1; #X obj 253 578 *~ 1; #X text 44 238 string; #X text 454 367 it recirculates; #X text 484 510 output mostly comes from the body; #X text 488 157 much more energy passed to string than to body; #X text 649 236 body formant; #X obj 135 193 *~ 0.989; #X obj 135 223 lop~ 1000; #X obj 319 239 bp~ 357 50; #X obj 399 237 bp~ 582 50; #X obj 477 237 bp~ 721 50; #X obj 562 238 bp~ 943 50; #X obj 241 239 bp~ 205 50; #X obj 134 132 delread~ \$0-bassstringdel1; #X obj 276 367 delwrite~ \$0-bassstringdel1 1000; #X connect 0 0 21 0; #X connect 2 0 29 0; #X connect 3 0 28 0; #X connect 4 0 23 0; #X connect 4 0 24 0; #X connect 4 0 25 0; #X connect 4 0 26 0; #X connect 4 0 27 0; #X connect 5 0 10 0; #X connect 6 0 4 0; #X connect 7 0 6 0; #X connect 8 0 9 0; #X connect 9 0 11 0; #X connect 9 0 2 0; #X connect 10 0 2 1; #X connect 10 0 12 0; #X connect 11 0 15 0; #X connect 12 0 15 0; #X connect 13 0 21 1; #X connect 15 0 1 0; #X connect 21 0 22 0; #X connect 22 0 8 0; #X connect 23 0 5 0; #X connect 24 0 5 0; #X connect 25 0 5 0; #X connect 26 0 5 0; #X connect 27 0 5 0; #X connect 28 0 7 0; #X connect 28 0 21 0; #X restore 149 246 pd delay-writer; #X obj 192 219 expr 1000/$f1; #X obj 192 200 mtof; #N canvas 0 25 371 300 gopluckyourself 0; #X obj -30 199 *~; #X obj -107 105 hip~ 5; #X obj -11 97 vline~; #X obj -16 122 *~; #X msg -11 76 1 1 0 \, 0 9 1; #X obj 40 -33 inlet bang; #X obj -29 222 outlet~; #X obj 94 205 switch~; #X msg 79 152 1; #X msg 110 152 0; #X obj 110 132 sel 0; #X obj 40 -11 t b b b; #X obj -107 65 clip~ -0.3 0.3; #X obj -137 -9 noise~; #X obj -138 17 expr~ if ($v1 == 0 \, 0 \, (if ($v1 < 0 \, -1 \, 1))) ; #X text -91 0 TOTAL DISTORTION; #X msg 110 76 1 0 \, 0 15; #X obj 110 95 line 1 15; #X obj -107 85 lop~ 1000; #X connect 0 0 6 0; #X connect 1 0 0 0; #X connect 2 0 3 0; #X connect 2 0 3 1; #X connect 3 0 0 1; #X connect 4 0 2 0; #X connect 5 0 11 0; #X connect 8 0 7 0; #X connect 9 0 7 0; #X connect 10 0 9 0; #X connect 11 0 16 0; #X connect 11 1 4 0; #X connect 11 2 8 0; #X connect 12 0 18 0; #X connect 13 0 14 0; #X connect 14 0 12 0; #X connect 16 0 17 0; #X connect 17 0 10 0; #X connect 18 0 1 0; #X restore 195 154 pd gopluckyourself; #X obj 93 5 inlet note; #X obj 150 282 outlet~; #X obj 236 5 inlet muting; #X msg 4 197 1; #X msg 35 197 0; #X obj 35 178 sel 0; #X obj 19 251 switch~ 16; #X msg 36 124 1 0 \, 0 15000; #X obj 36 143 line 1 15000; #X floatatom 93 29 5 0 0 0 - - -; #N canvas 0 25 1016 656 pick-position 0; #X obj 81 21 inlet~; #X obj 80 267 outlet~; #X obj 171 20 inlet position; #X obj 81 216 -~; #X obj 15 21 inlet bang; #X msg -9 181 1; #X msg 22 181 0; #X obj 31 153 sel 0; #X obj 1 64 t b b; #X msg 31 97 1 0 \, 0 40; #X obj 31 116 line 1 40; #X obj -4 247 switch~ 16; #X obj 141 116 delread~ \$0-bass-pick-position 3; #X obj 143 87 delwrite~ \$0-bass-pick-position 40; #X connect 0 0 3 0; #X connect 0 0 13 0; #X connect 2 0 12 0; #X connect 3 0 1 0; #X connect 4 0 8 0; #X connect 5 0 11 0; #X connect 6 0 11 0; #X connect 7 0 6 0; #X connect 8 0 9 0; #X connect 8 1 5 0; #X connect 9 0 10 0; #X connect 10 0 7 0; #X connect 12 0 3 1; #X restore 150 180 pd pick-position; #X floatatom 243 100 5 0 0 0 - - -; #N canvas 0 25 251 182 pick-position-delay-calculator 0; #N canvas 0 0 450 300 midi-to-delay-length 0; #X obj 33 51 mtof; #X obj 33 71 expr 1000/$f1; #X obj 33 31 inlet; #X obj 33 92 outlet; #X connect 0 0 1 0; #X connect 1 0 3 0; #X connect 2 0 0 0; #X restore 56 6 pd midi-to-delay-length; #X obj 56 -34 loadbang; #X obj 32 47 / 4; #X floatatom 5 -59 5 0 0 0 - - -; #X obj 5 -42 t b f; #X obj 32 67 outlet pickpositiondelay; #X msg 56 -14 28; #X obj 5 -80 r \$0-bass-pick-location; #X connect 0 0 2 0; #X connect 1 0 6 0; #X connect 2 0 5 0; #X connect 3 0 4 0; #X connect 4 0 2 0; #X connect 4 1 2 1; #X connect 6 0 0 0; #X connect 7 0 3 0; #X restore 243 54 pd pick-position-delay-calculator; #X obj 93 50 t b b b f b; #X text 274 98 pick position delay in ms; #X connect 0 0 5 0; #X connect 1 0 0 1; #X connect 2 0 1 0; #X connect 3 0 14 1; #X connect 4 0 13 0; #X connect 6 0 0 2; #X connect 7 0 10 0; #X connect 8 0 10 0; #X connect 9 0 8 0; #X connect 11 0 12 0; #X connect 12 0 9 0; #X connect 13 0 17 0; #X connect 14 0 0 0; #X connect 15 0 14 2; #X connect 16 0 15 0; #X connect 17 0 11 0; #X connect 17 1 3 0; #X connect 17 2 14 0; #X connect 17 3 2 0; #X connect 17 4 7 0; #X restore 32 174 pd stringunit; #X obj 68 280 *~; #X obj 107 143 r bassmuting; #X obj 32 84 t f b b; #X msg 170 209 0 400; #X obj 170 230 line 1 400; #X obj 83 241 r bassvol; #N canvas 0 25 471 321 ampwetdry 0; #X obj 105 140 *; #X obj 105 116 * 2; #X obj 95 165 / 4; #X obj 94 214 swap 1; #X obj 101 238 -; #X obj 143 64 swap 1; #X obj 150 88 -; #X obj 166 140 *; #X obj 166 116 * 2; #X obj 156 165 / 4; #X obj 151 213 swap 1; #X obj 158 237 -; #X text 38 42 dry/wet; #X obj 96 36 r bassampwetdry; #X obj 101 273 outlet dryvol; #X obj 185 273 outlet wetvol; #X connect 0 0 2 0; #X connect 1 0 0 1; #X connect 1 0 0 0; #X connect 2 0 3 0; #X connect 3 0 4 0; #X connect 3 1 4 1; #X connect 4 0 14 0; #X connect 5 0 6 0; #X connect 5 1 6 1; #X connect 6 0 8 0; #X connect 7 0 9 0; #X connect 8 0 7 1; #X connect 8 0 7 0; #X connect 9 0 10 0; #X connect 10 0 11 0; #X connect 10 1 11 1; #X connect 11 0 15 0; #X connect 13 0 1 0; #X connect 13 0 5 0; #X restore 195 506 pd ampwetdry; #X connect 0 0 20 0; #X connect 1 0 3 0; #X connect 1 0 25 0; #X connect 2 0 3 0; #X connect 2 0 25 0; #X connect 3 0 18 0; #X connect 4 0 9 0; #X connect 5 0 9 0; #X connect 6 0 9 0; #X connect 7 0 9 0; #X connect 8 0 9 0; #X connect 9 0 10 0; #X connect 10 0 1 0; #X connect 11 0 13 1; #X connect 12 0 14 0; #X connect 12 1 15 0; #X connect 12 1 30 0; #X connect 13 0 0 0; #X connect 14 0 11 0; #X connect 15 0 11 0; #X connect 16 0 12 0; #X connect 17 0 29 0; #X connect 19 0 16 1; #X connect 20 0 4 0; #X connect 20 0 5 0; #X connect 20 0 6 0; #X connect 20 0 7 0; #X connect 20 0 8 0; #X connect 20 0 2 0; #X connect 21 0 31 0; #X connect 21 0 23 0; #X connect 22 0 23 0; #X connect 24 0 22 0; #X connect 25 0 18 0; #X connect 26 0 27 0; #X connect 27 0 13 0; #X connect 28 0 26 1; #X connect 29 0 26 0; #X connect 29 1 16 0; #X connect 29 2 21 0; #X connect 30 0 31 0; #X connect 31 0 24 0; #X connect 32 0 27 1; #X connect 33 0 2 1; #X connect 33 1 1 1; #X restore -276 136 pd basssound; #X obj -192 -418 sel 0; #N canvas 0 25 1016 656 markovselect 0; #X msg 252 -267 1; #X msg 290 -265 2; #X obj 239 -413 f 1; #X obj 251 -328 random 100; #X obj 429 -349 random 100; #X text 367 -460 choose next state from...; #X obj 239 -391 sel 1 2; #X msg 445 -261 2; #X msg 489 -262 1; #X obj 181 -486 r rootorfancy; #X text 303 -356 root; #X text 503 -344 fancy; #X obj 270 -241 s rootorfancy; #X obj 473 -241 s rootorfancy; #X obj -63 -296 t b f; #X text -70 -319 this is a switch; #X obj -78 -268 pack 0 f f; #X obj -78 -249 route 0; #X msg -120 -352 1; #X msg -120 -333 2; #X text -25 -248 eliminates the 0; #X obj -120 -386 loadbang; #X obj -63 -341 t f b; #X obj 160 -446 sel 1 2; #X obj -44 -229 route 1 2; #X text -2 -299 first 0 prevents switching from outputting bang immediately ; #X obj -63 -363 r basstime; #X obj -142 -172 outlet roottrigger; #X obj -28 -172 outlet fancytrigger; #X obj 250 -307 moses; #X obj 429 -330 moses; #X obj 296 -486 r bassrootcluster; #X obj 451 -485 r bassfancycluster; #X obj 451 -369 i; #X obj 296 -372 i; #X connect 0 0 12 0; #X connect 1 0 12 0; #X connect 2 0 6 0; #X connect 3 0 29 0; #X connect 4 0 30 0; #X connect 6 0 3 0; #X connect 6 1 4 0; #X connect 7 0 13 0; #X connect 8 0 13 0; #X connect 9 0 2 1; #X connect 9 0 23 0; #X connect 14 0 16 0; #X connect 14 1 16 2; #X connect 16 0 17 0; #X connect 17 0 24 0; #X connect 18 0 16 1; #X connect 19 0 16 1; #X connect 21 0 18 0; #X connect 22 0 14 0; #X connect 22 1 2 0; #X connect 23 0 18 0; #X connect 23 1 19 0; #X connect 24 0 27 0; #X connect 24 1 28 0; #X connect 26 0 22 0; #X connect 29 0 0 0; #X connect 29 1 1 0; #X connect 30 0 7 0; #X connect 30 1 8 0; #X connect 31 0 34 0; #X connect 32 0 33 0; #X connect 33 0 30 1; #X connect 34 0 3 1; #X restore 16 -536 pd markovselect; #X obj -356 159 s finalbassnote; #X obj -215 -502 pack f f; #X msg -215 -483 \$2 \$1; #X obj -228 -418 sel 0; #X obj -228 -437 mod 2; #X obj -192 -437 mod 4; #X obj -156 -418 sel 0; #X obj -156 -437 mod 8; #X text -362 -475 how often root will play; #X text 26 -566 Markov chain chooses between root note and fancier stuff determined by another Markov chain (see below).; #X text 89 -328 This part just spits out bangs in clusters.; #X obj -163 -55 r bassvol; #X obj -279 15 r basslength; #X obj -170 -568 r bassroothowoften; #X obj -215 -464 route 2 1 0; #X text 89 -361 fancy-bass Markov -- does arpeggios; #X text -256 -249 spiffy suspended-second chord; #X text 50 -197 trigger during interlude; #X obj -45 47 switch~; #X obj -55 -12 sel 0 1; #X msg -36 7 1; #X msg -62 7 0; #X obj -36 26 pipe 20; #X obj -84 26 pipe 20; #N canvas 0 25 1018 658 findnotesavailable 0; #X obj 228 490 outlet; #X obj 218 -8 r mainchord; #X obj 201 71 unpack f f f; #X obj 134 136 + 24; #X obj 164 136 + 36; #X obj 194 136 + 48; #X obj 224 136 + 24; #X obj 254 136 + 36; #X obj 284 136 + 48; #X obj 314 136 + 24; #X obj 344 136 + 36; #X obj 374 136 + 48; #X obj 150 213 pack 0 f f f f f f f f f; #X obj 150 258 sort 1; #X obj 150 237 route 0; #X msg 209 236 1; #X msg 243 236 -1; #X obj 150 278 unpack f f f f f f f f f; #X obj 51 341 moses 28; #X obj 105 341 moses 28; #X obj 159 341 moses 28; #X obj 304 341 moses 52; #X obj 358 341 moses 52; #X msg 228 443 49 46 42 37 34 30; #X msg 240 415 add2 \$1; #X msg 292 415 set; #X obj 228 467 sort 1; #X obj 218 42 t b b b l b; #X text 107 27 this finds the notes available to the arpeggiator; #X obj 179 101 t f f f; #X obj 235 101 t f f f; #X obj 325 101 t f f f; #X obj 240 387 f; #X connect 1 0 27 0; #X connect 2 0 29 0; #X connect 2 1 30 0; #X connect 2 2 31 0; #X connect 3 0 12 1; #X connect 4 0 12 2; #X connect 5 0 12 3; #X connect 6 0 12 4; #X connect 7 0 12 5; #X connect 8 0 12 6; #X connect 9 0 12 7; #X connect 10 0 12 8; #X connect 11 0 12 9; #X connect 12 0 14 0; #X connect 13 0 17 0; #X connect 14 0 13 0; #X connect 15 0 13 1; #X connect 16 0 13 1; #X connect 17 0 18 0; #X connect 17 1 19 0; #X connect 17 2 20 0; #X connect 17 3 32 0; #X connect 17 4 32 0; #X connect 17 5 32 0; #X connect 17 6 21 0; #X connect 17 7 22 0; #X connect 18 1 32 0; #X connect 19 1 32 0; #X connect 20 1 32 0; #X connect 21 0 32 0; #X connect 22 0 32 0; #X connect 23 0 26 0; #X connect 24 0 23 0; #X connect 25 0 23 0; #X connect 26 0 0 0; #X connect 27 1 23 0; #X connect 27 2 12 0; #X connect 27 3 2 0; #X connect 27 4 25 0; #X connect 29 0 3 0; #X connect 29 1 4 0; #X connect 29 2 5 0; #X connect 30 0 6 0; #X connect 30 1 7 0; #X connect 30 2 8 0; #X connect 31 0 9 0; #X connect 31 1 10 0; #X connect 31 2 11 0; #X connect 32 0 24 0; #X restore 278 -214 pd findnotesavailable; #X text 262 -234 this finds the notes available to the arpeggiator ; #N canvas 0 25 1016 656 findoctave 0; #X obj 205 295 outlet; #X obj 238 -99 r rootnote; #X obj 194 -64 f; #X obj 194 -29 - 4; #X obj 194 -10 mod 12; #X obj 194 9 + 4; #X obj 242 8 r finalbassnote; #X obj 222 87 -; #X obj 258 52 + 36; #X obj 258 87 -; #X obj 222 52 + 24; #X obj 222 106 abs; #X obj 260 106 abs; #X obj 243 150 <; #X obj 194 28 t f f f; #X obj 194 223 route 0 1; #X obj 194 185 pack f f; #X msg 194 204 \$2 \$1; #X obj 220 247 + 36; #X obj 184 246 + 24; #X text 226 -123 find right octave for root note; #X text 217 -114 (which one is closest to previous note?); #X obj 154 -121 inlet bang; #X obj 242 28 t f f; #X connect 1 0 2 1; #X connect 2 0 3 0; #X connect 3 0 4 0; #X connect 4 0 5 0; #X connect 5 0 14 0; #X connect 6 0 23 0; #X connect 7 0 11 0; #X connect 8 0 9 0; #X connect 9 0 12 0; #X connect 10 0 7 0; #X connect 11 0 13 1; #X connect 12 0 13 0; #X connect 13 0 16 1; #X connect 14 0 16 0; #X connect 14 1 8 0; #X connect 14 2 10 0; #X connect 15 0 19 0; #X connect 15 1 18 0; #X connect 16 0 17 0; #X connect 17 0 15 0; #X connect 18 0 0 0; #X connect 19 0 0 0; #X connect 22 0 2 0; #X connect 23 0 9 1; #X connect 23 1 7 1; #X restore -192 -365 pd findoctave; #X text -277 -311 receives the chord number during interlude; #X obj 69 171 f; #X obj -305 115 f; #X obj -298 -112 f; #X obj -131 -33 r bassonoff; #X obj -157 225 r basspan; #N canvas 0 0 450 300 wetdrystuff 0; #X obj 19 -50 *; #X obj 25 -73 * 2; #X obj 19 -31 / 4; #X obj 19 -12 swap 1; #X obj 26 12 -; #X obj 76 -112 swap 1; #X obj 84 -93 -; #X obj 76 -51 *; #X obj 84 -73 * 2; #X obj 76 -32 / 4; #X obj 76 -13 swap 1; #X obj 83 11 -; #X text 136 -111 dry/wet (reverb); #X obj 23 50 outlet dry; #X obj 96 50 outlet wet; #X obj 25 -195 r basswetdry; #X connect 0 0 2 0; #X connect 1 0 0 1; #X connect 1 0 0 0; #X connect 2 0 3 0; #X connect 3 0 4 0; #X connect 3 1 4 1; #X connect 4 0 13 0; #X connect 5 0 6 0; #X connect 5 1 6 1; #X connect 6 0 8 0; #X connect 7 0 9 0; #X connect 8 0 7 1; #X connect 8 0 7 0; #X connect 9 0 10 0; #X connect 10 0 11 0; #X connect 10 1 11 1; #X connect 11 0 14 0; #X connect 15 0 1 0; #X connect 15 0 5 0; #X restore -205 391 pd wetdrystuff; #N canvas 0 0 471 452 equalpowerpan 0; #X obj 105 313 cos~; #X obj 73 163 t f f; #X obj 73 188 * 0.25; #X obj 108 211 * 0.25; #X obj 108 233 + 0.75; #X msg 108 257 \$1 20; #X obj 108 279 line~; #X msg 68 257 \$1 20; #X obj 68 279 line~; #X obj 105 334 *~; #X obj 75 313 cos~; #X obj 75 334 *~; #X obj 58 415 outlet~ left; #X obj 138 415 outlet~ right; #X obj 20 48 inlet~ sound; #X obj 102 136 expr ($f1+1)/2; #X obj 102 110 inlet negonetoone; #X connect 0 0 9 1; #X connect 1 0 2 0; #X connect 1 1 3 0; #X connect 2 0 7 0; #X connect 3 0 4 0; #X connect 4 0 5 0; #X connect 5 0 6 0; #X connect 6 0 0 0; #X connect 7 0 8 0; #X connect 8 0 10 0; #X connect 9 0 13 0; #X connect 10 0 11 1; #X connect 11 0 12 0; #X connect 14 0 11 0; #X connect 14 0 9 0; #X connect 15 0 1 0; #X connect 16 0 15 0; #X restore -250 250 pd equalpowerpan; #X connect 0 0 2 0; #X connect 1 0 79 0; #X connect 2 0 3 0; #X connect 3 0 4 0; #X connect 3 0 5 0; #X connect 3 0 6 0; #X connect 3 0 7 0; #X connect 3 0 25 0; #X connect 3 0 26 0; #X connect 4 0 16 2; #X connect 5 0 8 0; #X connect 6 0 16 4; #X connect 7 0 16 5; #X connect 8 1 75 0; #X connect 9 0 73 0; #X connect 10 0 73 0; #X connect 11 0 73 0; #X connect 12 0 73 0; #X connect 13 0 73 0; #X connect 14 0 18 0; #X connect 15 0 75 0; #X connect 16 0 14 0; #X connect 17 0 9 0; #X connect 17 1 10 0; #X connect 17 2 11 0; #X connect 17 3 12 0; #X connect 17 4 13 0; #X connect 18 0 9 1; #X connect 18 1 10 1; #X connect 18 2 11 1; #X connect 18 3 12 1; #X connect 18 4 13 1; #X connect 19 0 20 0; #X connect 20 0 36 0; #X connect 20 1 16 0; #X connect 21 0 1 1; #X connect 22 0 21 0; #X connect 23 0 22 0; #X connect 24 0 23 0; #X connect 24 1 23 1; #X connect 25 0 16 3; #X connect 26 0 15 0; #X connect 28 0 32 0; #X connect 29 0 27 0; #X connect 30 0 33 0; #X connect 31 0 34 0; #X connect 35 0 37 0; #X connect 36 0 17 0; #X connect 37 0 17 0; #X connect 38 0 35 0; #X connect 39 0 42 1; #X connect 40 0 42 1; #X connect 41 0 42 1; #X connect 42 0 1 0; #X connect 43 0 71 0; #X connect 44 0 46 0; #X connect 44 1 38 0; #X connect 46 0 47 0; #X connect 47 0 59 0; #X connect 48 0 71 0; #X connect 49 0 48 0; #X connect 50 0 43 0; #X connect 51 0 71 0; #X connect 52 0 51 0; #X connect 56 0 23 0; #X connect 57 0 42 1; #X connect 58 0 46 1; #X connect 59 0 49 0; #X connect 59 1 50 0; #X connect 59 2 52 0; #X connect 64 0 66 0; #X connect 64 1 65 0; #X connect 65 0 63 0; #X connect 65 0 67 0; #X connect 66 0 68 0; #X connect 66 0 24 0; #X connect 67 0 24 0; #X connect 68 0 63 0; #X connect 69 0 18 0; #X connect 71 0 74 0; #X connect 73 0 74 0; #X connect 74 0 45 0; #X connect 74 0 42 0; #X connect 75 0 16 1; #X connect 76 0 64 0; #X connect 77 0 79 1; #X connect 78 0 29 1; #X connect 78 0 31 1; #X connect 78 1 28 1; #X connect 78 1 30 1; #X connect 79 0 29 0; #X connect 79 0 28 0; #X connect 79 1 31 0; #X connect 79 1 30 0; #X restore 721 -119 pd bass; #N canvas 0 25 997 656 controls 0; #X obj 29 104 t f b; #X obj 1 529 s trig; #X text -17 570 this is a switch; #X obj -25 635 route 0; #X text 28 636 eliminates the 0; #X text 40 614 first 0 prevents switching from outputting bang immediately ; #X obj -4 554 t b b; #X obj -4 588 t b 1; #X obj -25 613 pack 0 f 1; #X floatatom -96 414 5 0 0 0 - - -; #X msg -125 414 6; #X msg -79 181 65; #X msg -127 181 500; #X msg -153 414 2; #N canvas 0 0 450 300 primaryclock 0; #X obj 226 198 f 0; #X obj 273 195 + 1; #X obj 135 71 loadbang; #X msg 135 96 1; #X obj 303 245 / 2; #X obj 135 125 metro 250; #X text 328 190 counter; #X text 328 222 define order; #X text 135 337 send bangs; #X obj 135 148 t b b; #X text 182 150 define order; #X text 209 71 start now; #X text 387 294 drums next in order; #X text 425 267 synth first in order; #X text 343 244 synth is half speed; #X text 348 319 scoretime next in order; #X obj 11 69 inlet start-stop; #X obj 359 67 inlet zero; #X obj 359 93 t b; #X msg 359 117 0; #X obj 193 100 inlet period; #X obj 303 267 outlet synthtime; #X obj 273 293 outlet drumtime; #X obj 226 315 outlet scoretime; #X obj 135 319 outlet trig; #X text 136 39 timebase; #X obj 273 222 t f f f; #X connect 0 0 1 0; #X connect 0 0 26 0; #X connect 1 0 0 1; #X connect 2 0 3 0; #X connect 3 0 5 0; #X connect 4 0 21 0; #X connect 5 0 9 0; #X connect 9 0 24 0; #X connect 9 1 0 0; #X connect 16 0 5 0; #X connect 17 0 18 0; #X connect 18 0 19 0; #X connect 19 0 0 1; #X connect 20 0 5 1; #X connect 26 0 23 0; #X connect 26 1 22 0; #X connect 26 2 4 0; #X restore -4 509 pd primaryclock; #X obj -127 202 s bl1; #X obj -45 77 sel 0 1; #X obj -45 46 r sectionselect; #X obj 62 46 r mainstartstop; #X obj 83 469 r mainzero; #X obj 133 205 t b b; #X obj -142 436 s setkey; #X obj -25 655 route 0 1 2 3; #X msg -66 555 2; #X msg -38 555 3; #X obj -68 105 t b b b; #X obj -20 105 t b b b; #X obj -127 132 loadbang; #X text 282 693 short buffer zones (a few beats long) to build dramatic tension before section changes; #X text -194 223 send bass note length to fader; #N canvas 0 0 450 300 secondary1 0; #X obj 23 21 inlet route; #X obj 129 120 s synthtimemain; #X obj 98 145 s drumtimemain; #X obj 67 170 s scoretimemain; #N canvas 0 0 450 300 secondaryclock 0; #X obj 226 198 f 0; #X obj 273 195 + 1; #X obj 303 245 / 2; #X text 328 190 counter; #X text 328 222 define order; #X text 135 337 send bangs; #X obj 135 148 t b b; #X text 182 150 define order; #X text 387 294 drums next in order; #X text 425 267 synth first in order; #X text 343 244 synth is half speed; #X text 348 319 scoretime next in order; #X obj 359 67 inlet zero; #X obj 359 93 t b; #X msg 359 117 0; #X obj 303 267 outlet synthtime; #X obj 273 293 outlet drumtime; #X obj 226 315 outlet scoretime; #X obj 135 319 outlet trig; #X obj 252 223 t f f f; #X obj 119 61 inlet bangs; #X connect 0 0 1 0; #X connect 0 0 19 0; #X connect 1 0 0 1; #X connect 2 0 15 0; #X connect 6 0 18 0; #X connect 6 1 0 0; #X connect 12 0 13 0; #X connect 13 0 14 0; #X connect 14 0 0 1; #X connect 19 0 17 0; #X connect 19 1 16 0; #X connect 19 2 2 0; #X connect 20 0 6 0; #X restore 23 69 pd secondaryclock; #X obj 124 39 r mainzero; #X connect 0 0 4 0; #X connect 4 1 3 0; #X connect 4 2 2 0; #X connect 4 3 1 0; #X connect 5 0 4 1; #X restore -25 704 pd secondary1; #N canvas 0 0 450 300 secondary2 0; #X obj 17 13 inlet route; #N canvas 0 0 450 300 secondaryclock 0; #X obj 226 198 f 0; #X obj 273 195 + 1; #X obj 303 245 / 2; #X text 328 190 counter; #X text 328 222 define order; #X text 135 337 send bangs; #X obj 135 148 t b b; #X text 182 150 define order; #X text 387 294 drums next in order; #X text 425 267 synth first in order; #X text 343 244 synth is half speed; #X text 348 319 scoretime next in order; #X obj 359 67 inlet zero; #X obj 359 93 t b; #X msg 359 117 0; #X obj 303 267 outlet synthtime; #X obj 273 293 outlet drumtime; #X obj 226 315 outlet scoretime; #X obj 135 319 outlet trig; #X obj 252 223 t f f f; #X obj 119 61 inlet bangs; #X connect 0 0 1 0; #X connect 0 0 19 0; #X connect 1 0 0 1; #X connect 2 0 15 0; #X connect 6 0 18 0; #X connect 6 1 0 0; #X connect 12 0 13 0; #X connect 13 0 14 0; #X connect 14 0 0 1; #X connect 19 0 17 0; #X connect 19 1 16 0; #X connect 19 2 2 0; #X connect 20 0 6 0; #X restore 17 43 pd secondaryclock; #X obj 61 144 s scoretime; #X obj 92 119 s drumtime; #X obj 123 94 s synthtime; #X obj 127 -2 r mainzero; #X connect 0 0 1 0; #X connect 1 1 2 0; #X connect 1 2 3 0; #X connect 1 3 4 0; #X connect 5 0 1 1; #X restore 60 704 pd secondary2; #N canvas 0 0 450 300 buffer1 0; #X obj 43 26 inlet route; #X obj 205 26 inlet bang; #X obj 44 275 outlet packnum; #X obj 116 143 f 0; #X obj 163 140 + 1; #X text 187 141 counter; #X msg 140 90 0; #X obj 92 119 t b; #X msg 106 209 1; #X obj 136 208 s finallyinmiddle; #X obj 116 180 sel 6; #X connect 0 0 7 0; #X connect 1 0 6 0; #X connect 3 0 4 0; #X connect 3 0 10 0; #X connect 4 0 3 1; #X connect 6 0 3 1; #X connect 7 0 3 0; #X connect 8 0 2 0; #X connect 10 0 8 0; #X connect 10 0 9 0; #X restore 145 704 pd buffer1; #N canvas 0 0 450 300 buffer2 0; #X obj 31 26 inlet route; #X obj 206 26 inlet bang; #X obj 119 273 outlet packnum; #X obj 123 161 f 0; #X obj 170 158 + 1; #X msg 138 111 0; #X obj 99 137 t b; #X msg 119 229 0; #X obj 123 198 sel 6; #X connect 0 0 6 0; #X connect 1 0 5 0; #X connect 3 0 4 0; #X connect 3 0 8 0; #X connect 4 0 3 1; #X connect 5 0 3 1; #X connect 6 0 3 0; #X connect 7 0 2 0; #X connect 8 0 7 0; #X restore 212 704 pd buffer2; #N canvas 0 0 450 300 remainingtimesend 0; #X obj 38 35 inlet reset; #X obj 230 35 inlet start; #X msg 117 131 0; #X obj 117 152 line 0 1000; #X msg 151 131 130 \, 0 130000; #X obj 117 173 s remainingtime; #X connect 0 0 2 0; #X connect 1 0 4 0; #X connect 2 0 3 0; #X connect 3 0 5 0; #X connect 4 0 3 0; #X restore 160 236 pd remainingtimesend; #N canvas 0 0 450 300 drumrolloff 0; #X obj 25 10 inlet to-0; #X obj 37 99 s turnrolloff; #X msg 37 80 0; #X obj 37 60 t b; #X obj 37 40 r drumpattern; #X floatatom 72 70 5 0 0 0 - - -; #X connect 0 0 2 0; #X connect 2 0 1 0; #X connect 3 0 2 0; #X connect 4 0 3 0; #X connect 4 0 5 0; #X restore 62 146 pd drumrolloff; #N canvas 0 0 471 326 tempochanges 0; #X obj 23 14 inlet loadbang-125; #X obj 179 14 inlet line250etc; #X obj 299 14 inlet upperline125; #X obj 413 14 inlet lowerline125; #X obj 252 310 outlet period; #X obj 209 37 loadbang; #X obj 286 267 s period; #X msg 209 153 125; #X obj 236 109 line 0 500; #X obj 261 209 line 0 500; #X obj 261 160 sel 125; #X msg 236 65 250 \, 125 90000; #X msg 353 182 125; #X msg 261 182 125 \, 250 40000; #X msg 299 88 125; #X obj 261 286 s 3period; #X obj 261 267 * 3; #X obj 236 128 t f f; #X obj 261 236 f; #X connect 0 0 7 0; #X connect 1 0 11 0; #X connect 2 0 14 0; #X connect 3 0 12 0; #X connect 5 0 7 0; #X connect 7 0 18 0; #X connect 8 0 17 0; #X connect 9 0 18 0; #X connect 10 0 13 0; #X connect 11 0 8 0; #X connect 12 0 9 0; #X connect 13 0 9 0; #X connect 14 0 8 0; #X connect 16 0 15 0; #X connect 17 0 10 0; #X connect 17 1 18 0; #X connect 18 0 4 0; #X connect 18 0 16 0; #X connect 18 0 6 0; #X restore 39 417 pd tempochanges; #X text 102 508 primary clock: sends time to secondary clocks below -- one secondary clock for main theme \, one for interlude; #X text 205 41 This subpatcher is rather spaghettiesque \, I know. ; #X obj 415 94 loadbang; #X obj 415 162 until; #X obj 415 181 f; #X obj 443 181 + 1; #X obj 415 200 t f f; #X text 476 131 writes a table; #X text 475 156 the table acts as part of a limiter; #X text 477 180 the other part \, which reads from the table \, is in the guitar units (replacing hard clipping) and the wet/dry master ; #X obj 482 228 table cubicsoftclipping 8192; #X obj 409 268 moses -1; #X msg 405 332 -0.666667; #X msg 559 344 0.666667; #X obj 454 297 moses 1; #X obj 436 363 expr $f1-((pow($f1 \, 3))/3); #X obj 415 219 / 4096; #X obj 415 386 tabwrite cubicsoftclipping; #X msg 454 142 0; #X obj 415 118 t b b; #X msg 415 143 8193; #X obj 415 244 - 1; #X connect 0 0 14 0; #X connect 0 1 36 0; #X connect 3 0 22 0; #X connect 6 0 7 0; #X connect 7 0 8 0; #X connect 7 1 8 2; #X connect 8 0 3 0; #X connect 9 0 21 0; #X connect 10 0 21 0; #X connect 11 0 15 0; #X connect 12 0 15 0; #X connect 13 0 21 0; #X connect 14 0 1 0; #X connect 14 0 6 0; #X connect 16 0 25 0; #X connect 16 1 26 0; #X connect 17 0 16 0; #X connect 18 0 0 0; #X connect 18 0 20 0; #X connect 18 0 35 0; #X connect 19 0 14 2; #X connect 20 0 36 3; #X connect 20 1 34 0; #X connect 20 1 36 2; #X connect 22 0 30 0; #X connect 22 1 31 0; #X connect 22 2 32 0; #X connect 22 3 33 0; #X connect 23 0 8 1; #X connect 24 0 8 1; #X connect 25 0 12 0; #X connect 25 0 20 0; #X connect 25 0 35 0; #X connect 25 0 36 0; #X connect 25 1 24 0; #X connect 25 2 32 1; #X connect 25 2 33 1; #X connect 26 0 11 0; #X connect 26 0 13 0; #X connect 26 0 34 1; #X connect 26 0 35 0; #X connect 26 0 36 1; #X connect 26 1 23 0; #X connect 26 2 32 1; #X connect 26 2 33 1; #X connect 27 0 12 0; #X connect 32 0 8 1; #X connect 33 0 8 1; #X connect 36 0 14 1; #X connect 39 0 56 0; #X connect 40 0 41 0; #X connect 41 0 42 0; #X connect 41 0 43 0; #X connect 42 0 41 1; #X connect 43 0 53 0; #X connect 43 1 54 1; #X connect 48 0 49 0; #X connect 48 1 51 0; #X connect 49 0 54 0; #X connect 50 0 54 0; #X connect 51 0 52 0; #X connect 51 1 50 0; #X connect 52 0 54 0; #X connect 53 0 58 0; #X connect 55 0 41 1; #X connect 56 0 57 0; #X connect 56 1 55 0; #X connect 57 0 40 0; #X connect 58 0 48 0; #X restore 721 -157 pd controls; #X text 442 509 The HYPER-AVANT interlude bit (bottom option on the radio button) generally involves different control modules than the banal main theme. The "melody" here (if it can be called such) is generated randomly \, with different probabilities of going up or down different intervals along a diatonic scale in a preset key. And that preset key changes constantly according to a random walk around the circle of fifths. Harmony turns on and off according to a Markov chain. The drums randomly change time signature with the beginning of each phrase (defined as a group of notes bookended by rests) \, and there's no drum pattern selection here. The bass here is just a random arpeggiator \, but the rhythm guitar works basically the same way as it did in the main theme section.; #X obj 345 123 hsl 50 8 2 50 0 1 \$0-pick-location empty pick-location -5 -6 0 10 -87053 -262144 -67601 200 1; #X obj 763 86 hsl 50 8 2 50 0 1 \$0-rg-pick-position empty pick-location -10 -6 0 10 -221833 -262144 -193226 100 1; #X obj 376 0 hsl 50 8 4 50 0 1 \$0-bass-pick-location empty pick-location -7 -6 0 10 -181441 -262144 -111361 400 1; #X text 27 650 A basic concept of several components of this patch is the generation of semi-improvisational variety to maintain listener interest. So even when it's playing the insipid melodic part \, the bass and "rhythm guitar" are doing relatively unpredictable stuff. But to maintain some semblance of rhythmic and harmonic order \, sometimes they're doing pre-programmed patterns (rhythmic strumming on the rhythm guitar/root notes on the bass). But there's a Markov chain in each that switches it between that pre-programmed part and a random arpeggiator (which determines its own distribution of notes and rests according to another Markov chain). "Clustering" refers to the percent chance that the Markov chain will stay in its current state on the next beat. The "how-often-root" selector for the bass determines how often the root note will play when the Markov chain is sending it the stream of beat triggers.; #X text 442 691 The stringed instruments are all modeled by feeding brief distorted noise impulses into basic Karplus-Strong waveguides with a set of bandpass filters approximating a wood formant in the middle of each feedback loop. The pluck impulses are also comb-filtered to represent the position of the pick. The drums are made of noise impulses and vcf~ variable-frequency bandpass filters. The cymbals are ring-modulated square waves (with some noise in the hat as well). ; #X text 442 813 The interlude section also contains a delay line that quickly turns off its input and becomes a recirculating feedback instrument that follows the current root note. It is sent to a waveshaper and panner that change parameters on their own \, then to yet another delay \, and finally to the dac~ in dry and reverbed form.; #X connect 8 0 17 0; #X connect 16 0 34 0; #X connect 20 0 21 0; #X connect 24 0 25 0;