From: Carl Worth <cworth@cworth.org>
Date: Thu, 26 Sep 2013 02:55:55 +0000 (-0700)
Subject: Specify sus4 chords with a Perfect 4th rather than a raised 3rd.
X-Git-Url: https://git.cworth.org/git?p=scherzo;a=commitdiff_plain;h=b51935e4fc282cc78fdcf1853b40cac66b0bd9e1

Specify sus4 chords with a Perfect 4th rather than a raised 3rd.

This is much more clear, (and will help when I actually write the code
to spell these correctly on the staff itself).
---

diff --git a/scherzo.c b/scherzo.c
index 89a9301..f30bfe4 100644
--- a/scherzo.c
+++ b/scherzo.c
@@ -676,14 +676,14 @@ scherzo_analyze_chord (scherzo_t *scherzo)
 
     struct { modified_degree_t degrees[4]; const char *name; } tetrachords[] = {
 	/* Sixth chords */
-	{ {{1, 0}, {3, +1}, {5,  0}, {6,  0}}, "sus" SUP "6" PUS },
+	{ {{1, 0}, {4,  0}, {5,  0}, {6,  0}}, "sus" SUP "6" PUS },
 	{ {{1, 0}, {3,  0}, {5,  0}, {6,  0}}, "6" },
 	{ {{1, 0}, {3, -1}, {5,  0}, {6,  0}}, "m6" },
 	{ {{1, 0}, {2,  0}, {5,  0}, {6,  0}}, "msus2" SUP "6" PUS },
 	/* Seventh chords */
-	{ {{1, 0}, {3, +1}, {5,  0}, {7,  0}}, "sus" SUP "M7" PUS },
-	{ {{1, 0}, {3, +1}, {5,  0}, {7, -1}}, "sus" SUP "7" PUS },
-	{ {{1, 0}, {3, +1}, {5, -1}, {7, -1}}, "sus" SUP "7♭5" PUS },
+	{ {{1, 0}, {4,  0}, {5,  0}, {7,  0}}, "sus" SUP "M7" PUS },
+	{ {{1, 0}, {4,  0}, {5,  0}, {7, -1}}, "sus" SUP "7" PUS },
+	{ {{1, 0}, {4,  0}, {5, -1}, {7, -1}}, "sus" SUP "7♭5" PUS },
 	{ {{1, 0}, {3,  0}, {5, +1}, {7,  0}}, SUP "+M7" PUS },
 	{ {{1, 0}, {3,  0}, {5, +1}, {7, -1}}, SUP "+7" PUS },
 	{ {{1, 0}, {3,  0}, {5,  0}, {7,  0}}, "M7" },