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

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.
%%% 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.
%%% 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:26, 29 May 2007 (PDT):

"O SPLENDOUR of God's glory bright,"
"O thou that bringest light from light,"
"O Light of light, light's living spring,"
"O Day, all days illumining,"
""
"O thou true Sun, on us thy glance"
"Let fall in royal radiance,"
"The Spirit's sanctifying beam"
"Upon our earthly senses stream."
""
"The Father, too, our prayers implore,"
"Father of glory evermore;"
"The Father of all grace and might,"
"To banish sin from our delight:"
""
"To guide whate'er we nobly do,"
"With love all envy to subdue,"
"To make ill-fortune turn to fair,"
"And give us grace our wrongs to bear."
""
"Our mind be in his keeping placed,"
"Our body true to him and chaste,"
"Where only faith her fire shall feed,"
"To burn the tares of Satan's seed."
""
"And Christ to us for food shall be,"
"From him our drink that welleth free,"
"The Spirit's wine, that maketh whole,"
"And, mocking not, exalts the soul."
""
"Rejoicing may this day go hence,"
"Like virgin dawn our innocence,"
"Like fiery noon our faith appear,"
"Nor know the gloom of twilight drear."
""
"Morn in her rosy car is borne;"
"Let him come forth our perfect morn,"
"The Word in God the Father one,"
"The Father perfect in the Son."
""
"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>.

%%%110a.png
%%%Hymn 52 Wareham. O splendour of God's glory bright. 
%%%Version 3

\version "2.10"

\header {
	dedication = \markup { \center-align { \line {  "THE CHRISTIAN YEAR - FROM THE EPIPHANY TILL LENT" } 
					       \hspace #1
						} }	
  title = \markup { "52 " \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	   
	      
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{
\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


\markup {
	\column {
	    \line { \small { \hspace #16 \smallCaps "Office Hymn." \hspace #40 \italic {"St. Ambrose, 340-97.   Tr. Y. H."} } }  
	    \line { \small { \hspace #20 \italic "Monday Morning." \hspace #4 "Splendor paternae gloriae."} }
} }
   
\markup { \hspace #30 %%add space as necc. to center the column
          \column { %% super column of everything
	              \column { %%stanza 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 "  SPLENDOUR of God's glory bright,"  "  O thou that bringest light from light,"} }          
	                  \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 {   
					   "O Light of light, light's living spring,"
					   "O Day, all days illumining,"
			  		}}
			       
			           } %% finish stanza 1	
		  \hspace #1  % adds vertical spacing between verses  
		  \line { "2  "
		    \column {	     
			    "O thou true Sun, on us thy glance"
			    "Let fall in royal radiance,"
			    "The Spirit's sanctifying beam"
			    "Upon our earthly senses stream."
			}}
		  \hspace #1  % adds vertical spacing between verses  
		  \line { "3  "
		    \column {	     
			    "The Father, too, our prayers implore,"
			    "Father of glory evermore;"
			    "The Father of all grace and might,"
			    "To banish sin from our delight:"
			}}
		  \hspace #1  % adds vertical spacing between verses  
		  \line { "4  "
		    \column {	     
			    "To guide whate'er we nobly do,"
			    "With love all envy to subdue,"
			    "To make ill-fortune turn to fair,"
			    "And give us grace our wrongs to bear."
			}}
		}  
}	  
	
%%second page
%%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
}}}

\markup { \hspace #30   %%add space as necc. to center the column
          \column { 
           	\line { "5  "
		   \column {	     
			     "Our mind be in his keeping placed,"
			     "Our body true to him and chaste,"
			     "Where only faith her fire shall feed,"
			     "To burn the tares of Satan's seed."
			}}
           	  \hspace #1  % adds vertical spacing between verses  
		  \line { "6  "
		    \column {	     
			    "And Christ to us for food shall be,"
			    "From him our drink that welleth free,"
			    "The Spirit's wine, that maketh whole,"
			    "And, mocking not, exalts the soul."
			}}
		\hspace #1 % adds vertical spacing between verses  
           	\line {"7  "
		    \column {	     
			    "Rejoicing may this day go hence,"
			    "Like virgin dawn our innocence,"
			    "Like fiery noon our faith appear,"
			    "Nor know the gloom of twilight drear."
			}} 
		\hspace #1 % adds vertical spacing between verses  
           	\line {"8  "
		    \column {	     
			    "Morn in her rosy car is borne;"
			    "Let him come forth our perfect morn,"
			    "The Word in God the Father one,"
			    "The Father perfect in the Son."
		}}
		\hspace #1 % adds vertical spacing between verses
           	\line { "9. "
		   \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."
     			}}
	  }
}% 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 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 }

       }

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

} %%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 06:11, 9 June 2007 (PDT)

  • I inserted the Hymn Number next to (Modern Tune) in a style similar to other hymns.
  • Will wait for issues in this piece to be resolved before embarking on Hymn 53, which uses the same music.

QMacrocarpa 15:13, 11 June 2007 (PDT)

  • Turns out this tune is used for even more hymns than I thought, so several of these should whizz by once this one is sorted! :)
  • There are some whole-note/half-note alignment issues. In the first system, seems to be confined to the upper staff. In the second system, seems to be just the lower staff. I dunno, should we be tweaking all these or let them stay where Lilypond puts 'em?
  • First system, lower staff, 3rd complete measure: small note could be more aligned with the large notes on same beat.
  • Lyrics attribution: "St. Ambrose...." doesn't look \small in font-o-vision.

Jkenny 19:38, 11 June 2007 (PDT)

  • Did the note-alignment -- thought it best to just do it, since we do it for other pieces.
  • Improved alignment of small note
  • Fixed \small for "St. Ambrose" - stray misplaced bracket!

QMacrocarpa 10:09, 17 June 2007 (PDT)

  • Latin above lyrics should be "Splendor" without "u"

styg 16:15, 22 June 2007 (PDT)

  • Hymn number in header should be 52 instead of 53.

Jkenny 18:40, 22 June 2007 (PDT)

  • Fixed "52", thanks.

Lily3 cleared, files uploaded styg 23:33, 23 June 2007 (PDT)


Project History

    • Lily1 - done by QMacrocarpa 15:39, 8 June 2007 (PDT) (ABC) (lyrics added)
    • Lily2 - done by Jkenny 06:12, 9 June 2007 (PDT)
    • Lily3 - comments added QMacrocarpa 15:15, 11 June 2007 (PDT)
- fixed. Jkenny 19:40, 11 June 2007 (PDT)
- one more comment QMacrocarpa 10:10, 17 June 2007 (PDT)
- fixed Jkenny 19:11, 17 June 2007 (PDT)
- comment added styg 16:14, 22 June 2007 (PDT)
- fixed. Jkenny 18:42, 22 June 2007 (PDT)
- Lily3 cleared, files uploaded styg 23:34, 23 June 2007 (PDT)