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

diff --git a/input/screech-boink.ly b/input/screech-boink.ly
index 54bf19c477..2db75a5bd1 100644
--- a/input/screech-boink.ly
+++ b/input/screech-boink.ly
@@ -1,58 +1,63 @@
-\version "1.9.8"
+\version "2.1.22"
 \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
+    \notes \context PianoStaff <<
+	\context Staff = up {
+	    \time 4/8
+	    \key c \minor
 
 
-<< { \property Voice.Stem \override #'direction = #'()   	\translator Staff = down
-    \property Voice.subdivideBeams = ##t	     
- 	g16.[
-	\translator Staff = up
-	c'''32 	\translator Staff = down
-	g32 \translator Staff = up
-	c'''32	\translator Staff = down
-	 g16]
-	\translator 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 }
-	>>
-  }
+	    << {
+		\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 }
+	   >>
+	}
 
-  \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  }
-  >>
- }
->>
+	\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]
+	    << \apply #notes-to-clusters { 
+		as16 <as b>
+		<g b>
+		<g cis>
+	    } \\
+	       {
+		   \override Staff.Arpeggio  #'arpeggio-direction =#-1
+		   <cis, e, gis, b, cis>4\arpeggio  }
+	   >>
+	}
+    >>
 
-\paper { linewidth = -1.0
+    \paper { linewidth = -1.0
 
-	\translator { \StaffContext \consists Horizontal_bracket_engraver }
-}
-\midi { \tempo 8 = 60 }
+	     \translator {
+		 \StaffContext
+		 \consists Horizontal_bracket_engraver }
+
+	 }
+    \midi { \tempo 8 = 60 }
 }