X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fcluster.ly;h=8ec7e4e89811d192740ae1c142b96936d11ae2ad;hb=8cf69a467ad7650f5ca9da6fe2dfd4c7c088b239;hp=a68deb71873e47c68919168f648615ca281bd279;hpb=e9bd265943d37689b1a6892217cb6f67bbe69f73;p=lilypond.git

diff --git a/input/regression/cluster.ly b/input/regression/cluster.ly
index a68deb7187..8ec7e4e898 100644
--- a/input/regression/cluster.ly
+++ b/input/regression/cluster.ly
@@ -1,22 +1,23 @@
-#(ly:set-option 'old-relative)
-\version "1.9.1"
+
+\version "2.19.21"
 \header {
-    texidoc = "Clusters are a device to denote that a complete range of
+  texidoc = "Clusters are a device to denote that a complete range of
 notes is to be played."
 }
+  \layout { ragged-right = ##t }
+
 
-fragment =\notes \relative c' {
-         c4 f4 <<e d'>>4
-         <<g a>>8 <<e a>> a4 c2 <<d b>>4 e4 
-         c4 }
-
-\score {
- \notes <
-     \context Staff = SA \fragment
-     \context Staff = SB \apply #notes-to-clusters \fragment
-     >
- \paper { raggedright = ##t }
+fragment = \relative {
+  c'4 f4 <e d'>4
+  <g a>8 <e a> a4 c2 <d b>4 e4 
+  c4
 }
 
+<<
+  \new Staff \fragment
+  \new Staff \makeClusters \fragment
+>>
+
+