Imported Upstream version 2.14.2

[lilypond.git] / Documentation / snippets / new / pitches-headword.ly

diff --git a/Documentation/snippets/new/pitches-headword.ly b/Documentation/snippets/new/pitches-headword.ly
new file mode 100644 (file)
index 0000000..9bd3dd0
--- /dev/null
+++ b/Documentation/snippets/new/pitches-headword.ly
@@ -0,0 +1,143 @@
+\version "2.14.0"
+\include "english.ly"
+#(set-global-staff-size 15)
+\paper {
+  ragged-right = ##t
+  line-width = 17\cm
+  indent = 0\cm
+}
+
+% NR 1.1 Pitches
+
+\header {
+  lsrtags = "headwords"
+  texidoc = ""
+  doctitle = "headword"
+}
+
+
+% L. v. Beethoven
+% Piano sonata 21 - Dem Grafen von Waldstein Gewidmet
+% chorale at measures 34 - 40+
+
+\new PianoStaff <<
+
+  % RH Staff
+  \new Staff <<
+
+    % RH Voice 1
+    \new Voice {
+      \set Score.currentBarNumber = #34
+      \voiceOne
+      gs''2 ( ^ \markup \italic { dolce e molto ligato }
+      fs''4
+      e''4
+      |
+      ds''2
+      cs''2 )
+      |
+      ds''2 (
+      e''4
+      fs''4
+      |
+      <gs'' e''>2
+      <fs'' ds''>2 )
+      |
+      \oneVoice
+      \clef bass
+      <gs' e' b>2 (
+      <fs' ds' a>4
+      <e' cs' gs>4
+      |
+      <ds' bs fs>2
+      <cs' a e>2 )
+      |
+      \voiceOne
+      b2 %(
+      cs'4
+      ds'4
+      |
+      \clef treble
+      <e' gs>4 %)
+      r4 r2
+    }
+
+    % RH Voice 2
+    \new Voice {
+      \voiceTwo
+      \override Staff.DynamicLineSpanner #'staff-padding = #2.5
+      <e'' b'>2 \p
+      <ds'' a'>4
+      <cs'' gs'>4
+      |
+      <bs' fs'>2
+      e'2
+      |
+      \once \override TextScript #'staff-padding = #2.5
+      <b'! a'>2 _ \markup \italic { cresc. }
+      b'4
+      <e'' cs''>4
+      |
+      b'2. ( \sf \>
+      a'4 )
+      \clef bass
+      | \break
+      s1 \p
+      |
+      s1
+      |
+      <gs e>4 (
+      <a fs>2. )
+      |
+      s4
+      r4 r2
+    }
+
+  >>
+
+  % LH Staff
+  \new Staff {
+    \override Staff.SustainPedalLineSpanner #'staff-padding = #5
+    <gs' e'>2 ( \sustainOn
+    <fs' ds' b>4 \sustainOff
+    <e' cs'>4
+    |
+    <ds' bs gs>2
+    <cs' a>2 ) \sustainOn
+    |
+    \clef bass
+    \slurDown
+    <ds' b! a fs>2 ( \sustainOff
+    <e' b gs>4
+    <fs' cs' a>4 \sustainOn
+    |
+    \clef treble
+    \voiceOne
+    <<
+      {
+        <gs' e'>2
+        <fs' ds'>2 )
+      }
+      \new Voice {
+        \voiceTwo
+        b1 \sustainOff
+      }
+    >>
+    \oneVoice
+    |
+    %\break
+    \clef bass
+    <gs e>2 (
+    <fs ds b,>4
+    <e cs>4
+    |
+    <ds bs, gs,>2
+    <cs a,>2 ) \sustainOn
+    |
+    <b,! b,,!>1 ( \sustainOff
+    |
+    <e e,>4 )
+    r4 r2
+  }
+
+>>