blob: 4f7483fc99c42fff8c1d0bff872fd56cf8c6ea0a (
about) (
plain)
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
|
\version "2.16.0"
chordmodifiers = #default-chord-modifier-list
whiteTriangleMarkup = \markup {
\triangle ##f
%% 394 capital delta
%#(ly:wide-char->utf-8 #x0394)
%% 2206 : delta from the symbol font.
% #(ly:wide-char->utf-8 #x2206)
%% up pointing triangle
% #(ly:wide-char->utf-8 #x25B3)
}
blackTriangleMarkup = \markup {
\triangle ##t
%% black up pointing triangle
% #(ly:wide-char->utf-8 #x25B2)
}
ignatzekExceptionMusic = {
<c e gis>1-\markup { "+" }
<c es ges>-\markup { \super "o" } % should be $\circ$ ?
<c es ges bes>-\markup {
%% f8 is o with slash.
\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
<c e g bes des' ees' fis' aes'>-\markup { \super "alt" } % altered chord (super-Locrian)
}
partialJazzMusic = {
<c d>1-\markup { \normal-size-super "2" }
<c es>-\markup { "m" }
<c f>-\markup { \normal-size-super "sus4" }
<c g>-\markup { \normal-size-super "5" }
%% TODO, partial exceptions
<c es f>-\markup { "m" }-\markup { \normal-size-super "sus4" }
<c d es>-\markup { "m" }-\markup { \normal-size-super "sus2" }
}
powerChordSymbol = {
<c g>-\markup { \normal-size-super "5" }
<c g c'>1-\markup { \normal-size-super "5" }
}
%% TODO: compatibility ignatzek code
fullJazzExceptions=
#(sequential-music-to-chord-exceptions ignatzekExceptionMusic #f)
partialJazzExceptions=
#(sequential-music-to-chord-exceptions partialJazzMusic #f)
powerChordExceptions =
#(sequential-music-to-chord-exceptions powerChordSymbol #t)
ignatzekExceptions =
#(sequential-music-to-chord-exceptions ignatzekExceptionMusic #t)
|
