X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fcluster.ly;h=9b8cc4f04c58be0b2ed44b06ca3c58a56f322b07;hb=8dcdabe3deea0af5b7c90e4ef7660a42e41d17aa;hp=45a0883678a75fd59ea9f1dc047957d99cc83607;hpb=0eeb762ef648edae9e9abde3d078cf3d814a8f36;p=lilypond.git

diff --git a/input/regression/cluster.ly b/input/regression/cluster.ly
index 45a0883678..9b8cc4f04c 100644
--- a/input/regression/cluster.ly
+++ b/input/regression/cluster.ly
@@ -1,48 +1,23 @@
-\version "1.7.4"
+
+\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 }
+
 
-voiceI = % same as voiceII, but with ordinary notes
-	\context Voice = voiceI {
-	    \notes \relative c' {
-		\stemUp
-		c4 f4
-		a4 <<e d'>>4 | \break
-		<< g a >>8 << e a >>8 a4 c1 << d b >>4 e4 |
-		c4 a4 f4 g4 a4
-	    }
-	}
-
-voiceII = % same as voiceI, but with cluster notation
-	\context Voice = voiceII {
-	    \notes \relative c' {
-		\property Thread.NoteHead \set #'transparent = ##t
-		\property Voice.Stem \set #'transparent = ##t
-		\property Voice.Beam \set #'transparent = ##t
-		\property Staff.Accidental \set #'transparent = ##t
-		\property Voice.Cluster \set #'padding = #0.25
-		\property Voice.Cluster \set #'shape = #'ramp
-		c4 f4
-		\startCluster
-		a4 <<e d'>>4 | \break
-		%%% do not try something like: < { g8 e8 } a4 >
-		%%% instead, do the following: << g a >>8 << e a >>8
-		<< g a >>8 << e a >>8 a4 c1 << d b >>4 e4 |
-		c4 \stopCluster a4 f4 g4 a4
-	    }
-	}
-
-\score {
-	\context PianoStaff {
-	<
-		\voiceI
-		\voiceII
-	>
-	}
-	\paper{
-		linewidth = 15.0 \cm
-	}
+fragment = \relative c' {
+  c4 f4 <e d'>4
+  <g a>8 <e a> a4 c2 <d b>4 e4 
+  c4
 }
-%% new-chords-done %%
\ No newline at end of file
+
+<<
+  \new Staff \fragment
+  \new Staff \makeClusters \fragment
+>>
+
+
+
+