From 8f3ed4064e27a34fb93bf009464fd9f1831363b1 Mon Sep 17 00:00:00 2001 From: Carl Worth Date: Wed, 25 Sep 2013 20:01:20 -0700 Subject: [PATCH] Add sus (sus4) versions of the ninth chords. As I was reading about 11th chords here: http://en.wikipedia.org/wiki/Chord_notation#11ths I noticed that an 11th chord voiced without a 3rd becomes a 9sus4 chord. So let's recognize those. --- scherzo.c | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/scherzo.c b/scherzo.c index f30bfe4..522f369 100644 --- a/scherzo.c +++ b/scherzo.c @@ -700,6 +700,8 @@ scherzo_analyze_chord (scherzo_t *scherzo) { {{1, 0}, {2, 0}, {5, -1}, {7, -1}}, "msus2𝆩" SUP "7" PUS }, { {{1, 0}, {2, 0}, {5, -1}, {7, -2}}, "msus2°" SUP "7" PUS }, /* Ninth chords voiced with no 5th */ + { {{1, 0}, {9, 0}, {4, 0}, {7, 0}}, "sus" SUP "M9" PUS }, + { {{1, 0}, {9, 0}, {4, 0}, {7, -1}}, "sus" SUP "9" PUS }, { {{1, 0}, {9, 0}, {3, 0}, {7, 0}}, "M9" }, { {{1, 0}, {9, 0}, {3, 0}, {7, -1}}, "9" }, { {{1, 0}, {9, 0}, {3, -1}, {7, 0}}, "m" SUP "M9" PUS }, @@ -711,6 +713,11 @@ scherzo_analyze_chord (scherzo_t *scherzo) * after reducing each degree to an actual scale degree, (9 -> 2, * 11 -> 4, 13 -> 6) */ struct { modified_degree_t degrees[5]; const char *name; } pentachords[] = { + { {{1, 0}, {9, 0}, {4, 0}, {5, +1}, {7, 0}}, "sus" SUP "+M9" PUS }, + { {{1, 0}, {9, 0}, {4, 0}, {5, +1}, {7, -1}}, "sus" SUP "+9" PUS }, + { {{1, 0}, {9, 0}, {4, 0}, {5, 0}, {7, 0}}, "sus" SUP "M9" PUS }, + { {{1, 0}, {9, 0}, {4, 0}, {5, 0}, {7, -1}}, "sus" SUP "9" PUS }, + { {{1, 0}, {9, 0}, {3, 0}, {5, +1}, {7, 0}}, SUP "+M9" PUS }, { {{1, 0}, {9, 0}, {3, 0}, {5, +1}, {7, -1}}, SUP "+9" PUS }, { {{1, 0}, {9, 0}, {3, 0}, {5, 0}, {7, 0}}, "M9" }, -- 2.43.0