X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fscreech-boink.ly;h=7528ce7e51720ad5a4f65cacbeb954e41c77c779;hb=9b79b0f4972f7ac809cdaddaa7c01ea549a781b4;hp=1008d7575c618488dd316294b5153f995750b6dc;hpb=677031b7d5fd1806ca5d72bb6cbc37b3aacd5071;p=lilypond.git

diff --git a/input/screech-boink.ly b/input/screech-boink.ly
index 1008d7575c..7528ce7e51 100644
--- a/input/screech-boink.ly
+++ b/input/screech-boink.ly
@@ -1,4 +1,4 @@
-\version "2.3.2"
+\version "2.7.39"
 \header {
     title = "Screech and boink"
     subtitle = "Random complex notation"
@@ -6,8 +6,8 @@
 }
 
 \score {
-    \notes \context PianoStaff <<
-	\context Staff = up {
+     \context PianoStaff <<
+	\new Staff =  "up" {
 	    \time 4/8
 	    \key c \minor
 
@@ -23,7 +23,7 @@
 		    c'''32	\change Staff = down
 		    g16]
 		\change Staff = up
-		\override Stem  #'direction = #1
+		\stemUp
 		\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''] } \\
@@ -32,7 +32,7 @@
 	   >>
 	}
 
-	\context Staff = down {
+	\new Staff =  "down" {
 	    \clef bass
 	    \key c \minor
 	    \set subdivideBeams = ##f
@@ -40,21 +40,21 @@
 	    \override Beam  #'thickness = #0.3
 	    \override Stem  #'thickness = #4.0
 	    g'16[ b16 fis16 g16]
-	    << \applymusic #notes-to-clusters { 
+	    << \makeClusters { 
 		as16 <as b>
 		<g b>
 		<g cis>
 	    } \\
 	       {
-		   \override Staff.Arpeggio  #'arpeggio-direction =#-1
+		   \override Staff.Arpeggio  #'arpeggio-direction =#down
 		   <cis, e, gis, b, cis>4\arpeggio  }
 	   >>
 	}
     >>
     \midi { \tempo 8 = 60 }
 
-    \paper {
-	raggedright = ##t 
+    \layout {
+	ragged-right = ##t 
 
 	\context {
 	    \Staff