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'>
62 <c e g b fis'> % Lydian
63 <c e g bes des' ees' fis' aes'> % altered chord
67 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
68 % alternate Jazz notation
72 <c e gis>1-\markup { "+" }
75 % \override #'(font-family . math) "N"
76 \override #'(font-family . math) "M"
78 %%c:3.5.7 = \markup { \override #'(font-family . math) "M" }
79 %%c:3.5.7 = \markup { \normal-size-super "maj7" }
81 <c es ges>-\markup { \super "o" } % should be $\circ$ ?
82 <c es ges bes>-\markup { \super \combine "o" "/" }
83 <c es ges beses>-\markup { \super "o7" }
86 efullJazzAlt = #(sequential-music-to-chord-exceptions efullmusicJazzAlt #f)
88 epartialmusicJazzAlt = {
89 <c d>1-\markup { \normal-size-super "2" }
90 <c es>-\markup { "m" }
91 <c f>-\markup { \normal-size-super "sus4" }
92 <c g>-\markup { \normal-size-super "5" }
94 %% TODO, partial exceptions
95 <c es f>-\markup { "m" }-\markup { \normal-size-super "sus4" }
96 <c d es>-\markup { "m" }-\markup { \normal-size-super "sus2" }
99 epartialJazzAlt = #(sequential-music-to-chord-exceptions epartialmusicJazzAlt #f)
101 jazzAltProperties = \sequential {
102 \set majorSevenSymbol = #whiteTriangleMarkup
103 \set chordNameSeparator = #(make-simple-markup "/")
104 \set chordNameExceptionsFull = #efullJazzAlt
105 \set chordNameExceptionsPartial = #epartialJazzAlt
106 \set chordNameFunction = #jazz-chord-names
109 banterProperties = \sequential {
110 \set chordNameFunction = #banter-chord-names
116 \set instrumentName = #"Ignatzek (default)"
117 \set shortInstrumentName = #"Def"
123 \set instrumentName = #"Alternative"
124 \set shortInstrumentName = #"Alt"
130 %% This is the Banter (1987) style. It gives exceedingly
131 %% verbose (wide) names, making the output file take up to 4 pages.
132 %% (TODO: how big is is now?)
133 %% Turned off by default.
135 %% TODO: use smaller font for Banter (or remove some esoteric
140 \set instrumentName = #"Banter"
141 \set shortInstrumentName = #"Ban"
146 \new Staff \transpose c c' { \chs }
152 \consists Instrument_name_engraver