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.17.11"
   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       \voiceOne
  61       s4. s8. |
  62       s4. a''8[( \p \> g''16]) |
  63       g''4. af''8[( g''16]) |
  64       g''8.[ g''8. g''8.] \pp |
  65       g''8.[ af''8.af''8.] |
  66       af''8.[ af''8.af''8.] |
  67       \trillFlat
  68       af''4.~ \startTrillSpan
  69       af''8.~ |
  70       af''4.~ af''8.~ |
  71       \oneVoice
  72       <af'' d''>8.[ a''8. \p \< bf''8.]~ |
  73       bf''8.[ b''8. c'''8.]~
  74       \bar "||"
  75       \key ef \major
  76       c'''8.[ cs'''8.] \f \stopTrillSpan
  77       r8.
  78     }
  79
  80     % RH voice 2
  81     \new Voice {
  82       \voiceTwo
  83       \override Voice.TrillSpanner.direction = #DOWN
  84       d''4.~ \f \startTrillSpan
  85       d''8.~ |
  86       d''4.~ d''8.~ |
  87       d''8. \stopTrillSpan
  88       \trillFlat
  89       d''4.~ \startTrillSpan |
  90       d''4.~ d''8.~ |
  91       d''4.~ d''8.~ |
  92       d''4.~ d''8.~ \stopTrillSpan |
  93       \trillFlat
  94       d''4.~ \startTrillSpan
  95       d''8. ~ |
  96       d''4.~ d''8.~ |
  97       \once \override NoteColumn.ignore-collision = ##t
  98       \hideNotes
  99       d''8. \stopTrillSpan
 100       s4. |
 101       s8. s8.
 102     }
 103
 104   >>
 105
 106   % LH staff
 107   \new Staff {
 108     \clef bass
 109     \key c \major
 110     \time 9/16
 111     r8. r8. <c! c,!>8[( <g, g,,>16]) |
 112     <g, g,,>4.
 113     \clef treble
 114     c''8[( b'16]) |
 115     b'4. c''8[( b'16]) |
 116     b'8.[ b'8. b'8.] |
 117     b'8.[ bf'8.]
 118     \clef bass
 119     <f f,>8[( <bf, bf,,>16]) |
 120     <bf, bf,,>4.
 121     \clef treble
 122     f'8[( bf16]) |
 123     <<
 124       \new Voice {
 125         \voiceOne
 126         \override Voice.TrillSpanner.direction = #UP
 127         f'4.~ \startTrillSpan
 128         f'8.~ |
 129         f'4.~ f'8.~ |
 130         f'8. \stopTrillSpan
 131       }
 132       \new Voice {
 133         \voiceTwo
 134         \override Voice.TrillSpanner.direction = #DOWN
 135         bf8.[ bf8. bf8.] |
 136         bf8.[ bf8. bf8.] |
 137         bf8.
 138       }
 139     >>
 140     \oneVoice
 141     r8. r8. |
 142     r8. r8. r8.
 143     \clef bass
 144     |
 145     \key ef \major
 146     r8. r8. r8.
 147   }
 148 >>