OLD | NEW |
1 \version "2.16.0" | 1 \version "2.21.0" |
2 | 2 |
3 chordmodifiers = #default-chord-modifier-list | 3 chordmodifiers = #default-chord-modifier-list |
4 | 4 |
5 | 5 |
6 whiteTriangleMarkup = \markup { | 6 whiteTriangleMarkup = \markup { |
7 \triangle ##f | 7 \fontsize #-3 \triangle ##f |
8 %% 394 capital delta | 8 %% 394 capital delta |
9 %#(ly:wide-char->utf-8 #x0394) | 9 %#(ly:wide-char->utf-8 #x0394) |
10 | 10 |
11 %% 2206 : delta from the symbol font. | 11 %% 2206 : delta from the symbol font. |
12 % #(ly:wide-char->utf-8 #x2206) | 12 % #(ly:wide-char->utf-8 #x2206) |
13 | 13 |
14 %% up pointing triangle | 14 %% up pointing triangle |
15 % #(ly:wide-char->utf-8 #x25B3) | 15 % #(ly:wide-char->utf-8 #x25B3) |
16 } | 16 } |
17 | 17 |
18 blackTriangleMarkup = \markup { | 18 blackTriangleMarkup = \markup { |
19 \triangle ##t | 19 \fontsize #-3 \triangle ##t |
20 | 20 |
21 %% black up pointing triangle | 21 %% black up pointing triangle |
22 % #(ly:wide-char->utf-8 #x25B2) | 22 % #(ly:wide-char->utf-8 #x25B2) |
23 } | 23 } |
24 | 24 |
| 25 whiteCircleMarkup = \markup { |
| 26 %% b0 is the degree sign. No need for \super here. |
| 27 \fontsize #2 #(ly:wide-char->utf-8 #x00b0) |
| 28 } |
| 29 |
25 ignatzekExceptionMusic = { | 30 ignatzekExceptionMusic = { |
26 <c e gis>1-\markup { "+" } | 31 <c e gis>-\markup { "+" } |
27 <c es ges>-\markup { \super "o" } % should be $\circ$ ? | 32 <c es ges>-\markup { \whiteCircleMarkup } |
28 <c es ges bes>-\markup { | 33 <c es ges bes>-\markup { |
29 %% f8 is o with slash. | 34 %% f8 is o with slash. |
30 \normal-size-super #(ly:wide-char->utf-8 #x00f8) | 35 \super #(ly:wide-char->utf-8 #x00f8) |
31 } | 36 } |
32 <c es ges beses>-\markup { \super "o7" } | 37 <c es ges beses>-\markup \concat { \whiteCircleMarkup \super "7" } |
33 <c e g b fis'>-\markup { \super "lyd" } % Lydian | 38 <c e g b fis'>-\markup { \super "lyd" } % Lydian |
34 <c e g bes des' ees' fis' aes'>-\markup { \super "alt" } % altered chord (supe
r-Locrian) | 39 <c e g bes des' ees' fis' aes'>-\markup { \super "alt" } % altered chord (supe
r-Locrian) |
| 40 %% Power chords should be printed by default: |
| 41 <c g>-\markup { \super "5" } |
| 42 <c g c'>-\markup { \super "5" } |
35 } | 43 } |
36 | 44 |
37 partialJazzMusic = { | |
38 <c d>1-\markup { \normal-size-super "2" } | |
39 <c es>-\markup { "m" } | |
40 <c f>-\markup { \normal-size-super "sus4" } | |
41 <c g>-\markup { \normal-size-super "5" } | |
42 | |
43 %% TODO, partial exceptions | |
44 <c es f>-\markup { "m" }-\markup { \normal-size-super "sus4" } | |
45 <c d es>-\markup { "m" }-\markup { \normal-size-super "sus2" } | |
46 } | |
47 | |
48 powerChordSymbol = { | |
49 <c g>-\markup { \normal-size-super "5" } | |
50 <c g c'>1-\markup { \normal-size-super "5" } | |
51 } | |
52 | |
53 | |
54 %% TODO: compatibility ignatzek code | |
55 fullJazzExceptions= | |
56 #(sequential-music-to-chord-exceptions ignatzekExceptionMusic #f) | |
57 | |
58 partialJazzExceptions= | |
59 #(sequential-music-to-chord-exceptions partialJazzMusic #f) | |
60 | |
61 powerChordExceptions = | |
62 #(sequential-music-to-chord-exceptions powerChordSymbol #t) | |
63 | |
64 ignatzekExceptions = | 45 ignatzekExceptions = |
65 #(sequential-music-to-chord-exceptions ignatzekExceptionMusic #t) | 46 #(sequential-music-to-chord-exceptions ignatzekExceptionMusic #t) |
OLD | NEW |