% Version 1.0
% Last edit: March 10, 2006
% The music and words produced by this source code are believed
% to be in the public domain in the United States. The source
% code itself is covered by the Creative Commons Attribution-
% NonCommercial license, 
% http://creativecommons.org/licenses/by-nc/2.5/
% Attribution: Geoff Horton

% **** Note: Running this file through lilypond produces a lot of
% **** "programming error: adding reverse spring, setting to unit
% **** continuing, cross fingers" error messages. It doesn't seem
% **** to affect the final output, so they can safely be ignored.

\version "2.8.0"
\include "english.ly"

#(set-default-paper-size "letter")
#(set-global-staff-size 20)

% *** play with sizes a little to get it to fit on one page

\paper {
  ragged-bottom = ##t
  top-margin = 0.25\in
  bottom-margin = 0.25\in
  between-system-space = 0.25\in
  head-separation = 0\in
  page-top-space = 0\in
}

title = "Take Up Your Cross"
composer = \markup { "William Gardiner's" \italic "Sacred Melodies" }
poet = "Charles W. Everest, alt."
meter = "L.M."
arranger = ""
piece = "Gardiner"

world = {
  \key e \minor
  \time 4/2
  \partial 2*1
}

optSlur = \tag #'withoutSlur { \once \override Slur #'transparent = ##t }

melody = \relative c' {
  \world
  \optSlur e4( fs) |
  g2 \optSlur fs4( e) ds2 \optSlur e4( fs) |
  g2 fs e g | % end line 1
  a2 a b g |
  a a b b |
  c \optSlur b4( c) \optSlur d( c) b2 | % end line 2
  \optSlur a4( g) a2 g b |
  g a g fs |
  e ds e1 \bar "|."
}

alto = \relative c' {
  \world
  b2 |
  e4 d c2 b b4 ds |
  e2 ds b e | % end line 1
  d4 e fs2 g e |
  e4 g fs e ds2 e |
  e4 fs g2 a g | % end line 2
  fs4 g ~ g fs d2 fs |
  e e4 ds e2 d |
  e4 c b2 b1 \bar "|."
}

tenor = \relative c' {
  \world
  g4 a |
  b2 a4 g fs2 g4 a |
  b cs fs, b g2 b | % end line 1
  a2 d d b |
  e a, fs g |
  a d d d | % end line 2
  cs4 b cs a b2 b |
  b a b b4 a |
  g2 fs4 g8[ a] g1 \bar "|."
}

bass = \relative c {
  \world
  < \tweak #'font-size #-2 e e,>2 |
  e a, b4 a g < \tweak #'font-size #-2 fs' fs,> |
  < \tweak #'font-size #-2 e e,> a, b2 e, e' | % end line 1
  fs d g4 fs e d | 
  c b c2 b e |
  a, g fs g | % end line 2
  d' d g ds |
  e4 e, fs2 g4 a b2 |
  c4 a b2 < \tweak #'font-size #-2 e e,>1 |
}

verseOne = \lyricmode {
  \set stanza = "1. "
   “Take up your cross,” the Sav -- ior said,
  If you would my dis -- ci -- ple be;
  Take up your cross with will -- ing heart,
  And hum -- bly fol -- low af -- ter me.
}

verseTwo = \lyricmode {
  \set stanza = "2. "
  Take up your cross, let not its weight
  Fill your weak spir -- it with a -- larm;
  His strength shall bear your spir -- it up
  And brace your heart and nerve your arm.
}

verseThree = \lyricmode {
  \set stanza = "3. "
  Take up your cross, heed not the shame,
  And let your fool -- ish heart be still;
  The Lord for you ac -- cept -- ed death
  Up -- on a cross, on Cal -- v'ry's hill.
}

\markup {
  \column {
    \fill-line { \large \bold \title } % title
    \fill-line { \caps \piece               % piece
	         \caps \composer      % composer
	  }
    \fill-line { \meter          % meter
	         \arranger           % arranger
	  }
  }
}

\score {
  <<
    \context Staff = melody <<
      \removeWithTag #'withoutSlur
      \context Voice = melody { \melody } 
      \context Lyrics = one \lyricsto melody \verseOne
      \context Lyrics = two \lyricsto melody \verseTwo
      \context Lyrics = three \lyricsto melody \verseThree
    >>
    \context PianoStaff <<
      \context Staff = upper <<
        \set Staff.printPartCombineTexts = ##f
        \partcombine
        \melody
        \alto
      >>
      \context Staff = lower <<
        \set Staff.printPartCombineTexts = ##f
        \clef bass
        \partcombine
        \tenor
        \bass
      >>
    >>
  >>
  \layout {
    \context {
      \Score
      % **** Turns off bar numbering
      \remove "Bar_number_engraver"
    }
    \context {
      \Lyrics
      % **** Prevents lyrics from running too close together
      \override LyricSpace #'minimum-distance = #0.6
      % **** Makes the text of lyrics a little smaller
      \override LyricText #'font-size = #-1
      % **** Moves lines of lyrics closer together
      \override VerticalAxisGroup #'minimum-Y-extent = #'(-1 . 1)
    }
    \context {
      \Staff
      % **** Moves staves a little closer together
      \override VerticalAxisGroup #'minimum-Y-extent = #'(-2 . 2)
    }
  }
}

\markup {
  \fill-line {
    " "
    \column {
      \small \caps \poet % poet
    }
  }
}

%{

  Change log:
  4-01-06 New
%}