\version "2.18.2"

\include "english.ly"
#(set-global-staff-size 16)

\header {
  title = "When the Swallows Homeward Fly"
  subtitle = ""
  subsubtitle ="(Agathe)"
  composer = "Franz Abt (1819-1885)"
  poet = ""
  instrument = "Voice and Piano"
  opus = "c. 1846"
  source = ""
  style = "Song"
  license = "Public Domain"
  enteredby = "Stan Sanderson"
  maintainer = "Stan Sanderson"
  maintainerEmail = "physinfoman@ameritech.net"

  mutopiatitle = "When the Swallows Homeward Fly (Agathe)"
  mutopiacomposer = "AbtF"
  mutopiaopus = " "
  mutopiadate = "c. 1846"
  mutopiastyle = "Song"
  mutopiasource = "Not known"

  footer = "Mutopia-2017/11/24-439"
  copyright = \markup {\override #'(font-name . "DejaVu Sans, Bold") \override #'(baseline-skip . 0) \right-column {\with-url #"http://www.MutopiaProject.org" {\abs-fontsize #9  "Mutopia " \concat {\abs-fontsize #12 \with-color #white "ǀ" \abs-fontsize #9 "Project "}}}\override #'(font-name . "DejaVu Sans, Bold") \override #'(baseline-skip . 0 ) \center-column {\abs-fontsize #11.9 \with-color #grey \bold {"ǀ" "ǀ"}}\override #'(font-name . "DejaVu Sans,sans-serif") \override #'(baseline-skip . 0) \column { \abs-fontsize #8 \concat {"Typeset using " \with-url #"http://www.lilypond.org" "LilyPond " "by " \maintainer " — " \footer}\concat {\concat {\abs-fontsize #8 { "Placed in the " \with-url #"http://creativecommons.org/licenses/publicdomain" "Public Domain" " by the typesetter " " — free to distribute, modify, and perform" }}\abs-fontsize #13 \with-color #white "ǀ" }}}
  tagline = ##f
}

%% text is attributed in different sources to
%% G. F. Graham, C. Herlossoln, and Franz Abt.
%% An early Austrailian edition claims Graham.

cresc = \markup { \italic "cresc." }
dim = \markup { \italic "dim." }

melody = \relative c' {
	\key g\major \time 3/4
	\partial 4 b8.^\mf^\markup {\bold \large "Andantino"} c16
%% 1-3
	d4. g8^\< b8.\!^\> a16\! | g2 a8 e | d4\( d16\) g( fs e) d8. c16 |
%% 4-6
	b4 r b8 ds | e4.^\cresc e8 fs8. b,16 | g'2 g16( b) g( e) |
%% 7-9	
	d8. a16 fs'4.^\dim e8 | d4 r d8. e16 | fs4. d8^cresc fs g |
%% 10-12
	a2 fs8. g16 | a4. gs8^\< a b\! | c2.^\f |
%% 13-15
	b2^\mf \tuplet 3/2 {\stemUp a8( b a)} \stemNeutral | g2 d4 |
		d(^\< e8 fs) g( a)\!
%% 16-18
	b2 r4 | e,^\mf b'4. a8 | d,2 g4 |
%% 19-21
	fs4^\< g a\! | b2. | d4.(^\f c8) e, a |
%% 22-24
	a2 g4 | fs b4.^\dim a8 | g2 \bar "|."
}

textA = \lyricmode {
	When the swal -- lows home -- ward fly, __
	When the ro -- _ ses scat -- ter'd lie,
	When from neith -- er hill nor dale,
	Chants the silv' -- ry night -- in -- gale,
	In these words my bleed -- ing heart,
	Would to thee its grief im -- part.
	When I __ thus thy im -- age lose,
	Can I, ah! can I e'er know re -- pose,
	Can __ I, ah! can I e'er know re -- pose.
}	

textB = \lyricmode {
	When the white swan south -- ward roves,
	To seek at noon the or -- ange groves,
	When the red tints of the west,
	Prove the sun is gone to rest,
	In these words my bleed -- ing heart,
	Would to thee its grief im -- part.
	When I __ thus thy im -- age lose,
	Can I, ah! can I e'er know re -- pose,
	Can __ I, ah! can I e'er know re -- pose.
}

textC = \lyricmode {
	My poor heart, why do you cry,
	Once al -- so you in peace will lie!
	All things on this earth must die;
	Will then we meet, you and I?
	My heart asks with bod -- ing pain
	Will faith join us once a -- gain?
  	My heart asks with bod -- ing pain
	Will faith __ _ join us once a -- _ gain?
	Af -- ter to -- day's bit -- ter part -- ing pain.
}


