Documentation/snippets/new/simultaneous-headword.ly

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