* 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 76e44f018c37484be3d55c068b0f4b7e2a9c873f..ecdf20802f1c2efc40729b6e3658b40c9093c80f 100644 (file)
--- a/input/test/chord-names-german.ly
+++ b/input/test/chord-names-german.ly
@@ -3,14 +3,34 @@
     texidoc = "@cindex Chord Names German
 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 { c1/c cis/cis cisis/cisis ces/ces ceses/ceses b/b bis/bis bes/bes beses/beses \bar "||" } 
+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 <
-    % \germanChords gives true german chord-names
-    % \semiGermanChords gives semi-german chord-names -
-    % - with Bb and below keeping the english names
-    \context ChordNames { \scm \germanChords \scm \semiGermanChords \scm }
-    \context Voice { \scm s1*0^"germanChords" \scm s1*0^"semiGermanChords" \scm } >
+    \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 }}
+
 }