input/manual/simultaneous-headword.ly

   1 \version "2.11.57"
   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
  89          \trillflat
  90          af''4. \startTrillSpan
  91          ~
  92          af''8.
  93          ~
  94
  95          |
  96
  97          af''4.
  98          ~
  99          af''8.
 100          ~
 101
 102          |
 103
 104          \oneVoice
 105          <af'' d''>8. [
 106          a''8. \p \<
 107          bf''8. ]
 108          ~
 109
 110          |
 111
 112          bf''8. [
 113          b''8.
 114          c'''8. ]
 115          ~
 116
 117          \bar "||"
 118
 119          \key ef \major
 120          c'''8. [
 121          cs'''8. \f ] \stopTrillSpan
 122          r8.
 123
 124       }
 125
 126       % RH voice 2
 127       \new Voice {
 128          \voiceTwo
 129          \override Voice.TrillSpanner #'direction = #down
 130          d''4. \f \startTrillSpan
 131          ~
 132          d''8.
 133          ~
 134
 135          |
 136
 137          d''4.
 138          ~
 139          d''8.
 140          ~
 141
 142          |
 143
 144          d''8. \stopTrillSpan
 145          \trillflat
 146          d''4. \startTrillSpan
 147          ~
 148
 149          |
 150
 151          d''4.
 152          ~
 153          d''8.
 154          ~
 155
 156          |
 157
 158          d''4.
 159          ~
 160          d''8.
 161          ~
 162
 163          |
 164
 165          d''4.
 166          ~
 167          d''8. \stopTrillSpan
 168          ~
 169
 170          |
 171
 172          \trillflat
 173          d''4. \startTrillSpan
 174          ~
 175          d''8.
 176          ~
 177
 178          |
 179
 180          d''4.
 181          ~
 182          d''8.
 183          ~
 184
 185          |
 186
 187          \once \override NoteColumn #'ignore-collision = ##t
 188          \once \override NoteHead #'transparent = ##t
 189          \once \override Dots #'transparent = ##t
 190          \once \override Stem #'transparent = ##t
 191          d''8. \stopTrillSpan
 192          s4.
 193
 194          |
 195
 196          s8.
 197          s8.
 198
 199       }
 200
 201    >>
 202
 203    % LH staff
 204    \new Staff {
 205       \clef bass
 206       \key c \major
 207       \time 9/16
 208
 209       r8.
 210       r8.
 211       <c! c,!>8 [ (
 212       <g, g,,>16 ] )
 213
 214       |
 215
 216       <g, g,,>4.
 217       \clef treble
 218       c''8 [ (
 219       b'16 ] )
 220
 221       |
 222
 223       b'4.
 224       c''8 [ (
 225       b'16 ] )
 226
 227       |
 228
 229       b'8. [
 230       b'8.
 231       b'8. ]
 232
 233       |
 234
 235       b'8. [
 236       bf'8. ]
 237       \clef bass
 238       <f f,>8 [ (
 239       <bf, bf,,>16 ] )
 240
 241       |
 242
 243       <bf, bf,,>4.
 244       \clef treble
 245       f'8 [ (
 246       bf16 ] )
 247
 248       |
 249
 250       <<
 251
 252          \new Voice {
 253             \voiceOne
 254             \override Voice.TrillSpanner #'direction = #up
 255             f'4. \startTrillSpan
 256             ~
 257             f'8.
 258             ~
 259
 260             |
 261
 262             f'4.
 263             ~
 264             f'8.
 265             ~
 266
 267             |
 268
 269             f'8. \stopTrillSpan
 270          }
 271
 272          \new Voice {
 273             \voiceTwo
 274             \override Voice.TrillSpanner #'direction = #down
 275             bf8. [
 276             bf8.
 277             bf8. ]
 278
 279             |
 280
 281             bf8. [
 282             bf8.
 283             bf8. ]
 284
 285             |
 286
 287             bf8.
 288          }
 289
 290       >>
 291
 292       \oneVoice
 293       r8.
 294       r8.
 295
 296       |
 297
 298       r8.
 299       r8.
 300       r8.
 301       \clef bass
 302
 303       |
 304
 305       \key ef \major
 306       r8.
 307       r8.
 308       r8.
 309
 310    }
 311
 312 >>