Documentation/snippets/new/simultaneous-headword.ly

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