Documentation/snippets/simultaneous-headword.ly

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