1 files changed, 120 insertions, 0 deletions
diff --git a/s-chordarp.pd b/s-chordarp.pd
new file mode 100644
index 0000000..c5b6c72
--- /dev/null
+++ b/s-chordarp.pd
@@ -0,0 +1,120 @@
+#N canvas 508 82 595 588 10;
+#X obj 460 3 table \$0/notes 127;
+#X obj 449 94 tabwrite \$0/notes;
+#X obj 449 47 unpack f f;
+#X obj 405 3 inlet;
+#X obj 6 39 nbx 3 14 0 127 0 1 \$0/speed \$1/speed speed 0 -6 0 8 -260818
+-1 -1 80 256;
+#X obj 319 547 outlet;
+#X obj 289 238 f;
+#X obj 320 238 + 1;
+#X obj 449 420 mtof;
+#X obj 449 442 s-ftoms;
+#X obj 289 305 tabread \$0/notes;
+#X msg 311 211 0;
+#X obj 289 285 t f f;
+#X obj 449 398 + 1;
+#X obj 449 377 r \$0/speed;
+#X obj 289 418 sel 0;
+#X obj 319 526 pack f f;
+#X obj 203 347 spigot;
+#X obj 240 306 < 127;
+#X msg 340 211 0;
+#X obj 270 376 spigot;
+#X obj 449 70 swap;
+#X obj 289 71 unpack f f;
+#X obj 289 189 t f b b;
+#X obj 240 327 t f f;
+#X obj 319 440 t f b b;
+#X msg 376 440 1;
+#X obj 270 348 sel 0;
+#X msg 270 397 0;
+#X obj 289 261 t f f;
+#X obj 319 462 swap;
+#X obj 391 485 t b b b;
+#X msg 435 505 0;
+#X obj 9 448 sssad/auto \$0/speed \$1/speed;
+#X obj 391 464 delay 100;
+#X obj 427 126 sel 0;
+#X obj 289 95 swap;
+#X obj 289 117 sel 0;
+#X obj 289 167 f;
+#X msg 319 137 bang;
+#X obj 405 23 t l l l;
+#X msg 471 147 1;
+#X msg 427 146 -1;
+#X obj 427 166 t b f;
+#X obj 471 167 t b f;
+#X obj 362 105 unpack f f;
+#X obj 457 217 + 1;
+#X obj 427 217 0;
+#X obj 457 240 sel 0;
+#X msg 457 261 0;
+#X connect 2 0 21 0;
+#X connect 2 1 21 1;
+#X connect 3 0 40 0;
+#X connect 6 0 7 0;
+#X connect 6 0 29 0;
+#X connect 7 0 6 1;
+#X connect 8 0 9 0;
+#X connect 9 0 34 1;
+#X connect 10 0 15 0;
+#X connect 11 0 6 1;
+#X connect 12 0 10 0;
+#X connect 12 1 30 1;
+#X connect 13 0 8 0;
+#X connect 14 0 13 0;
+#X connect 15 0 17 0;
+#X connect 15 1 25 0;
+#X connect 16 0 5 0;
+#X connect 17 0 6 0;
+#X connect 18 0 24 0;
+#X connect 19 0 20 1;
+#X connect 20 0 28 0;
+#X connect 21 0 1 0;
+#X connect 21 1 1 1;
+#X connect 22 0 36 0;
+#X connect 22 1 36 1;
+#X connect 23 0 6 0;
+#X connect 23 1 11 0;
+#X connect 23 2 19 0;
+#X connect 24 0 17 1;
+#X connect 24 1 27 0;
+#X connect 25 0 30 0;
+#X connect 25 1 34 0;
+#X connect 25 2 26 0;
+#X connect 26 0 20 1;
+#X connect 27 0 20 0;
+#X connect 28 0 23 0;
+#X connect 29 0 12 0;
+#X connect 29 1 18 0;
+#X connect 30 0 16 0;
+#X connect 30 1 16 1;
+#X connect 31 0 6 0;
+#X connect 31 1 16 0;
+#X connect 31 2 32 0;
+#X connect 32 0 16 1;
+#X connect 34 0 31 0;
+#X connect 35 0 42 0;
+#X connect 35 1 41 0;
+#X connect 36 0 37 0;
+#X connect 36 1 38 1;
+#X connect 37 1 39 0;
+#X connect 38 0 23 0;
+#X connect 39 0 38 0;
+#X connect 40 0 22 0;
+#X connect 40 1 45 0;
+#X connect 40 2 2 0;
+#X connect 41 0 44 0;
+#X connect 42 0 43 0;
+#X connect 43 0 47 0;
+#X connect 43 1 46 1;
+#X connect 44 0 47 0;
+#X connect 44 1 46 1;
+#X connect 45 1 35 0;
+#X connect 46 0 47 1;
+#X connect 46 0 48 0;
+#X connect 47 0 46 0;
+#X connect 48 0 49 0;
+#X connect 49 0 20 1;
+#X coords 0 -1 1 1 85 60 1 0 0;