From b51935e4fc282cc78fdcf1853b40cac66b0bd9e1 Mon Sep 17 00:00:00 2001 From: Carl Worth Date: Wed, 25 Sep 2013 19:55:55 -0700 Subject: [PATCH] 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). --- scherzo.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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" }, -- 2.43.0