The English Hymnal - Wiki Music Experiment/Hymns51-100/114a

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.

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%% The English Hymnal, 110.png Hymns 52, 53.
%%% Also 112.png Hymns 54, 55.
%%% AND 114.png Hymns 56, 57.
%%% Format=ABC
%%%
%%% Small note in bass, 3rd complete measure.

X: 1
T: Wareham
C: W. Knapp, 1698(?)-1768.
M: 3/2
L: 1/2
Q: 1/2=63
K: A
V:1 staves=4
%%MIDI transpose 0
A|(AG)F|E2A|(BA)G|A2||B|(cB)A|(GA)B|(AG)F|E2||
E|(FE)(F/G/)|A2G|A2B|c2||(B/c/)|(dc)B|(AG)A|(BA)G|A2||
%
V:2
C|C2D|E2C|(FE)E|E2||E|E2(E/^D/)|E2E|E2^D|E2||
E|(DE)D|E2E|C2F|^E2||(F/=E/)|(DE)F|(F^E)F|(FE)E|E2||
%
V:3 clef=bass
a|e2g|a2a|(d'c')b|c'2||g|(ab)(c'/a/)|(bc')b|(c'b)(b/a/)|g2||
a|a2d'|c'2b|(ag)f|g2||(f/^a/)|(b^a)b|c'2c'|(d'c')b|c'2||
%
V:4 clef=bass
A|A2B|c2f|(de)[Ee]|A2||e|(ag)f|(ec)G|(AB)B|e2||
c|(dc)B|(Ac)e|(fe)d|c2||(d/c/)|(Bc)d|(fc)f|(de)e|A2||


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%% The English Hymnal, 110.png Hymns 52, 53.
%%% Also 112.png Hymns 54, 55.
%%% AND 114.png Hymns 56, 57.
%%% Format=ABC
%%%
%%% Amen only.

X: 2
T: 
C: 
M: 4/2
L: 1/2
Q: 1/2=63
K: A
V:1 staves=4
%%MIDI transpose 0
A2A2||
%
V:2
F2E2||
w:A-men.
%
V:3 clef=bass
d'2c'2||
%
V:4 clef=bass
d2A2||

Lyrics copied from P3 and perl-formatted --QMacrocarpa 14:48, 29 May 2007 (PDT):

"ETERNAL Glory of the sky,"
"Blest hope of frail humanity,"
"The Father's sole-begotten One,"
"Yet born a spotless Virgin's Son!"
""
"Uplift us with thine arm of might,"
"And let our hearts rise pure and bright,"
"And, ardent in God's praises, pay"
"The thanks we owe him every day."
""
"The day-star's rays are glittering clear,"
"And tell that day itself is near:"
"The shadows of the night depart;"
"Thou, holy Light, illume the heart!"
""
"Within our senses ever dwell,"
"And worldly darkness thence expel;"
"Long as the days of life endure,"
"Preserve our souls devout and pure."
""
"The faith that first must be possest,"
"Root deep within our inmost breast;"
"And joyous hope in second place,"
"Then charity, thy greatest grace."
""
"All laud to God the Father be,"
"All praise, eternal Son, to thee;"
"All glory, as is ever meet,"
"To God the holy Paraclete. Amen."
""

Lily2 Code

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

%%%114a.png
%%%Hymn 56 Wareham. Eternal Glory of the Sky
%%%Version 1

\version "2.10"

