* input/mutopia/W.A.Mozart/mozart-hrn-3.ly: Mozart died in 1791

[lilypond.git] / input / test / chord-names-jazz.ly

diff --git a/input/test/chord-names-jazz.ly b/input/test/chord-names-jazz.ly
index dd7ba5ab7ce9ec46533e1fd2e5aa8b1e19ef8c15..148bee915f484c1e2f88254a41dc95c45736634b 100644 (file)
--- a/input/test/chord-names-jazz.ly
+++ b/input/test/chord-names-jazz.ly
@@ -1,13 +1,15 @@
-\version "2.1.23"
+\version "2.1.30"
 
 
 \header {
 
 texidoc = " Chord names are generated from a list pitches.  The
-functions constructing the names are customisable. This file shows
-Jazz chords, following Ignatzek (1995), page 17 and 18, Banter chords,
-and an alternative Jazz  chord notation.
+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
+are turned off for brevity.
 
 "
 
@@ -94,18 +96,14 @@ epartialmusicJazzAlt = \notes{
 
 epartialJazzAlt = #(sequential-music-to-chord-exceptions epartialmusicJazzAlt #f)
 
-jazzAltProperties =
-
-\sequential { 
-           \set majorSevenSymbol = #whiteTriangleMarkup
-           \set chordNameSeparator = #(make-simple-markup  "/")
-           \set chordNameExceptionsFull = #efullJazzAlt
-           \set chordNameExceptionsPartial = #epartialJazzAlt
-           \set chordNameFunction = #jazz-chord-names
+jazzAltProperties = \sequential { 
+    \set majorSevenSymbol = #whiteTriangleMarkup
+    \set chordNameSeparator = #(make-simple-markup  "/")
+    \set chordNameExceptionsFull = #efullJazzAlt
+    \set chordNameExceptionsPartial = #epartialJazzAlt
+    \set chordNameFunction = #jazz-chord-names
 }
 
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
 banterProperties = \sequential { 
            \set chordNameFunction = #banter-chord-names
 }
@@ -115,28 +113,39 @@ banterProperties = \sequential {
        \new ChordNames {
            \set instrument = #"Ignatzek (default)"
            \set instr = #"Def"
-           \chs }
+           \chs
+       }
+       
        \new ChordNames {
+           \jazzAltProperties
            \set instrument = #"Alternative"
            \set instr = #"Alt"
-           \jazzAltProperties
-           \chs }
+           \chs
+       }
 
-       % This is the banter style.
-       % it gives exceedingly verbose (wide) names
-       % making this file take up to 4 pages.
-       
 %{
-               \new ChordNames  {
+
+       %% 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?)
+       %% Turned off by default.
+
+       %% FIXME: use smaller font for Banter (or remove some esoteric
+       %% chords).
+       
+       \new ChordNames {
            \banterProperties
+           \set instrument = #"Banter"
+           \set instr = #"Ban"
            \chs
-           }
+       }
 %}
+       
        \new Staff \notes \transpose c c' { \chs }
     >>
-    \paper{
+    \paper {
        indent = 3.\cm
-       \translator { 
+       \context { 
            \ChordNamesContext
            \consists Instrument_name_engraver
        }