% Version 1.1
% Last edit: March 24, 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

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

#(use-modules (ice-9 regex))
#(define-public (cipher-map) (list '("a" . "6") '("b" . "7") '("c" . "1") '("d" . "2") '("e" . "3") '("f" . "4") '("g" . "5") '("es" . "♭") '("is" . "♯") '("1" . " - -") '("2" . " -") '("4" . "") '("8" . "̲") '("16" . "̲̲") '("\x27" . "̇") '("." . ".") '("," . "̣")))

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

title = "I Need Thee Ev'ry Hour"
composer = "Robert Lowry"
poet = "Annie Sherwood Hawkes"
translator = "Refrain by Robert Lowry"
piece = "Need"
meter = "64.64, with Refrain"
arranger = ""

world = {
  \key g \major
  \time 3/4
  \partial 4*1
}

melody = \relative c'' {
  \world
  \autoBeamOff
  g |
  b4. a8 g fs |
  g2 g4 |
  g4.( a8) g[ fs] |
  d2 d4 |
  a'4. b8 a d, |
  b'2 g4 |
  fs4.( g8) fs[ e] |
  d2 b'4 |
  b4. a8 c b |
  b4 a2 |
  a4. g8 b a |
  a4 g g |
  g4. a8 g e |
  d4 g a |
  b4.( g8) a4 |
  g2 \bar "|."
}


alto = \relative c' {
  \world
  \autoBeamOff
  b4 |
  d4. c8 b a |
  b2 b4 |
  c2 c4 |
  b2 d4 |
  d4. d8 d d |
  d2 d4 |
  d4.( e8) d[ cs] |
  d2 d4 |
  d4. d8 g g |
  g4 fs2 |
  d4. d8 d d |
  d4 d d |
  e4. e8 e c |
  b4 d e |
  d4.( b8) c4 |
  b2 
}

tenor = \relative c {
  \world
  \autoBeamOff
  d4 |
  g4. e8 d d |
  d2 d4 |
  e2 e8[ g] |
  g2 fs4 |
  fs4. g8 fs fs |
  g2 b4 |
  a2 a8[ g] |
  fs2 g4 |
  g4. b8 e d |
  d4 d2 |
  c4. b8 d c |
  c4 b g |
  g4. g8 g g |
  g4 g g |
  g2 fs4 |
  g2
}

bass = \relative c {
  \world
  \autoBeamOff
  g4 |
  g4. c8 d d |
  g,2 g4 |
  c2 c4 |
  g2 d'4 |
  d4. d8 d d |
  g2 g,4 |
  a2 a4 |
  d2 g4 |
  g4. g8 g g |
  d4 d2 |
  d4. d8 d d |
  g,4 g b |
  c4. c8 c c |
  g4 b c |
  d2 d4 |
  g2
}

verseOne = \lyricmode {
  \set stanza = "1. "
  I need thee ev -- 'ry hour,
  Most gra -- cious Lord;
  No ten -- der voice like thine
  Can peace af -- ford.
  I need thee, O I need thee,
  Ev -- 'ry hour I need thee,
  O bless me now, my Sa -- viour,
  I come to thee.
}

verseTwo = \lyricmode {
  \set stanza = "2. "
  I need thee ev -- 'ry hour;
  Stay thou near by;
  Temp -- ta -- tions lose their pow'r
  When thou art nigh.
}

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

