From 310e5e67097d8639851ee95a284206ce6809d3bd Mon Sep 17 00:00:00 2001
From: Rob Hamilton <hamilr4@rpi.edu>
Date: Tue, 9 Jun 2020 14:22:16 -0400
Subject: [PATCH] Tuesday Masheen v.0.1 update

---
 8indexcount.pd |  52 +++++++++++++
 counter.pd     |  17 ++++
 four_count.pd  |  23 ++++++
 houchl.pd      |  59 ++++++++++++++
 johnsz2.pd     |  85 ++++++++++++++++++++
 martse.pd      |  55 +++++++++++++
 ortegm3.pd     |  25 ++++++
 persow.pd      | 207 +++++++++++++++++++++++++++++++++++++++++++++++++
 plancs.pd      |   7 +-
 playsound.pd   |  11 +++
 rothgj.pd      |  37 +++++++++
 schans2.pd     |  97 +++++++++++++++++++++++
 takakh.pd      | 116 +++++++++++++++++++++++++++
 zhaox10.pd     |  45 +++++++++++
 14 files changed, 830 insertions(+), 6 deletions(-)
 create mode 100755 8indexcount.pd
 create mode 100755 counter.pd
 create mode 100755 four_count.pd
 create mode 100644 houchl.pd
 create mode 100644 johnsz2.pd
 create mode 100644 martse.pd
 create mode 100755 ortegm3.pd
 create mode 100644 persow.pd
 create mode 100755 playsound.pd
 create mode 100644 rothgj.pd
 create mode 100644 schans2.pd
 create mode 100755 takakh.pd
 create mode 100644 zhaox10.pd

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;