OLD | NEW |
1 \version "2.14.0" | 1 \version "2.14.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 \triangle ##f |
8 %% 394 capital delta | 8 %% 394 capital delta |
9 %#(ly:export (ly:wide-char->utf-8 #x0394)) | 9 %#(ly:export (ly:wide-char->utf-8 #x0394)) |
10 | 10 |
11 %% 2206 : delta from the symbol font. | 11 %% 2206 : delta from the symbol font. |
12 % #(ly:export (ly:wide-char->utf-8 #x2206)) | 12 % #(ly:export (ly:wide-char->utf-8 #x2206)) |
13 ·· | 13 ·· |
14 %% up pointing triangle | 14 %% up pointing triangle |
15 % #(ly:export (ly:wide-char->utf-8 #x25B3)) | 15 % #(ly:export (ly:wide-char->utf-8 #x25B3)) |
16 }· | 16 }· |
17 | 17 |
18 blackTriangleMarkup = \markup { | 18 blackTriangleMarkup = \markup { |
19 \triangle ##t | 19 \triangle ##t |
20 | 20 |
21 %% black up pointing triangle | 21 %% black up pointing triangle |
22 % #(ly:export (ly:wide-char->utf-8 #x25B2)) | 22 % #(ly:export (ly:wide-char->utf-8 #x25B2)) |
23 } | 23 } |
24 | 24 |
25 ignatzekExceptionMusic = { | 25 ignatzekExceptionMusic = { |
26 <c e gis>1-\markup { "+" } | 26 <c e gis>1-\markup { "+" } |
27 <c es ges>-\markup { \super "o" } % should be $\circ$ ? | 27 <c es ges>-\markup { \super "o" } % should be $\circ$ ? |
28 <c es ges bes>-\markup { | 28 <c es ges bes>-\markup { |
29 %% f8 is o with slash. | 29 %% f8 is o with slash. |
30 \super #(ly:export (ly:wide-char->utf-8 #x00f8)) | 30 \normal-size-super #(ly:export (ly:wide-char->utf-8 #x00f8)) |
31 } | 31 } |
32 <c es ges beses>-\markup { \super "o7" } | 32 <c es ges beses>-\markup { \super "o7" } |
| 33 <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) |
33 } | 35 } |
34 | 36 |
35 partialJazzMusic = { | 37 partialJazzMusic = { |
36 <c d>1-\markup { \normal-size-super "2" } | 38 <c d>1-\markup { \normal-size-super "2" } |
37 <c es>-\markup { "m" } | 39 <c es>-\markup { "m" } |
38 <c f>-\markup { \normal-size-super "sus4" } | 40 <c f>-\markup { \normal-size-super "sus4" } |
39 <c g>-\markup { \normal-size-super "5" } | 41 <c g>-\markup { \normal-size-super "5" } |
40 | 42 |
41 %% TODO, partial exceptions | 43 %% TODO, partial exceptions |
42 <c es f>-\markup { "m" }-\markup { \normal-size-super "sus4" } | 44 <c es f>-\markup { "m" }-\markup { \normal-size-super "sus4" } |
(...skipping 11 matching lines...) Expand all Loading... |
54 #(sequential-music-to-chord-exceptions ignatzekExceptionMusic #f) | 56 #(sequential-music-to-chord-exceptions ignatzekExceptionMusic #f) |
55 | 57 |
56 partialJazzExceptions= | 58 partialJazzExceptions= |
57 #(sequential-music-to-chord-exceptions partialJazzMusic #f) | 59 #(sequential-music-to-chord-exceptions partialJazzMusic #f) |
58 | 60 |
59 powerChordExceptions = | 61 powerChordExceptions = |
60 #(sequential-music-to-chord-exceptions powerChordSymbol #t) | 62 #(sequential-music-to-chord-exceptions powerChordSymbol #t) |
61 | 63 |
62 ignatzekExceptions = | 64 ignatzekExceptions = |
63 #(sequential-music-to-chord-exceptions ignatzekExceptionMusic #t) | 65 #(sequential-music-to-chord-exceptions ignatzekExceptionMusic #t) |
OLD | NEW |