]> git.donarmstrong.com Git - lilypond.git/blob - input/test/chord-changes.ly
131561c2e0c784dd36864909391b8e6e3735ebec
[lilypond.git] / input / test / chord-changes.ly
1 \version "1.7.10"
2
3 \header{
4 texidoc="property chordChanges: only display chord names when
5 there's a change in the chords scheme, but always display the
6 chord name after a line break.
7 "
8 }
9
10 scheme = \chords {
11  % ugh ugh: this breaks the output of notes in the regular staff 
12 %  \property ChordNamesVoice.chordChanges = ##t
13   c1:m \break c:m c:m c:m d
14 }
15
16 \score {
17   \notes <
18     \context ChordNames \scheme
19     \context Staff \transpose c c' \scheme
20   >
21   \paper{
22     linewidth = 40 * \staffspace
23     \translator {
24       \ChordNamesContext
25       chordChanges = ##t
26     }
27   }
28 }
29 %% new-chords-done %%