181 lines
3.3 KiB
Plaintext
181 lines
3.3 KiB
Plaintext
%% Generated by lilypond-book.py
|
|
%% Options: [quote,alt=[image of music],indent=0\mm]
|
|
\include "lilypond-book-preamble.ly"
|
|
|
|
|
|
% ****************************************************************
|
|
% Start cut-&-pastable-section
|
|
% ****************************************************************
|
|
|
|
|
|
|
|
\paper {
|
|
#(define dump-extents #t)
|
|
|
|
line-width = 160\mm - 2.0 * 0.4\in
|
|
indent = 0\mm
|
|
force-assignment = #""
|
|
line-width = #(- line-width (* mm 3.000000))
|
|
}
|
|
|
|
\layout {
|
|
|
|
}
|
|
|
|
|
|
|
|
% ****************************************************************
|
|
% ly snippet:
|
|
% ****************************************************************
|
|
\sourcefilename "pitches-headword.ly"
|
|
\sourcefileline 0
|
|
\version "2.12.0"
|
|
\include "english.ly"
|
|
#(set-global-staff-size 15)
|
|
\paper{
|
|
ragged-right=##t
|
|
line-width=17\cm
|
|
indent=0\cm
|
|
}
|
|
|
|
\layout {
|
|
\context { \Score
|
|
\override PaperColumn #'keep-inside-line = ##t
|
|
\override NonMusicalPaperColumn #'keep-inside-line = ##t
|
|
}
|
|
}
|
|
|
|
% NR 1.1 Pitches
|
|
|
|
% 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
|
|
}
|
|
|
|
>>
|
|
|
|
|
|
|
|
% ****************************************************************
|
|
% end ly snippet
|
|
% ****************************************************************
|