]> git.donarmstrong.com Git - lilypond.git/blobdiff - Documentation/snippets/new/screech-boink.ly
LSR: Update.
[lilypond.git] / Documentation / snippets / new / screech-boink.ly
index a4a4ef2000b9cd2cfca47af592208c313fc3aa49..5a24f1ff03960f35e160dbeea9b79cb4763e72b9 100644 (file)
@@ -5,70 +5,69 @@
   doctitle = "Screech and Boink"
 }
 
-
 \score {
-     \context PianoStaff <<
-       \new Staff =  "up" {
-           \time 4/8
-           \key c \minor
-
-
-           << {
-               \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
-               \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''] } \\
-              { s4 \autoBeamOff d''8.. f''32  } \\
-              { s4 es''4 }
-          >>
-       }
-
-       \new 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 =#down
-                  <cis, e, gis, b, cis>4\arpeggio  }
-          >>
-       }
-    >>
-    
+  \context PianoStaff <<
+    \new Staff = "up" {
+      \time 4/8
+      \key c \minor
+      <<
+        {
+          \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
+          \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''] }
+        \\
+        { s4 \autoBeamOff d''8.. f''32  }
+        \\
+        { s4 es''4 }
+      >>
+    }
+    \new 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 = #DOWN
+          <cis, e, gis, b, cis>4\arpeggio
+        }
+      >>
+    }
+  >>
   \midi {
     \context {
       \Score
       tempoWholesPerMinute = #(ly:make-moment 60 8)
-      }
     }
-
-
-
-    \layout {
-       ragged-right = ##t 
-
-       \context {
-           \Staff
-           \consists Horizontal_bracket_engraver
-       }
-       
+  }
+  \layout {
+    ragged-right = ##t
+    \context {
+      \Staff
+      \consists "Horizontal_bracket_engraver"
     }
+  }
 }