]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/regression/chord-changes.ly
Merge with git+ssh://jneem@git.sv.gnu.org/srv/git/lilypond.git
[lilypond.git] / input / regression / chord-changes.ly
index 39ea66c4e6d04f3bfc44c16001ff9c7fb3f3f155..167d464a81df08c5dab10ff91e6b7575e1368386 100644 (file)
@@ -1,27 +1,28 @@
-\version "2.1.7"
+\version "2.10.0"
 
 \header{
-texidoc="Property chordChanges: display chord names only when
+  texidoc="Property chordChanges: display chord names only when
 there's a change in the chords scheme, but always display the
 chord name after a line break.
 "
 }
 
-scheme = \chords {
+\layout{ ragged-right = ##t }
+
+
+scheme = \chordmode {
   c1:m \break c:m c:m c:m d
   c1:m \break c:m c:m c:m d
 }
 
 settings = {
-  \property ChordNames.chordChanges = ##t
 }
 
-\score {
-  \notes <<
-    \context ChordNames << \scheme \settings >>
-    \context Staff \transpose c c' \scheme
+<<
+  \context ChordNames <<
+    \scheme
+    \set chordChanges = ##t
   >>
-  \paper{
-    linewidth = 40 * \staffspace
-  }
-}
+  \context Staff \transpose c c' \scheme
+>>
+