X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Documentation%2Fsnippets%2Fnew%2Fsimultaneous-headword.ly;fp=Documentation%2Fsnippets%2Fnew%2Fsimultaneous-headword.ly;h=e42121447e312ed313df611faf05c48d72c6e576;hb=e90f0536f9be39ada0bef0aeb0d275dec3b2fb5b;hp=0000000000000000000000000000000000000000;hpb=a8c9e8a7ca320ab0df5fd32e717fd62cd7635ce6;p=lilypond.git

diff --git a/Documentation/snippets/new/simultaneous-headword.ly b/Documentation/snippets/new/simultaneous-headword.ly
new file mode 100644
index 0000000000..e42121447e
--- /dev/null
+++ b/Documentation/snippets/new/simultaneous-headword.ly
@@ -0,0 +1,314 @@
+\version "2.14.0"
+\include "english.ly"
+#(set-global-staff-size 15)
+\paper {
+  ragged-right = ##t
+  line-width = 17\cm
+  indent = 0\cm
+}
+
+\header {
+  lsrtags = "headwords"
+  texidoc = ""
+  doctitle = "headword"
+}
+
+% 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-distances . (12)))
+  }
+}
+
+trillFlat =
+\once \override TrillSpanner #'(bound-details left text) = \markup {
+  \concat {
+    \musicglyph #"scripts.trill"
+    \translate #'(-0.5 . 1.9)
+    \fontsize #-7
+    \with-dimensions #'(0 . 0) #'(0 . 0)
+    \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
+      \hideNotes
+      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.
+
+  }
+
+>>