Merge branch 'lilypond/translation' of ssh://jomand@git.sv.gnu.org/srv/git/lilypond

[lilypond.git] / input / regression / cluster.ly

diff --git a/input/regression/cluster.ly b/input/regression/cluster.ly
index ece5d6f3bd346ab7cabcb7b6c21af2545927b5e9..9b8cc4f04c58be0b2ed44b06ca3c58a56f322b07 100644 (file)
--- a/input/regression/cluster.ly
+++ b/input/regression/cluster.ly
@@ -1,28 +1,23 @@
-\version "1.7.18"
+
+\version "2.11.51"
 \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 a4 <<e d'>>4
-         <<g a>>8 <<e a>> a4 c2 <<d b>>4 e4 
-         c4 a4 f4 g4 a4 }
-
-\score {
- \notes <
-     \context Staff = SA \fragment
-     \context Staff = SB
-       \context Voice <
-          \fragment
-          { s2 \hideNotes
-            s4-\startCluster
-            s1*2
-            s4-\stopCluster
-           \unHideNotes
-       } >
-     >
+fragment = \relative c' {
+  c4 f4 <e d'>4
+  <g a>8 <e a> a4 c2 <d b>4 e4 
+  c4
 }
 
+<<
+  \new Staff \fragment
+  \new Staff \makeClusters \fragment
+>>
+
+