1 files changed, 53 insertions, 0 deletions
diff --git a/closestNote.pd b/closestNote.pd
new file mode 100644
index 0000000..f113c86
--- /dev/null
+++ b/closestNote.pd
@@ -0,0 +1,53 @@
+#N canvas 314 224 742 589 10;
+#X obj 173 244 + 12;
+#X obj 173 275 -;
+#X obj 141 179 t b a;
+#X obj 141 154 list append;
+#X obj 122 108 t f b f b;
+#X obj 359 20 inlet;
+#X obj 297 163 f;
+#X obj 177 326 min;
+#X obj 207 350 f;
+#X obj 143 385 f;
+#X obj 122 60 inlet;
+#X obj 122 417 +;
+#X obj 122 449 outlet;
+#X obj 301 263 f 12;
+#X text 390 105 minimum ( Each of the notes in the scale - the current
+input note );
+#X text 239 417 + the current input note;
+#X text 47 491 Need abs() to make it more accurate (such as rint()
+but for floats);
+#X text 317 298 Differences;
+#X obj 218 449 outlet;
+#X obj 361 46 loadbang;
+#X obj 173 223 expr fmod($f1 \, 12);
+#X obj 171 299 expr fmod($f1 \, 12);
+#X obj 297 186 expr fmod($f1 \, 12);
+#X obj 365 69 iemlib/dollarg;
+#X obj 171 200 zexy/drip;
+#X connect 0 0 1 0;
+#X connect 1 0 21 0;
+#X connect 2 0 9 0;
+#X connect 2 1 24 0;
+#X connect 3 0 2 0;
+#X connect 4 0 11 0;
+#X connect 4 1 3 0;
+#X connect 4 2 6 0;
+#X connect 4 3 13 0;
+#X connect 5 0 3 1;
+#X connect 6 0 22 0;
+#X connect 7 0 8 0;
+#X connect 8 0 7 1;
+#X connect 8 0 9 1;
+#X connect 9 0 11 1;
+#X connect 9 0 18 0;
+#X connect 10 0 4 0;
+#X connect 11 0 12 0;
+#X connect 13 0 7 1;
+#X connect 19 0 23 0;
+#X connect 20 0 0 0;
+#X connect 21 0 7 0;
+#X connect 22 0 1 1;
+#X connect 23 0 3 1;
+#X connect 24 0 20 0;