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

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.

Note: Music is same as for 110.

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%% The English Hymnal, 110.png, hymn #52, 53.
%%% Format=ABC
%%%

X: 1
T: 52
C: 
M: 
L: 1/8
Q: 1/8=100
K: C
V:1 staves=5
%%MIDI transpose 0
F F G A _B A G A|A G c c G A _B AG|
A A G A G F E F|G A G F E FG E D||
%
V:2
%%MIDI transpose 0
F F G A _B A G A|A G c c G A _B AG|
A A G A G F E F|G A G F E FG E D||
%
V:3
%%MIDI transpose 0
C D E F2- F E F|F G E F E F2- FE|
F F D F E D C D|E F E D C C2- C A,||
%
V:4 clef=bass
%%MIDI transpose -24
a a c' c' _b c'2- c'|a c'- c'3- c' _b c'2|
c' d' b c' c' a2- a|c' c' c' a2- ag- g f||
%
V:5 clef=bass
%%MIDI transpose -24
f d c f d f c f| d e c A c f d fc|
f d g f c d A d|c f c d a fe c d||

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%% The English Hymnal, 110.png, hymn #52, 53.
%%% Format=ABC
%%%
%%% Amen only.

X: 2
T: 
C: 
M: 
L: 1/8
Q: 1/8=100
K: C
V:1 staves=5
%%MIDI transpose 0
DE DCD||
w:A_men.__
%
V:2
%%MIDI transpose 0
DE DCD||
%
V:3
%%MIDI transpose 0
A,C A,2- A,||
%
V:4 clef=bass
%%MIDI transpose -24
fg fef||
%
V:5 clef=bass
%%MIDI transpose -24
dc dAD||

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

"THE wingèd herald of the day"
"Proclaims the morn's approaching ray:"
"And Christ the Lord our souls excites,"
"And so to endless life invites."
""
"Take up thy bed, to each he cries,"
"Who sick or wrapt in slumber lies;"
"And chaste and just and sober stand,"
"And watch: my coming is at hand."
""
"With earnest cry, with tearful care,"
"Call we the Lord to hear our prayer;"
"While supplication, pure and deep,"
"Forbids each chastened heart to sleep."
""
"Do thou, O Christ, our slumbers wake;"
"Do thou the chains of darkness break;"
"Purge thou our former sins away."
"And in our souls new light display."
""
"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>.

%%% 110b png
%%% Hymn 53 O splendour of God's glory bright
%%% Version 3


\version "2.10"

\include "gregorian-init.ly"

