-\version "1.7.18"
+\version "2.2.0"
\header {
texidoc = "@cindex Chord Names German
-By setting @code{ChordNames.chordRootNamer}, the root
-of the chord may be named with a different function.
+The english naming of chords (default) can be changed to german
+(@code{\germanChords} replaces B and Bes to H and B) or semi-german
+(@code{\semiGermanChords} replaces B and Bes to H and Bb).
+
" }
-scm = \chords { c4/c cis/cis cisis/cisis ces/ces ceses/ceses b/b bis/bis bes/bes beses/beses }
+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 {
-< \context ChordNames \chords <
- % #t gives true german chord-names
- % #f gives semi-german chord-names -
- % - with Bb and below keeping the english names
- \property ChordNames. chordRootNamer = #(chord-name->german-markup #f)
- \property ChordNames. chordNoteNamer = #note-name->german-markup
- \scm >
- \context Voice \scm >
+\notes <<
+ \context ChordNames { \scm }
+ \new ChordNames {
+ \set instrument = #"german"
+ \germanChords \scm }
+ \new ChordNames {
+ \set instrument = #"semi-german"
+ \semiGermanChords \scm }
+ \context Voice { \scm } >>
+\paper {
+ raggedright = ##t
+ \context {\ChordNamesContext \consists Instrument_name_engraver }}
+
}