Issue 1503 - Recognise Lydian chords

diff --git a/Documentation/included/chord-names-jazz.ly b/Documentation/included/chord-names-jazz.ly
index 5be2e57a56026ad91b332089df793cc4d0b37c65..fdf49e9afa8f8fbaecd62990a727fca5725cdb86 100644 (file)
--- a/Documentation/included/chord-names-jazz.ly
+++ b/Documentation/included/chord-names-jazz.ly
@@ -59,6 +59,7 @@ chs =  \transpose c' c'
        <c f g bes d'>
        <c e g d'>      % add9
        <c es g f'>
+       <c e g b fis'>  % Lydian
 }
 
 

diff --git a/input/regression/chords-funky-ignatzek.ly b/input/regression/chords-funky-ignatzek.ly
index 64949c23aff234f05cda05c908e6aacf444efcd3..f154f748e8063c51ec8dd304b86be74333a4c684 100644 (file)
--- a/input/regression/chords-funky-ignatzek.ly
+++ b/input/regression/chords-funky-ignatzek.ly
@@ -16,6 +16,7 @@ chs =
 <c e g bes c'  d' e'>1
 <c e g a bes>1
 <c e g a d'>1
+<c e g b fis'>1
 }
 
 

diff --git a/ly/chord-modifiers-init.ly b/ly/chord-modifiers-init.ly
index 8ceb577e709608978870c4cc746299cc458b74ad..15b54b559c29be14a938f2e0062055a5f0d454c5 100644 (file)
--- a/ly/chord-modifiers-init.ly
+++ b/ly/chord-modifiers-init.ly
@@ -30,6 +30,7 @@ ignatzekExceptionMusic = {
     \normal-size-super $(ly:wide-char->utf-8 #x00f8)
   }
   <c es ges beses>-\markup { \super  "o7" }
+  <c e g b fis'>-\markup { \super "lyd" } % Lydian
 }
 
 partialJazzMusic = {