\header {
	dedication = \markup { \center-align { \line {  "THE CHRISTIAN YEAR - FROM THE EPIPHANY TILL LENT" } 
					       \hspace #1
						} }	
  title = \markup { "56 " \large \smallCaps "(Modern Tune)" }
			       
  arranger = \markup { \small { \smallCaps "W. Knapp, 1698(?)-1768."} }
  poet = \markup { \small { \sans  "WAREHAM." \hspace #1 \roman { "(L. M.)"} } }
  meter = \markup { \small { \italic {Very slow and dignified} \fontsize #-5 \general-align #Y #DOWN \note #"2" #1 = 63.} }
  tagline = ""
}

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

%%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 ","}
}

%% Used to pull a note left. Used when a slurred note pair straddles a longer note when notecolumn force-hshift does not work 		 
straddle =  { \once \override Score.SeparationItem #'padding = #2
              \once \override NoteHead #'X-offset = #-2.8 
              \once \override Stem #'X-offset = #-2.8 }

%% Shortcut macro for small notes
smallnote = {  \once \set fontSize = #-3 
              \once \override Stem #'length = #5  }	      
	      
%% Macro to push notes rightwards
push = { \once \override Dots #'transparent = ##t
	\once \override NoteColumn #'force-hshift = #0.5 }

%% Macro to pull notes leftwards, needed to create the partly merged whole notes	
pull = { \once \override NoteColumn #'force-hshift = #-0.01 }	      

%%%%%%%%%%%%%%%%%%%%%%%%%% End of Macro definitions	   
	      
%%% SATB voices

soprano = \relative c' {
  \partial 2 a'2 | a2( gis2) fis2 | e1 a2 | b2( a2) gis2 | a1 \bar "||" 
      b2 | cis2( b2) a2 | gis2( a2) b2 | a2( gis2) fis2 | e1  \breathmark \bar "||" \break
      
  e2 | fis2( e2) fis4( gis4) | a1 gis2 | a1 b2 | cis1 \bar "||" 
      b4( cis4) | d2( cis2) b2 | a2( gis2) a2 | b2( a2) gis2 | a1 \bar "||" 
}

alto = \relative c' {
  cis2 | \push cis1 d2 | \pull e1 cis2 | fis2( e2) e2 | e1 \bar "||" 
      e2 | \push e1 e4( dis4 ) | \push e1 e2 | \push e1 dis2 | \pull e1 \bar "||" 
      
  e2 | d2( e2) d2 | e1 e2 | cis1 fis2 | eis1 \bar "||" 
     fis4( e!4) | d2 ( e2) fis2 | fis2( eis2) fis2 | fis2( e2) e2 | e1 \bar "||" 
}

tenor = \relative c { \clef bass
  a'2 | e1 gis2 | a1 a2 | d2( cis2) b2 | cis1 \bar "||" 
      gis2 | a2( b2) cis4( a4) | b2( cis2) b2 | cis2( b2) b4( a4) | gis1 \bar "||" 
      
  a2 | \push a1 d2 | \push cis1 b2 | a2( gis2) fis2 | gis1 \bar "||" 
      fis4( ais4) | b2( ais2) b2 | \push cis1 cis2 | d2( cis2) b2 | cis1 \bar "||" 
}

bass = \relative c { \clef bass
  a2 | a1 b2 | cis1 fis2 | d2( e2) 
      << { e,2 } 
        %% small alternative note 
        \new Voice = alt { \voiceFour 
        \once \override NoteColumn #'force-hshift = #0.1
        \smallnote e'2} >> 
      | a,1 \bar "||" 
      e'2 | a2( gis2) fis2 | e2( cis2) gis2 | a2( b2) b2 | e1 \bar "||"
      
  cis2 | d2( cis2) b2 | a2( cis2) e2 | fis2( e2) d2 | cis1 \bar "||" 
      d4( cis4) | b2( cis2) d2 | fis2( cis2) fis2 | d2( e2) e2 | a,1 \bar "||" 
}

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

#(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 timing = ##f }
		\context { \Score \remove "Bar_number_engraver" }
		\context { \Staff \remove "Time_signature_engraver" }
		\context { \Score \remove "Mark_engraver"  }
                \context { \Staff \consists "Mark_engraver"  }
	}

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

%%% Lyrics titles

\markup {
	\column {
	    \line { \small { \hspace #2 \smallCaps "Office Hymn." \hspace #56 \italic {"6th cent.  Tr. J. M. Neale."} } }  
	    \line { \small { \hspace #5 \italic "Friday Morning." \hspace #21 "Aeterna caeli gloria."} }
} }
 
%%% Lyrics, in 2 columns with separator line, 3 verse per column

\markup { \hspace #2   %%add space as necc. to center the entire block of lyrics
          \column { %%% super column comprising 3 columns and separator line
	    \line { %% a master line of 3 columns, two for lyrics and one column of a separator line
		\column { %% column 1
	                 \column { %%verse 1 is a column of 2 lines  
	                  \line { \hspace #2.2 \column { \lower #2.4 \fontsize #8 "E" }   %%Drop Cap goes here
				  \hspace #-1.2    %% adjust this if other letters are too far from Drop Cap
				  \column  { \raise #0.0 "TERNAL Glory of the sky,"
			                                "  Blest hope of frail humanity," } }  
	                  \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 {   
					   "The Father's sole-begotten One,"
					   "Yet born a spotless Virgin's Son!"
			  		}}
			       
			           } %%% finish verse 1
		        \hspace #1 
           		\line { "2  "
			   \column {	     
				   "Uplift us with thine arm of might,"
				   "And let our hearts rise pure and bright,"
				   "And, ardent in God's praises, pay"
				   "The thanks we owe him every day."
			}}
			\hspace #1 
           		\line { "3  "
			   \column {	     
				   "The day-star's rays are glittering clear,"
				   "And tell that day itself is near:"
				   "The shadows of the night depart;"
				   "Thou, holy Light, illume the heart!"
			}}
		}  %% finish Page column 1
		
	\hspace #4 %%adds horizontal space columns 1 and 2   
			   
	\column { \filled-box #'(0.0 . 0.1) #'( -36 . 1) #0 }   %%% Column 2. This is the line dviding the columns 1 and 3. 
			   	   
	\hspace #4 %%adds horizontal space between columns 2 and 3	
	
	\column { %%start page column 3		
 
           		\line { "4  "
			  \column {	     
				  "Within our senses ever dwell,"
				  "And worldly darkness thence expel;"
				  "Long as the days of life endure,"
				  "Preserve our souls devout and pure."
			}}
		        \hspace #1 
           		\line {"5  "
			  \column {	     
				  "The faith that first must be possest,"
				  "Root deep within our inmost breast;"
				  "And joyous hope in second place,"
				  "Then charity, thy greatest grace."
			}}
			\hspace #1 
           		\line {"6. "
			  \column {	     
				  "All laud to God the Father be,"
				  "All praise, eternal Son, to thee;"
				  "All glory, as is ever meet,"
				  "To God the holy Paraclete.     Amen."
			}}
	    } %%% end column 3
     } %%% end master-line
   } %%% super column bracket
} %%% lyrics 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 a'1 a1 \bar "||" }}
	\context Voice = "altos"    { \relative c' {  \clef treble \global \voiceTwo fis1 e1 \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 d'1 cis1 \bar "||" }}
	\context Voice = "basses" { \relative c { \clef bass \global \voiceFour  d1 a1 \bar "||" }}
			        >> 
  >>			      
\header { breakbefore = ##f piece = " " opus = " " }
\layout { 
	\context { \Score timing = ##f }
	ragged-right = ##t
	indent = 15\cm
	\context { \Staff \remove Time_signature_engraver }

       }

%%% 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.

Notes by L2 Jkenny 02:07, 16 June 2007 (PDT)

  • Same music as 110a and 112a etc.

Lily3 cleared, files uploaded styg 08:41, 25 June 2007 (PDT)


Project History

    • Lily1 - done (ABC) QMacrocarpa 13:46, 11 June 2007 (PDT) (lyrics added)
    • Lily2 - done Jkenny 22:25, 17 June 2007 (PDT)
    • Lily3 - Lily3 cleared, files uploaded styg 08:43, 25 June 2007 (PDT)