dynamics =  { s4
	s4.\mf s8\< s8.\!\> s16\! | s2.*3 |
%% meas. 5
	s4^\cresc s2 | s2. | s4 s4^\dim s4 | s2.| s4 s4_\cresc s4 |
%% meas 10
	s2.| s4. s8\< s8 s8\! | s4\f s4\> s4\! | s4\mf s2 | s2. |
%% meas 15
	s4\< s4 s4\! | s2. | s4\mf s2 | s2. | s4\< s4 s4\! |
%% meas 20
	s2. | s4\f s2 | s2. | s4 s4_dim s4 | s2
	
}

upper = \relative c' {
	\key g\major \time 3/4
	\partial 4 b8. c16
%% 1-3
	<d b>4.( <g b,>8 <b d,>8. <a c,>16) | <g b,>2( <fs c>8 e) |
		<d b>4( d16 g fs e d8. c16) |
%% 4-6
	b4 r b8 ds | e4.( e8 fs8. b,16) | g'2 g16( b g e) |
%% 7-9	
	\slurUp d8.( a16 fs'4. e8) | \slurNeutral d4 r d8.( e16) |
		<fs d>4.( d8[ fs g)] |
%% 10-12
	<a d,>2 fs8. g16 | <a fs>4.( gs8 a b) | <c fs, d>2. |
		
%% 13-15
	<b g d>2 \tuplet 3/2 {<a c,>8 <b d,> <a c,>} |<g b,>2 <d b>4 |
		<<{d4( e8 fs g a)}\\{c,2 s4}>> |
%% 16-18
	<d g b>2 r4 | <<{e4( b'4. a8)}\\{c,2.}>> | d2( g4) |
%% 19-21
	fs( <g e> <a fs>) | <b g>2.| <d a e>4.( c8 e, a) |
%% 22-24
	<<{a2( g4)}\\{b,2.}>> | <c fs>4( <d b'>4. <c a'>8) | <b g'>2
	
	
}
	
lower = \relative c {
	\key g\major \time 3/4
	r4
%% 1-3
	g8( d' g d g d) | g,( d' g d g d) | d,( d' g d fs d) |
%% 4-6
	g,( d' g d g <a fs>) | <g e>( b, <g' e> b, <a' ds,> b,) |
		e,( e' <g b> e <g b> e)
%% 7-9
	a,( d <fs a> d) <cs' g>([ a,)] |
		d, <d' fs a> <d fs a> <d fs a> <d fs a> <d fs a> |
		<d fs a> <d fs a> <d fs a> <d fs a> d e |
%% 10-12
	fs <d fs a> <d fs a> <d fs a> <d fs a> <d fs a> |
		<d fs a> <d fs a> <d fs a> <d es> <d fs> <d g!> |
		<d a'> <d fs a> <d fs a> <d fs a> <d fs a> <d fs a>
%% 13-15
	g,( d' g d fs d) | d,( d' g d g d) | d,( d' <fs a> d <fs a> d)
%% 16-18
	g,( d' g d g d) | c <e a> <e a> <e a> <e a> <e a> |
		d <g b> <g b> <g b> <g b> <g b> |
%% 19-21
	d( d' cs a c a) | g,( d' g d b g) | c,( e' <a c> e <a c> e)
%% 22-24
	d,( d' g d g d) | d,( d' fs d fs d) | g4( g,)

	
}	

\score {
  <<
    \new Voice = "mel" {
      \autoBeamOff
      \melody
    }
    \lyricsto mel  \new Lyrics  { \set stanza = "1." \textA }
    \lyricsto mel  \new Lyrics  { \set stanza = "2." \textB }
    \lyricsto mel  \new Lyrics  { \set stanza = "3." \textC }

    \new PianoStaff <<
      \new Staff = "upper" \upper
      \new Dynamics = "dynamics" \dynamics
      \new Staff = "lower" <<
        \clef bass
        \lower
      >>
%      \new Dynamics = "pedal" \pedal
     >>
  >>
  \layout {
    \context {
      \Lyrics
      % Some space before, between and after the lyrics
      \override VerticalAxisGroup.nonstaff-relatedstaff-spacing.minimum-distance = #6
      \override VerticalAxisGroup.nonstaff-nonstaff-spacing.minimum-distance = #3
      \override VerticalAxisGroup.nonstaff-unrelatedstaff-spacing.minimum-distance = #6
    }
  }

  \midi {
    \context {
      \PianoStaff
      \accepts Dynamics
    }
  }
}