The English Hymnal - Wiki Music Experiment/Hymns51-100/116d
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:57, 29 May 2007 (PDT):
"MOST holy Lord and God of heaven,"
"Who to the glowing sky hast given"
"The fires that in the east are born"
"With gradual splendours of the morn;"
""
"Who, on the fourth day, didst reveal"
"The sun's enkindled flaming wheel."
"Didst set the moon her ordered ways,"
"And stars their ever-winding maze;"
""
"That each in its appointed way"
"Might separate the night from day,"
"And of the seasons through the year"
"The well-remembered signs declare:"
""
"Illuminate our hearts within,"
"And cleanse our minds from stain of sin;"
"Unburdened of our guilty load"
"May we unfettered serve our God."
""
"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>.
%%% 116d.png
%%% Hymn 60 "Most holy Lord and God of heaven,"
%%% Version 2
\version "2.10"
\include "gregorian-init.ly"
\header {
dedication = \markup { \center-align { "THE CHRISTIAN YEAR - FROM THE EPIPHANY TILL LENT" \hspace #0.1 } }
title = "60"
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 #-27 \smallCaps "Office Hymn." \hspace #50 \italic "4th or 5th cent. Tr. M. F. B." } }
\line { \small { \hspace #-27 \italic "Wednesday Evening." \hspace #15 "Caeli Deus sanctissime."} }
% *** 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 "M" } %%Drop Cap goes here
\hspace #-1 %% adjust this if other letters are too far from Drop Cap
\column { \raise #0.0 "OST holy Lord and God of heaven,"
" Who to the glowing sky hast given" }
}
\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 fires that in the east are born"
"With gradual splendours of the morn;" }
}
\hspace #1
\line { "2 " \column { "Who, on the fourth day, didst reveal"
"The sun's enkindled flaming wheel."
"Didst set the moon her ordered ways,"
"And stars their ever-winding maze;" } }
\hspace #1
\line { "3 " \column { "That each in its appointed way"
"Might separate the night from day," } }
} % 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 { "And of the seasons through the year"
"The well-remembered signs declare:" } }
\hspace #1
\line { \hspace #2 "4 " \column { "Illuminate our hearts within,"
"And cleanse our minds from stain of sin;"
"Unburdened of our guilty load"
"May we unfettered serve our God." } }
\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 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 18:33, 25 June 2007 (PDT)
- Lyrics attribution line: There should be no c. before the date.
camilla 00:28, 26 June 2007 (PDT)
- Ok, thanks; done.
Lily3 cleared, files uploaded styg 14:54, 30 June 2007 (PDT)
Project History
- Lily1 - done by QMacrocarpa 15:39, 8 June 2007 (PDT) (ABC) (lyrics added)
- Lily2 - done by camilla 01:13, 23 June 2007 (PDT)
- Lily3 - comment added styg 18:22, 25 June 2007 (PDT)