X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Documentation%2Fincluded%2Fsimultaneous-headword.ly;fp=Documentation%2Fincluded%2Fsimultaneous-headword.ly;h=a6b5ff8e470a606d795921df34adc286b60d96dc;hb=38a32411fecdac3d15b12fe912f38c698a42ee66;hp=0000000000000000000000000000000000000000;hpb=5a2c25e22c411fa14fdc220c13b2495e244c4c25;p=lilypond.git

diff --git a/Documentation/included/simultaneous-headword.ly b/Documentation/included/simultaneous-headword.ly
new file mode 100644
index 0000000000..a6b5ff8e47
--- /dev/null
+++ b/Documentation/included/simultaneous-headword.ly
@@ -0,0 +1,313 @@
+\version "2.12.0"
+\include "english.ly"
+#(set-global-staff-size 15)
+\paper{
+  ragged-right=##t
+  line-width=17\cm
+  indent=0\cm
+}
+
+\layout {
+  \context { \Score
+    \override PaperColumn #'keep-inside-line = ##t
+    \override NonMusicalPaperColumn #'keep-inside-line = ##t
+  }
+}
+
+% NR 1.5 Simultaneous notes
+
+% L. v. Beethoven, Op. 111
+% Piano sonata 32
+% Movt II - Arietta - Adagio molto semplice e cantabile
+% measures 108 - 118
+
+\layout {
+   \context {
+      \Score
+      \override SpacingSpanner #'base-shortest-duration =
+         #(ly:make-moment 1 18)
+      \override NonMusicalPaperColumn #'line-break-system-details =
+         #'((alignment-offsets . (0 -12)))
+   }
+}
+
+trillflat =
+  \once \override TrillSpanner #'(bound-details left text) =
+    #(markup #:translate-scaled '(-0.05 . -1)
+             #:concat (#:musicglyph "scripts.trill"
+                       #:translate '(-0.5 . 1.9) #:fontsize -7 #:flat))
+
+
+\new PianoStaff <<
+
+   % RH
+   \new Staff <<
+      \clef treble
+      \key c \major
+      \time 9/16
+      \set Score.currentBarNumber = #108
+
+      % RH voice 1
+      \new Voice {
+
+         \voiceOne
+         s4.
+         s8.
+
+         |
+
+         s4.
+         a''8 \p \> [ (
+         g''16 ] )
+
+         |
+
+         g''4.
+         af''8 [ (
+         g''16 ] )
+
+         |
+
+         g''8. [
+         g''8.
+         g''8. \pp ]
+
+         |
+
+         g''8. [
+         af''8.
+         af''8. ]
+
+         |
+
+         af''8. [
+         af''8.
+         af''8. ]
+
+         |
+         \break
+
+         \trillflat
+         af''4. \startTrillSpan
+         ~
+         af''8.
+         ~
+
+         |
+
+         af''4.
+         ~
+         af''8.
+         ~
+
+         |
+
+         \oneVoice
+         <af'' d''>8. [
+         a''8. \p \<
+         bf''8. ]
+         ~
+
+         |
+
+         bf''8. [
+         b''8.
+         c'''8. ]
+         ~
+
+         \bar "||"
+
+         \key ef \major
+         c'''8. [
+         cs'''8. \f ] \stopTrillSpan
+         r8.
+
+      }
+
+      % RH voice 2
+      \new Voice {
+         \voiceTwo
+         \override Voice.TrillSpanner #'direction = #down
+         d''4. \f \startTrillSpan
+         ~
+         d''8.
+         ~
+
+         |
+
+         d''4.
+         ~
+         d''8.
+         ~
+
+         |
+
+         d''8. \stopTrillSpan
+         \trillflat
+         d''4. \startTrillSpan
+         ~
+
+         |
+
+         d''4.
+         ~
+         d''8.
+         ~
+
+         |
+
+         d''4.
+         ~
+         d''8.
+         ~
+
+         |
+
+         d''4.
+         ~
+         d''8. \stopTrillSpan
+         ~
+
+         |
+
+         \trillflat
+         d''4. \startTrillSpan
+         ~
+         d''8.
+         ~
+
+         |
+
+         d''4.
+         ~
+         d''8.
+         ~
+
+         |
+
+         \once \override NoteColumn #'ignore-collision = ##t
+         \once \override NoteHead #'transparent = ##t
+         \once \override Dots #'transparent = ##t
+         \once \override Stem #'transparent = ##t
+         d''8. \stopTrillSpan
+         s4.
+
+         |
+
+         s8.
+         s8.
+
+      }
+
+   >>
+
+   % LH staff
+   \new Staff {
+      \clef bass
+      \key c \major
+      \time 9/16
+      
+      r8.
+      r8.
+      <c! c,!>8 [ (
+      <g, g,,>16 ] )
+
+      |
+
+      <g, g,,>4.
+      \clef treble
+      c''8 [ (
+      b'16 ] )
+
+      |
+
+      b'4.
+      c''8 [ (
+      b'16 ] )
+
+      |
+
+      b'8. [
+      b'8.
+      b'8. ]
+
+      |
+
+      b'8. [
+      bf'8. ]
+      \clef bass
+      <f f,>8 [ (
+      <bf, bf,,>16 ] )
+
+      |
+
+      <bf, bf,,>4.
+      \clef treble
+      f'8 [ (
+      bf16 ] )
+
+      |
+
+      <<
+
+         \new Voice {
+            \voiceOne
+            \override Voice.TrillSpanner #'direction = #up
+            f'4. \startTrillSpan
+            ~
+            f'8.
+            ~
+
+            |
+
+            f'4.
+            ~
+            f'8.
+            ~
+
+            |
+
+            f'8. \stopTrillSpan
+         }
+
+         \new Voice {
+            \voiceTwo
+            \override Voice.TrillSpanner #'direction = #down
+            bf8. [
+            bf8.
+            bf8. ]
+
+            |
+
+            bf8. [
+            bf8.
+            bf8. ]
+
+            |
+
+            bf8.
+         }
+
+      >>
+
+      \oneVoice
+      r8.
+      r8.
+
+      |
+
+      r8.
+      r8.
+      r8.
+      \clef bass
+
+      |
+
+      \key ef \major
+      r8.
+      r8.
+      r8.
+         
+   }
+   
+>>