\version "2.12.2"

#(set-default-paper-size "letter")
#(set-global-staff-size 20)
#(ly:set-option 'point-and-click #f)
#(ly:set-option 'delete-intermediate-files #t)

\paper {
  indent = #0
  left-margin = 0.75\in
  line-width = 7.0\in
  top-margin = 0.25\in
  bottom-margin = 0.25\in
  % between-system-padding = 4\mm
  % between-system-space = 20\mm
  print-page-number = ##f
  print-first-page-number = ##f
  ragged-bottom = ##t
}

\header {
  subtitle = "I've Found a Friend"
  poet = "James Grindlay Small (1817-88)"
  composer = "Sir Arthur Sullivan (1842-1900)"
  meter = "8.7.8.7.8.7.8.7"
  tagline = "Last update: 2009-04-03"
}

global = {
  \key f \major
  \time 3/4
  \partial 4
}

melody = {
  \global
  a'4
  a' a' bes' g'
  c''4. d''8 c''4 bes'
  a' a' bes' g'
  g' f' r a'
  c'' bes' bes' a'
  a'4. g'8 f'4 f' 
  e' a' c'' b'
  b' a' r a'
  a' g'8 (a') bes'4 bes'
  a' g'8 (a') bes'4 c''
  d''4. c''8 bes'4 a'
  a' g' r c''
  c'' c'' f''4. a'8
  a'4 a' c''4. f'8
  f'4 f' a'4. g'8
  g'4 f' r2 
  \bar "|."
}

alto = {
  \global
  f'4
  f' f' e' e'
  f'4. f'8 f'4 f'
  f' f' e' e'
  e' f' r f'
  a' g' g' f'
  e'4. e'8 d'4 d' 
  c' e' a' gis'
  gis' a' r a'
  fis' e'8 (fis') g'4 g'
  fis' e'8 (fis') g'4 a'
  bes'4. a'8 g'4 f'
  f' e' r e'
  f' e' f'4. f'8
  e'4 d' c'4. d'8
  c'4 c' f'4. e'8
  e'4 f' r2 
  \bar "|."
}

tenor = {
  \global
  c'4
  c' c' c' c'
  c'4. bes8 c'4 d'
  c' c' g bes
  bes a r c'
  c' c' c' c' 
  cis'4. cis'8 d'4 a 
  a c' e' d'
  d' c' r a
  c' c' bes d'
  d' d' d' ees'
  d'4. d'8 d'4 d'
  c' c' r c'
  c' bes a4. f8
  f4 f f4. bes8
  a4 a c'4. bes8
  bes4 a r2
  \bar "|."
}

bass = {
  \global
  f4
  f4 f g bes
  a4. bes8 a4 bes
  c' c c c
  c f r f
  e e f f8 (g)
  a4. a8 d4 d
  e e e e
  e a, r a
  d d g bes,8 (c)
  d4 d g f 
  bes4. bes,8 bes,4 b,
  c c r bes
  a g f4. d8
  c4 bes, a,4. bes,8
  c4 c c4. c8
  c4 f r2 
  \bar "|."
}

verseOne = \lyricmode {
  \set stanza = "1. "
  I've found a Friend; O such a Friend!
  He loved me ere I knew Him;
  He drew me with the cords of love,
  And thus He bound me to Him:
  And round my heart still close -- ly twine
  Those ties which nought can sev -- er;
  For I am His, and He is mine,
  For ev -- er and for ev -- er.
}

verseTwo = \lyricmode {
  \set stanza = "2. "
  I've found a Friend; O such a Friend!
  He bled, He died to save me;
  And not a -- lone the gift of life,
  But His own self He gave me.
  Nought that I have mine own I'll call,
  I'll hold it for the Giv -- er;
  My heart, my strength, my life, my all
  Are His, and His for ev -- er.
}

verseThree = \lyricmode {
  \set stanza = "3. "
  I've found a Friend; O such a Friend!
  All power to Him is giv -- en,
  To guard me on my on -- ward course
  And bring me safe to heav -- en.
  The e -- ternal glor -- ies gleam a -- far,
  To nerve my faint en -- deav -- or;
  So now to watch, to work, to war,
  And then to rest for ev -- er.
}

verseFour = \lyricmode {
  \set stanza = "4. "
  I've found a Friend; O such a Friend!
  So kind, and true, and ten -- der!
  So wise a Coun -- sel -- lor and Guide,
  So migh -- ty a De -- fen -- der!
  From Him who loves now me so well
  What power my soul can sev -- er?
  Shall life or death? Shall earth or hell?
  No! I am His for ev -- er.
}

\score
{
  <<
  \set Score.tempoHideNote = ##t
  \tempo 4=120
  \new ChoirStaff {
    <<
    \chords {
      \set chordChanges = ##t
      g1
    }
    \new Staff {
      \clef treble
      <<
      \new Voice = "voicea" { \voiceOne \melody }
      \new Voice = "voiceb" { \voiceTwo \alto }
      >>
    }
    \new Lyrics { \lyricsto "voicea" \verseOne }
    \new Lyrics { \lyricsto "voicea" \verseTwo }
    \new Lyrics { \lyricsto "voicea" \verseThree }
    \new Lyrics { \lyricsto "voicea" \verseFour }
    \new Staff {
      \clef bass
      \set Staff.printPartCombineTexts = ##f
      \partcombine \tenor \bass
    }
    >>
  }
  >>
  \layout {
    \context { \Score \remove "Bar_number_engraver" }
    \context { \Lyrics \override LyricText #'font-size = #-1 }
    \context { \Lyrics \override VerticalAxisGroup #'minimum-Y-extent = #'(-0 . 0) }
  }
  \midi { }
}