-
Notifications
You must be signed in to change notification settings - Fork 0
/
morejazz.ily
83 lines (79 loc) · 3.64 KB
/
morejazz.ily
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
#(define-markup-command (acMin layout props extension) (string?)
(interpret-markup layout props
(markup #:fontsize -2 "m" #:super extension)))
#(define-markup-command (acMaj layout props extension) (string?)
(interpret-markup layout props
(markup #:super "^" #:super extension)))
#(define-markup-command (acAlt layout props strA strB strC) (string? string? string?)
(interpret-markup layout props
(markup
#:super strA
#:fontsize 1.5 "["
#:fontsize -4
#:translate-scaled (cons 0 2.5)
(#:column (strB strC))
#:fontsize 1.5 "]"
)
)
)
MoreJazzChordsList = {
% Use dim7, not 7dim
<c es ges>1-\markup { \super "dim" } % :dim
<c es ges beses>-\markup { \super "dim7" } % :dim7
% Use 7(#5) not 7 #5
<c es ges bes>-\markup { \acMin #"7(>5)" } % :m7.5-
<c es gis bes>-\markup { \acMin #"7(<5)" } % :m7.5+
% Use scalable m in acMin
<c es g>-\markup { \acMin #"" } % :m
<c es gis>-\markup { \acMin #"aug" } % :m5+ (Ab/C)
<c es g a>-\markup { \acMin #"6" } % :m6
<c es g bes>-\markup { \acMin #"7" } % :m7
<c es g d'>-\markup { \acMin #"add9" } % :m5.9
<c es g a d'>-\markup { \acMin #"6/9" } % :m6.9
<c es g bes des'>-\markup { \acMin #"7(>9)" } % :m7.9-
<c es g bes d'>-\markup { \acMin #"9" } % :m9
<c es ges bes d'>-\markup { \acMin #"9(>5)" } % :m9.5-
<c es g b d'>-\markup { \acMin #"9(M7)" } % :m9.7+
<c es g bes dis'>-\markup { \acMin #"7(<9)" } % :m7.9+
<c es g bes f'>-\markup { \acMin #"7(add 11)" } % :m7.11
<c es g bes a'>-\markup { \acMin #"7(add 13)" } % :m7.13
<c es g bes d' f'>-\markup { \acMin #"11" } % :m11
<c es ges bes d' f'>-\markup { \acMin #"11(>5)" } % :m11.5-
<c es g bes d' f' a'>-\markup { \acMin #"13" } % :m13
% Use a triangle to represent Maj7 chords, not capital M
<c e g b>-\markup { \acMaj #"" } % :maj
<c e ges b>-\markup { \acMaj #"7(>5)" } % :maj.5-
<c e gis b>-\markup { \acMaj #"7(<5)" } % :maj.5+
<c e g b a'>-\markup { \acMaj #"(add 13)" } % :maj13
<c e g b d'>-\markup { \acMaj #"9" } % :maj9
<c e g b d' f'>-\markup { \acMaj #"11" } % :maj11
<c e g b d' fis'>-\markup { \acMaj #"9(<11)" } % :maj9.11+
<c e g b d' a'>-\markup { \acMaj #"13" } % :maj13
<c e g b d' fis' a'>-\markup { \acMaj #"13(<11)" } % :maj13.11+
<c es g b>-\markup { \acMin #"^" } % :m7+
<c es g b d'>-\markup { \acMin #"^9" } % :m9.7+
% More major third chords
<c e g a d'>-\markup { \super "6/9" } % :6.9
<c e ges bes d'>-\markup { \super "9(>5)" } % :9.5-
<c e ges bes d' a'>-\markup { \super "13(>5)" } % :13.5-
<c e g bes d' fis' a'>-\markup { \super "13(<11)" } % :13.11+
<c e gis bes d'>-\markup { \super "9(<5)" } % :9.5+
<c e g bes des' fis'>-\markup { \override #'(baseline-skip . 2) \acAlt #"7" #"<11" #">9" } % :9-.11-
<c e g bes dis' fis'>-\markup { \override #'(baseline-skip . 2) \acAlt #"7" #"<11" #"<9" } % :9-.11+
% More sus chords
<c f g bes d' a'>-\markup { \super "13sus" } % :sus4.13.9.7
<c f g bes des'>-\markup { \super "7sus(>9)" } % :sus4.7.9-
<c f g bes des' a'>-\markup { \super "13sus(>9)" } % :sus4.13.9-.7
% Tweaked multi-alteration chords
<c e ges bes des'>-\markup { \override #'(baseline-skip . 2) \acAlt #"7" #">9" #">5" } % :9-.5-
<c e gis bes des'>-\markup { \override #'(baseline-skip . 2) \acAlt #"7" #">9" #"<5" } % :9-.5+
<c e ges bes dis'>-\markup { \override #'(baseline-skip . 2) \acAlt #"7" #"<9" #">5" } % :9+.5-
<c e gis bes dis'>-\markup { \override #'(baseline-skip . 2) \acAlt #"7" #"<9" #"<5" } % :9+.5+
}
MoreJazzChords = #(append (sequential-music-to-chord-exceptions MoreJazzChordsList #t) JazzChords)
\layout {
\context {
\ChordNames
chordNameExceptions = #MoreJazzChords % update the chord exceptions
}
}