6 texidoc = " Chord names are generated from a list pitches. The
7 functions constructing the names are customisable. This file shows
8 Jazz chords, following Ignatzek (1995), page 17 and 18, Banter chords,
9 and an alternative Jazz chord notation.
16 chs = \notes \transpose c' c'
19 <<c es g>>% m = minor triad
24 <<c e g b>> % triangle = maj
30 <<c es ges bes>>\break
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'>>
45 <<c e g bes dis' fis'>>
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
68 efullmusicJazzAlt = \notes
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 = \notes{
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)
100 \property ChordNames.majorSevenSymbol = #whiteTriangleMarkup
101 \property ChordNames.chordNameSeparator = #(make-simple-markup "/")
102 \property ChordNames.chordNameExceptionsFull = #efullJazzAlt
103 \property ChordNames.chordNameExceptionsPartial = #epartialJazzAlt
104 \property ChordNames.chordNameFunction = #jazz-chord-names
107 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
109 banterProperties = \sequential {
110 \property ChordNames.chordNameFunction = #banter-chord-names
115 \context ChordNames {
116 \property ChordNames.instrument = #"Ignatzek (default)"
117 \property ChordNames.instr = #"Def"
119 \context ChordNames = ALT {
120 \property ChordNames.instrument = #"Alternative"
121 \property ChordNames.instr = #"Alt"
125 % This is the banter style.
126 % it gives exceedingly verbose (wide) names
127 % making this file take up to 4 pages.
130 \context ChordNames = BANTER {
135 \context Staff \notes \transpose c c' { \chs }
141 ChordName \override #'word-space = #1
142 \consists Instrument_name_engraver