The English Hymnal - Wiki Music Experiment/Hymns51-100/147

From DPWiki
Jump to navigation Jump to search

Lily1 Code

Edit this section and paste your code between the tags <code><pre> and </pre></code>.

To upload a midi, go here: file-repository. You need a userid and password (see this project's main wiki page).

Then create a link in this section to that uploaded midi file.


Lyrics copied from P3 and perl-formatted --QMacrocarpa 16:27, 1 June 2007 (PDT):

"O HELP us, Lord; each hour of need"
"    Thy heavenly succour give;"
"Help us in thought, and word, and deed,"
"    Each hour on earth we live."
""
"O help us, when our spirits bleed"
"    With contrite anguish sore,"
"And when our hearts are cold and dead,"
"    O help us, Lord, the more."
""
"O help us through the prayer of faith"
"    More firmly to believe;"
"For still the more the servant hath,"
"    The more shall he receive."
""
"O help us, Jesu, from on high,"
"    We know no help but thee;"
"O help us so to live and die"
"    As thine in heaven to be."
""

Lily2 Code

Edit this section and paste your code between the tags <code><pre> and </pre></code>.

%%% 147png
%%% Hymn 83 Bedford O Help us Lord; each hour of need
%%% Version 2

\version "2.10"

\header {
  dedication = \markup { \center-align { "THE CHRISTIAN YEAR - LENT"
		\hspace #0.1 }}	
  title =  "83"

  meter = \markup { \small {\column {  \line { \sans {"BEDFORD."} \hspace #1 \roman {"(C. M.)"}}
                                       \line { \italic {Very slow and dignified} \fontsize #-5 \general-align #Y #DOWN \note #"2" #1 = 63.}
                                  }
                  }}
 
  arranger =  \markup { \small {\center-align {
		            \line{ \italic "Original form of melody by" }
			    \line { \smallCaps "W. Weale," \italic "d." "1727." }
  		} } }
  tagline =""
}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Macros

%%% merge. Macro to pull note slightly leftwards.  Used to produce those partially merged wholenotes 

merge = \once \override NoteColumn #'force-hshift = #-0.01

%%% generates the breathmarks

breathmark = { \override Score.RehearsalMark #'break-visibility = #begin-of-line-invisible
        \override Score.RehearsalMark #'Y-offset = #'4.0
        \override Score.RehearsalMark #'X-offset = #'-0.5
        \mark \markup {\fontsize #4 ","}
}	      

%%% Push notecolumn a little to the right

push = { \once \override NoteColumn #'force-hshift = #0.8 }
      
%% Used to pull an upstem note left. Used when a slurred note pair straddles a longer note below and when notecolumn force-hshift does not work 
topstraddle = { \once \override Score.SeparationItem #'padding = #2
              \once \override NoteHead #'X-offset = #-1.5 
              \once \override Stem #'X-offset = #-0.2 }
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% End of Macro Definitions

%%% SATB Voices

global = {
  \time 3/2
  \key ees \major
  \set Staff.midiInstrument = "church organ"
}

soprano = \relative c' { 
  \partial 2 bes'2 | g1 ees2 | c'1 bes2 | aes2 g1 | f1 \breathmark \bar "||" bes2 | \break
  ees1 d2 | c2 c1 | bes1 ^\fermata \bar "||" g2 | aes1 bes2 | c1 bes2 | \break
  aes2 g1 | f1 \breathmark \bar "||" bes2 | ees1 g,2 | aes2 f1 | ees1 \bar "||"
}

alto = \relative c' { 
  g'2 | ees1 ees2 | ees1 ees2 | d2 ees1 | d1 \bar "||" f2 |
  g1 g2 | g2 f1 | d1 \bar "||" ees2 ees1 g2 | aes1 f2 |
  ees2 ees1 | \merge f1 \bar "||" d2 | ees1 ees2 | \push ees1 d2 | \merge ees1 \bar "||"
}

tenor = \relative c { \clef bass
  bes'2 | bes1 bes2 | c1 ees2 | aes,2 bes1 | bes1 \bar "||" bes2 |
  bes1 bes2 | bes1 a2 | bes1 \bar "||" bes2 | aes1 ees'2 | ees1 des2 |
  c2 \topstraddle bes2( c2) | d!1 \bar "||" bes2 | bes1 g2 | c2 bes1 | g1 \bar "||" 
}

bass = \relative c { \clef bass
  ees2 | ees1 g2 | aes1 g2 | f2 ees1 | bes1 \bar "||" d2 |
  ees1 g2 | ees2 f1 | bes,1 _\fermata \bar "||" ees2 | c1 ees2 | aes,1 bes2 |
  c2 ees1 | bes1 \bar "||" bes2 | g1 c2 | aes2 bes1 | << { ees1 } 
      \new Voice = "alt" { \voiceFour 
                           \once \override NoteColumn #'force-hshift = #0.2 
                           \set fontSize = #-3 
			   \override Stem #'length = #4 
                           ees,1 } >> \bar "||" 
}

#(ly:set-option 'point-and-click #f)

\paper {
  #(set-paper-size "a4")
%  annotate-spacing = ##t
  print-page-number = ##f
  ragged-last-bottom = ##t
  ragged-bottom = ##t
}


\book {

%%% Score block	
	
\score{
\new ChoirStaff	
<<
	\context Staff = upper << 
	\context Voice = sopranos { \voiceOne \global \soprano }
	\context Voice = altos    { \voiceTwo \global \alto }
	                      >>
	\context Staff = lower <<
	\context Voice = tenors { \voiceOne \global \tenor }
	\context Voice = basses { \voiceTwo \global \bass }
			        >>
>>
\layout {
		indent=0
		\context { \Score \remove "Bar_number_engraver" }
		\context { \Staff \remove "Time_signature_engraver" }
		\context { \Score \remove "Mark_engraver"  }
                \context { \Staff \consists "Mark_engraver"  }
	} %%% close layout

%%% Hymn Midi	

\midi { \context { \Score tempoWholesPerMinute = #(ly:make-moment 63 2)}} 

} %%% Score bracket

%%% Lyrics titles

\markup { \hspace #52 \center-align { \line { \smallCaps "Note" \hspace #-1.2 ".—" \italic "This tune is sometimes sung in duple time.  To effect this all the semibreves" } 
                                      \line { \italic "must be counted as minims."} 
}}

\markup { \small { \hspace #70 \italic "H. H. Milman, 1791-1868."  } } 
                                                                                                    
		                                                                                                     
%%% Main lyric block

\markup { \hspace #30 %%add space as necc. to center the column
          \column { %%% one super column for the entire block of lyrics
	                 \column { %%verse 1 is a column of 2 lines  
	                  \line { \hspace #2.2 \column { \lower #2.4 \fontsize #8 "O" }   %%Drop Cap goes here
				  \hspace #-1.2    %% adjust this if other letters are too far from Drop Cap
				  \column  { \raise #0.0 "  HELP us, Lord; each hour of need"
			                                "  Thy heavenly succour give;" } }  
	                  \line {  \hspace #2.5  %%adjust hspace until this line left edge is flush with Drop Cap
				   \lower  #1.56  %%adjust this until the line spacing looks right
				   \column {   
					   "Help us in thought, and word, and deed,"
					   "    Each hour on earth we live."
			  		}} 
			         } %%% finish verse 1	
		  	\hspace #1 
           		\line { "2  "
			   \column {	     
				   "O help us, when our spirits bleed"
				   "    With contrite anguish sore,"
				   "And when our hearts are cold and dead,"
				   "    O help us, Lord, the more."
			}}		
    }	%%% end super column  
}	

%%% fake score block to occupy space and force a pagebreak.  Can't think of a better way of doing this.
\score{
	{s4 }
\header { breakbefore = ##f piece = ##f opus = ##f tagline = ##f }
\layout{	
	\context { \Staff
		\remove Time_signature_engraver
		\remove Key_engraver
		\remove Clef_engraver
		\remove Staff_symbol_engraver
}}}

%%% second page
%%% continuation of  lyrics

\markup { \hspace #30   %%add space as necc. to center the column
          \column { 
		        \hspace #1 
           		\line { "3  "
			  \column {	     
				  "O help us through the prayer of faith"
				  "    More firmly to believe;"
				  "For still the more the servant hath,"
				  "    The more shall he receive."
			}}
    		        \hspace #1 
           		\line {"4. "
			  \column {	     
				  "O help us, Jesu, from on high,"
				  "    We know no help but thee;"
				  "O help us so to live and die"
				  "    As thine in heaven to be."
			}}
	  }
}% lyric markup bracket


%%% Amen score block
\score{
  \new ChoirStaff
   <<
        \context Staff = upper \with { fontSize = #-3  \override StaffSymbol #'staff-space = #(magstep -2) }  
	                      << 
	\context Voice = "sopranos" { \relative c' { \clef treble \global \voiceOne ees1 ees1  \bar "||" }}
	\context Voice = "altos"    { \relative c' { \clef treble \global \voiceTwo c1 bes1 \bar "||" }}
	                      >>
			  
	\context Lyrics \lyricsto "altos" {\override LyricText #'font-size = #-1  A -- men. }
	
	\context Staff = lower \with { fontSize = #-3  \override StaffSymbol #'staff-space = #(magstep -2) }  
	                       << 
	\context Voice = "tenors" { \relative c { \clef bass \global \voiceThree aes'1 g1 \bar "||" }}
	\context Voice = "basses" { \relative c { \clef bass \global \voiceFour  aes1 ees'1 \bar "||" }}
			        >> 
  >>			      
\header { breakbefore = ##f piece = " " opus = " " }

\layout { 
	\context { \Score timing = ##f }
	ragged-right = ##t
	indent = 15\cm
	\context { \Staff \remove Time_signature_engraver }

       } %%% close layout

%%% Amen Midi
\midi { \context { \Score tempoWholesPerMinute = #(ly:make-moment 63 2) }} 

}


} %%% book bracket

Lily3 Notes

Copy the Lilypond source to your computer and compile it to create MIDIs and a PDF to check. Leave notes here, or edit the code in Lily2 and leave notes describing the changes. The L3 who declares the hymn "cleared" should upload the correctly-named files to the file repository. This ensures that what is checked and cleared is exactly what is uploaded.

styg 19:40, 1 July 2007 (PDT)

  • 1st system, bass part, 4th full bar: note should be bes instead of aes.
  • Found no other problems.

Jkenny 21:31, 1 July 2007 (PDT)

  • Fixed bass note.

QMacrocarpa 14:54, 2 July 2007 (PDT)

  • Cleared.


Project History

    • Lily1 - (lyrics added)
    • Lily2 - done Jkenny 21:48, 26 June 2007 (PDT)
    • Lily3 - Comment added styg 19:40, 1 July 2007 (PDT)
- fixed.
- Lily3 cleared and uploaded QMacrocarpa 15:00, 2 July 2007 (PDT)