\header {
  dedication = \markup { \center-align {  "THE CHRISTIAN YEAR - FROM THE EPIPHANY TILL LENT"
		\hspace #0.1 }}	
  title = "53"
  arranger = \markup { \small { "Mode i." }}
  tagline =""
}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Macro Definitions

%% macro settings for stemless long note which is 2x duration of regular white note    
ln = {\once \override NoteHead #'duration-log = #0 
           \once \override Stem #'stencil = ##f
           \once \override NoteColumn #'force-hshift = #'0.4 }
	   
%% moves plainsong accidentals leftwards so that they show up more clearly
moveacci = \once \override Accidental #'extra-offset = #'(-0.2 . 0 )

%% suprresses printing of accidental
noacci = \once \override Accidental #'transparent = ##t

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% End of Macro Definitions

%%% plainsong voice

plainsong = \context VaticanaVoice  {  \relative c { 
	\clef "vaticana-do3"
	\set fontSize = #3
        \key c \major 
	
  f8 f8 g8 a8 \moveacci bes8 a8 g8 a8 \bar "|" 
      a8 g8 c8 c8 g8 a8 \moveacci bes!8 \[a8 \flexa g8 \] \bar "|" \break
  a8 a8 g8 a8 g8 f8 e8 f8 \bar "|" 
      g8 a8 g8 f8 e8 \[ f8 \pes g8 \] e8 d8 \bar "||"
}
}

%%% SATB voices

global = {
  \key c \major 
  \set Staff.midiInstrument = "church organ"
}

soprano = \relative c' {
	\autoBeamOff

  f8 f8 g8 a8 bes8 a8 g8 a8 \bar "|"
      a8 g8 c8 c8 g8 a8 bes!8 a8[ g8] \bar "|" 
  a8 a8 g8 a8 g8 f8 e8 f8 \bar "|" 
      g8 a8 g8 f8 e8 f8[ g8] e8 d8 \bar "||" 
}

alto = \relative c' {
	\autoBeamOff
	
  c8 d8 e8 \ln f4 ~ f8 e8 f8 \bar "|" 
      f8 g8 e8 f8 e8 \ln f4 ~ f8[ e8] \bar "|" 
  f8 f8 d8 f8 e8 d8 c8 d8 \bar "|" 
      e8 f8 e8 d8 c8 \ln c4 ~ c8 a8 \bar "||" 
}

tenor = \relative c { 
	\clef bass
	\autoBeamOff

  a'8 a8 c8 c8 bes8 \ln c4 ~ c8 \bar "|" 
      a8 
      %%% tweak ties to avoid collision with augmentation dot
      \override Tie #'extra-offset = #'(0.0 . 0.6)
      c8 ~ 
      \once \override Tie #'extra-offset = #'(0.0 . 0.3)
      \ln c4. ~ c8 bes!8 \ln c4 \bar "|" 
  c8 d8 \noacci b8 c8 c8 \ln a4 ~ a8 \bar "|" 
      c8 c8 c8 \ln a4 ~ a8[ g8] ~ g8 f8 \bar "||" 
}

bass = \relative c { 
	\clef bass
	\autoBeamOff
	
  f8 d8 c8 f8 d8 f8 c8 f8 \bar "|" 
      d8 e8 c8 a8 c8 f8 d8 f8[ c8] \bar "|" 
  f8 d8 g8 f8 c8 d8 a8 d8 \bar "|" 
      c8 f8 c8 d8 a'8 f8[ e8] c8 d8 \bar "||" 
}

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

\book {

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

%%% Score block

\score {	
  <<
  \new VaticanaStaff {\plainsong }
  \new ChoirStaff <<
   \new Staff = "upper" <<
      \context Voice = sopranos {\voiceOne \global \soprano }
      \context Voice = altos {\voiceTwo \global \alto }
                      >> 
   \new Staff = "lower" <<
      \context Voice = tenors {\voiceOne \global \tenor }
      \context Voice = bass {\voiceTwo \global \bass }
	             >> 
		 >>  
  >>

\layout {
	
  ragged-right = ##f
  ragged-last = ##f
  \context { \Score timing = ##f }
  \context { \Score \override TimeSignature #'transparent = ##t }
  \context { \Score \remove "Mark_engraver" }
  \context { \Staff \consists "Mark_engraver" }
  
  % *** Needed to produce beamed minims - which are quavers in disguise
  \context { \Staff \override NoteHead #'duration-log = #1 }
  \context { \Staff \override Stem #'flag-style = #'no-flag }
  
  \context { \VaticanaStaff
           % *** Increases distance between lines of staff  
           \override StaffSymbol #'staff-space = #1.6            
           % *** Changes staff to black instead of default red
           \revert StaffSymbol #'color
           % *** Makes clef bigger       
           \override Clef #'font-size = #3
           % *** Would make ledger lines black, if there were any
           \revert LedgerLineSpanner #'color
           % *** Makes terminal barline visible 
           \override BarLine #'transparent = ##f 
  	   % *** Remove custos
	   \remove Custos_engraver
	   % needed for certain tweaks
	   \consists "Mark_engraver"
           }
 } 
 
} %%% score bracket 

%%% A separate score block to generate the midi minus the plainsong voice
%%% Since minims are quavers in disguise, tempo has to be set accordingly, tempo set to 2=80

\score {	
  \new ChoirStaff <<
   \new Staff = "upper" <<
      \context Voice = sopranos {\voiceOne \global \soprano }
      \context Voice = altos {\voiceTwo \global \alto }
                      >> 
   \new Staff = "lower" <<
      \context Voice = tenors {\voiceOne \global \tenor }
      \context Voice = bass {\voiceTwo \global \bass }
	             >> 
		 >>  

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

%%% Lyric titles

\markup {
	\column {
	    \line { \small { \hspace #2 \smallCaps "Office Hymn." \hspace #56 \italic {"Prudentius, b. 348.   Tr. J. M. Neale."} } }  
	    \line { \small { \hspace #6 \italic "Tuesday Morning." \hspace #20 "Ales diei nuntius."} }
} }
   
\markup { \hspace #30 %%add space as necc. to center the column
          \column { %% super column of everything
	                 \column { %%verse 1 is a column of 2 lines  
	                  \line { \hspace #2.2 \column { \lower #2.4 \fontsize #8 "T" }   %%Drop Cap goes here
				  \hspace #-1.2    %% adjust this if other letters are too far from Drop Cap
				  \column  { \raise #0.0 "HE wingèd herald of the day"  
			                                 "  Proclaims the morn's approaching ray:"} }  
	                  \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 {   
					   "And Christ the Lord our souls excites,"
					   "And so to endless life invites."
			  		}}
			       
			           } %% finish stanza 1	
		        \hspace #1 
           		\line { "2  "
			   \column {	     
				   "Take up thy bed, to each he cries,"
				   "Who sick or wrapt in slumber lies;"
				   "And chaste and just and sober stand,"
				   "And watch: my coming is at hand."
			}}
		        \hspace #1  % adds vertical spacing between verses  
           		\line { "3  "
			  \column {	     
				  "With earnest cry, with tearful care,"
				  "Call we the Lord to hear our prayer;"
				  "While supplication, pure and deep,"
				  "Forbids each chastened heart to sleep."
			}}
		}  
}	  
	

%%% 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 { 
           	\line {"4  "
		  \column {	     
			  "Do thou, O Christ, our slumbers wake;"
			  "Do thou the chains of darkness break;"
			  "Purge thou our former sins away,"
			  "And in our souls new light display."
			}}
		\hspace #1 % adds vertical spacing between verses
           	\line { "5. "
		   \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 VaticanaStaff <<
  \context VaticanaVoice = "plainsongamen"  {  \relative c { 	  
	\set Score.timing = ##f
	\override Staff.Clef #'#'font-size = #3
	\clef "vaticana-do3"
	\set fontSize = #3
	\override Staff.StaffSymbol #'staff-space = #1.6
	 
        \[ d8 \pes e8 \]  \[
	    \override NoteHead #'extra-offset = #'(0.0 . -0.1 ) d8 
            \override NoteHead #'extra-offset = #'(-0.38 . 0) \flexa  c8 \pes 
  \override NoteHead #'extra-offset = #'(0.0 . 0.0 ) d8 \] }}

                    >>
  
 \new Lyrics = "lyrics" { s1 }
 \new ChoirStaff
   <<
   \context Staff = upper \with {  fontSize = #-3  \override StaffSymbol #'staff-space = #(magstep -2) } 
                              << 
	\context Voice = "sopranos" { \relative c' { 
	                                              \clef treble \global
	                                              \voiceOne d8[ e8] d8[ c8 d8] \bar "||" }}
	\context Voice = "altos"    { \relative c' { 
	                                              \global
	                                              \voiceTwo a8[ c8] \ln a4 ~ a8  \bar "||" }}
	                      >>
	\context Staff = lower \with { fontSize = #-3  \override StaffSymbol #'staff-space = #(magstep -2) } 
	                      <<
	\context Voice = "tenors" { \relative c { 
		                                  \clef bass  \global
	                                          \voiceThree f8[ g8] f8[ e8 f8] \bar "||" }}
	\context Voice = "basses" { \relative c { 
	                                          \clef bass  \global
						  \voiceFour d8[ c8] d8[ a8 d,8] \bar "||" }}
			        >> 
   >>
  \context Lyrics = "lyrics" \lyricsto "altos" { \override LyricText #'font-size = #-1  A -- _ men. }
  >>
>>

\header { breakbefore = ##f piece = " " opus = " " }

\layout {
     indent = 13\cm
     raggedright = ##t
     packed = ##f
     \context { \Score \override TimeSignature #'transparent = ##t }
     \context { \Score \override SeparationItem #'padding = #2 }
     \context { \Staff \override VerticalAxisGroup #'minimum-Y-extent = #'( -5 . 4) }
     \context { \Score \remove "Bar_number_engraver"
		timing = ##f 
              }
     \context { \Staff \override NoteHead #'duration-log = #1 }
     \context { \Staff \override Stem #'flag-style = #'no-flag }
     \context { \VaticanaStaff %%customize vaticana staff context 
	          \revert StaffSymbol #'color
		  \revert LedgerLineSpanner #'color
		  \override BarLine #'transparent = ##f 
		  \remove Custos_engraver
 	} 
} 

}

%%% Separate Score block for Amen midi
%%% Score comprises 1/8 notes masquerading as 1/2 notes, so tempo has to be adjusted accordingly, tempo set to 2=80

\score {  
 \new ChoirStaff
   <<
   \context Staff = upper \with {  fontSize = #-3  \override StaffSymbol #'staff-space = #(magstep -2) } 
                              << 
	\context Voice = "sopranos" { \relative c' { 
	                                              \clef treble \global
	                                              \voiceOne d8[ e8] d8[ c8 d8] \bar "||" }}
	\context Voice = "altos"    { \relative c' { 
	                                              \global
	                                              \voiceTwo a8[ c8] \ln a4 ~ a8  \bar "||" }}
	                      >>
	\context Staff = lower \with { fontSize = #-3  \override StaffSymbol #'staff-space = #(magstep -2) } 
	                      <<
	\context Voice = "tenors" { \relative c { 
		                                  \clef bass  \global
	                                          \voiceThree f8[ g8] f8[ e8 f8] \bar "||" }}
	\context Voice = "basses" { \relative c { 
	                                          \clef bass  \global
						  \voiceFour d8[ c8] d8[ a8 d,8] \bar "||" }}
			        >> 
   >>

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

} %% 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 23:19, 23 June 2007 (PDT)

  • Verse 4 lyrics, line 3 should end with comma instead of period.
  • Everything else looks/sounds good.

Jkenny 04:30, 24 June 2007 (PDT)

  • Fixed verse 4 comma - also updated the errata page for this P3 error.

Lily3 cleared, files uploaded styg 17:48, 25 June 2007 (PDT)


Project History

    • Lily1 - done by QMacrocarpa 14:15, 29 May 2007 (PDT) (ABC + lyrics)
    • Lily2 - done Jkenny 21:48, 21 June 2007 (PDT)
    • Lily3 - one small comment styg 23:20, 23 June 2007 (PDT)
- fixed. Jkenny 04:37, 24 June 2007 (PDT)
- Lily3 cleared, files uploaded styg 17:48, 25 June 2007 (PDT)