Add C-q, C-w keybindings. Update

[lilypond.git] / input / screech-boink.ly

diff --git a/input/screech-boink.ly b/input/screech-boink.ly
index 6c42914cf2d449733cc72c94fa2cabe19bdac9c2..3e7d3330a2e9c19fd69e3ece47ff5397c0504b9a 100644 (file)
--- a/input/screech-boink.ly
+++ b/input/screech-boink.ly
@@ -1,61 +1,65 @@
-\version "2.1.7"
+\version "2.3.1"
 \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 = #'()         \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 }
-       >>
-  }
+           << {
+               \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]
+           << \applymusic #notes-to-clusters { 
+               as16 <as b>
+               <g b>
+               <g cis>
+           } \\
+              {
+                  \override Staff.Arpeggio  #'arpeggio-direction =#-1
+                  <cis, e, gis, b, cis>4\arpeggio  }
+          >>
+       }
+    >>
+    \midi { \tempo 8 = 60 }
 
-\paper { linewidth = -1.0
+    \paper {
+       raggedright = ##t 
 
-       \translator {
+       \context {
            \StaffContext
-           \consists Horizontal_bracket_engraver }
-
-}
-\midi { \tempo 8 = 60 }
+           \consists Horizontal_bracket_engraver
+       }
+       
+    }
 }