-
-\version "1.7.18"
+\version "2.1.7"
\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/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 {
+ \property ChordNames.instrument = #"german"
+ \germanChords \scm }
+ \new ChordNames {
+ \property ChordNames.instrument =#"semi-german"
+ \semiGermanChords \scm }
+ \context Voice { \scm } >>
+\paper {
+ raggedright = ##t
+ \translator {\ChordNamesContext \consists Instrument_name_engraver }}
+
}