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