% #(ly:set-point-and-click 'line-column)

instrument = "Piano"

\header {
  title = "Ständchen"
  subtitle = "(Serenade)"
  subsubtitle = "Leise flehen meine Lieder"
  opus = "D. 957 No. 4"
  date = "August 1828"
  composer = "Franz Schubert (1797-1828)"
  poet = "Text by Ludwig Rellstab (1799-1860)"
  enteredby = "JCN"
  copyright = "public domain"
  % instrument = \instrument

  % mutopia headers.
  mutopiatitle = "Standchen"
  mutopiasubtitle = "Leise flehen meine Lieder"
  mutopiacomposer = "Franz Schubert (1797-1828)"
  mutopiapoet = "Ludwig Rellstab (1799-1860)"
  mutopiaopus = "D957.4"
  mutopiainstrument = \instrument
  date = "1828/08"
  style = "Romantic"
  source = "Schubert-Lieder Edition Schott No. 608, (Not dated).
    Jubilaeums-Ausgabe zum 100. Todestage (~1928)."

  copyright = "Public Domain"
  maintainer = "Jan Nieuwenhuizen"
  maintainerEmail = "janneke@gnu.org"
  lastupdated =	 "2001/Apr/27"
  mutopiapublicdomain = "\\parbox[b]{\\hsize}{\\thefooter\\quad\\small
    \\\\This music is part of the Mutopia project,
    \\texttt{http://www.mutopiaproject.org/}\\\\It has been typeset
    and placed in the public domain by " + \maintainer +
    ".\\\\Unrestricted modification and redistribution is permitted
    and encouraged---copy this music and share it.}"
 tagline = \mutopiapublicdomain
 footer = "Mutopia-2001/04/27-xx"
} 

\version "1.7.18"

dynamicUp = \property Voice.DynamicLineSpanner \override #'direction = #1
dynamicRevert = \property Voice.DynamicLineSpanner \revert #'direction

\include "paper16.ly"

