input/screech-boink.ly

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