#N canvas 0 0 544 530 10;
#X obj 184 11 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X obj 38 15 f 1;
#X obj 103 8 + 1;
#X obj 25 141 s \$0-odd-even;
#N canvas 506 163 518 368 strong 0;
#X obj 109 59 spigot;
#X obj 104 14 inlet;
#X obj 143 11 r \$0-odd-even;
#X obj 140 36 == 1;
#X obj 107 82 sel 0 1 2 3 4 5 6 7 8 9 10 11;
#X obj 149 264 outlet;
#X msg 55 136 -9 -6 -3 0;
#X msg 146 138 -6 -3 0 3;
#X msg 228 137 -3 0 3 6;
#X msg 305 135 0 3 6 9;
#X connect 0 0 4 0;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 3 0 0 1;
#X connect 4 0 6 0;
#X connect 4 3 7 0;
#X connect 4 6 8 0;
#X connect 4 9 9 0;
#X connect 6 0 5 0;
#X connect 7 0 5 0;
#X connect 8 0 5 0;
#X connect 9 0 5 0;
#X restore 165 403 pd strong chords;
#X obj 184 57 random 12;
#X obj 184 31 metro 1000;
#X obj 92 491 noteout;
#X obj 25 67 mod 2;
#N canvas 543 121 462 312 make 0;
#X obj 127 33 inlet;
#X obj 115 243 outlet;
#N canvas 0 0 549 423 drip 0;
#X obj 64 206 list split 1;
#X obj 64 123 until;
#X obj 64 181 list append;
#X obj 194 206 bang;
#X text 146 90 First store list \, then start the loop;
#X text 163 118 "until" bangs its output until told to stop by a "bang"
to its right inlet.;
#X text 182 160 Store the remaining list.;
#X text 239 205 third outlet of "split" tells us to stop.;
#X obj 64 243 outlet;
#X obj 64 57 inlet;
#X text 237 44 From list-help.pd;
#X obj 143 243 outlet;
#X obj 64 86 t b a;
#X connect 0 0 8 0;
#X connect 0 1 2 1;
#X connect 0 2 3 0;
#X connect 0 2 11 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 1 1;
#X connect 9 0 12 0;
#X connect 12 0 1 0;
#X connect 12 1 2 1;
#X restore 133 139 pd drip;
#X obj 136 193 + 48;
#X obj 198 139 * 12;
#X obj 199 109 inlet;
#X connect 0 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 4 0 3 1;
#X connect 5 0 4 0;
#X restore 92 442 pd make chord;
#X obj 92 466 makenote 64 500;
#X obj 368 152 noteout;
#X obj 368 116 makenote 64 500;
#X obj 368 90 + 72;
#X floatatom 237 9 5 0 0 0 - - -;
#X floatatom 165 425 5 0 0 0 - - -;
#N canvas 490 163 538 388 weak 0;
#X obj 140 36 == 0;
#X obj 109 59 spigot;
#X obj 104 14 inlet;
#X obj 143 11 r \$0-odd-even;
#X obj 149 264 outlet;
#X obj 107 82 sel 0 4 7 11;
#X msg 267 137 0 4 7 11;
#X msg 128 136 -5 -1 0 4;
#X msg 202 138 -1 0 4 7;
#X msg 55 136 -8 -5 -1 0;
#X connect 0 0 1 1;
#X connect 1 0 5 0;
#X connect 2 0 1 0;
#X connect 3 0 0 0;
#X connect 5 0 9 0;
#X connect 5 1 7 0;
#X connect 5 2 8 0;
#X connect 5 3 6 0;
#X connect 6 0 4 0;
#X connect 7 0 4 0;
#X connect 8 0 4 0;
#X connect 9 0 4 0;
#X restore 44 257 pd weak chords C;
#X obj 38 35 t a a;
#X obj 44 238 spigot;
#X obj 184 96 s \$0-notes;
#X obj 369 65 r \$0-notes;
#X obj 86 212 r \$0-bar;
#N canvas 472 154 526 376 weak 0;
#X obj 140 36 == 0;
#X obj 109 59 spigot;
#X obj 104 14 inlet;
#X obj 143 11 r \$0-odd-even;
#X obj 149 264 outlet;
#X obj 107 82 sel 2 6 9 0;
#X msg 55 136 -6 -3 0 2;
#X msg 128 136 -3 0 2 6;
#X msg 202 138 0 2 6 9;
#X msg 264 137 2 6 9 12;
#X connect 0 0 1 1;
#X connect 1 0 5 0;
#X connect 2 0 1 0;
#X connect 3 0 0 0;
#X connect 5 0 6 0;
#X connect 5 1 7 0;
#X connect 5 2 8 0;
#X connect 5 3 9 0;
#X connect 6 0 4 0;
#X connect 7 0 4 0;
#X connect 8 0 4 0;
#X connect 9 0 4 0;
#X restore 262 259 pd weak chords Dm;
#X obj 44 193 r \$0-notes;
#X obj 262 234 spigot;
#X obj 303 210 r \$0-bar;
#X obj 261 189 r \$0-notes;
#X obj 303 234 == 2;
#X obj 70 55 % 16;
#X obj 148 342 r \$0-notes;
#X obj 72 75 / 4;
#X obj 73 96 i;
#X floatatom 3 37 5 0 0 0 - - -;
#X obj 86 236 == 0;
#X obj 70 118 s \$0-bar;
#X obj 262 282 s \$0-chords;
#X obj 44 279 s \$0-chords;
#X obj 55 404 r \$0-chords;
#X obj 149 237 spigot;
#X obj 191 211 r \$0-bar;
#X obj 149 192 r \$0-notes;
#X obj 385 234 spigot;
#X obj 427 208 r \$0-bar;
#X obj 385 187 r \$0-notes;
#X obj 386 280 s \$0-chords;
#X obj 149 278 s \$0-chords;
#N canvas 494 163 534 384 weak 0;
#X obj 140 36 == 0;
#X obj 109 59 spigot;
#X obj 104 14 inlet;
#X obj 143 11 r \$0-odd-even;
#X obj 149 264 outlet;
#X obj 107 82 sel 1 4 7 9;
#X msg 55 136 -8 -5 -3 1;
#X msg 128 135 -5 -3 1 4;
#X msg 202 138 -3 1 4 7;
#X msg 266 137 1 4 7 9;
#X connect 0 0 1 1;
#X connect 1 0 5 0;
#X connect 2 0 1 0;
#X connect 3 0 0 0;
#X connect 5 0 6 0;
#X connect 5 1 7 0;
#X connect 5 2 8 0;
#X connect 5 3 9 0;
#X connect 6 0 4 0;
#X connect 7 0 4 0;
#X connect 8 0 4 0;
#X connect 9 0 4 0;
#X restore 149 256 pd weak chords A7;
#X obj 191 235 == 1;
#X obj 427 232 == 3;
#N canvas 472 154 534 384 weak 0;
#X obj 140 36 == 0;
#X obj 109 59 spigot;
#X obj 104 14 inlet;
#X obj 143 11 r \$0-odd-even;
#X obj 149 264 outlet;
#X obj 107 82 sel 2 5 7 11;
#X msg 55 136 -7 -5 -1 2;
#X msg 128 136 -5 -1 2 5;
#X msg 202 138 -1 2 5 7;
#X msg 264 137 2 5 7 11;
#X connect 0 0 1 1;
#X connect 1 0 5 0;
#X connect 2 0 1 0;
#X connect 3 0 0 0;
#X connect 5 0 6 0;
#X connect 5 1 7 0;
#X connect 5 2 8 0;
#X connect 5 3 9 0;
#X connect 6 0 4 0;
#X connect 7 0 4 0;
#X connect 8 0 4 0;
#X connect 9 0 4 0;
#X restore 386 257 pd weak chords G7;
#X obj 127 54 sel 15;
#X msg 101 35 0;
#X obj 165 379 spigot;
#X obj 219 344 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 221 320 init 1;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 1 0 17 0;
#X connect 1 0 32 0;
#X connect 2 0 1 1;
#X connect 4 0 9 0;
#X connect 5 0 19 0;
#X connect 6 0 1 0;
#X connect 6 0 5 0;
#X connect 8 0 3 0;
#X connect 9 0 10 0;
#X connect 10 0 7 0;
#X connect 10 1 7 1;
#X connect 12 0 11 0;
#X connect 12 1 11 1;
#X connect 13 0 12 0;
#X connect 14 0 6 1;
#X connect 15 0 9 1;
#X connect 16 0 36 0;
#X connect 17 0 8 0;
#X connect 17 1 28 0;
#X connect 18 0 16 0;
#X connect 20 0 13 0;
#X connect 21 0 33 0;
#X connect 22 0 35 0;
#X connect 23 0 18 0;
#X connect 24 0 22 0;
#X connect 25 0 27 0;
#X connect 26 0 24 0;
#X connect 27 0 24 1;
#X connect 28 0 30 0;
#X connect 28 0 50 0;
#X connect 29 0 52 0;
#X connect 30 0 31 0;
#X connect 31 0 34 0;
#X connect 33 0 18 1;
#X connect 37 0 9 0;
#X connect 38 0 46 0;
#X connect 39 0 47 0;
#X connect 40 0 38 0;
#X connect 41 0 49 0;
#X connect 42 0 48 0;
#X connect 43 0 41 0;
#X connect 46 0 45 0;
#X connect 47 0 38 1;
#X connect 48 0 41 1;
#X connect 49 0 44 0;
#X connect 50 0 51 0;
#X connect 51 0 1 1;
#X connect 52 0 4 0;
#X connect 53 0 52 1;
#X connect 54 0 53 0;