]> git.donarmstrong.com Git - lilypond.git/blob - input/test/chord-changes.ly
f9a7697319d0a562de85ca1e10822ebc01c341c9
[lilypond.git] / input / test / 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  % ugh ugh: this breaks the output of notes in the regular staff 
10 %  \property ChordNamesVoice.chordChanges = ##t
11   c1:m \break c:m c:m c:m d
12 }
13
14 \score {
15   \notes <
16     \context ChordNames \scheme
17     \context Staff \transpose c'' \scheme
18   >
19   \paper{
20     linewidth = 40 * \staffspace;
21     \translator {
22       \ChordNamesContext
23       chordChanges = ##t
24     }
25   }
26 }