input/manual/simultaneous-headword.ly

   1 \version "2.11.34"
   2 \include "english.ly"
   3
   4 % NR 1.5 Simultaneous notes
   5
   6 % L. v. Beethoven, Op. 111
   7 % Piano sonata 32
   8 % Movt II - Arietta - Adagio molto semplice e cantabile
   9 % measures 108 - 118
  10
  11 #(set-global-staff-size 16)
  12
  13 \paper {
  14   #(define dump-extents #t)
  15   indent = 0\mm
  16   ragged-right = ##t
  17   line-width = 16\cm
  18   force-assignment = #""
  19   line-width = #(- line-width (* mm  3.000000))
  20 }
  21
  22 \layout {
  23    \context {
  24       \Score
  25       \override SpacingSpanner #'base-shortest-duration =
  26          #(ly:make-moment 1 18)
  27       \override NonMusicalPaperColumn #'line-break-system-details =
  28          #'((alignment-offsets . (0 -12)))
  29    }
  30 }
  31
  32 \new PianoStaff <<
  33
  34    % RH
  35    \new Staff <<
  36       \clef treble
  37       \key c \major
  38       \time 9/16
  39       \set Score.currentBarNumber = #108
  40
  41       % RH voice 1
  42       \new Voice {
  43
  44          \voiceOne
  45          s4.
  46          s8.
  47
  48          |
  49
  50          s4.
  51          a''8 \p \> [ (
  52          g''16 ] )
  53
  54          |
  55
  56          g''4.
  57          af''8 [ (
  58          g''16 ] )
  59
  60          |
  61
  62          g''8. [
  63          g''8.
  64          g''8. \pp ]
  65
  66          |
  67
  68          g''8. [
  69          af''8.
  70          af''8. ]
  71
  72          |
  73
  74          af''8. [
  75          af''8.
  76          af''8. ]
  77
  78          |
  79
  80          af''4. \startTrillSpan
  81          ~
  82          af''8.
  83          ~
  84
  85          |
  86
  87          af''4.
  88          ~
  89          af''8.
  90          ~
  91
  92          |
  93
  94          \oneVoice
  95          <af'' d''>8. [
  96          a''8. \p \<
  97          bf''8. ]
  98          ~
  99
 100          |
 101
 102          bf''8. [
 103          b''8.
 104          c'''8. ]
 105          ~
 106
 107          \bar "||"
 108
 109          \key ef \major
 110          c'''8. [
 111          cs'''8. \f ] \stopTrillSpan
 112
 113       }
 114
 115       % RH voice 2
 116       \new Voice {
 117          \voiceTwo
 118          \override Voice.TrillSpanner #'direction = #down
 119          d''4. \f \startTrillSpan
 120          ~
 121          d''8.
 122          ~
 123
 124          |
 125
 126          d''4.
 127          ~
 128          d''8.
 129          ~
 130
 131          |
 132
 133          d''8. \stopTrillSpan
 134          d''4. \startTrillSpan
 135          ~
 136
 137          |
 138
 139          d''4.
 140          ~
 141          d''8.
 142          ~
 143
 144          |
 145
 146          d''4.
 147          ~
 148          d''8.
 149          ~
 150
 151          |
 152
 153          d''4.
 154          ~
 155          d''8. \stopTrillSpan
 156          ~
 157
 158          |
 159
 160          d''4. \startTrillSpan
 161          ~
 162          d''8.
 163          ~
 164
 165          |
 166
 167          d''4.
 168          ~
 169          d''8.
 170          ~
 171
 172          |
 173
 174          \once \override NoteColumn #'ignore-collision = ##t
 175          \once \override NoteHead #'transparent = ##t
 176          \once \override Dots #'transparent = ##t
 177          \once \override Stem #'transparent = ##t
 178          d''8. \stopTrillSpan
 179          s4.
 180
 181          |
 182
 183          s8.
 184          s8.
 185
 186       }
 187
 188    >>
 189
 190    % LH staff
 191    \new Staff {
 192       \clef bass
 193       \key c \major
 194       \time 9/16
 195
 196       r8.
 197       r8.
 198       <c! c,!>8 [ (
 199       <g, g,,>16 ] )
 200
 201       |
 202
 203       <g, g,,>4.
 204       \clef treble
 205       c''8 [ (
 206       b'16 ] )
 207
 208       |
 209
 210       b'4.
 211       c''8 [ (
 212       b'16 ] )
 213
 214       |
 215
 216       b'8. [
 217       b'8.
 218       b'8. ]
 219
 220       |
 221
 222       b'8. [
 223       bf'8. ]
 224       \clef bass
 225       <f f,>8 [ (
 226       <bf, bf,,>16 ] )
 227
 228       |
 229
 230       <bf, bf,,>4.
 231       \clef treble
 232       f'8 [ (
 233       bf16 ] )
 234
 235       |
 236
 237       <<
 238
 239          \new Voice {
 240             \voiceOne
 241             \override Voice.TrillSpanner #'direction = #up
 242             f'4. \startTrillSpan
 243             ~
 244             f'8.
 245             ~
 246
 247             |
 248
 249             f'4.
 250             ~
 251             f'8.
 252             ~
 253
 254             |
 255
 256             f'8. \stopTrillSpan
 257          }
 258
 259          \new Voice {
 260             \voiceTwo
 261             \override Voice.TrillSpanner #'direction = #down
 262             bf8. [
 263             bf8.
 264             bf8. ]
 265
 266             |
 267
 268             bf8. [
 269             bf8.
 270             bf8. ]
 271
 272             |
 273
 274             bf8.
 275          }
 276
 277       >>
 278
 279       \oneVoice
 280       r8.
 281       r8.
 282
 283       |
 284
 285       r8.
 286       r8.
 287       r8.
 288       \clef bass
 289
 290       |
 291
 292       \key ef \major
 293       r8.
 294       r8.
 295
 296    }
 297
 298 >>