4 texidoc
= " Chord names are generated from a list pitches. The
5 functions which construct these names can be customised. Here are shown
6 Jazz chords, following Ignatzek (pp. 17-18, 1995) and
7 an alternative Jazz chord notation.
9 Chords following Banter (1987) can also be printed from this file, but
10 are turned off for brevity.
16 chs
= \transpose c' c'
19 <c es g>% m = minor triad
24 <c e g b> % triangle = maj
31 <c e g a> % 6 = major triad with added sixth
32 <c es g a> % m6 = minor triad with added sixth
34 <c es g bes d'> \break
35 <c es g bes d' f' a' >
38 <c e g bes des' > \break
42 <c e g bes d' f' a'>\break
43 <c e g bes d' fis' as'>
46 <c e g bes d' f' as'>\break
47 <c e g bes des' f' as'>
50 <c e g bes d' f' as'>\break
51 <c e g bes des' f' as'>
52 <c e g bes des' f' a'>
54 <c e g b d' f' a'>\break
56 <c e g bes des' f ' a'>
65 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
66 % alternate Jazz notation
70 <c e gis>1-
\markup { "+" }
71 <c e g b>-
\markup { \normal-size-super
72 % \override #'(font-family . math) "N" }
73 \override #'(font-family
. math
) "M" }
74 %%c:3.5.7 = \markup { \override #'(font-family . math) "M" }
75 %%c:3.5.7 = \markup { \normal-size-super "maj7" }
77 <c es ges>-
\markup { \super "o" } % should be $\circ$ ?
78 <c es ges bes>-
\markup { \super \combine "o" "/" }
79 <c es ges beses
>-
\markup { \super "o7" }
82 efullJazzAlt
= #(sequential-music-to-chord-exceptions efullmusicJazzAlt
#f)
84 epartialmusicJazzAlt
= {
85 <c d>1-
\markup { \normal-size-super
"2" }
86 <c es>-
\markup { "m" }
87 <c f>-
\markup { \normal-size-super
"sus4" }
88 <c g>-
\markup { \normal-size-super
"5" }
90 %% TODO, partial exceptions
91 <c es f>-
\markup { "m" }-
\markup { \normal-size-super
"sus4" }
92 <c d es>-
\markup { "m" }-
\markup { \normal-size-super
"sus2" }
95 epartialJazzAlt
= #(sequential-music-to-chord-exceptions epartialmusicJazzAlt
#f)
97 jazzAltProperties
= \sequential {
98 \set majorSevenSymbol
= #whiteTriangleMarkup
99 \set chordNameSeparator
= #(make-simple-markup
"/")
100 \set chordNameExceptionsFull
= #efullJazzAlt
101 \set chordNameExceptionsPartial
= #epartialJazzAlt
102 \set chordNameFunction
= #jazz-chord-names
105 banterProperties
= \sequential {
106 \set chordNameFunction
= #banter-chord-names
112 \set instrumentName
= #"Ignatzek (default)"
113 \set shortInstrumentName
= #"Def"
119 \set instrumentName
= #"Alternative"
120 \set shortInstrumentName
= #"Alt"
126 %% This is the Banter (1987) style. It gives exceedingly
127 %% verbose (wide) names, making the output file take up to 4 pages.
128 %% (TODO: how big is is now?)
129 %% Turned off by default.
131 %% TODO: use smaller font for Banter (or remove some esoteric
136 \set instrumentName = #"Banter"
137 \set shortInstrumentName = #"Ban"
142 \new Staff \transpose c c' { \chs }
148 \consists Instrument_name_engraver