From 0f786890dd6fca384ddca7aad0a9e3b7f2859dc1 Mon Sep 17 00:00:00 2001
From: Nihilazo <nico@itwont.work>
Date: Tue, 21 Sep 2021 21:39:49 +0100
Subject: [PATCH] scale thing is about to go CRAZY

---
 scale-thing.pd | 114 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 114 insertions(+)
 create mode 100644 scale-thing.pd

diff --git a/scale-thing.pd b/scale-thing.pd
new file mode 100644
index 0000000..ee44dd2
--- /dev/null
+++ b/scale-thing.pd
@@ -0,0 +1,114 @@
+#N canvas 635 134 972 740 12;
+#N canvas 1287 785 450 250 (subpatch) 0;
+#X array scale 8 float 3;
+#A 0 0 2 4 5 7 9 11 12;
+#X coords 0 0 8 12 200 140 1 0 0;
+#X restore 594 89 graph;
+#X obj 201 393 tabread scale;
+#X obj 201 564 noteout;
+#X floatatom 273 555 5 0 0 0 - - -;
+#X floatatom 217 247 5 0 0 0 - - -;
+#X obj 255 299 + 2;
+#X obj 217 271 t f f f;
+#X obj 466 291 + 4;
+#X obj 150 388 * 12;
+#X obj 150 414 +;
+#X obj 169 322 t f f;
+#X obj 352 390 tabread scale;
+#X obj 301 385 * 12;
+#X obj 301 411 +;
+#X obj 320 319 t f f;
+#X obj 498 390 tabread scale;
+#X obj 466 319 t f f;
+#X obj 456 416 +;
+#X obj 201 509 makenote 127 200;
+#X obj 452 389 * 12;
+#X obj 201 367 mod 7;
+#X obj 150 363 div 7;
+#X obj 301 360 div 7;
+#X obj 352 364 mod 7;
+#X obj 452 364 div 7;
+#X obj 498 364 mod 7;
+#X obj 609 635 array set scale;
+#X msg 608 423 0 2 4 5 7 9 11 12;
+#X text 738 420 major;
+#X text 759 543 minor;
+#X msg 630 543 0 2 3 5 7 8 10 12;
+#X obj 83 36 grid;
+#X obj 115 94 route 1;
+#X obj 115 119 unpack f f;
+#X obj 217 202 spigot;
+#X msg 149 9 connect;
+#X obj 201 459 + 60;
+#X obj 256 174 < 7;
+#X obj 27 13 r grid;
+#X msg 9 97 set \$2 \$3 \$1;
+#X obj 9 122 s grid;
+#X text 745 495 lydian;
+#X msg 619 495 0 2 4 6 7 9 11 12;
+#X text 235 485 root;
+#X obj 182 154 t f f;
+#X obj 83 61 t a a;
+#X text 374 10 thingy for playing chords. TODO more scales \, chord
+types \, inversions \, extensions \, chromatic notes \, the fun chord
+stuff. Also better interface.;
+#X msg 612 449 0 2 3 5 7 9 10 12;
+#X text 740 446 dorian;
+#X msg 617 472 0 1 3 5 7 8 10 12;
+#X text 741 469 phrygian;
+#X msg 624 519 0 2 4 5 7 9 10 12;
+#X text 749 519 mixolydian;
+#X msg 635 567 0 1 3 5 6 8 10 12;
+#X text 765 568 locrian;
+#X obj 201 484 + 0;
+#X connect 1 0 9 1;
+#X connect 3 0 2 2;
+#X connect 4 0 6 0;
+#X connect 5 0 14 0;
+#X connect 6 0 10 0;
+#X connect 6 1 5 0;
+#X connect 6 2 7 0;
+#X connect 7 0 16 0;
+#X connect 8 0 9 0;
+#X connect 9 0 36 0;
+#X connect 10 0 21 0;
+#X connect 10 1 20 0;
+#X connect 11 0 13 1;
+#X connect 12 0 13 0;
+#X connect 13 0 36 0;
+#X connect 14 0 22 0;
+#X connect 14 1 23 0;
+#X connect 15 0 17 1;
+#X connect 16 0 24 0;
+#X connect 16 1 25 0;
+#X connect 17 0 36 0;
+#X connect 18 0 2 0;
+#X connect 18 1 2 1;
+#X connect 19 0 17 0;
+#X connect 20 0 1 0;
+#X connect 21 0 8 0;
+#X connect 22 0 12 0;
+#X connect 23 0 11 0;
+#X connect 24 0 19 0;
+#X connect 25 0 15 0;
+#X connect 27 0 26 0;
+#X connect 30 0 26 0;
+#X connect 31 0 45 0;
+#X connect 32 0 33 0;
+#X connect 33 0 44 0;
+#X connect 34 0 4 0;
+#X connect 35 0 31 0;
+#X connect 36 0 55 0;
+#X connect 37 0 34 1;
+#X connect 38 0 31 0;
+#X connect 39 0 40 0;
+#X connect 42 0 26 0;
+#X connect 44 0 34 0;
+#X connect 44 1 37 0;
+#X connect 45 0 39 0;
+#X connect 45 1 32 0;
+#X connect 47 0 26 0;
+#X connect 49 0 26 0;
+#X connect 51 0 26 0;
+#X connect 53 0 26 0;
+#X connect 55 0 18 0;