Documentation/snippets/pitches-headword.ly

   1 % Do not edit this file; it is automatically
   2 % generated from Documentation/snippets/new
   3 % This file is in the public domain.
   4 %% Note: this file works from version 2.12.0
   5 \version "2.13.10"
   6 \include "english.ly"
   7 #(set-global-staff-size 15)
   8 \paper{
   9   ragged-right=##t
  10   line-width=17\cm
  11   indent=0\cm
  12 }
  13
  14 \layout {
  15   \context { \Score
  16     \override PaperColumn #'keep-inside-line = ##t
  17     \override NonMusicalPaperColumn #'keep-inside-line = ##t
  18   }
  19 }
  20
  21 % NR 1.1 Pitches
  22
  23 \header {
  24   lsrtags = "headwords"
  25   texidoc = ""
  26   doctitle = "headword"
  27 } % begin verbatim
  28
  29
  30
  31 % L. v. Beethoven
  32 % Piano sonata 21 - Dem Grafen von Waldstein Gewidmet
  33 % chorale at measures 34 - 40+
  34
  35 \new PianoStaff <<
  36
  37    % RH Staff
  38    \new Staff <<
  39
  40       % RH Voice 1
  41       \new Voice {
  42          \set Score.currentBarNumber = #34
  43          \voiceOne
  44          gs''2 ( ^ \markup \italic { dolce e molto ligato }
  45          fs''4
  46          e''4
  47          |
  48          ds''2
  49          cs''2 )
  50          |
  51          ds''2 (
  52          e''4
  53          fs''4
  54          |
  55          <gs'' e''>2
  56          <fs'' ds''>2 )
  57          |
  58          \oneVoice
  59          \clef bass
  60          <gs' e' b>2 (
  61          <fs' ds' a>4
  62          <e' cs' gs>4
  63          |
  64          <ds' bs fs>2
  65          <cs' a e>2 )
  66          |
  67          \voiceOne
  68          b2 %(
  69          cs'4
  70          ds'4
  71          |
  72          \clef treble
  73          <e' gs>4 %)
  74          r4 r2
  75       }
  76
  77       % RH Voice 2
  78       \new Voice {
  79          \voiceTwo
  80          \override Staff.DynamicLineSpanner #'staff-padding = #2.5
  81          <e'' b'>2 \p
  82          <ds'' a'>4
  83          <cs'' gs'>4
  84          |
  85          <bs' fs'>2
  86          e'2
  87          |
  88          \once \override TextScript #'staff-padding = #2.5
  89          <b'! a'>2 _ \markup \italic { cresc. }
  90          b'4
  91          <e'' cs''>4
  92          |
  93          b'2. ( \sf \>
  94          a'4 )
  95          \clef bass
  96          | \break
  97          s1 \p
  98          |
  99          s1
 100          |
 101          <gs e>4 (
 102          <a fs>2. )
 103          |
 104          s4
 105          r4 r2
 106       }
 107
 108    >>
 109
 110    % LH Staff
 111    \new Staff {
 112       \override Staff.SustainPedalLineSpanner #'staff-padding = #5
 113       <gs' e'>2 ( \sustainOn
 114       <fs' ds' b>4 \sustainOff
 115       <e' cs'>4
 116       |
 117       <ds' bs gs>2
 118       <cs' a>2 ) \sustainOn
 119       |
 120       \clef bass
 121       \slurDown
 122       <ds' b! a fs>2 ( \sustainOff
 123       <e' b gs>4
 124       <fs' cs' a>4 \sustainOn
 125       |
 126       \clef treble
 127       \voiceOne
 128       <<
 129          {
 130             <gs' e'>2
 131             <fs' ds'>2 )
 132          }
 133          \new Voice {
 134             \voiceTwo
 135             b1 \sustainOff
 136          }
 137       >>
 138       \oneVoice
 139       |
 140       %\break
 141       \clef bass
 142       <gs e>2 (
 143       <fs ds b,>4
 144       <e cs>4
 145       |
 146       <ds bs, gs,>2
 147       <cs a,>2 ) \sustainOn
 148       |
 149       <b,! b,,!>1 ( \sustainOff
 150       |
 151       <e e,>4 )
 152       r4 r2
 153    }
 154
 155 >>