input/screech-boink.ly

   1 \version "2.1.7"
   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 = #'()          \change Staff = down
  16     \property Voice.subdivideBeams = ##t
  17         g16.[
  18         \change Staff = up
  19         c'''32  \change Staff = down
  20         g32 \change Staff = up
  21         c'''32  \change Staff = down
  22          g16]
  23         \change 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 {
  56             \StaffContext
  57             \consists Horizontal_bracket_engraver }
  58
  59 }
  60 \midi { \tempo 8 = 60 }
  61 }