From 5dfdbf121432f940f7adf3b2a81e9476250235b0 Mon Sep 17 00:00:00 2001
From: Lumi Pakkanen <lumi.pakkanen@gmail.com>
Date: Tue, 16 Apr 2024 16:39:51 +0300
Subject: [PATCH] Update machine[6] preset with a CPS detempering

Update Werckmeister III preset with an exact version that gets converted to cents for display.

Update Akselai's role to quality assurance.

Co-authored-by: akselai <underscore.taroumaru@gmail.com>
---
 src/presets.json        | 4 ++--
 src/views/AboutView.vue | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/presets.json b/src/presets.json
index b5cfa4b0..603cad5b 100644
--- a/src/presets.json
+++ b/src/presets.json
@@ -141,7 +141,7 @@
   },
   "werckmeisteriii": {
     "name": "Werckmeister III (1691)",
-    "source": "701.955 white 'C'\n701.955 white 'G'\n701.955 - 5.865 white 'D'\n701.955 white 'A'\n701.955 white 'E'\n701.955 white 'B'\n701.955 black 'F♯'\n701.955 black 'C♯'\n701.955 black 'G♯'\n701.955 - 5.865 black 'D♯'\n701.955 - 5.865 black 'A♯'\nstack()\n\n1200. white 'F'\nreduce()\nsort()\n",
+    "source": "{\n  const pythComma = aa1 - M2\n  const flatFif = P5 - pythComma / 4\n  P5 white 'C'\n  P5 white 'G'\n  flatFif white 'D'\n  P5 white 'A'\n  P5 white 'E'\n  P5 white 'B'\n  P5 black 'F♯'\n  P5 black 'C♯'\n  P5 black 'G♯'\n  flatFif black 'D♯'\n  flatFif black 'A♯'\n  stack()\n  P8 white 'F'\n  reduce()\n  sort()\n  i => cents(i, 3)\n}\n",
     "categories": ["traditional"],
     "baseMidiNote": 65,
     "baseFrequency": 349
@@ -196,7 +196,7 @@
   },
   "11machine6": {
     "name": "11edo machine[6]",
-    "source": "rank2(9/8 white, 5, 0, 2/1 gray)\n11@2.9.7.11\n",
+    "source": "cps([1, 9, 7, 11] white, 2, 2/1 gray)\n11@2.9.7.11\n",
     "categories": ["MOS", "equal temperament"]
   },
   "13glacial7": {
diff --git a/src/views/AboutView.vue b/src/views/AboutView.vue
index c0cebea5..9bd73cc9 100644
--- a/src/views/AboutView.vue
+++ b/src/views/AboutView.vue
@@ -58,7 +58,7 @@ const tagline = computed(() => TAGLINES[Math.floor(Math.random() * TAGLINES.leng
         Kite Giedraitis - <i>notation advisor</i> <br />
         Scott Dakota - <i>lattice advisor / generator sequence advisor</i> <br />
         Richie Greene - <i>quality assurance</i> <br />
-        Akselai - <i>mathematics advisor</i> <br />
+        Akselai - <i>quality assurance</i> <br />
         <span class="spoob">Spoob<img src="@/assets/img/spoob.png" /></span> -
         <i>emotional support</i>
       </p>