Documentation/ly-examples/Stockhausen_Klavierstueck2.ly

   1 \version "2.18.0"
   2
   3 \paper {
   4   tagline = ##f
   5   paper-height = 70\mm
   6 }
   7
   8 measIu = {
   9   \override TupletBracket.outside-staff-priority = #500
  10   \set subdivideBeams = ##t
  11   \tupletUp
  12   \tweak style #'dashed-line
  13   \tuplet 3/2 {
  14     \tuplet 3/2 {
  15         \override NoteHead.color = #red
  16         \once \override DynamicLineSpanner.outside-staff-priority = ##f
  17         d'4 -\tweak X-offset #-2 -\tweak Y-offset #0 ^\ff r8
  18       }
  19    r8
  20   }
  21 }
  22
  23 measIl = {
  24   \set subdivideBeams = ##t
  25   \tupletDown
  26   \override NoteHead.color = #red
  27   <<
  28     {
  29       \voiceOne
  30       \override NoteHead.color = #red
  31       ees4 ^\f
  32     }
  33     \new Voice {
  34       \voiceTwo
  35       \override NoteHead.color = #red
  36       \override TupletBracket.outside-staff-priority = #500
  37       \tweak style #'dashed-line
  38       \tuplet 3/2 {
  39         f,4~ -\tweak X-offset #-2 _\f
  40         \tuplet 3/2 {
  41           f,16 r8
  42         }
  43       }
  44     }
  45   >>
  46   \oneVoice
  47   | %1
  48 }
  49
  50 measIIu = {
  51   \override TupletBracket.positions = #'(10.5 . 10.5)
  52   \tupletUp
  53   \tuplet 5/4 {
  54     \override NoteHead.color = #blue
  55     b'''16[ -\tweak X-offset #-4.5 ^\mf
  56     a''16.~^\ff
  57   }
  58   \tuplet 5/4 {
  59     \override NoteHead.color = #blue
  60     a''32
  61     \override NoteHead.color = #red
  62     d'''8^\ff
  63   }
  64   \tuplet 5/4 {
  65     \override NoteHead.color = #blue
  66     r16. << g''16] aes'''16]^\p >>
  67   }
  68   | % 2
  69 }
  70
  71 measIIl = {
  72   \set subdivideBeams = ##t
  73   \tupletUp
  74   \clef treble
  75   \tuplet 5/4 {
  76     \override NoteHead.color = #blue
  77     \set stemRightBeamCount = #1
  78     r16.[ gis'16~_\f
  79   }
  80   \tuplet 5/4 {
  81     gis'32
  82     \override NoteHead.color = #red
  83     c'8_\pp
  84   }
  85   \tuplet 5/4 {
  86     cis''16. _\mf
  87     \override NoteHead.color = #blue
  88     fis'16] _\p
  89   }
  90 }
  91
  92 measIIIu = {
  93   \tupletUp
  94   \override TupletBracket.bracket-visibility = ##t
  95   \tweak style #'dashed-line
  96   \tweak text #tuplet-number::calc-fraction-text
  97   \tweak positions #'(20 . 20)
  98   \tuplet 4/3 {
  99     \tweak positions #'(17.5 . 17.5)
 100     \tuplet 5/4 {
 101       \override NoteHead.color = #red
 102       \change Staff = lower
 103       \voiceOne
 104       <d'' es'> 8[ _\laissezVibrer
 105       \change Staff = upper
 106       \voiceTwo
 107       f''32^\f\laissezVibrer
 108     }
 109     \override NoteHead.color = #blue
 110     b''32^\ff\laissezVibrer
 111     a'16.^\ff\laissezVibrer
 112     gis''8^\ff\laissezVibrer
 113     \change Staff = lower
 114     \voiceOne
 115     \clef bass
 116     \override NoteHead.color = #red
 117     cis'8]_\pp
 118     \oneVoice
 119   }
 120 }
 121
 122 measIIIl = {
 123   \textSpannerDown
 124   \override TextSpanner.bound-details.left.text = \markup { \musicglyph #"pedal.Ped" }
 125   \override TextSpanner.bound-details.right.text = \markup { \musicglyph #"pedal.*" }
 126   \override TextSpanner.dash-fraction = #0.05
 127   \override TextSpanner.dash-period = #1
 128   s8 _\pp\startTextSpan s8
 129   s16 s32 s32 \stopTextSpan
 130 }
 131
 132 measIVu = {
 133   \revert TupletBracket.positions
 134   \override NoteHead.color = #red
 135   \change Staff = upper
 136   \tupletUp
 137   c''4.~_\p
 138   \tuplet 5/4 {
 139     c''32 r8
 140   }
 141 }
 142
 143 measIVl = {
 144   \override NoteHead.color = #red
 145   d,4.~_\mf
 146   \tuplet 5/4 {
 147     d,32 r8
 148   }
 149 }
 150
 151 \score {
 152   \new PianoStaff <<
 153     \new Staff = "upper"
 154     {
 155       \override Staff.TimeSignature #'transparent = ##t
 156       \override Staff.TimeSignature #'extra-spacing-width = #'(0.0 . 3.0)
 157       \accidentalStyle dodecaphonic
 158       \autoBeamOff
 159       \clef treble
 160       \measIu
 161       \measIIu
 162       \measIIIu
 163       \measIVu
 164     }
 165     \new Dynamics \with { \consists "Time_signature_engraver" }
 166     {
 167       \override Dynamics.TimeSignature.font-size = #4
 168       \override Dynamics.TimeSignature.font-name = "New Century Schoolbook"
 169       \time 2/8
 170       s4 |
 171       \time 3/8
 172       s4. |
 173       s4. |
 174       \time 4/8
 175       s2
 176     }
 177     \new Staff = "lower"
 178     {
 179       \override Staff.TimeSignature #'transparent = ##t
 180       \accidentalStyle dodecaphonic
 181       \autoBeamOff
 182       \clef bass
 183       \measIl
 184       \measIIl
 185       \measIIIl
 186       \measIVl
 187     }
 188   >>
 189 }