X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fscreech-boink.ly;h=edd29d02162dfd071cfe4660055bf8ccfcb9fedc;hb=35442451531b25bd35ae9a12c26efe926f053937;hp=f779df0e9cff3662c14bad6b1a24a3bb0c463c35;hpb=4c8187e65dd9708d7733692842acc696da121bf1;p=lilypond.git

diff --git a/input/screech-boink.ly b/input/screech-boink.ly
index f779df0e9c..edd29d0216 100644
--- a/input/screech-boink.ly
+++ b/input/screech-boink.ly
@@ -1,61 +1,65 @@
-\version "2.1.7"
+\version "2.4.0"
 \header {
     title = "Screech and boink"
     subtitle = "Random complex notation"
     composer = "Han-Wen Nienhuys"
-    }
+}
 
 \score {
-\notes \context PianoStaff <<
-  \context Staff = up {
-	\time 4/8
-    \key c \minor
-
+     \context PianoStaff <<
+	\context Staff = "up" {
+	    \time 4/8
+	    \key c \minor
 
-<< { \property Voice.Stem \override #'direction = #'()   	\change Staff = down
-    \property Voice.subdivideBeams = ##t	     
- 	g16.[
-	\change Staff = up
-	c'''32 	\change Staff = down
-	g32 \change Staff = up
-	c'''32	\change Staff = down
-	 g16]
-	\change Staff = up
-\property Voice.Stem \revert #'direction
-	\property Voice.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  } \\
-	{ s4 es''4 }
-	>>
-  }
 
-  \context Staff = down {
-	\clef bass
-	\key c \minor
-	\property Voice.subdivideBeams = ##f
-    \property Voice.Stem \set #'french-beaming =  ##t
-\property Voice.Beam \set #'thickness = #0.3
-\property Voice.Stem \set #'thickness = #4.0
-    g'16[ b16 fis16 g16]
-<< \apply #notes-to-clusters { 
-    as16 <as b>
-    <g b>
-    <g cis>
-  } \\
- {
-\property Staff.Arpeggio \set #'arpeggio-direction =#-1
-<cis, e, gis, b, cis>4\arpeggio  }
-  >>
- }
->>
+	    << {
+		\revert Stem #'direction
+		\change Staff = down
+		\set subdivideBeams = ##t	     
+		g16.[
+		    \change Staff = up
+		    c'''32 	\change Staff = down
+		    g32 \change Staff = up
+		    c'''32	\change Staff = down
+		    g16]
+		\change Staff = up
+		\override Stem  #'direction = #1
+		\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  } \\
+	       { s4 es''4 }
+	   >>
+	}
 
-\paper { linewidth = -1.0
+	\context Staff = "down" {
+	    \clef bass
+	    \key c \minor
+	    \set subdivideBeams = ##f
+	    \override Stem  #'french-beaming = ##t
+	    \override Beam  #'thickness = #0.3
+	    \override Stem  #'thickness = #4.0
+	    g'16[ b16 fis16 g16]
+	    << \makeClusters { 
+		as16 <as b>
+		<g b>
+		<g cis>
+	    } \\
+	       {
+		   \override Staff.Arpeggio  #'arpeggio-direction =#-1
+		   <cis, e, gis, b, cis>4\arpeggio  }
+	   >>
+	}
+    >>
+    \midi { \tempo 8 = 60 }
 
-	\translator {
-	    \StaffContext
-	    \consists Horizontal_bracket_engraver }
+    \layout {
+	raggedright = ##t 
 
-}
-\midi { \tempo 8 = 60 }
+	\context {
+	    \Staff
+	    \consists Horizontal_bracket_engraver
+	}
+	
+    }
 }