* cygwin/mknetrel: Override $(webdir) (was: $(docdir)).

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

diff --git a/input/test/chord-names-german.ly b/input/test/chord-names-german.ly
index 9d883cddfd9ef8f5f20845b0f35c9f45b2b12a70..ecdf20802f1c2efc40729b6e3658b40c9093c80f 100644 (file)
--- a/input/test/chord-names-german.ly
+++ b/input/test/chord-names-german.ly
@@ -1,18 +1,36 @@
-
-\version "1.7.16"
+\version "1.7.20"
 \header  {
+    texidoc = "@cindex Chord Names German
+By setting @code{ChordNames.chordRootNamer}, the root
+of the chord may be named with a different function.
 
-    texidoc = "By setting @code{ChordNames.chordRootNamer}, the root
- of the chord may be named with a different function."
+Setting @code{\germanChords} gives true german chord-names,
+@code{\semiGermanChords} gives semi-german chord-names - - with Bb and
+keeping the english names.
 
-}
 
-scm = \chords { c4 b bes } 
+" }
+
+scm = \chords {
+    c1/c cis/cis
+    % yeah, we get the idea. -hwn
+    
+    % cisis/cisis ces/ces ceses/ceses
+    b/b bis/bis bes/bes
+    % beses/beses
+} 
 \score {
+\notes <
+    \context ChordNames { \scm }
+    \context ChordNames = CA {
+       \property ChordNames.instrument = #"german"
+       \germanChords \scm }
+    \context ChordNames = CB {
+       \property ChordNames.instrument =#"semi-german"
+       \semiGermanChords \scm }
+    \context Voice {  \scm } >
+\paper {
+    raggedright = ##t 
+    \translator {\ChordNamesContext \consists Instrument_name_engraver }}
 
-<    \context ChordNames \chords <
-    \property ChordNames. chordRootNamer = #note-name->german-markup
-    \scm >
-    \context Voice \scm >
-\paper { raggedright = ##t }
 }