input/screech-boink.ly

   1
   2 \version "1.7.23"
   3
   4
   5 \score {
   6 \notes \context PianoStaff <
   7   \context Staff = up {
   8         \time 4/8
   9     \key c \minor
  10
  11
  12 < { \property Voice.Stem \override #'direction = #'()           \translator Staff = down
  13     \property Voice.subdivideBeams = ##t
  14         g16.-[
  15         \translator Staff = up
  16         c'''32  \translator Staff = down
  17         g32 \translator Staff = up
  18         c'''32  \translator Staff = down
  19          g16-]
  20         \translator Staff = up
  21 \property Voice.Stem \revert #'direction
  22         \property Voice.followVoice = ##t
  23         c'''32-(-[ b''16 a''16 gis''16 g''32-)-]  } \\
  24         { s4 \times 2/3 { d'16-[ f' g'-] } as'32-[ b''32 e'' d''-] } \\
  25         { s4 \autoBeamOff d''8.. f''32  } \\
  26         { s4 es''4 }
  27         >
  28   }
  29
  30   \context Staff = down {
  31         \clef bass
  32         \key c \minor
  33         \property Voice.subdivideBeams = ##f
  34     \property Voice.Stem \set #'french-beaming =  ##t
  35 \property Voice.Beam \set #'thickness = #0.3
  36 \property Voice.Stem \set #'thickness = #4.0
  37     g'16-[ b16 fis16 g16]
  38 < \apply #notes-to-clusters {
  39     as16 <<as b>>
  40     <<g b>>
  41     <<g cis>>
  42   } \\
  43  {
  44 \property Staff.Arpeggio \set #'arpeggio-direction =#-1
  45 <<cis, e, gis, b, cis>>4-\arpeggio  }
  46   >
  47  }
  48 >
  49
  50 \paper { linewidth = -1.0
  51
  52         \translator { \StaffContext \consists Horizontal_bracket_engraver }
  53 }
  54 \midi { \tempo 8 = 60 }
  55 }