Documentation/snippets/simultaneous-headword.ly

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