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

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, 118.png, hymns #61, 62.
%%% Format=ABC
%%%

X: 1
T: 61, 62
C: 
M: 
L: 1/8
Q: 1/8=100
K: D
V:1 staves=5
%%MIDI transpose 0
K:C
F F G A G G F E|G E F D C F F F|
F F G A G G F E|G E F D C F D D||
%
V:2
G G A B A A G F|A F G E D G G G|
G G A B A A G F|A F G E D G E E||
%
V:3
E D =C B, D ^C E D|E D- D =C B, B, E D|
D E F- F F E D2|E D- D =C B, D =C B,||
%
V:4 clef=bass
g2 f g a- a b2|a2 g2- g- g =c' b|
b2 d'2- d' ^c' b a|a2 g2- g- g g g||
%
V:5 clef=bass
=c B A G F A e B|^c d B =c g e =c G|
g e d B d A B d|^c d B =c g B =c e||


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%% The English Hymnal, 118.png, hymns #61, 62.
%%% 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
K:C
DE DCD||
w:A_men.__
%
V:2
EF EDE||
%
V:3
^CD B,3||
%
V:4 clef=bass
a2 gfg||
%
V:5 clef=bass
Ad eBE||

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

"ALMIGHTY God, who from the flood"
"Didst bring to light a twofold brood;"
"Part in the firmament to fly,"
"And part in ocean's depths to lie;"
""
"Appointing fishes in the sea,"
"And fowls in open air to be,"
"That each, by origin the same,"
"Its separate dwelling-place might claim:"
""
"Grant that thy servants, by the tide"
"Of Blood and water purified,"
"No guilty fall from thee may know,"
"Nor death eternal undergo."
""
"Be none submerged in sin's distress,"
"None lifted up in boastfulness;"
"That contrite hearts be not dismayed,"
"Nor haughty souls in ruin laid."
""
"O Father, that we ask be done."
"Through Jesus Christ, thine only Son;"
"Who, with the Holy Ghost and thee,"
"Doth live and reign eternally. Amen."

Lily2 Code

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

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

Then create a link in the Lily3 section to those files


%%% 118.png
%%% Hymn 61  "Almighty God, who from the flood"
%%% Version 1


\version "2.10"

\include "gregorian-init.ly"

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



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


global = {
   \key d \major
   \time 16/8
   \autoBeamOff
   \set Staff.midiInstrument = "church organ"
}


% *** ln 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 }



%%%%%%%%%%     Music     %%%%%%%%%%


plainsong = \relative c { 
   \clef "vaticana-fa2"
   \set fontSize = #3
   
   fis8 fis g a g g fis e \bar "|" g e fis d cis fis fis fis \bar "|" \break
   fis fis g a g g fis e \bar "|" g e fis d cis fis d d \bar "||" \break } 

soprano = \relative c' {

   g'8 g a b a a g fis \bar "|"a fis g e d g g g \bar "|" \break
   g g a b a a g fis \bar "|"a fis g e d g e e \bar "||" \break }

alto = \relative c' {
	
   e8 d c b d cis e d \bar "|" e d~ d c b b e d \bar "|"
   d e \once \override Slur #'extra-offset = #'( 0.0 . -0.2 ) fis~ fis fis e \ln d4 \bar "|" e8 d~ d c b d c! b \bar "||" \break }

tenor = \relative c { 
	\clef bass

   \ln g'4 fis8 g a~ a \ln b4 \bar "|" \ln a4 \ln g4~ g8~ g c b \bar "|"
   \ln b4 \ln d4~ d8 cis! b a \bar "|" \ln a4 \ln g4~ g8~ g g g \bar "||" \break }

bass = \relative c { 
	\clef bass
	
   c8 b a g fis a e' b \bar "|" cis d b c g' e c! g \bar "|"
   g' e d b d a b d \bar "|" cis! d b c g' b, c! e \bar "||" \break }



%%%%%%%%%%     Score block     %%%%%%%%%%


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


\book {


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


\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
   % *** makes sure last system spreads right across the page
   ragged-last = ##f

\context { \Score 
   \remove "Bar_number_engraver"
   % *** uncomment this to remove system start bar 
   % \override SystemStartBar #'stencil = ##f 
   \remove "Mark_engraver"
}

 \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_engraver
   \override KeySignature #'transparent = ##t
   \override Accidental  #'transparent = ##t
   % *** needed for certain tweaks   
   \consists "Mark_engraver"
}

\context { \Staff 
   \consists "Mark_engraver" 
   \override TimeSignature #'transparent = ##t
   % *** Needed to produce beamed minims - which are quavers in disguise
   \override NoteHead #'duration-log = #1 
   \override Stem #'flag-style = #'no-flag 
}

} % end layout 
 
} % end score 



%%%%%%%%%%     Lyrics     %%%%%%%%%%


