input/screech-boink.ly

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