]> git.donarmstrong.com Git - lilypond.git/blob - input/regression/chord-changes.ly
60258e24075c2913c548506e9fc0eb9ecf5c71d4
[lilypond.git] / input / regression / chord-changes.ly
1 \header{
2 texidoc="property chordChanges: only display chord names when
3 there's a change in the chords scheme, but always display the
4 chord name after a line break.
5 ";
6 }
7
8 scheme = \chords {
9   c1:m \break c:m c:m c:m d
10   c1:m \break c:m c:m c:m d
11 }
12
13 settings = {
14   \property ChordNames.chordChanges = ##t
15 }
16
17 \score {
18   \notes <
19     \context ChordNames < \scheme \settings >
20     \context Staff \transpose c'' \scheme
21   >
22   \paper{
23     linewidth = 40 * \staffspace;
24   }
25 }