The English Hymnal - Wiki Music Experiment/056

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).

Note: Plainsong ligatures bracketed together.

Plainsong = d4 e4 f4 [g4 a4] d4 [e4 f4 g4] [f4 e4] e4 | g4 [a4 c4] c4 [c4 b4] [a4 g4]
  [a4 b4] b4 b4 | a4 [a4 c4 d4] c4 [c4 b4] [a4 g4] [a4 c4 b4 a4] [g4 f4]
  [e4 f4] [g4 a4] | d4 e4 f4 a4 [a4 c4 b4 a4] [g4 e4 f4 g4] [f4 e4] e4 ||

Soprano = e4 fis4 g4 a4 b4 e4 fis4 g4 a4 g4 fis4 fis4 | a4 b4 d4 d4 d4 cis4 b4 a4
  b4 cis4 cis4 cis4 | b4 b4 d4 e4 d4 d4 cis4 b4 a4 b4 d4 cis4 b4 a4 g4
  fis4 g4 a4 b4 | e4 fis4 g4 b4 b4 d4 cis4 b4 a4 fis4 b4 a4 g4 fis4 fis4 ||

Alto = e2. d2 b4 d2. d2 d4 | d4 d2 g4 fis2 fis2
  fis2. e4 | e4 d2 g4 fis4 fis2 d2 d1 e2 
  d2 e4 d4 | e1 d1 e4 d4 d2 d2 cis4 ||

Tenor = g4 a4 b4 a4 g4 g4 a2. b4 b4 a4 | a4 g4 b4 b4 a2 d4 cis4 
  b4 a4 a4 a4 | g4 fis2 b2 a2 g4 fis4 g4 b4 a4 g4 e2
  a2 a4 fis4 | g4 a4 b4 g4 fis1 a2 g4 d4 b2 a4 ||

Bass = e2. fis4 g4 g4 fis4 e4 d4 g4 b4 d4 | fis4 g2 g4 d2 d4 fis4
  d4 fis4 fis4 a4 | e4 b2 g4 b4 d2 g4 d4 g1 cis2
  d2 cis4 b4 | e1 b1 cis4 d4 b4 fis4 g4 b4 fis4 ||
"FROM east to west, from shore to shore," 
"    Let every heart awake and sing"
"The holy Child whom Mary bore,"
"    The Christ, the everlasting King."
""
"Behold, the world's Creator wears" 
"    The form and fashion of a slave;" 
"Our very flesh our Maker shares," 
"    His fallen creature, man, to save." 
""
"For this how wondrously he wrought!"
"    A maiden, in her lowly place,"
"Became in ways beyond all thought,"
"    The chosen vessel of his grace."  
""
"She bowed her to the Angel's word" 
"    Declaring what the Father willed," 
"And suddenly the promised Lord" 
"    That pure and hallowed temple filled."
""
"He shrank not from the oxen's stall," 
"    He lay within the manger-bed," 
"And he, whose bounty feedeth all," 
"    At Mary's breast himself was fed." 
""
"And while the Angels in the sky"
"    Sang praise above the silent field,"
"To shepherds poor the Lord most high,"
"    The one great Shepherd, was revealed."
""
"All glory for this blessèd morn"
"    To God the Father ever be;"
"All praise to thee, O Virgin-born,"
"    All praise, O Holy Ghost, to thee.  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

%%% 056png
%%% Hymn 18 From east to west from shore to shore
%%% Version 4


\version "2.10.19"

\include "gregorian-init.ly"