\score {
  \context ChoirStaff
    <<
    \context Staff <<
%      \context Voice = sopranos { << \melody >> } 
      \context Cipher = sopranos { << \melody >> }
%   >> \context Staff <<
      \context CipherTwo = altos { << \alto >> }
      \context Lyrics = one \lyricsto sopranos \verseOne
      \context Lyrics = two \lyricsto sopranos \verseTwo
    >>
    \context Staff = lower <<
%%      \clef bass
      \context Cipher =
        tenors { << \tenor >> }
      \context CipherTwo =
        basses { << \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)
%      \override Barline #'bar-size = #4
    }
    \context {
      \Voice
      \name Cipher
      \alias Voice

      \consists "Rest_swallow_translator" 
      \consists "Skip_event_swallow_translator"
      \consists "Tie_engraver"
      \consists "Note_name_engraver"
      \consists "Separating_line_group_engraver"
%      \override SeparatingLineGroup #'createSpacing = ##t
%      \consists "Bar_engraver"
%     \override Barline #'bar-size = #6
%  \override VerticalAxisGroup #'minimum-Y-extent = #'(-3 . 3)
%  \override VerticalAxisGroup #'remove-empty = ##t
%  \override VerticalAxisGroup #'keep-fixed-while-stretching = ##t
%  \override SeparationItem #'padding = #0.2
      \remove "Note_head_line_engraver"
      \remove "Note_heads_engraver"
      \remove "Stem_engraver"
      \remove "Rest_engraver"
      printOctaveNames= ##t
      printDurations= ##t
      \override NoteName #'stencil = #(lambda (grob) (let*
        ((s (string-match "([a-g])([a-z]*)([',]*)([0-9]*)([.]*)" (ly:grob-property grob 'text)))
         (sa (filter-map (lambda (x) (match:substring s x)) (list 2 1 3 4 5)))
         (sb (filter-map (lambda (x) (assoc-ref (cipher-map) x)) sa))
         (res (apply string-append sb))
        )
        (begin
         (grob-interpret-markup grob (markup #:override '(font-name . "Doulos SIL") #:raise 1 #:text res)))))
    }
    \context {
        \Cipher
        \name CipherTwo
        \alias Cipher
      \override NoteName #'stencil = #(lambda (grob) (let*
        ((s (string-match "([a-g])([a-z]*)([',]*)([0-9]*)([.]*)" (ly:grob-property grob 'text)))
         (sa (filter-map (lambda (x) (match:substring s x)) (list 2 1 3 4 5)))
         (sb (filter-map (lambda (x) (assoc-ref (cipher-map) x)) sa))
         (res (apply string-append sb))
        )
        (begin
         (grob-interpret-markup grob (markup #:override '(font-name "Doulos SIL") #:lower 1.7 #:text res)))))
    }
        
    \context {
      \Staff
      \accepts "Cipher"
      \accepts "CipherTwo"
%      \remove "Staff_symbol_engraver"
      \consists "Font_size_engraver"
%      \consists "Axis_group_engraver"
      \override VerticalAxisGroup #'minimum-Y-extent = #'(0 . 4)
      \override VerticalAxisGroup #'padding = #4
      \override VerticalAxisGroup #'keep-fixed-while-stretching = ##t
      \override SeparationItem #'padding = #4
      \override StaffSymbol #'line-count = #0
      \override StaffSymbol #'Y-extent = #'(-2 . 2)
%      \override StaffSymbol #'staff-space = #0
      \remove "Clef_engraver"
      \remove "Ledger_line_engraver"
      \remove "Key_engraver"
%      \override Script #'staff-space = #4
%      \override VoltaBracket #'staff-padding = #3
    }
    \context
    {
        \ChoirStaff
      \override Barline #'bar-size = #6
    }
  }
}


\markup { 
  \normalsize {
    \fill-line {
      \hspace #3.0
      \hspace #3.0
      \line {
	"3. "
	\column {
	  "I need thee every hour,"
	  "  In joy or in pain;"
	  "Come quickly and abide,"
	  "  Or life is vain."
	  \italic "Refrain"
	}
      }
      \hspace #3.0
      \line {
	"4. "
	\column {
	  "I need thee every hour;"
	  "  Teach me thy will;"
	  "And thy rich promises"
	  "  In me fulfill."
	  \italic "Refrain"
	}
      }
      \hspace #3.0
      \hspace #3.0
    }
  }
}

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

\paper {
  ragged-bottom = ##t
  top-margin = 0.25\in
  bottom-margin = 0.25\in
}

%{
  Per _The Hymnal 1940_, 438 first tune.
  Change log:
  3-24-06 Move to 2.8 and current formatting
%}