\markup {
   % change number as necessary to centre lyrics block
   \hspace #34   

\column { 

% whole lyrics block is formatted into a single column

% heading section
   \line { \lower #0.5 \small { \hspace #-30 \smallCaps "Office Hymn." \hspace #54 \italic "6th or 7th cent.  Tr. J. M. Neale" \normal-text "‡." } } 
   \line { \small { \hspace #-28 \italic "Thursday Evening." \hspace #18 "Magnae Deus potentiae."} }
   % *** inserts vertical space between lines
   \hspace #0.1
   
% lyrics section 1: double column of verses
% Create a line made up of two columns of verse separated by a vertical line
   \line {
         % first column of verse  
            % return to LH margin
            \hspace #-30
         \column {  
                 \line { \hspace #2.2 
                         % *** Drop Cap goes here
                         \column { \lower #2.4 \fontsize #8 "A" }
                         % *** adjust if rest of line is too far from Drop Cap - left is negative
                         \hspace #-1.7    
		         \column { \raise #0.0 "LMIGHTY God, who from the flood"
                                               "  Didst bring to light a twofold brood;" } 
                       }          

                 \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 { "Part in the firmament to fly,"
                                   "And part in ocean's depths to lie;" } 
                       }

                 \hspace #1 
           	 \line { "2  " \column { "Appointing fishes in the sea,"
                                         "And fowls in open air to be,"
                                         "That each, by origin the same,"
                                         "Its separate dwelling-place might claim:" } }
                 \hspace #1 
           	 \line { "3  " \column { "Grant that thy servants, by the tide"
                                         "Of Blood and water purified," } }                 

                 } % end first column of verse

         % create some space between first column of verse and the vertical line
         \hspace #3

         % vertical line	
         \column { \filled-box #'(0.0 . 0.1) #'(-30 . 2) #0 }

         % second column of verse
         \column { \line { \hspace #2 "   " \column { "No guilty fall from thee may know,"
                                                      "Nor death eternal undergo." } }

                   \hspace #1 
           	   \line { \hspace #2 "4  " \column { "Be none submerged in sin's distress,"
                                                      "None lifted up in boastfulness;"
                                                      "That contrite hearts be not dismayed,"
                                                      "Nor haughty souls in ruin laid." } }

		   \hspace #1 
         	   \line { \hspace #2 "5. " \column { "O Father, that we ask be done,"
                                           "Through Jesus Christ, thine only Son;"
                                           "Who, with the Holy Ghost and thee,"
                                           "Doth live and reign eternally.    Amen." } }
 
                 } % end second column of verse

   } % end master line

} % end column that is entire lyrics block

} % end markup



%%%%%%%%%%     Midi Block     %%%%%%%%%%

%%% 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) } } 

} % end midi score



%%%%%%%%%%     Amen Block     %%%%%%%%%%

	
\score { <<

\new VaticanaStaff <<
   \new VaticanaVoice = "plainsongamen" { 
      \set Score.timing = ##f
      \set fontSize = #3
      % *** makes clef bigger
      \override Staff.Clef #'#'font-size = #3
      \clef "vaticana-fa2"
      \override Staff.StaffSymbol #'staff-space = #1.6
	 
      \relative c { 
      \[ 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 <<
   \new Staff = upper << 
      \new Voice = "sopranos"  { \relative c' { \global \voiceOne e8[ fis8] e8[ d8 e8] \bar "||" } }
      \new Voice = "altos"     { \relative c' { \global \voiceTwo cis!8[ d8] \ln b4. \bar "||" } } >>

      \new Lyrics \lyricsto sopranos { \set alignAboveContext = #"upper" \override LyricText #'font-size = #-1 { A -- men. } } 

      \new Staff = lower <<
         \new Voice = "tenors" { \relative c { \global \clef bass \voiceThree \ln a'4 g8[ fis8 g8] \bar "||" } }
         \new Voice = "basses" { \relative c { \global \clef bass \voiceFour a8[ d8] e8[ b8 e,8] \bar "||" } } >> 
>> % choirstaff bracket

>> % score bracket

% *** creates space between end of lyrics and amen score
\header { breakbefore = ##f piece = " " opus = " " }


\layout {
   indent = 13\cm
   raggedright = ##t
   ragged-bottom = ##t
   packed = ##f

\context { \Score 
   \override TimeSignature #'transparent = ##t
   % *** controls the amount of space between notes on the staff
   \override SeparationItem #'padding = #2 
}
     
\context { \VaticanaStaff 
   \revert StaffSymbol #'color
   \revert LedgerLineSpanner #'color
   \override BarLine #'transparent = ##f 
} 

\context { \Staff 
   \override VerticalAxisGroup #'minimum-Y-extent = #'( -2 . 2) 
   fontSize = #-3 
   \override StaffSymbol #'staff-space = #(magstep -2)
   \override NoteHead #'duration-log = #1
   \override Stem #'flag-style = #'no-flag
}

} % end amen layout

} % end amen score


% *** 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 <<
      \new Staff = upper << 
          \new Voice = "sopranos" { \relative c' { \global \voiceOne d8[ e8] d8[ c8 d8] \bar "||" } }
	  \new Voice = "altos"    { \relative c' { \global \voiceTwo a8[ c8] \ln a4 ~ a8  \bar "||" } } >>

      \new Staff = lower <<
	 \new Voice = "tenors"    { \relative c { \clef bass \global \voiceThree f8[ g8] f8[ e8 f8] \bar "||" } }
	 \new Voice = "basses"    { \relative c { \clef bass \global \voiceFour d8[ c8] d8[ a8 d,8] \bar "||" } } >>
>> % choir staff bracket


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

} % end midi score

} % end book 

Lily3

We are trying out a new workflow where L3 grabs the code, compiles and checks. After clearance, L3 will name the files and upload to repository. This ensures that what is checked and cleared is exactly what is uploaded.

Notes

Lily3 cleared, files uploaded styg 06:10, 26 June 2007 (PDT)


Project History

    • Lily1 - done by QMacrocarpa 15:40, 8 June 2007 (PDT) (ABC) (lyrics added)
    • Lily2 - done by camilla 01:11, 23 June 2007 (PDT)
    • Lily3 - Lily3 cleared, files uploaded styg 06:11, 26 June 2007 (PDT)