\header {
texidoc = " Chord names are generated from a list pitches. The
-functions which construct these names can be customised. Here are shown
-Jazz chords, following Ignatzek (pp. 17-18, 1995) and
+functions which construct these names can be customised. Here are shown
+Jazz chords, following Ignatzek (pp. 17-18, 1995) and
an alternative Jazz chord notation.
Chords following Banter (1987) can also be printed from this file, but
}
-chs = \transpose c' c'
+chs = \transpose c' c'
{
<c e g>1
<c es g>% m = minor triad
<c e g bes>
<c es g bes>
<c e g b> % triangle = maj
- <c es ges beses>
+ <c es ges beses>
<c es ges b> \break
<c e gis bes>
<c es g b>
- <c e gis b>
+ <c e gis b>
<c es ges bes>\break
<c e g a> % 6 = major triad with added sixth
<c es g a> % m6 = minor triad with added sixth
- <c e g bes d'>
+ <c e g bes d'>
<c es g bes d'> \break
<c es g bes d' f' a' >
<c es g bes d' f' >
- <c es ges bes d' >
+ <c es ges bes d' >
<c e g bes des' > \break
<c e g bes dis'>
<c e g bes d' f'>
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% alternate Jazz notation
-efullmusicJazzAlt =
+efullmusicJazzAlt =
{
<c e gis>1-\markup { "+" }
<c e g b>-\markup { \normal-size-super
<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" }
epartialJazzAlt = #(sequential-music-to-chord-exceptions epartialmusicJazzAlt #f)
-jazzAltProperties = \sequential {
+jazzAltProperties = \sequential {
\set majorSevenSymbol = #whiteTriangleMarkup
\set chordNameSeparator = #(make-simple-markup "/")
\set chordNameExceptionsFull = #efullJazzAlt
\set chordNameFunction = #jazz-chord-names
}
-banterProperties = \sequential {
+banterProperties = \sequential {
\set chordNameFunction = #banter-chord-names
}
\set shortInstrumentName = #"Def"
\chs
}
-
+
\new ChordNames {
\jazzAltProperties
\set instrumentName = #"Alternative"
%% This is the Banter (1987) style. It gives exceedingly
%% verbose (wide) names, making the output file take up to 4 pages.
- %% (FIXME: how big is is now?)
+ %% (TODO: how big is is now?)
%% Turned off by default.
- %% FIXME: use smaller font for Banter (or remove some esoteric
+ %% TODO: use smaller font for Banter (or remove some esoteric
%% chords).
-
+
\new ChordNames {
\banterProperties
\set instrumentName = #"Banter"
\chs
}
%}
-
+
\new Staff \transpose c c' { \chs }
>>
\layout {
indent = 3.\cm
- \context {
+ \context {
\ChordNames
\consists Instrument_name_engraver
}
}
}
-
+