\header {
  dedication = \markup { \center-align {  "THE CHRISTIAN YEAR - CHRISTMAS"
		\hspace #0.1 }}	
  title = "18"
  
  arranger = \markup { \small { "Mode iii." }}
  
  tagline =""
}


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

%%% plainsong voice	   
	   
plainsong = \context VaticanaVoice  {  \relative c' { 
	\clef "vaticana-do3"
	\set fontSize = #3
        \key c \major
 
  d,8 e8 f8 \[g8 \pes a8\] d,8 \[e8\melisma f8 \pes g8\melismaEnd \] \[f8 \flexa e8\] e8 \bar "|" 
      g8 \[a8 \pes c8\] c8 \[c8 \flexa b8\] \[a8 \flexa g8\] \bar ""  \break
 
  \[a8 \pes b8\] b8 b8 \bar "|" 
      a8 \[a8 \pes c8 \virga d8\] c8 \[c8 \flexa b8\] \[a8 \flexa g8\] 
      \[a8 \pes c8 \inclinatum b8 \inclinatum a8 \] \[g8 \flexa f8\] \bar "" \break
  
  \[e8  \pes f8 \] \override NoteHead #'extra-offset = #'(-5.5 . 0.0 ) \[g8 \pes a8\]  
      \revert NoteHead #'extra-offset \bar "|" 
      d,8 e8 f8 a8 \[a8 \pes c8 \inclinatum b8 \inclinatum a8\] 
      \[g8 \melisma \flexa e8 f8 \pes g8 \melismaEnd \] \[f8 \flexa e8\] e8 \bar "||"
}
}

%%% SATB voices

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

soprano = \relative c' {
	\autoBeamOff

  e8 fis8 g8 a8[ b8] e,8 fis8[ g8 a8] g8[ fis8] fis8 \bar "|" 
      a8 b8[ d8] d8 d8[ cis8] b8[ a8] \bar ""
  
  b8[ cis8] cis8 cis8 \bar "|" 
      b8 b8[ d8 e8] d8 d8[ cis8] b8[ a8] b8[ d8 cis8 b8] a8[ g8] \bar ""
  
  fis8[ g8 a8 b8] \bar "|" 
      e,8 fis8 g8 b8 b8[ d8 cis8 b8] a8[ fis8 g8 a8] g8[ fis8] fis8 \bar "||"
}

alto = \relative c' {
	\autoBeamOff
	
  \ln e4. \ln d4 b8 \ln d4. ~ \ln d4 d8 \bar "|" d8 \ln d4 g8 \ln fis4 ~ \ln fis4 \bar ""
  
  \ln fis4. e8 \bar "|" e8 \ln d4 g8[ fis8] \ln fis4 \ln d4 
      \once \override NoteHead #'duration-log = #-1  
      \once \override NoteColumn #'force-hshift = #0.8
      d\breve*1/4
      \ln e4 \bar ""
  
  \ln d4 e8[ d8] \bar "|" 
      \once \override NoteHead #'duration-log = #-1  
      \once \override NoteColumn #'force-hshift = #0.8
      e\breve*1/4
      \once \override NoteHead #'duration-log = #-1  
      \once \override NoteColumn #'force-hshift = #0.8
      d\breve*1/4
      e8[ d8 ~ ]  \ln d4 \ln d4 cis8 \bar "||"
}

tenor = \relative c { \clef bass
	\autoBeamOff

  g'8 a8 b8 a8[ g8 ~ ] g8 \ln a4. b8[ ~  b8] a8 \bar "|" a8 g8[ b8] b8 \ln a4  d8[ cis8] \bar "" 
  
  b8[ a8] ~ a8 a8 \bar "|" g8 \ln fis4( \ln b4)  \ln a4  g8[ fis8] g8[ b8 a8 g8] \ln e4 \bar ""
  
  \ln a4 ~ a8[ fis8] \bar "|" g8 a8 b8 g8 
      \once \override NoteHead #'duration-log = #-1  
      \once \override NoteColumn #'force-hshift = #0.8
      fis\breve*1/4
      \ln a4  g8[ d'8] \ln b4  a8 \bar "||"
}

bass = \relative c { \clef bass
	\autoBeamOff
	
  \ln e4. fis8[ g8 ~] g8 fis8[ e8 d8] g8[ b8] d,8 \bar "|" fis8 \ln g4 g8 \ln d4 ~ d8[ fis8] \bar ""
  
  d8[ fis8 ~] fis8 a8 \bar "|" e8 \ln b4( g8[ b8]) \ln d4 g8[ d8] 
      \once \override NoteHead #'duration-log = #-1  
      \once \override NoteColumn #'force-hshift = #0.8
      g\breve*1/4
      \ln cis,4
      
  \ln d4( cis8)[ b8] \bar "|" 
      \once \override NoteHead #'duration-log = #-1  
      \once \override NoteColumn #'force-hshift = #0.8
      e\breve*1/4
      \once \override NoteHead #'duration-log = #-1  
      \once \override NoteColumn #'force-hshift = #0.8
      b\breve*1/4 
      cis8[ d8 b8 fis8] g8[ b8] fis8 \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 }
  
  % *** Customizations for VaticanaStaff context for the plainsong staff
  \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"
         }
 }

}

