Documentation/snippets/simultaneous-headword.ly

   1 %% DO NOT EDIT this file manually; it is automatically
   2 %% generated from LSR http://lsr.di.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.18.0"
   8
   9 \header {
  10   lsrtags = "headword"
  11
  12   texidoc = "
  13 Simultaneous notes
  14
  15 "
  16   doctitle = "Simultaneous headword"
  17 } % begin verbatim
  18
  19 %% http://lsr.di.unimi.it/LSR/Item?id=825
  20 %% see also http://lilypond.org/doc/v2.18/Documentation/notation/simultaneous-notes
  21
  22 \include "english.ly"
  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-distances . (12)))
  38   }
  39 }
  40
  41 trillFlat =
  42 \once \override TrillSpanner.bound-details.left.text = \markup {
  43   \concat {
  44     \musicglyph #"scripts.trill"
  45     \translate #'(-0.5 . 1.9)
  46     \fontsize #-7
  47     \with-dimensions #'(0 . 0) #'(0 . 0)
  48     \flat
  49   }
  50 }
  51
  52 \new PianoStaff <<
  53
  54   % RH
  55   \new Staff <<
  56     \clef treble
  57     \key c \major
  58     \time 9/16
  59     \set Score.currentBarNumber = #108
  60
  61     % RH voice 1
  62     \new Voice {
  63       \voiceOne
  64       s4. s8. |
  65       s4. a''8[( \p \> g''16]) |
  66       g''4. af''8[( g''16]) |
  67       g''8.[ g''8. g''8.] \pp |
  68       g''8.[ af''8.af''8.] |
  69       af''8.[ af''8.af''8.] |
  70       \trillFlat
  71       af''4.~ \startTrillSpan
  72       af''8.~ |
  73       af''4.~ af''8.~ |
  74       \oneVoice
  75       <af'' d''>8.[ a''8. \p \< bf''8.]~ |
  76       bf''8.[ b''8. c'''8.]~
  77       \bar "||"
  78       \key ef \major
  79       c'''8.[ cs'''8.] \f \stopTrillSpan
  80       r8.
  81     }
  82
  83     % RH voice 2
  84     \new Voice {
  85       \voiceTwo
  86       \override Voice.TrillSpanner.direction = #DOWN
  87       d''4.~ \f \startTrillSpan
  88       d''8.~ |
  89       d''4.~ d''8.~ |
  90       d''8. \stopTrillSpan
  91       \trillFlat
  92       d''4.~ \startTrillSpan |
  93       d''4.~ d''8.~ |
  94       d''4.~ d''8.~ |
  95       d''4.~ d''8.~ \stopTrillSpan |
  96       \trillFlat
  97       d''4.~ \startTrillSpan
  98       d''8. ~ |
  99       d''4.~ d''8.~ |
 100       \once \override NoteColumn.ignore-collision = ##t
 101       \hideNotes
 102       d''8. \stopTrillSpan
 103       s4. |
 104       s8. s8.
 105     }
 106
 107   >>
 108
 109   % LH staff
 110   \new Staff {
 111     \clef bass
 112     \key c \major
 113     \time 9/16
 114     r8. r8. <c! c,!>8[( <g, g,,>16]) |
 115     <g, g,,>4.
 116     \clef treble
 117     c''8[( b'16]) |
 118     b'4. c''8[( b'16]) |
 119     b'8.[ b'8. b'8.] |
 120     b'8.[ bf'8.]
 121     \clef bass
 122     <f f,>8[( <bf, bf,,>16]) |
 123     <bf, bf,,>4.
 124     \clef treble
 125     f'8[( bf16]) |
 126     <<
 127       \new Voice {
 128         \voiceOne
 129         \override Voice.TrillSpanner.direction = #UP
 130         f'4.~ \startTrillSpan
 131         f'8.~ |
 132         f'4.~ f'8.~ |
 133         f'8. \stopTrillSpan
 134       }
 135       \new Voice {
 136         \voiceTwo
 137         \override Voice.TrillSpanner.direction = #DOWN
 138         bf8.[ bf8. bf8.] |
 139         bf8.[ bf8. bf8.] |
 140         bf8.
 141       }
 142     >>
 143     \oneVoice
 144     r8. r8. |
 145     r8. r8. r8.
 146     \clef bass
 147     |
 148     \key ef \major
 149     r8. r8. r8.
 150   }
 151 >>