input/screech-boink.ly

   1 \version "2.1.22"
   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             << {
  16                 \revert Stem #'direction
  17                 \change Staff = down
  18                 \set subdivideBeams =  ##t
  19                 g16.[
  20                     \change Staff = up
  21                     c'''32      \change Staff = down
  22                     g32 \change Staff = up
  23                     c'''32      \change Staff = down
  24                     g16]
  25                 \change Staff = up
  26                 \override Stem  #'direction = #1
  27                 \set 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             \set subdivideBeams =  ##f
  39             \override Stem  #'french-beaming =  ##t
  40             \override Beam  #'thickness = #0.3
  41             \override Stem  #'thickness = #4.0
  42             g'16[ b16 fis16 g16]
  43             << \apply #notes-to-clusters {
  44                 as16 <as b>
  45                 <g b>
  46                 <g cis>
  47             } \\
  48                {
  49                    \override Staff.Arpeggio  #'arpeggio-direction =#-1
  50                    <cis, e, gis, b, cis>4\arpeggio  }
  51            >>
  52         }
  53     >>
  54
  55     \paper { linewidth = -1.0
  56
  57              \translator {
  58                  \StaffContext
  59                  \consists Horizontal_bracket_engraver }
  60
  61          }
  62     \midi { \tempo 8 = 60 }
  63 }