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

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, 116.png, hymns #58, 59, 60.
%%% Format=ABC

X: 1
T: 58, 59, 60
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, 116.png, hymns #58, 59, 60.
%%% Format=ABC
%%%
%%% Amen only.
X: 2
T:
C: 
M: 
L: 1/8
Q: 1/8=100
K: D
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 14:53, 29 May 2007 (PDT):

"O BOUNDLESS Wisdom, God most high,"
"O Makor of the earth and sky,"
"Who bid'st the parted waters flow"
"In heaven above, on earth below:"
""
"The streams on earth, the clouds in heaven,"
"By thee their ordered bounds were given,"
"Lest 'neath the untempered fires of day"
"The parchèd soil should waste away."
""
"E'en so on us who seek thy face"
"Pour forth the waters of thy grace;"
"Renew the fount of life within,"
"And quench the wasting fires of sin."
""
"Let faith discern the eternal Light"
"Beyond the darkness of the night,"
"And through the mists of falsehood see"
"The path of truth revealed by thee."
""
"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


%%% 116.png
%%% Hymn 58  O Boundless Wisdom, God most high
%%% 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 = "58"
   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 #32   

\column { 

% whole lyrics block is formatted into a single column

% heading section
   \line { \lower #0.5 \small { \hspace #-27 \smallCaps "Office Hymn." \hspace #60 \italic "c. 6th cent.  Tr. G. G." } } 
   \line { \small { \hspace #-25 \italic "Monday Evening." \hspace #18 "Immense caeli Conditor."} }
   % *** 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 
                         \column { \lower #2.4 \fontsize #8 "O" }   %%Drop Cap goes here
                         \hspace #-1    %% adjust this if other letters are too far from Drop Cap
		         \column { \raise #0.0 "  BOUNDLESS Wisdom, God most high,"
                                               "  O Maker of the earth and sky," } 
                       }          

                 \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 { "Who bid'st the parted waters flow"
                                   "In heaven above, on earth below:" } 
                       }

                 \hspace #1 
           	 \line { "2  " \column { "The streams on earth, the clouds in heaven,"
                                         "By thee their ordered bounds were given,"
                                         "Lest 'neath the untempered fires of day"
                                         "The parchèd soil should waste away." } }
                 \hspace #1 
           	 \line { "3  " \column { "E'en so on us who seek thy face"
                                         "Pour forth the waters of thy grace;" } }                 

                 } % 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 { "Renew the fount of life within,"
                                                      "And quench the wasting fires of sin." } }

                   \hspace #1 
           	   \line { \hspace #2 "4  " \column { "Let faith discern the eternal Light"
                                           "Beyond the darkness of the night,"
                                           "And through the mists of falsehood see"
                                           "The path of truth revealed by thee." } }

		   \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 18:09, 25 June 2007 (PDT)


Project History

    • Lily1 - done by QMacrocarpa 15:39, 8 June 2007 (PDT) (ABC) (lyrics added)
    • Lily2 - done by camilla 12:35, 18 June 2007 (PDT)
    • Lily3 - Lily3 cleared, files uploaded styg 18:09, 25 June 2007 (PDT)