diff --git a/8indexcount.pd b/8indexcount.pd
new file mode 100755
index 0000000..b27e95e
--- /dev/null
+++ b/8indexcount.pd
@@ -0,0 +1,52 @@
+#N canvas 902 178 839 786 12;
+#X floatatom 94 461 5 0 0 0 - - -;
+#X floatatom 136 459 5 0 0 0 - - -;
+#X floatatom 177 459 5 0 0 0 - - -;
+#X obj 148 161 unpack f f f f f f f f;
+#X floatatom 222 460 5 0 0 0 - - -;
+#X floatatom 270 459 5 0 0 0 - - -;
+#X floatatom 313 460 5 0 0 0 - - -;
+#X floatatom 358 458 5 0 0 0 - - -;
+#X floatatom 411 459 5 0 0 0 - - -;
+#X obj 213 377 select 0 1 2 3 4 5 6 7;
+#X obj 450 253 counter;
+#X floatatom 456 287 5 0 0 0 - - -;
+#X floatatom 479 382 5 0 0 0 - - -;
+#X obj 449 324 % 8;
+#X floatatom 368 553 5 0 0 0 - - -;
+#X obj 186 97 inlet;
+#X text 253 59 Takes a list and BPM. Returns each index of the list
+by rhythm count;
+#X obj 366 610 outlet;
+#X obj 422 165 inlet;
+#X connect 0 0 14 0;
+#X connect 1 0 14 0;
+#X connect 2 0 14 0;
+#X connect 3 0 0 0;
+#X connect 3 1 1 0;
+#X connect 3 2 2 0;
+#X connect 3 3 4 0;
+#X connect 3 4 5 0;
+#X connect 3 5 6 0;
+#X connect 3 6 7 0;
+#X connect 3 7 8 0;
+#X connect 4 0 14 0;
+#X connect 5 0 14 0;
+#X connect 6 0 14 0;
+#X connect 7 0 14 0;
+#X connect 8 0 14 0;
+#X connect 9 0 0 0;
+#X connect 9 1 1 0;
+#X connect 9 2 2 0;
+#X connect 9 3 4 0;
+#X connect 9 4 5 0;
+#X connect 9 5 6 0;
+#X connect 9 6 7 0;
+#X connect 9 7 8 0;
+#X connect 10 0 11 0;
+#X connect 11 0 13 0;
+#X connect 13 0 12 0;
+#X connect 13 0 9 0;
+#X connect 14 0 17 0;
+#X connect 15 0 3 0;
+#X connect 18 0 10 0;
diff --git a/counter.pd b/counter.pd
new file mode 100755
index 0000000..7e1dc56
--- /dev/null
+++ b/counter.pd
@@ -0,0 +1,17 @@
+#N canvas 1014 294 450 647 12;
+#X obj 151 350 f;
+#X obj 197 354 + 1;
+#X obj 152 286 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X floatatom 149 394 5 0 0 0 - - -;
+#X msg 193 284 0;
+#X obj 149 221 inlet;
+#X obj 144 443 outlet;
+#X text 145 112 takes: signal;
+#X connect 0 0 1 0;
+#X connect 0 0 3 0;
+#X connect 1 0 0 1;
+#X connect 2 0 0 0;
+#X connect 3 0 6 0;
+#X connect 4 0 0 1;
+#X connect 5 0 2 0;
diff --git a/four_count.pd b/four_count.pd
new file mode 100755
index 0000000..111788d
--- /dev/null
+++ b/four_count.pd
@@ -0,0 +1,23 @@
+#N canvas 843 418 450 499 12;
+#X obj 145 124 counter;
+#X floatatom 145 160 5 0 0 0 - - -;
+#X floatatom 171 253 5 0 0 0 - - -;
+#X obj 145 206 % 4;
+#X obj 145 294 select 0 1 2 3;
+#X obj 147 77 inlet;
+#X text 128 42 Takes: signal \, metro rate;
+#X obj 140 354 outlet;
+#X obj 197 355 outlet;
+#X obj 247 355 outlet;
+#X obj 304 356 outlet;
+#X obj 362 361 outlet;
+#X connect 0 0 1 0;
+#X connect 1 0 3 0;
+#X connect 3 0 2 0;
+#X connect 3 0 4 0;
+#X connect 4 0 7 0;
+#X connect 4 1 8 0;
+#X connect 4 2 9 0;
+#X connect 4 3 10 0;
+#X connect 4 4 11 0;
+#X connect 5 0 0 0;
diff --git a/houchl.pd b/houchl.pd
new file mode 100644
index 0000000..97a172a
--- /dev/null
+++ b/houchl.pd
@@ -0,0 +1,59 @@
+#N canvas 603 251 1040 618 12;
+#N canvas 0 50 450 250 (subpatch) 0;
+#X array melody 16 float 3;
+#A 0 74 86 86 74 86 74 74 84 74 74 82 74 84 74 77 74;
+#X coords 0 120 16 0 200 140 1 0 0;
+#X restore 281 144 graph;
+#X floatatom 37 241 5 0 0 0 - - -;
+#X floatatom 37 305 5 0 0 0 - - -;
+#X obj 37 67 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1
+;
+#X floatatom 104 65 5 0 0 0 - - -;
+#X obj 37 107 metro 1000;
+#X msg 94 129 0;
+#X obj 37 162 f;
+#X obj 92 161 + 1;
+#X obj 37 334 mtof;
+#X floatatom 37 373 5 0 0 0 - - -;
+#X obj 152 406 line~;
+#X obj 38 470 *~;
+#X floatatom 37 187 5 0 0 0 - - -;
+#X msg 211 359 0 50;
+#X obj 37 417 osc~ 440;
+#X obj 38 26 inlet~;
+#X obj 108 30 inlet;
+#X obj 37 580 outlet~;
+#X obj 111 577 outlet;
+#X msg 152 359 1.7 60;
+#X msg 283 320 \; melody 0 74 86 86 74 86 74 74 84 74 74 82 74 84 74
+77 74 89;
+#N canvas 0 50 450 250 (subpatch) 0;
+#X array melody2 40 float 3;
+#A 0 85 78 78 85 78 78 85 78 86 78 85 78 78 85 78 78 85 78 86 78 84
+77 77 84 77 77 84 77 85 77 84 77 77 84 77 77 84 77 85 77;
+#X coords 0 110 40 0 200 140 1 0 0;
+#X restore 579 142 graph;
+#X obj 37 275 tabread melody2;
+#X msg 281 377 \; melody2 0 85 78 78 85 78 78 85 78 86 78 85 78 78
+85 78 78 85 78 86 78 84 77 77 84 77 77 84 77 85 77 84 77 77 84 77 77
+84 77 85 77;
+#X obj 37 215 % 40;
+#X connect 1 0 23 0;
+#X connect 2 0 9 0;
+#X connect 3 0 5 0;
+#X connect 4 0 5 1;
+#X connect 5 0 7 0;
+#X connect 6 0 7 1;
+#X connect 7 0 8 0;
+#X connect 7 0 13 0;
+#X connect 8 0 7 1;
+#X connect 9 0 10 0;
+#X connect 10 0 15 0;
+#X connect 11 0 12 1;
+#X connect 12 0 18 0;
+#X connect 13 0 25 0;
+#X connect 14 0 11 0;
+#X connect 15 0 12 0;
+#X connect 20 0 11 0;
+#X connect 23 0 2 0;
+#X connect 25 0 1 0;
diff --git a/johnsz2.pd b/johnsz2.pd
new file mode 100644
index 0000000..6b10b1d
--- /dev/null
+++ b/johnsz2.pd
@@ -0,0 +1,85 @@
+#N canvas 2488 66 968 718 12;
+#X obj 57 17 receive johnsz2_tempo;
+#X obj 334 17 receive johnsz2_control;
+#X obj 655 7 inlet;
+#X obj 339 583 outlet;
+#X obj 58 64 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 106 267 f;
+#X floatatom 106 291 5 0 0 0 - - -;
+#X obj 150 267 + 1;
+#X obj 106 317 % 16;
+#X floatatom 106 342 5 0 0 0 - - -;
+#X obj 106 377 tabread melody;
+#X floatatom 106 401 5 0 0 0 - - -;
+#X obj 106 487 osc~;
+#X obj 106 424 mtof;
+#X floatatom 106 448 5 0 0 0 - - -;
+#X obj 224 380 s mycoolbang;
+#X obj 171 97 tabread durations;
+#X floatatom 170 127 5 0 0 0 - - -;
+#X obj 173 47 r mycoolbang;
+#X obj 170 159 * 200;
+#X msg 162 472 0.005 200;
+#X msg 253 470 0 200;
+#X obj 190 505 line~;
+#X obj 110 539 *~;
+#X obj 403 58 list prepend set;
+#X obj 404 93 list trim;
+#X msg 399 126 1 2 3 4 5;
+#X obj 535 9 inlet~;
+#X obj 342 152 unpack f f f f f;
+#X floatatom 399 287 5 0 0 0 - - -;
+#X floatatom 412 267 5 0 0 0 - - -;
+#X floatatom 424 247 5 0 0 0 - - -;
+#X floatatom 438 227 5 0 0 0 - - -;
+#X floatatom 450 207 5 0 0 0 - - -;
+#N canvas 0 50 450 250 (subpatch) 0;
+#X array melody 16 float 3;
+#A 0 70 63 0 65 0 0 71 0 70 70 63 0 66 70 0 70;
+#X coords 0 127 16 0 200 140 1 0 0;
+#X restore 440 330 graph;
+#X msg 418 524 \; melody 0 60 62 64 65 67 69 71 72 73 74 75 76 77 78
+79 80;
+#N canvas 0 50 450 250 (subpatch) 0;
+#X array durations 16 float 3;
+#A 0 1 1 1 1 2 2 4 4 1 1 1 1 2 2 4 8;
+#X coords 0 10 16 0 200 140 1 0 0;
+#X restore 681 337 graph;
+#X text 498 489 the semicolon is really a shorthand notation for "send"
+;
+#X msg 486 627 \; durations 0 1 1 1 1 2 2 4 4 1 1 1 1 2 2 4 8;
+#X obj 119 591 outlet~;
+#X obj 96 225 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X msg 497 565 \; melody 0 70 63 0 65 0 0 71 0 70 70 63 0 66 70 0;
+#X connect 0 0 4 0;
+#X connect 1 0 24 0;
+#X connect 1 0 28 0;
+#X connect 4 0 40 0;
+#X connect 5 0 6 0;
+#X connect 5 0 7 0;
+#X connect 6 0 8 0;
+#X connect 7 0 5 1;
+#X connect 8 0 9 0;
+#X connect 9 0 10 0;
+#X connect 9 0 15 0;
+#X connect 10 0 11 0;
+#X connect 11 0 13 0;
+#X connect 12 0 23 0;
+#X connect 13 0 14 0;
+#X connect 14 0 12 0;
+#X connect 16 0 17 0;
+#X connect 17 0 19 0;
+#X connect 20 0 22 0;
+#X connect 21 0 22 0;
+#X connect 22 0 23 1;
+#X connect 23 0 39 0;
+#X connect 24 0 25 0;
+#X connect 25 0 26 0;
+#X connect 28 0 29 0;
+#X connect 28 1 30 0;
+#X connect 28 2 31 0;
+#X connect 28 3 32 0;
+#X connect 28 4 33 0;
+#X connect 40 0 5 0;
diff --git a/martse.pd b/martse.pd
new file mode 100644
index 0000000..446946f
--- /dev/null
+++ b/martse.pd
@@ -0,0 +1,55 @@
+#N canvas 656 102 506 657 12;
+#X obj 12 420 outlet~;
+#X obj 18 13 inlet~;
+#X obj 70 13 inlet;
+#X obj 85 420 outlet;
+#X obj 221 18 receive martse_tempo;
+#X obj 245 57 receive martse_control;
+#X obj 221 104 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X obj 246 92 list prepend set;
+#X obj 246 116 list trim;
+#X msg 245 149 1 2 3 4 5 6 7;
+#X obj 204 180 unpack f f f f f f f;
+#X floatatom 221 316 5 0 0 0 - - -;
+#X floatatom 245 294 5 0 0 0 - - -;
+#X floatatom 264 273 5 0 0 0 - - -;
+#X floatatom 284 250 5 0 0 0 - - -;
+#X floatatom 313 319 5 0 0 0 - - -;
+#X floatatom 341 296 5 0 0 0 - - -;
+#X floatatom 363 269 5 0 0 0 - - -;
+#X obj 21 193 random 1000;
+#X obj 21 217 + 40;
+#X obj 22 303 osc~;
+#X obj 21 364 *~;
+#X msg 54 330 0;
+#X msg 100 329 0.1;
+#X floatatom 21 262 5 0 0 0 - - -;
+#N canvas 1084 173 528 361 (subpatch) 0;
+#X array array1 20 float 3;
+#A 0 -0.50693 -0.163435 0 0.0637123 0 -0.00276816 -0.00276995 -0.324101
+-0.191136 -0.102493 -0.0969533 -0.0969529 -0.0969533 0 0 0 0 0 0 0
+;
+#X coords 0 1 20 -1 160 140 1 0 0;
+#X restore 166 343 graph;
+#X text 170 495 I wanted to transcribe a song to play \, but I wasn't
+sure how to do it;
+#X connect 4 0 6 0;
+#X connect 5 0 7 0;
+#X connect 6 0 18 0;
+#X connect 7 0 8 0;
+#X connect 8 0 9 0;
+#X connect 10 0 11 0;
+#X connect 10 1 12 0;
+#X connect 10 2 13 0;
+#X connect 10 3 14 0;
+#X connect 10 4 15 0;
+#X connect 10 5 16 0;
+#X connect 10 6 17 0;
+#X connect 18 0 19 0;
+#X connect 19 0 24 0;
+#X connect 20 0 21 0;
+#X connect 21 0 0 0;
+#X connect 22 0 21 1;
+#X connect 23 0 21 1;
+#X connect 24 0 20 0;
diff --git a/ortegm3.pd b/ortegm3.pd
new file mode 100755
index 0000000..8028a17
--- /dev/null
+++ b/ortegm3.pd
@@ -0,0 +1,25 @@
+#N canvas 950 0 958 958 12;
+#X obj 111 21 inlet;
+#X obj 61 345 outlet~;
+#X obj 116 345 outlet;
+#X obj 62 21 inlet~;
+#X obj 61 68 r ortegm3_tempo;
+#X obj 305 68 r ortegm3_control;
+#X obj 61 96 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 61 212 osc~;
+#X obj 61 246 *~;
+#X msg 96 227 0;
+#X msg 130 227 0.5;
+#X obj 61 120 random 700;
+#X obj 61 150 + 240;
+#X floatatom 61 180 5 0 0 0 - - -;
+#X connect 4 0 6 0;
+#X connect 6 0 11 0;
+#X connect 7 0 8 0;
+#X connect 8 0 1 0;
+#X connect 9 0 8 1;
+#X connect 10 0 8 1;
+#X connect 11 0 12 0;
+#X connect 12 0 13 0;
+#X connect 13 0 7 0;
diff --git a/persow.pd b/persow.pd
new file mode 100644
index 0000000..9497ddc
--- /dev/null
+++ b/persow.pd
@@ -0,0 +1,207 @@
+#N canvas 51 33 1349 964 12;
+#X obj 71 96 f;
+#X obj 101 96 + 1;
+#X floatatom 71 124 5 0 0 0 - - -;
+#X msg 37 97 0;
+#N canvas 0 50 450 250 (subpatch) 0;
+#X array Progression 8 float 3;
+#A 0 1 1 5 5 4 4 5 8;
+#X coords 0 9 8 -1 200 140 1 0 0;
+#X restore 417 64 graph;
+#X floatatom 71 200 5 0 0 0 - - -;
+#X obj 68 226 tabread Progression;
+#X floatatom 29 254 5 0 0 0 - - -;
+#X text 179 327 D minor: D + F + A;
+#X text 321 328 E minor: E + G + B;
+#X text 464 328 F Major: F + A + C;
+#X text 36 327 C Major: C + E + G;
+#X text 606 327 G Major: G + B + D;
+#X text 747 329 A minor: A + C + E;
+#X text 887 329 B diminished: B + D + F;
+#X obj 463 531 osc~;
+#X obj 497 531 osc~;
+#X obj 531 531 osc~;
+#X obj 553 559 *~;
+#X text 194 43 volume;
+#X obj 18 36 receive persow_tempo;
+#X obj 16 70 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 20 9 inlet~;
+#X obj 75 9 inlet;
+#X obj 72 174 % 8;
+#X obj 45 385 mtof;
+#X msg 45 359 60;
+#X obj 82 385 mtof;
+#X obj 120 385 mtof;
+#X obj 186 389 mtof;
+#X obj 223 389 mtof;
+#X obj 261 389 mtof;
+#X obj 331 390 mtof;
+#X obj 368 390 mtof;
+#X obj 406 390 mtof;
+#X obj 471 392 mtof;
+#X obj 508 392 mtof;
+#X obj 546 392 mtof;
+#X obj 609 393 mtof;
+#X obj 646 393 mtof;
+#X obj 684 393 mtof;
+#X obj 752 392 mtof;
+#X obj 789 392 mtof;
+#X obj 827 392 mtof;
+#X obj 905 392 mtof;
+#X obj 942 392 mtof;
+#X obj 980 392 mtof;
+#X text 251 33 Number corresponds to;
+#X text 251 51 Chord in C Major;
+#X text 251 69 0 - SILENT;
+#X text 251 99 2 - D minor;
+#X text 251 117 3 - E minor;
+#X text 251 131 4 - F Major;
+#X text 251 148 5 - G Major;
+#X text 251 162 6 - A minor;
+#X text 251 178 7 - B diminished;
+#X obj 225 77 vsl 15 128 0 0.15 0 0 empty empty empty 0 -9 0 10 -262144
+-1 -1 1300 1;
+#X obj 453 564 *~;
+#X obj 490 563 *~;
+#X msg 82 359 64;
+#X msg 120 359 67;
+#X msg 186 363 62;
+#X msg 223 363 65;
+#X msg 261 363 69;
+#X msg 331 364 64;
+#X msg 368 364 67;
+#X msg 406 364 71;
+#X msg 508 366 69;
+#X msg 609 367 67;
+#X msg 646 366 71;
+#X msg 752 366 69;
+#X msg 905 366 71;
+#X msg 471 366 65;
+#X msg 546 366 72;
+#X msg 684 367 74;
+#X msg 789 366 72;
+#X msg 827 367 76;
+#X msg 942 366 74;
+#X msg 981 366 77;
+#X obj 69 253 select 0 1 2 3 4 5 6 7 8;
+#X obj 1028 391 mtof;
+#X obj 1065 391 mtof;
+#X obj 1103 391 mtof;
+#X msg 1028 365 72;
+#X msg 1065 365 76;
+#X msg 1104 365 79;
+#X obj 44 464 mtof;
+#X obj 81 464 mtof;
+#X obj 119 464 mtof;
+#X msg 44 438 0;
+#X msg 82 438 0;
+#X msg 119 438 0;
+#X text 251 84 1 - C Major;
+#X text 251 193 8 - C Major';
+#X obj 482 607 dac~;
+#X msg 411 208 \; Progression 0 1 1 5 5 4 4 5 8;
+#X connect 0 0 1 0;
+#X connect 0 0 2 0;
+#X connect 1 0 0 1;
+#X connect 2 0 24 0;
+#X connect 3 0 0 0;
+#X connect 5 0 6 0;
+#X connect 6 0 7 0;
+#X connect 6 0 79 0;
+#X connect 15 0 57 0;
+#X connect 16 0 58 0;
+#X connect 17 0 18 0;
+#X connect 18 0 94 0;
+#X connect 18 0 94 1;
+#X connect 20 0 21 0;
+#X connect 21 0 0 0;
+#X connect 24 0 5 0;
+#X connect 25 0 15 0;
+#X connect 26 0 25 0;
+#X connect 27 0 16 0;
+#X connect 28 0 17 0;
+#X connect 29 0 15 0;
+#X connect 30 0 16 0;
+#X connect 31 0 17 0;
+#X connect 32 0 15 0;
+#X connect 33 0 16 0;
+#X connect 34 0 17 0;
+#X connect 35 0 15 0;
+#X connect 36 0 16 0;
+#X connect 37 0 17 0;
+#X connect 38 0 15 0;
+#X connect 39 0 16 0;
+#X connect 40 0 17 0;
+#X connect 41 0 15 0;
+#X connect 42 0 16 0;
+#X connect 43 0 17 0;
+#X connect 44 0 15 0;
+#X connect 45 0 16 0;
+#X connect 46 0 17 0;
+#X connect 56 0 57 1;
+#X connect 56 0 58 1;
+#X connect 56 0 18 1;
+#X connect 57 0 94 0;
+#X connect 57 0 94 1;
+#X connect 58 0 94 0;
+#X connect 58 0 94 1;
+#X connect 59 0 27 0;
+#X connect 60 0 28 0;
+#X connect 61 0 29 0;
+#X connect 62 0 30 0;
+#X connect 63 0 31 0;
+#X connect 64 0 32 0;
+#X connect 65 0 33 0;
+#X connect 66 0 34 0;
+#X connect 67 0 36 0;
+#X connect 68 0 38 0;
+#X connect 69 0 39 0;
+#X connect 70 0 41 0;
+#X connect 71 0 44 0;
+#X connect 72 0 35 0;
+#X connect 73 0 37 0;
+#X connect 74 0 40 0;
+#X connect 75 0 42 0;
+#X connect 76 0 43 0;
+#X connect 77 0 45 0;
+#X connect 78 0 46 0;
+#X connect 79 0 89 0;
+#X connect 79 0 90 0;
+#X connect 79 0 91 0;
+#X connect 79 1 26 0;
+#X connect 79 1 59 0;
+#X connect 79 1 60 0;
+#X connect 79 2 61 0;
+#X connect 79 2 62 0;
+#X connect 79 2 63 0;
+#X connect 79 3 64 0;
+#X connect 79 3 65 0;
+#X connect 79 3 66 0;
+#X connect 79 4 72 0;
+#X connect 79 4 67 0;
+#X connect 79 4 73 0;
+#X connect 79 5 68 0;
+#X connect 79 5 69 0;
+#X connect 79 5 74 0;
+#X connect 79 6 70 0;
+#X connect 79 6 75 0;
+#X connect 79 6 76 0;
+#X connect 79 7 71 0;
+#X connect 79 7 77 0;
+#X connect 79 7 78 0;
+#X connect 79 8 83 0;
+#X connect 79 8 84 0;
+#X connect 79 8 85 0;
+#X connect 80 0 15 0;
+#X connect 81 0 16 0;
+#X connect 82 0 17 0;
+#X connect 83 0 80 0;
+#X connect 84 0 81 0;
+#X connect 85 0 82 0;
+#X connect 86 0 15 0;
+#X connect 87 0 16 0;
+#X connect 88 0 17 0;
+#X connect 89 0 86 0;
+#X connect 90 0 87 0;
+#X connect 91 0 88 0;
diff --git a/plancs.pd b/plancs.pd
index cfa4b83..7f09238 100644
--- a/plancs.pd
+++ b/plancs.pd
@@ -1,4 +1,4 @@
-#N canvas 288 23 1392 965 12;
+#N canvas 498 2 1392 965 12;
 #X obj 54 38 inlet~;
 #X obj 110 38 inlet;
 #X obj 110 658 outlet;
