input/screech-boink.ly

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