vocalVerse =  \notes\relative c''{
	\dynamicUp
	\times 2/3 {  g8-[(  as-)] g } c4. g8 |
	\times 2/3 {  f8-[(  g-)] f } c'4 f,8 r |
	g4.-> f8 \times 2/3 {  f-[(  es-)] d } |
	es2 r4 |
	R2. |
	R2. |
	\times 2/3 {  g8-[(  as-)] g } es'4. g,8 |
	\times 2/3 {  f8-[(  g-)] f } d'4. c8 |
	bes4. as8 \times 2/3 {  as-[(  g-)] f } |
	g2 r4 |
	R2. |
	R2. |
	g8. b16 es4. d8 |
	c8. g16 es4. c8 |
	\grace {  as'32-[( bes ] } \times 2/3 {  as8-[-)(  g-)] as } c4. as8 |
	g2. |
	\grace {  f32-[( g ] } \times 2/3 {  f8-[-)(  e-)] f } as4. f8 |
  
	es!2. |
	g8. b16 es4. d8 |
	c8. g16 e4. c8 |
 	\grace {  a'32-[( b ] } \times 2/3 {  a!8-[-)(  gis-)] a } c4. a8 |
	g!2. |
	\times 2/3 {  d'8-[-\f(  cis-)] d } f4. b,8 |
	c!2. |
}

vocalThrough =  \notes\relative c{
	\dynamicUp
	g''8. g16 b8. b16 d8. d16 |
	c4 b r |
	g4. b8 d8. c16 |
	b2 r4 |
	e4. d8 \times 2/3 {  d-[(  c-)] b } |
	a8. b16 c4-> a8 r |
	R2. |
	R2. |
	\grace {  a32-[( b ] } \times 2/3 {  a!8-[-)(  gis-)] a } c4. a8 |
	g!2. |
	\times 2/3 {  d'8-[-\f(  cis-)] d } f4. b,8 |
	c!2. ~ |
	% bug: slur on other staff fools lily into extending melisma
	c4 r c |
	as2. |
	g |
	e2 r4 |
}

lyricVerseOne =  \lyrics{
	Lei -- se fle -- hen mei -- ne Lie -- der
	durch die Nacht zu dir;
	in den stil -- len Hain her nie -- der,
	Lieb -- chen, komm zu mir! 
	
	Fl\"us -- ternd schlan -- ke Wip -- fel rau -- schen
	in des Mon -- des Licht,
	in des Mon -- des Licht;

	des Ver -- r\"a -- ters feind -- lich Lau -- schen
	f\"urch -- te, Hol -- de, nicht,
	f\"urch -- te, Hol -- de, nicht.
}
	
lyricVerseTwo =  \lyrics{
	H\"orst die Nach -- ti -- gal -- len schla -- gen?
	ach! sie fle -- hen dich, 
	mit der T\"o -- ne s\"u -- "\ss en" Kla -- gen
	fle -- hen sie f\"ur mich. 
	
	Sie -- ver -- "steh'n" des Bu -- sens Seh -- nen,
	ken -- nen Lieb -- es -- schmerz,
	ken -- nen Lieb -- es -- schmerz,

	r\"uh -- ren mit den Sil -- ber -- t\"o -- nen
	jed -- es wei -- che Herz,
	jed -- es wei -- che Herz.
}

lyricThrough =  \lyrics{
	La\ss auch dir die Brust be -- we -- gen 
	Lieb -- chen, h\"o -- re mich! 
	be -- bend harr' ich dir ent -- ge -- gen! 
	
	komm, be -- gl\"uk -- ke mich!
	komm, be -- gl\"uk -- ke mich, __ 
	be -- gl\"uk -- ke mich!
}

trebleIntro =  \notes\relative c{
	r8^"\bf M\\\"a\\ss ig"-\pp <<g' c>>-. <<c es>>-. <<g c>>-. <<c es>>-. <<g c>>-. |
	r8 <<as c>>-. <<c es>>-. <<as c>>-. <<c es>>-. <<as c>>-. |
	r8 <<as c>>-. <<c d>>-. <<as c>>-. <<c d>>-. <<as c>>-. |
	r8 <<g b>>-. <<b d>>-. <<g b>>-. <<b d>>-. <<g b>>-. |
}

trebleVerseOne =  \notes\relative c{
	%5
	r8 <<g' c>> <<c es>> <<g c>> <<c es>> <<g c>> |
	r8 <<f c'>> <<c' d>> <<f, c'>> <<c' d>> <<f, c'>> |
	r8 <<f g b>> <<g b d>> <<f g b>> <<g b d>> <<f g b>> |
	r8 <<es g c>> <<g c es>> <<es g c>> <<g c es>> <<es g c>> |
	<<g'' b,>>4.-( <<f d>>8-)
	\times 2/3 < {  f-[( es  d-) ] } { d c b } > |
	%10
	<<c es>>2. |
	r8 <<g, c>> <<c es>> <<g c>> <<c es>> <<g c>> |
	r8 <<f c'>> <<c' d>> <<f, c'>> <<c' d>> <<f, c'>> |
	r8 <<f as bes>> <<as bes d>> <<f as bes>> <<as bes d>> <<f as bes>> |
	r8 < {  es-[ g es g ] } { g bes g bes } { bes es bes es } >
	<{ es'(  d4.-)( f8-)}{ c' | bes4.  as8 } >
	\times 2/3 < {  f-[( es  d-) ] } { as' g f } > |
	%16
	<<es g>>2. |
	r8 <<f, g>> <<g b>> <<f g>> <<g b>> <<f g>> |
	r8 <<es g>> <<g c>> <<es g>> <<g c>> <<es g>> |
	r8-\pp <<es as c>> <<as c es>> <<es as c>> <<as c es>> <<es as c>> |
	%20
	r8 <<es g bes>> <<g bes es>> <<es g bes>> <<g bes es>> <<es g bes>> |
	\property Voice.Slur \override #'attachment = #'(stem . stem)
	\grace {  as'32-[( bes ] } \times 2/3 {  as8-[-)( g as] } c4.->  as8-) |
	\property Voice.Slur \revert #'attachment
	g2. |
	r8 <<f, g>> <<g b>> <<f g>> <<g b>> <<f g>> |
	r8 <<e g>> <<g c>> <<e g>> <<g c>> <<e g>> |
	r8 <<f a c>> <<a c f>> <<f a c>> <<a c f>> <<f a c>> |
	r8 <<e g c>> <<g c e>> <<e g c>> <<g c e>> <<e g c>> |
	\times 2/3 < {  f'8-[-\f( e f] } {  f' e f } >
	< {a4.- >  f8-)}  { a'4. f8 }  > |
}

trebleEentje =  \notes \relative c' \context Voice {
	\stemBoth
	<<e e'>>2 r4 |
	<<f as!>>2-\(-\mf <<as c>>8.-(-> <<f as>>16-)-\) |
	% urg: slurs with staccati are ugly
	<<e g>>4. <<e g>>8-.-( <<e g>>-. <<e g>>-)-. |
	<<f g>>4. <<b, g'>>8-.-( <<d g>>-. <<f g>>-)-. |
	<<e g>>2 <<e g>>4-\pp |
	<<f a>>2-\( <<a c>>8.-( <<f a>>16-)-\) |
	<<e g>>4.-\( <<e g>>8-(-. <<e g>>-. <<e g>>-)-\)-. |
	<<f g>>4. <<b, g'>>8-(-. <<d g>>-. <<f g>>-)-. |
	%60
	<<e g>>2 r4 |
}

trebleThrough =  \notes \relative c'{
	\stemBoth
	<<e e'>>2. |
	%61
	R2. |
	[<<g, g'>>8.-\< <<g g'>>16 <<b b'>>8. <<b b'>>16-\>-\! <<d d'>>8. <<d d'>>16] |

	%% score has double slur on chord.
	<<c c'>>4-( <<b c'>>-) r-\!

	<<g g'>>4. <<b b'>>8 [<<d' d, >>8.-> c16] |
	%65
        <<d, e b'>>2.-~-(-\f
	<<c e a>>2-)  r4
	< 
	{ 	a'8. b16 c4^> ( a8-) r |
		a8. b16 c4^> ( a8-) r |
	}\\{ 
		<<d, f>>4 <<d f>>2 |
		<<c! es>>4 <<c es>>2 |
	} >

	% 4 bars copied from end verse1
	r8 <<f, a c>> <<a c f>> <<f a c>> <<a c f>> <<f a c>> |
	%70
	r8 <<e g c>> <<g c e>> <<e g c>> <<g c e>> <<e g c>> |
	\times 2/3 {  <<f' f'>>8-( <<e e'>> <<f f'>> }

	<<a a'>>4.-> <<f f'>>8-)
	<<e e'>>2. |
	<<es! es'! >>2. |
	\property Voice . TextScript \override #'font-shape = #'italic
	<d2._"decresc." d'> |
	\property Voice . TextScript \revert #'font-shape

	%75
	<<b b'>>2. |
	<<c c'>>2 <<e g>>4-\pp |

	% four copied from begin eentje
	<<f as!>>2-( <<as c>>8.-> <<f as>>16-) |
	<<e g>>4. <<e g>>8-(-. <<e g>>-. <<e g>>-)-. |
	<<f g>>4. <<b, g'>>8-(-. <<d g>>-. <<f g>>-)-. |
	%80

	\property Voice . TextScript \override #'font-shape = #'italic
	<e2._"dim." g> |
	\property Voice . TextScript \revert #'font-shape

	<<g, e' g>>2. |
	<<g e' g>>2.-\fermata |
}

bassIntro =  \notes\relative c{
	\dynamicUp
%1
	<<c, c'>>2 r4 |
	<<as as'>>2 r4 |
	<<f f'>>2 r4 |
	<<g g'>>2 r4 |
}

bassVerseOne =  \notes\relative c{
%	\clef bass
	\dynamicUp
%5
	<<c, c'>>2 r4 |
	<<as as'>>2 r4 |
	<<g g'>>2 r4 |
	<<c c'>>2 r4 |
	<<g g'>>8 [<<g'' d'>> <<d' f>> <<g, d'>> <<d' f>> <<g, d'>>] |
%10
	<<c,, c'>>8 [<<g'' c>> <<c es>> <<g c>> <<c es>> <<g c>>] |
	<<c,, c'>>2 r4 |
	<<as as'>>2 r4 |
	<<bes bes'>>2 r4 |
	<<es, es'>>2 r4 |
%15
	bes'8 [<<bes' f'>> <<f' as>> <<bes, f'>> <<f' as>> <<bes, f'>>] |
	es,8 [<<bes' es>> <<es g>> <<bes es>> <<es g>> <<bes es>>] |
	<<g, g'>>2 r4 |
	<<c c'>>2 r4 |
	<<as as'>>2 r4 |
	<<es es'>>2 r4 |
	<<bes' bes'>>8 [<<f'' bes>> <<bes d>> <<f bes>> <<bes d>> <<f bes>>] |
	<<es,, es'>>8 [<<es'' g bes>> <<g bes es>> <<es g bes>> <<g bes es>> <<es g bes>>] |
	<<g,, g'>>2 r4 |
	<<c c'>>2 r4 |
	<<f, f'>>2 r4 |
	<<c' c'>>2 r4 |
	<<g g'>>8 [<<d'' g>> <<g b>> <<d g>> <<g b>> <<d g>>] |
	c,8 [<<c' e g>> <<e g c>> <<c e g>> <<e g c>> <<c e g>>] |
}

bassEentje =  \notes\relative c{
	\dynamicUp
	<<c, c'>>8 [<<c' f as!>> <<f as c>> <<c f as>> <<f as c>> <<c f as>>] |
	c,8 [<<c' e g>> <<e g c>> <<c e g>> <<e g c>> <<c e g>>] |
	<<g, g'>>8 [<<d'' g>> <<g b>> <<d g>> <<g b>> <<d g>>] |
	c,8 [<<e' g>> <<g c>> <<e g>> <<g c>> <<e g>>] |
	<<c, c'>>8 [<<c' f a>> <<f a c>> <<c f a>> <<f a c>> <<c f a>>] |
	c,8 [<<c' e g>> <<e g c>> <<c e g>> <<e g c>> <<c e g>>] |
	<<g, g'>>8 [<<d'' g>> <<g b>> <<d g>> <<g b>> <<d g>>] |
	c,8 [<<e' g>> <<g c>> <<e g>> <<g c>> <<e g>>] |
}

bassThrough =  \notes\relative c{
	\dynamicUp
	%61
	<g,8^"cresc." g'> [<<g' b d>> <<b d f>> <<g b d>> <<as! b d >>-> <<b d f>>] |
	<<g, g'>>8 [<<g' d'>> <<d' f>> <<g, d'>> <<as b d >>-> <<b d f>>] |
	% copied
	<<g, g'>>8 [<<g' d'>> <<d' f>> <<g, d'>> <<as b d >>-> <<b d f>>] |
	<<g, g'>>8 [<<g' d'>> <<d' f>> <<g, d'>> <<gis b d >>-> <<b d f>>] |
	%65
	<<gis, gis'>>8 [<<d'' e>>-\> <<e b'>> <<d e>> <<e b'>> <<d e>> -\!] |
	<<a, a'>>8 [<<c' e>> <<e a>> <<c e>> <<e a>> <<c e>>] |
	<<a, a'>>8 [<<a' d f>> <<d f a>> <<a d f>> <<d f a>> <<a d f>>] |
	<<a, a'>>8 [<<a' c e>> <<c e a>> <<a c e>> <<c e a>> <<a c e>>] |
	% 4 bars copied from end verse1
	<<f, f'>>2-\p r4 |
	%70
	<<c' c'>>2 r4 |
	<<g g'>>8 [<<d'' g>> <<g b>> <<d g>> <<g b>> <<d g>>] |
	c,8\> [<<c' e g>> << e g c>> -\! <<c e g>> <<e g c>> <<c e g>>] |

	<<c, c'>>8 [<<c' es! g>> <<es g c>> <<c es g>> <<es g c>> <<c es g>>] |
	<<f,, f'>>8 [<<d'' f>> <<f as!>> <<d f>> <<f as>> <<d f>>] |
	%75
	<<g,, g'>>8 [<<d'' f>> <<f g>> <<d f>> <<f g>> <<d f>>] |
	c,8 [<<c' e>> <<e g>> <<c e>> <<e g>> <<c e>>] |
	c,8 [<<c' f>> <<f as>> <<c f>> <<f as>> <<c f>>] |
	c,8 [<<c' e>> <<e g>> <<c e>> <<e g>> <<c e>>] |
	g,8 [<<g' d'>> <<d' f>> <<g, d'>> <<d' f>> <<g, d'>>] |
	%80
	c,8 [<<c' e>> <<e g>> <<c e>> <<e g>> <<c e>>] |
	c,8 [<<c' g>> <<e c>> <<c g>> <<e c>> <<c g>>] |
	<<c, g' c>>2._\fermata |
}
		
global =  \notes{
	\time 3/4 
	\key es \major
	\skip 1 * 3/4 * 4
	\break
	\skip 1 * 3/4 * 25
	\break
	\skip 1 * 3/4 * 6
	\break
	\skip 1 * 3/4 * 41
	\break
	\skip 1 * 3/4 * 6
	\bar "|."
}

allLyrics = \lyrics {
	% maybe should be bigger by default, in grob-description.scm ?
	\property Lyrics . LyricText \override #'font-relative-size = #1
	\property Lyrics . LyricHyphen \override #'maximum-length = #1.5
	\context LyricsVoice = "leise-1"  { \lyricVerseOne
	\lyricVerseTwo
	\lyricThrough
} }

lyricStaff = \context Lyrics {
	\allLyrics
}
		
vocals = \context Voice \notes {
	\clef treble
 	% certainly no auto-beaming for vocals
 	\property Voice.autoBeaming = ##f
	\property Staff.automaticMelismata= ##t

	\dynamicUp
	% duh 1 != 3/4
	R1 * 3/4 * 4
	\vocalVerse 
	R1 * 3/4 * 8
	\vocalVerse
	\vocalThrough
	R1 * 3/4 * 6
}

vocalStaff =  \context Staff = vocal<
	  \property Staff.midiInstrument = "synth voice"
	\context Voice = "leise" < 	  \global
	  \vocals >
>

treble =  {
	\clef treble
	\property Voice.autoBeamSettings \override #'(begin * * * *) = #(ly:make-moment 0 1)
	\trebleIntro 
	\trebleVerseOne 
	\trebleEentje
	\trebleVerseOne 
	\trebleThrough
}

trebleStaff =  \context Staff = treble< 
        \property Staff.midiInstrument = "acoustic grand"
	\global
	\treble
>
bass =  {
	\clef bass
	\bassIntro 
	\bassVerseOne 
	\bassEentje
	\bassVerseOne 
	\bassThrough
}

bassStaff =  \context Staff = bass<
        \property Staff.midiInstrument = "acoustic grand"
	\global
	\bass
>

grandStaff =  \context PianoStaff <

	\trebleStaff
	\bassStaff
>


\score{
	<

%{
	Transpose as you like for your voice
	Range untransposed is c' to f'' (for tenors and sopranos)
	\transpose c' a gives a' to d'' (for basses, who sing an octave down)

		\addlyrics 
			\notes \transpose c' a \vocalStaff
			\lyricStaff
		\notes \transpose c' a \grandStaff
%}

		\addlyrics
			\vocalStaff
			\lyricStaff 
		\grandStaff
	>
	\paper {
		% Use
		%   textheight = 280.\mm
		%   linewidth = 190.\mm
		% to get this on 3 pages of a4.
		
		% Mandatory Mutopia settings yield 4 pages :-(
		textheight = 270.0\mm
		linewidth = 180.0\mm

		\translator { \HaraKiriStaffContext }
	}
	\midi{
		\tempo 4 = 54
	}
}