@@ -54,12 +54,8 @@
 #X text 527 480 on;
 #X obj 239 467 *~ 1.25;
 #X obj 127 467 *~ 0.05;
-#X obj 450 608 throw~ plancs_audio_1;
-#X obj 602 450 loadbang;
-#X text 535 419 ROB - need to loadbang your volume on;
 #X connect 4 0 10 0;
 #X connect 6 0 3 0;
-#X connect 6 0 41 0;
 #X connect 7 0 8 0;
 #X connect 8 0 36 0;
 #X connect 10 0 11 0;
@@ -89,4 +85,3 @@
 #X connect 36 0 6 0;
 #X connect 39 0 6 0;
 #X connect 40 0 6 0;
-#X connect 42 0 18 0;
diff --git a/playsound.pd b/playsound.pd
new file mode 100755
index 0000000..f79dbae
--- /dev/null
+++ b/playsound.pd
@@ -0,0 +1,11 @@
+#N canvas 1022 54 770 914 12;
+#X obj 87 194 osc~ 220;
+#X obj 88 117 inlet;
+#X obj 87 399 outlet~;
+#X obj 87 293 *~;
+#X text 32 48 Inputs: Frequency \, Volume;
+#X obj 226 127 inlet~;
+#X connect 0 0 3 0;
+#X connect 1 0 0 0;
+#X connect 3 0 2 0;
+#X connect 5 0 3 1;
diff --git a/rothgj.pd b/rothgj.pd
new file mode 100644
index 0000000..c717908
--- /dev/null
+++ b/rothgj.pd
@@ -0,0 +1,37 @@
+#N canvas 900 52 987 848 12;
+#X obj 13 17 inlet~;
+#X obj 65 17 inlet;
+#X obj 5 315 outlet~;
+#X obj 61 315 outlet;
+#X obj 5 69 receive rothgj_tempo;
+#X obj 260 57 receive rothgj_control;
+#X obj 5 98 f;
+#X obj 31 98 + 1;
+#X obj 5 130 % 8;
+#N canvas 0 50 450 250 (subpatch) 0;
+#X array arrpegio 8 float 3;
+#A 0 60 64 67 60 64 67 60 64;
+#X coords 0 0 8 127 200 140 1 0 0;
+#X restore 191 120 graph;
+#X msg 184 270 \; arrpegio 0 60 64 67 60 64 67 60 64;
+#X obj 5 159 tabread arrpegio;
+#X floatatom 5 183 5 0 0 0 - - -;
+#X obj 5 206 mtof;
+#X obj 5 235 osc~;
+#X obj 5 271 *~;
+#X obj 55 252 line~;
+#X msg 55 224 0 10;
+#X msg 97 224 0.4 10;
+#X connect 4 0 6 0;
+#X connect 6 0 7 0;
+#X connect 6 0 8 0;
+#X connect 7 0 6 1;
+#X connect 8 0 11 0;
+#X connect 11 0 12 0;
+#X connect 12 0 13 0;
+#X connect 13 0 14 0;
+#X connect 14 0 15 0;
+#X connect 15 0 2 0;
+#X connect 16 0 15 1;
+#X connect 17 0 16 0;
+#X connect 18 0 16 0;
diff --git a/schans2.pd b/schans2.pd
new file mode 100644
index 0000000..d87c2f1
--- /dev/null
+++ b/schans2.pd
@@ -0,0 +1,97 @@
+#N canvas 953 0 958 947 12;
+#X obj 41 20 inlet~;
+#X obj 101 20 inlet;
+#X obj 527 863 outlet;
+#X obj 717 20 receive schans2_tempo;
+#X obj 772 59 receive schans2_control;
+#X obj 717 61 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 302 341 osc~ 440;
+#X obj 717 188 i;
+#X obj 776 187 + 1;
+#X floatatom 717 218 5 0 0 0 - - -;
+#X msg 735 146 0;
+#X floatatom 717 276 5 0 0 0 - - -;
+#X obj 395 537 *~;
+#X obj 717 246 % 4;
+#X obj 646 341 == 0;
+#X obj 684 341 == 1;
+#X obj 759 341 == 3;
+#X obj 722 341 == 2;
+#X obj 646 375 / 10;
+#X obj 684 375 / 10;
+#X obj 722 375 / 10;
+#X obj 759 375 / 10;
+#X floatatom 646 405 5 0 0 0 - - -;
+#X floatatom 684 405 5 0 0 0 - - -;
+#X floatatom 722 405 5 0 0 0 - - -;
+#X floatatom 759 405 5 0 0 0 - - -;
+#X obj 209 341 osc~ 146.832;
+#X obj 209 435 *~;
+#X obj 433 538 *~;
+#X obj 367 341 osc~ 415.305;
+#X obj 471 538 *~;
+#X obj 460 341 osc~ 391.995;
+#X obj 508 538 *~;
+#X obj 553 341 osc~ 349.228;
+#X msg 227 406 0.1;
+#X obj 636 474 line~;
+#X obj 681 474 line~;
+#X obj 725 474 line~;
+#X obj 769 474 line~;
+#X msg 626 439 \$1 50;
+#X msg 680 439 \$1 50;
+#X msg 726 439 \$1 50;
+#X msg 778 439 \$1 50;
+#X obj 227 374 loadbang;
+#X text 227 317 D3;
+#X text 305 317 A4;
+#X text 378 318 Ab4;
+#X text 474 318 G4;
+#X text 570 318 F4;
+#X text 737 120 Reset counter;
+#X obj 454 863 outlet~;
+#X connect 3 0 5 0;
+#X connect 5 0 7 0;
+#X connect 6 0 12 0;
+#X connect 7 0 8 0;
+#X connect 7 0 9 0;
+#X connect 8 0 7 1;
+#X connect 9 0 13 0;
+#X connect 10 0 7 1;
+#X connect 11 0 14 0;
+#X connect 11 0 15 0;
+#X connect 11 0 17 0;
+#X connect 11 0 16 0;
+#X connect 12 0 50 0;
+#X connect 13 0 11 0;
+#X connect 14 0 18 0;
+#X connect 15 0 19 0;
+#X connect 16 0 21 0;
+#X connect 17 0 20 0;
+#X connect 18 0 22 0;
+#X connect 19 0 23 0;
+#X connect 20 0 24 0;
+#X connect 21 0 25 0;
+#X connect 22 0 39 0;
+#X connect 23 0 40 0;
+#X connect 24 0 41 0;
+#X connect 25 0 42 0;
+#X connect 26 0 27 0;
+#X connect 27 0 50 0;
+#X connect 28 0 50 0;
+#X connect 29 0 28 0;
+#X connect 30 0 50 0;
+#X connect 31 0 30 0;
+#X connect 32 0 50 0;
+#X connect 33 0 32 0;
+#X connect 34 0 27 1;
+#X connect 35 0 12 1;
+#X connect 36 0 28 1;
+#X connect 37 0 30 1;
+#X connect 38 0 32 1;
+#X connect 39 0 35 0;
+#X connect 40 0 36 0;
+#X connect 41 0 37 0;
+#X connect 42 0 38 0;
+#X connect 43 0 34 0;
diff --git a/takakh.pd b/takakh.pd
new file mode 100755
index 0000000..18ff8c5
--- /dev/null
+++ b/takakh.pd
@@ -0,0 +1,116 @@
+#N canvas -17 16 1703 952 12;
+#N canvas 0 50 450 250 (subpatch) 0;
+#X array melody 4 float 3;
+#A 0 85.6 49.6 32.5 76.6;
+#X coords 0 1 4 127 200 140 1 0 0;
+#X restore 122 136 graph;
+#X obj 767 886 playsound;
+#X obj 768 842 mtof;
+#X obj 842 845 line~;
+#X obj 575 565 tabread melody;
+#X floatatom 575 616 5 0 0 0 - - -;
+#X obj 575 478 8indexcount;
+#X msg 845 721 0 50;
+#X obj 575 656 - 12;
+#X obj 575 520 % 4;
+#X text 620 653 Lowering by an octave;
+#X text 668 478 Repeatedly returns the element per count;
+#X obj 355 187 vradio 20 1 1 3 empty empty empty 0 -13 0 13 -262144
+-1 -1 0;
+#X floatatom 359 371 5 0 0 0 - - -;
+#X obj 359 410 send notemode;
+#X text 355 158 Note Mode;
+#X obj 1045 129 receive notemode;
+#X obj 1030 276 select 0 1 2;
+#X floatatom 1033 204 5 0 0 0 - - -;
+#X obj 1135 272 select 0 1 2;
+#X floatatom 1126 204 5 0 0 0 - - -;
+#X floatatom 1218 206 5 0 0 0 - - -;
+#X obj 1232 276 select 0 1 2;
+#X floatatom 1324 219 5 0 0 0 - - -;
+#X obj 1340 274 select 0 1 2;
+#X obj 1195 131 four_count .......................;
+#X msg 749 365 5 3 7 1 34 6 8 6 4;
+#X obj 1152 608 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X obj 1165 724 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X msg 1189 586 1;
+#X floatatom 1205 748 5 0 0 0 - - -;
+#X msg 1178 540 0 60;
+#X text 940 681 default volume;
+#X text 843 679 mute;
+#X obj 841 62 inlet;
+#X obj 715 428 receive takakh_tempo;
+#X obj 1270 73 receive takakh_tempo;
+#X obj 764 965 outlet~;
+#X obj 575 327 receive takakh_control;
+#X obj 1191 643 delay 1 60 msec;
+#X msg 906 725 0.15 50;
+#X text 547 261 Receive takakh_control expects a list of 8 or less
+ints;
+#X text 1295 723 Hardcoded tempo value.;
+#X obj 762 315 loadbang;
+#X obj 1257 675 loadbang;
+#X msg 1250 720 400;
+#X msg 1165 791 0.15 \$1;
+#X text 384 186 Fadein;
+#X obj 782 59 inlet~;
+#X obj 770 98 outlet;
+#X text 383 207 Legato;
+#X text 385 228 Mute;
+#X text 98 507 In this patch \, any given list of 8 or less numbers
+are mapped to each melody in the array. You can create any melody with
+combinations of the above 4 array values (midi numbers).;
+#X connect 1 0 37 0;
+#X connect 2 0 1 0;
+#X connect 3 0 1 1;
+#X connect 4 0 5 0;
+#X connect 5 0 8 0;
+#X connect 6 0 9 0;
+#X connect 7 0 3 0;
+#X connect 8 0 2 0;
+#X connect 9 0 4 0;
+#X connect 12 0 13 0;
+#X connect 13 0 14 0;
+#X connect 16 0 18 0;
+#X connect 16 0 20 0;
+#X connect 16 0 21 0;
+#X connect 16 0 23 0;
+#X connect 17 0 31 0;
+#X connect 17 1 40 0;
+#X connect 17 2 7 0;
+#X connect 18 0 17 0;
+#X connect 19 0 31 0;
+#X connect 19 1 40 0;
+#X connect 19 2 7 0;
+#X connect 20 0 19 0;
+#X connect 21 0 22 0;
+#X connect 22 0 31 0;
+#X connect 22 1 40 0;
+#X connect 22 2 7 0;
+#X connect 23 0 24 0;
+#X connect 24 0 31 0;
+#X connect 24 1 40 0;
+#X connect 24 2 7 0;
+#X connect 25 0 18 0;
+#X connect 25 1 20 0;
+#X connect 25 2 21 0;
+#X connect 25 3 23 0;
+#X connect 26 0 6 0;
+#X connect 29 0 39 0;
+#X connect 30 0 46 0;
+#X connect 31 0 3 0;
+#X connect 31 0 27 0;
+#X connect 31 0 29 0;
+#X connect 35 0 6 1;
+#X connect 36 0 25 0;
+#X connect 38 0 6 0;
+#X connect 39 0 28 0;
+#X connect 39 0 30 0;
+#X connect 40 0 3 0;
+#X connect 43 0 26 0;
+#X connect 44 0 45 0;
+#X connect 45 0 30 0;
+#X connect 46 0 3 0;
+#X coords 0 -1 1 1 360 200 1 100 100;
diff --git a/zhaox10.pd b/zhaox10.pd
new file mode 100644
index 0000000..49d1bf2
--- /dev/null
+++ b/zhaox10.pd
@@ -0,0 +1,45 @@
+#N canvas 578 296 636 532 12;
+#X obj 5 56 inlet;
+#X obj 57 58 inlet;
+#X obj 8 452 outlet~;
+#X obj 67 452 outlet~;
+#X obj 334 131 receive zhaox10_tempo;
+#X obj 366 164 receive zhaox10_control;
+#X obj 19 200 % 6;
+#X obj 19 257 tabread array1;
+#X floatatom 19 175 5 0 0 0 - - -;
+#X floatatom 19 229 5 0 0 0 - - -;
+#X floatatom 19 289 5 0 0 0 - - -;
+#X obj 19 319 mtof;
+#X floatatom 19 350 5 0 0 0 - - -;
+#X obj 19 373 osc~ 440;
+#X obj 19 417 *~;
+#X msg 138 347 0.4 50;
+#X msg 184 347 0 50;
+#X obj 135 386 line~;
+#X obj 242 49 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#N canvas 0 22 450 278 (subpatch) 0;
+#X array array1 6 float 3;
+#A 0 65 65 66 61 65 67;
+#X coords 0 128 6 0 200 140 1 0 0;
+#X restore 824 44 graph;
+#X msg 825 205 \; array1 0 65 65 66 65 61 67;
+#X obj 19 104 random 250;
+#X obj 19 145 + 25;
+#X connect 4 0 18 0;
+#X connect 6 0 9 0;
+#X connect 7 0 10 0;
+#X connect 8 0 6 0;
+#X connect 9 0 7 0;
+#X connect 10 0 11 0;
+#X connect 11 0 12 0;
+#X connect 12 0 13 0;
+#X connect 13 0 14 0;
+#X connect 14 0 2 0;
+#X connect 15 0 17 0;
+#X connect 16 0 17 0;
+#X connect 17 0 14 1;
+#X connect 18 0 21 0;
+#X connect 21 0 22 0;
+#X connect 22 0 8 0;