Documentation/snippets/simultaneous-headword.ly

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