%%% A separate score block for the midi, minus the plainsong voice
%%% Score comprises 1/8 notes masquerading as 1/2 notes, so tempo has to be adjusted accordingly

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

}


%%% Lyrics markups

\markup {
	\column {
	    \line { \small { \hspace #16 \smallCaps { "Office Hymn. M., E."} \hspace #25 \italic {"Coelius Sedulius, c. 450.  Tr. J. Ellerton."}  }  }
	    \line { \hspace #42 \small "A solis ortus cardine."}
   }}


\markup { \hspace #30   %%% add space as necc. to center the column	
                \column {  %%% a column for verse 1, a column of 2 lines
		  \line { \hspace #0.1 \column { \lower #2.4 \fontsize #8 "F" }   %%Drop Cap goes here
			 \hspace #-1.2    %% adjust this if other letters are too far from Drop Cap
			\column  { \raise #0.0 " ROM east to west, from shore to shore,"  "    Let every heart awake and sing"  } }          
	          \line { \hspace #0.2  %%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 holy Child whom Mary bore,"
				"    The Christ, the everlasting King."
			  		}}
	           } %%% finish verse 1
}

%%% 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 {  %%% a column for the entire block of lyrics		 		  
		   \line { "2  "
		       \column {	     
			       "Behold, the world's Creator wears" 
			       "    The form and fashion of a slave;" 
			       "Our very flesh our Maker shares," 
			       "    His fallen creature, man, to save." 
		   }} %% finish verse 2
		   
		   \hspace #0.2 % adds vertical spacing between verses
		     \line { "3  "
		       \column {	     
			       "For this how wondrously he wrought!"
			       "    A maiden, in her lowly place,"
			       "Became in ways beyond all thought,"
			       "    The chosen vessel of his grace."	   
	          }} %% finish verse 3

		   \hspace #0.2 % adds vertical spacing between verses
		   \line { "4  "
		    \column {    
			    "She bowed her to the Angel's word" 
			    "    Declaring what the Father willed," 
			    "And suddenly the promised Lord" 
			    "    That pure and hallowed temple filled."
 	          }} %% finish verse 4


		\hspace #0.2 % adds vertical spacing between verses
	  	\line { "5  "
             \column {    
		     "He shrank not from the oxen's stall," 
		     "    He lay within the manger-bed," 
		     "And he, whose bounty feedeth all," 
		     "    At Mary's breast himself was fed." 
 	   }} %% finish verse 5

		\hspace #0.2 % adds vertical spacing between verses
		\line { "6  "
		\column {
			"And while the Angels in the sky"
			"    Sang praise above the silent field,"
			"To shepherds poor the Lord most high,"
			"    The one great Shepherd, was revealed."
		}} %% finish verse 6

		\hspace #0.2 % adds vertical spacing between verses
		\line { "7. "
		\column {
			"All glory for this blessèd morn"
			"    To God the Father ever be;"
			"All praise to thee, O Virgin-born,"
			"    All praise, O Holy Ghost, to thee.     Amen." 
		}} %% finish verse 7	  
          } %%5 column bracket
} %%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
        \[ e,8 \pes f8 \] 
        \[  \override NoteHead #'extra-offset = #'(0.0 . 0.0 ) e8 
            \override NoteHead #'extra-offset = #'(-0.38 . 0) \flexa  d8 \pes 
            \override NoteHead #'extra-offset = #'(0.02 . 0.05) e8 \] }}
                    >>
  
 \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 fis8[ g8] fis8[ e8 fis8] \bar "||" }}
	\context Voice = "altos"    { \relative c' { 
	                                              \global
	                                              \voiceTwo \ln d4 d8[ cis8 ~ cis8] \bar "||" }}
	                      >>
	\context Staff = lower \with { fontSize = #-3  \override StaffSymbol #'staff-space = #(magstep -2) } 
	                      <<
	\context Voice = "tenors" { \relative c { 
		                                  \clef bass \global
	                                          \voiceThree \ln b'4 \ln a4.  \bar "||" }}
	\context Voice = "basses" { \relative c { 
	                                          \clef bass \global
						  \voiceFour b8[ g8] d'8[ a8 fis8]\bar "||" }}
			        >> 
   >>
  \context Lyrics = "lyrics" \lyricsto "altos" { \override LyricText #'font-size = #-1  A -- men. }
  >>
>>

\layout {
     indent = 13\cm
     raggedright = ##t
     packed = ##f
     \context { \Score \override TimeSignature #'transparent = ##t }
     \context { \Score \override SeparationItem #'padding = #2 }	 
     \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
 	} 
} 

} %%% end Amen score block

%%% Separate scroe block for Amen midi without the plainsong voice
%%% Score comprises 1/8 notes masquerading as 1/2 notes, so tempo has to be adjusted accordingly

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

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

}  

} %% book bracket

Lily3

Download the files from these links, edit the code in Lily2 or else leave notes in the section below.


Notes

Notes by L2 Jkenny 07:15, 31 May 2007 (PDT)

  • 1st system 1st half tenor part (and the matching bass): Are those tied-gs or slurs? Similarly a bit further on, in the tenor, is that a tied b? I assumed they are ties and not slurs.
  • Amen block, alto: I see a hint of a tied c there. Can anyone confirm?

QMacrocarpa 08:29, 31 May 2007 (PDT)

  • My rule of thumb on ties vs. slurs: if the pitch is the same at both ends of the symbol, it is a tie. So I agree the examples you mention are ties, not slurs.
  • Yes, I confirm the tied C in the Amen block alto part (checked original). Also, if you think about how it would be sung, it seems clear that those notes would not be sounded individually, because that would give you an effect like "A-me-en."
  • 3rd system: the first 2 pairs of notes in the plainsong staff seem too closely grouped. Could we have a little more horizontal spacing between them?
  • 3rd system, last half, top white-note voice: 5th note from end should be G instead of B.
  • "." missing after Latin above lyrics.
  • Missing vertical space between verses 2 and 3.
  • Amen block plainsong "sash": at the left it should start unambiguously in the white space between lines, but ours is also roping in the line below. Would make it hard to tell what note to sing there. Don't know what to suggest, unless there's some way to make sash narrower.

stygiania 17:08, 31 May 2007 (PDT)

  • 3rd system: should bass slur only compass the first two notes?
  • The "men" syllable of the Amen block should match up with the beginning of the "sash".

Jkenny 01:15, 2 June 2007 (PDT)

  • 3rd system: first 2 pairs of plainsong notes - took them out of a melisma and manually placed them further apart.
  • Fixed top voice 5th note from end.
  • Fixed period after Latin.
  • Fixed space between 2nd and 3rd verse.
  • 3rd system bass slur - slur seemed to go past stem of 2nd note, but comparing with slur in 2nd system, I now think you are right - adjusted to rope in only 2nd note.
  • Fixed "men" syllable in Amen block.
  • About the sash, I Could not make the sash thinner. So I raised it a little, and now it is within the white space between lines. But that also means the gap between the sash and the next notehead above becomes very small, so small they almost merge at low magnification. So I raised the next notehead a little, but can't raise any more or else it will touch the line and become the next pitch. What do you think?

stygiania 20:18, 12 June 2007 (PDT)

  • Add the "vaticana-avoidance" midi block (as suggested on 054.png) and this one will be complete.

Jkenny 00:43, 13 June 2007 (PDT)

  • Done!

styg 22:27, 23 June 2007 (PDT)

  • I think (I'm a bit fuzzy) the amen block still needs the no-plainsong version.

Jkenny 04:26, 24 June 2007 (PDT)

  • How careless of me! Fixed!

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


Project History

    • Lily1 - done by stygiania 23:59, 26 May 2007 (PDT) (plain text + lyrics)
    • Lily2 - done by Jkenny 07:17, 31 May 2007 (PDT)
    • Lily3 - comments added QMacrocarpa 08:31, 31 May 2007 (PDT)
- more comments stygiania 17:08, 31 May 2007 (PDT)
- fixed, did the best I could with the "sash". Jkenny 01:18, 2 June 2007 (PDT)
- recommend "vaticana-avoidance" midi block stygiania 20:20, 12 June 2007 (PDT)
- Done! Jkenny 00:51, 13 June 2007 (PDT)
- one more small note styg 22:28, 23 June 2007 (PDT)
- fixed.
- Lily3 cleared, files uploaded styg 17:40, 25 June 2007 (PDT)