]> git.donarmstrong.com Git - lilypond.git/blob - input/test/chord-names-german.ly
More polishing.
[lilypond.git] / input / test / chord-names-german.ly
1 \version "1.7.20"
2 \header  {
3     texidoc = "@cindex Chord Names German
4 By setting @code{ChordNames.chordRootNamer}, the root
5 of the chord may be named with a different function.
6
7 Setting @code{\germanChords} gives true german chord-names,
8 @code{\semiGermanChords} gives semi-german chord-names - - with Bb and
9 keeping the english names.
10
11
12 " }
13
14 scm = \chords {
15     c1/c cis/cis
16     % yeah, we get the idea. -hwn
17     
18     % cisis/cisis ces/ces ceses/ceses
19     b/b bis/bis bes/bes
20     % beses/beses
21
22 \score {
23 \notes <
24     \context ChordNames { \scm }
25     \context ChordNames = CA {
26         \property ChordNames.instrument = #"german"
27         \germanChords \scm }
28     \context ChordNames = CB {
29         \property ChordNames.instrument =#"semi-german"
30         \semiGermanChords \scm }
31     \context Voice {  \scm } >
32 \paper {
33     raggedright = ##t 
34     \translator {\ChordNamesContext \consists Instrument_name_engraver }}
35
36 }