input/manual/simultaneous-headword.ly

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