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