| Index: ly/jazz-chord-style.ly |
| diff --git a/ly/jazz-chord-style.ly b/ly/jazz-chord-style.ly |
| new file mode 100644 |
| index 0000000000000000000000000000000000000000..9f0430d44fbae18b3d1f3cc9d2e40da35f8a2804 |
| --- /dev/null |
| +++ b/ly/jazz-chord-style.ly |
| @@ -0,0 +1,125 @@ |
| +%%%% This file is part of LilyPond, the GNU music typesetter. |
| +%%%% |
| +%%%% Copyright (C) 2011 Jean-Pierre Gorgeon <gorgeon@gmail.com>, |
| +%%%% Marc Hohl <marc@hohlart.de> |
| +%%%% |
| +%%%% LilyPond is free software: you can redistribute it and/or modify |
| +%%%% it under the terms of the GNU General Public License as published by |
| +%%%% the Free Software Foundation, either version 3 of the License, or |
| +%%%% (at your option) any later version. |
| +%%%% |
| +%%%% LilyPond is distributed in the hope that it will be useful, |
| +%%%% but WITHOUT ANY WARRANTY% without even the implied warranty of |
| +%%%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| +%%%% GNU General Public License for more details. |
| +%%%% |
| +%%%% You should have received a copy of the GNU General Public License |
| +%%%% along with LilyPond. If not, see <http://www.gnu.org/licenses/>. |
| + |
| +\version "2.13.36" |
| + |
| +#(define-public (jazzfont-chord-namer pitch lowercase?) |
| + (let* ((alt (ly:pitch-alteration pitch))) |
| + |
| + (make-line-markup |
| + (list (make-simple-markup |
| + (vector-ref #("C" "D" "E" "F" "G" "A" "B") |
| + (ly:pitch-notename pitch))) |
| + (if (= alt 0) |
| + (markup "") |
| + (if (= alt FLAT) |
| + (markup ">") |
| + (markup "<"))))))) |
| + |
| +% markup for minor chords |
| +#(define-markup-command (jazzMin layout props extension) (string?) |
| + (interpret-markup layout props |
| + (markup #:small "m" #:super extension))) |
| + |
| +% markup for major chords |
| +#(define-markup-command (jazzMaj layout props extension) (string?) |
| + (interpret-markup layout props |
| + (markup #:small "M" #:super extension))) |
| + |
| +% markup for staggered symbols |
| +#(define-markup-command (jazzAlt layout props strA strB strC) (string? string? string?) |
| + (interpret-markup layout props |
| + (markup |
| + #:super strA |
| + #:fontsize 1.5 "[" |
| + #:fontsize -4 |
| + #:raise 1.8 |
| + #:column (strB strC) |
| + #:fontsize 1.5 "]"))) |
| + |
| + |
| +jazzFontChordDefinitions = { |
| + < c ees ges > -\markup \super "dim." % :dim |
| + < c ees g > -\markup \jazzMin #"" % :m |
| + |
| + < c es ges beses > -\markup \super "7dim" % :dim7 |
| + < c ees gis > -\markup \jazzMin #"aug" % :m5+ (Ab/C) |
| + < c ees g a > -\markup \jazzMin #"6" % :m6 |
| + < c ees ges bes > -\markup \jazzMin #"7 >5"% :m7.5- |
| + < c ees g bes > -\markup \jazzMin #"7" % :m7 |
| + < c ees gis bes > -\markup \jazzMin #"7 <5" % :m7.5+ |
| + < c ees g b > -\markup \jazzMin #"M7" % :m7+ |
| + < c ees g d' > -\markup \jazzMin #"add9" % :m5.9 |
| + |
| + < c ees g a d' > -\markup \jazzMin #"6/9" % :m6.9 |
| + < c ees g bes des' > -\markup \jazzMin #"7(>9)" % :m7.9- |
| + < c ees g bes d' > -\markup \jazzMin #"9" % :m9 |
| + < c ees ges bes d' > -\markup \jazzMin #"9(>5)" % :m9.5- |
| + < c ees g b d' > -\markup \jazzMin #"9(M7)" % :m9.7+ |
| + < c ees g bes dis' > -\markup \jazzMin #"7(<9)" % :m7.9+ |
| + < c ees g bes f' > -\markup \jazzMin #"7(add 11)" % :m7.11 |
| + < c ees g bes a' > -\markup \jazzMin #"7(add 13)" % :m7.13 |
| + < c ees g bes d' f' > -\markup \jazzMin #"11" % :m11 |
| + < c ees ges bes d' f' > -\markup \jazzMin #"11(>5)" % :m11.5- |
| + < c ees g bes d' f' a' > -\markup \jazzMin #"13" % :m13 |
| + |
| + < c e ges > -\markup \super "5>" % :5- |
| + < c e gis > -\markup \super "aug." % :aug |
| + |
| + |
| + < c e g a d' > -\markup { \super "6" |
| + \hspace #-0.5 \raise #0.7 \tiny "/" |
| + \hspace #-0.5 \tiny "9" } % :6.9 |
| + |
| +% < c e g a d'> -\markup \jazzAlt #"" #"6" #"9" % :6.9 |
| + < c e g b > -\markup \jazzMaj #"7" % :maj |
| + < c e ges b > -\markup \jazzMaj #"7>5" % :maj.5- |
| + < c e gis b > -\markup \jazzMaj #"7<5" % :maj.5+ |
| + |
| + < c e ges bes > -\markup \super "7(>5)" % :7.5- |
| + < c e gis bes > -\markup \super "7(<5)" % :7.5+ |
| + < c e g d' > -\markup \super "add9" % :5.9 |
| + |
| + < c e g b d' > -\markup \jazzMaj #"9" % :maj9 |
| + |
| + < c e g bes des' > -\markup \super "7(>9)" % :9- |
| + < c e ges bes des' > -\markup \jazzAlt #"7" #">9" #">5" % :9-.5- |
| + < c e gis bes des' > -\markup \jazzAlt #"7" #">9" #"<5" % :9-.5+ |
| + < c e g bes dis' > -\markup \super "7(<9)" % :9+ |
| + < c e ges bes dis' > -\markup \jazzAlt #"7" #"<9" #">5" % :9+.5- |
| + < c e gis bes dis' > -\markup \jazzAlt #"7" #"<9" #"<5" % :9+.5+ |
| + |
| + < c e g bes fis' > -\markup \super "7(<11)" % :7.11+ |
| + < c e g bes aes' > -\markup \super "7(>13)" % :7.13- |
| + < c e g b d' a' > -\markup \jazzMaj #"13" % :maj13 |
| + < c e g bes d' a' > -\markup \super "13" % :13 |
| + |
| + < c d g > -\markup \super "sus2" % :sus2 |
| + < c f g > -\markup \super "sus" % :sus4 |
| + < c f g bes > -\markup \super "7sus" % :sus4.7 |
| + < c f g bes d' > -\markup \super "9sus" % :sus4.7.9 |
| +} |
| + |
| +jazzFontExceptions = #(append (sequential-music-to-chord-exceptions jazzFontChordDefinitions #t)) |
| + |
| +jazzChords = { |
| + \override ChordNames . ChordName #'font-name = #"lilyjazzchord" |
| + \override ChordNames . ChordName #'font-size = #1 |
| + \set chordRootNamer = #jazzfont-chord-namer |
| + \set chordNameExceptions = #jazzFontExceptions |
| +} |
