Documentation/snippets/new/simultaneous-headword.ly

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