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.12.0
   5 \version "2.13.10"
   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) =
  49 #(markup #:translate-scaled '(-0.05 . -1)
  50   #:concat (#:musicglyph "scripts.trill"
  51     #:translate '(-0.5 . 1.9) #:fontsize -7 #:flat))
  52
  53
  54 \new PianoStaff <<
  55
  56   % RH
  57   \new Staff <<
  58     \clef treble
  59     \key c \major
  60     \time 9/16
  61     \set Score.currentBarNumber = #108
  62
  63     % RH voice 1
  64     \new Voice {
  65
  66       \voiceOne
  67       s4.
  68       s8.
  69
  70       |
  71
  72       s4.
  73       a''8 \p \> [ (
  74       g''16 ] )
  75
  76       |
  77
  78       g''4.
  79       af''8 [ (
  80       g''16 ] )
  81
  82       |
  83
  84       g''8. [
  85       g''8.
  86       g''8. \pp ]
  87
  88       |
  89
  90       g''8. [
  91       af''8.
  92       af''8. ]
  93
  94       |
  95
  96       af''8. [
  97       af''8.
  98       af''8. ]
  99
 100       |
 101       \break
 102
 103       \trillflat
 104       af''4. \startTrillSpan
 105       ~
 106       af''8.
 107       ~
 108
 109       |
 110
 111       af''4.
 112       ~
 113       af''8.
 114       ~
 115
 116       |
 117
 118       \oneVoice
 119       <af'' d''>8. [
 120       a''8. \p \<
 121       bf''8. ]
 122       ~
 123
 124       |
 125
 126       bf''8. [
 127       b''8.
 128       c'''8. ]
 129       ~
 130
 131       \bar "||"
 132
 133       \key ef \major
 134       c'''8. [
 135       cs'''8. \f ] \stopTrillSpan
 136       r8.
 137
 138     }
 139
 140     % RH voice 2
 141     \new Voice {
 142       \voiceTwo
 143       \override Voice.TrillSpanner #'direction = #DOWN
 144       d''4. \f \startTrillSpan
 145       ~
 146       d''8.
 147       ~
 148
 149       |
 150
 151       d''4.
 152       ~
 153       d''8.
 154       ~
 155
 156       |
 157
 158       d''8. \stopTrillSpan
 159       \trillflat
 160       d''4. \startTrillSpan
 161       ~
 162
 163       |
 164
 165       d''4.
 166       ~
 167       d''8.
 168       ~
 169
 170       |
 171
 172       d''4.
 173       ~
 174       d''8.
 175       ~
 176
 177       |
 178
 179       d''4.
 180       ~
 181       d''8. \stopTrillSpan
 182       ~
 183
 184       |
 185
 186       \trillflat
 187       d''4. \startTrillSpan
 188       ~
 189       d''8.
 190       ~
 191
 192       |
 193
 194       d''4.
 195       ~
 196       d''8.
 197       ~
 198
 199       |
 200
 201       \once \override NoteColumn #'ignore-collision = ##t
 202       \hideNotes
 203       d''8. \stopTrillSpan
 204       s4.
 205
 206       |
 207
 208       s8.
 209       s8.
 210
 211     }
 212
 213   >>
 214
 215   % LH staff
 216   \new Staff {
 217     \clef bass
 218     \key c \major
 219     \time 9/16
 220
 221     r8.
 222     r8.
 223     <c! c,!>8 [ (
 224     <g, g,,>16 ] )
 225
 226     |
 227
 228     <g, g,,>4.
 229     \clef treble
 230     c''8 [ (
 231     b'16 ] )
 232
 233     |
 234
 235     b'4.
 236     c''8 [ (
 237     b'16 ] )
 238
 239     |
 240
 241     b'8. [
 242     b'8.
 243     b'8. ]
 244
 245     |
 246
 247     b'8. [
 248     bf'8. ]
 249     \clef bass
 250     <f f,>8 [ (
 251     <bf, bf,,>16 ] )
 252
 253     |
 254
 255     <bf, bf,,>4.
 256     \clef treble
 257     f'8 [ (
 258     bf16 ] )
 259
 260     |
 261
 262     <<
 263
 264       \new Voice {
 265         \voiceOne
 266         \override Voice.TrillSpanner #'direction = #UP
 267         f'4. \startTrillSpan
 268         ~
 269         f'8.
 270         ~
 271
 272         |
 273
 274         f'4.
 275         ~
 276         f'8.
 277         ~
 278
 279         |
 280
 281         f'8. \stopTrillSpan
 282       }
 283
 284       \new Voice {
 285         \voiceTwo
 286         \override Voice.TrillSpanner #'direction = #DOWN
 287         bf8. [
 288         bf8.
 289         bf8. ]
 290
 291         |
 292
 293         bf8. [
 294         bf8.
 295         bf8. ]
 296
 297         |
 298
 299         bf8.
 300       }
 301
 302     >>
 303
 304     \oneVoice
 305     r8.
 306     r8.
 307
 308     |
 309
 310     r8.
 311     r8.
 312     r8.
 313     \clef bass
 314
 315     |
 316
 317     \key ef \major
 318     r8.
 319     r8.
 320     r8.
 321
 322   }
 323
 324 >>