* input/test/chord-names-jazz.ly:

[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 16a75957d7fc975309bb3ba90f4c7fb48a17e38d..8ce5263cbe63bcb74ff4552fd6ae87f19a1d9fc9 100644 (file)
--- a/input/test/chord-names-jazz.ly
+++ b/input/test/chord-names-jazz.ly
@@ -5,8 +5,11 @@
 
 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), Banter chords,
-and an alternative Jazz  chord notation.
+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.
 
 "
 
@@ -95,18 +98,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
 }
@@ -116,26 +115,37 @@ 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 { 
            \ChordNamesContext