Documentation/snippets/pitches-headword.ly

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