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 an alternative
9 Chords following Banter (1987) can also be printed from this file, but
10 are turned off for brevity.
16 chs = \transpose c' c' {
18 <c es g> % m = minor triad
23 <c e g b> % triangle = maj
30 <c e g a> % 6 = major triad with added sixth
31 <c es g a> % m6 = minor triad with added sixth
33 <c es g bes d'> \break
34 <c es g bes d' f' a' >
37 <c e g bes des' > \break
41 <c e g bes d' f' a'> \break
42 <c e g bes d' fis' as'>
45 <c e g bes d' f' as'> \break
46 <c e g bes des' f' as'>
49 <c e g bes d' f' as'> \break
50 <c e g bes des' f' as'>
51 <c e g bes des' f' a'>
53 <c e g b d' f' a'> \break
55 <c e g bes des' f ' a'>
61 <c e g b fis'> % Lydian
62 <c e g bes des' ees' fis' aes'> % altered chord
66 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
67 % alternate Jazz notation
70 <c e gis>1-\markup { "+" }
73 % \override #'(font-family . math) "N"
74 \override #'(font-family . math) "M"
76 %%c:3.5.7 = \markup { \override #'(font-family . math) "M" }
77 %%c:3.5.7 = \markup { \normal-size-super "maj7" }
79 <c es ges>-\markup { \super "o" } % should be $\circ$ ?
80 <c es ges bes>-\markup { \super \combine "o" "/" }
81 <c es ges beses>-\markup { \super "o7" }
84 efullJazzAlt = #(sequential-music-to-chord-exceptions efullmusicJazzAlt #f)
86 epartialmusicJazzAlt = {
87 <c d>1-\markup { \normal-size-super "2" }
88 <c es>-\markup { "m" }
89 <c f>-\markup { \normal-size-super "sus4" }
90 <c g>-\markup { \normal-size-super "5" }
91 %% TODO, partial exceptions
92 <c es f>-\markup { "m" }-\markup { \normal-size-super "sus4" }
93 <c d es>-\markup { "m" }-\markup { \normal-size-super "sus2" }
96 epartialJazzAlt = #(sequential-music-to-chord-exceptions epartialmusicJazzAlt #f)
98 jazzAltProperties = \sequential {
99 \set majorSevenSymbol = #whiteTriangleMarkup
100 \set chordNameSeparator = #(make-simple-markup "/")
101 \set chordNameExceptionsFull = #efullJazzAlt
102 \set chordNameExceptionsPartial = #epartialJazzAlt
103 \set chordNameFunction = #jazz-chord-names
106 banterProperties = \sequential {
107 \set chordNameFunction = #banter-chord-names
113 \set instrumentName = #"Ignatzek (default)"
114 \set shortInstrumentName = #"Def"
119 \set instrumentName = #"Alternative"
120 \set shortInstrumentName = #"Alt"
125 %% This is the Banter (1987) style. It gives exceedingly
126 %% verbose (wide) names, making the output file take up to 4 pages.
127 %% (TODO: how big is is now?)
128 %% Turned off by default.
130 %% TODO: use smaller font for Banter (or remove some esoteric
135 \set instrumentName = #"Banter"
136 \set shortInstrumentName = #"Ban"
141 \new Staff \transpose c c' { \chs }
146 \consists "Instrument_name_engraver"
150 \remove "Bar_number_engraver"