* scm/define-grobs.scm (all-grob-descriptions): default to ramp.

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

diff --git a/input/regression/cluster.ly b/input/regression/cluster.ly
index ece5d6f3bd346ab7cabcb7b6c21af2545927b5e9..1daceec9d79ac73b4f01780524ea4bdafd73ca70 100644 (file)
--- a/input/regression/cluster.ly
+++ b/input/regression/cluster.ly
@@ -5,23 +5,16 @@ notes is to be played."
 }
 
 fragment =\notes \relative c' {
-         c4 f4 a4 <<e d'>>4
+         c4 f4 <<e d'>>4
          <<g a>>8 <<e a>> a4 c2 <<d b>>4 e4 
-         c4 a4 f4 g4 a4 }
+         c4 }
 
 \score {
  \notes <
      \context Staff = SA \fragment
-     \context Staff = SB
-       \context Voice <
-          \fragment
-          { s2 \hideNotes
-            s4-\startCluster
-            s1*2
-            s4-\stopCluster
-           \unHideNotes
-       } >
+     \context Staff = SB \apply #notes-to-clusters \fragment
      >
+ \paper { raggedright = ##t }
 }