X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fscreech-boink.ly;h=edd29d02162dfd071cfe4660055bf8ccfcb9fedc;hb=16daefb5104997473ab77fd00faf00f34c6baa7e;hp=2db75a5bd14617a2c1916f4481e73075e1e83e30;hpb=402045837e7134cdf90d1fcf31768c62227a4936;p=lilypond.git

diff --git a/input/screech-boink.ly b/input/screech-boink.ly
index 2db75a5bd1..edd29d0216 100644
--- a/input/screech-boink.ly
+++ b/input/screech-boink.ly
@@ -1,4 +1,4 @@
-\version "2.1.22"
+\version "2.4.0"
 \header {
     title = "Screech and boink"
     subtitle = "Random complex notation"
@@ -6,8 +6,8 @@
 }
 
 \score {
-    \notes \context PianoStaff <<
-	\context Staff = up {
+     \context PianoStaff <<
+	\context Staff = "up" {
 	    \time 4/8
 	    \key c \minor
 
@@ -15,7 +15,7 @@
 	    << {
 		\revert Stem #'direction
 		\change Staff = down
-		\set subdivideBeams =  ##t	     
+		\set subdivideBeams = ##t	     
 		g16.[
 		    \change Staff = up
 		    c'''32 	\change Staff = down
@@ -24,7 +24,7 @@
 		    g16]
 		\change Staff = up
 		\override Stem  #'direction = #1
-		\set followVoice =  ##t
+		\set followVoice = ##t
 		c'''32([ b''16 a''16 gis''16 g''32)]  } \\
 	       { s4 \times 2/3 { d'16[ f' g'] } as'32[ b''32 e'' d''] } \\
 	       { s4 \autoBeamOff d''8.. f''32  } \\
@@ -32,15 +32,15 @@
 	   >>
 	}
 
-	\context Staff = down {
+	\context Staff = "down" {
 	    \clef bass
 	    \key c \minor
-	    \set subdivideBeams =  ##f
-	    \override Stem  #'french-beaming =  ##t
+	    \set subdivideBeams = ##f
+	    \override Stem  #'french-beaming = ##t
 	    \override Beam  #'thickness = #0.3
 	    \override Stem  #'thickness = #4.0
 	    g'16[ b16 fis16 g16]
-	    << \apply #notes-to-clusters { 
+	    << \makeClusters { 
 		as16 <as b>
 		<g b>
 		<g cis>
@@ -51,13 +51,15 @@
 	   >>
 	}
     >>
+    \midi { \tempo 8 = 60 }
 
-    \paper { linewidth = -1.0
-
-	     \translator {
-		 \StaffContext
-		 \consists Horizontal_bracket_engraver }
+    \layout {
+	raggedright = ##t 
 
-	 }
-    \midi { \tempo 8 = 60 }
+	\context {
+	    \Staff
+	    \consists Horizontal_bracket_engraver
+	}
+	
+    }
 }