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

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, 109.png, Hymn #51 (modern tune).
%%% Format=ABC
%%%
%%% My first attempt at a "unison" piece.  Split into 4 parts based on staff + stem direction.
%%% Not sure if this is best approach-- feedback welcome! :)

X: 1
T: LUCIS CREATOR. (L. M.)
C: Angers Church Melody.
M: 3/4
L: 1/4
Q: 1/4=144
K: Emin
V:1 staves=4
%%MIDI transpose 0
E|E2G|E2D|G2A|B2||A|d2e|
(d^c)B|A2B|B2||E|(Bc)B|A2F|
(GF)E|F2||D|([FA][GB])[FA]|G2F|E2D|E3||
%
V:2
%%MIDI transpose 0
z|z3|z3|z2[DF]|[D2G2]||[DF]|[F2A2][A^c]|
[FB][FA][DG]|[D2F2][DF]|[D2F2]||z|[E2G2][DG]|[D2F2][A,D]|
[B,D-][A,-D][A,^C]|[A,2D2]||z|D3|[B,2-E2][B,D]|z3|z3||
%
V:3 clef=bass
%%MIDI transpose -24
[gb]|[g2b2][gb]|[g2c'2][gb]|[g2b2]z|z2||z|z3|
z3|z3|z2||[gb]|z3|z3|
z3|z2||[fa]|z3|z3|[g2-c'2][gb]|[g3b3]||
%
V:4 clef=bass
%%MIDI transpose -24
e|e2e|c2G|e2d|g2||d|d2A|
Bfg|d2B|B2||e|ecg|d2d|
GdA|d2||d|dgd|e2B|c2G|E3||

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%% The English Hymnal, 109.png, Hymn #51 (modern tune).
%%% Format=ABC
%%%
%%% Amen only.

X: 2
T: 
C: 
M: 
L: 1/2
Q: 1/4=144
K: Emin
V:1 staves=4
%%MIDI transpose 0
(EFEDE)E2||
w:A____men.
%
V:2
%%MIDI transpose 0
z3z2z2||
%
V:3 clef=bass
%%MIDI transpose -24
[gc'][bd'][gc'][g2b2][g2b2]||
%
V:4 clef=bass
%%MIDI transpose -24
cBcGEE2||

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

"O BLEST Creator of the light,"
"Who mak'st the day with radiance bright,"
"And o'er the forming world didst call"
"The light from chaos first of all;"
""
"Whose wisdom joined in meet array"
"The morn and eve, and named them Day:"
"Night comes with all its darkling fears;"
"Regard thy people's prayers and tears,"
""
"Lest, sunk in sin, and whelm'd with strife,"
"They lose the gift of endless life;"
"While thinking but the thoughts of time,"
"They weave new chains of woe and crime."
""
"But grant them grace that they may strain"
"The heavenly gate and prize to gain:"
"Each harmful lure aside to cast,"
"And purge away each error past."
""
"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

%%%109.png
%%%Hymn 51(Modern) Lucis Creator O blest creator of the light
%%%Version 3

\version "2.10"

\header {
  dedication = \markup { \center-align { \line {  "THE CHRISTIAN YEAR - FROM THE EPIPHANY TILL LENT" } 
					       \hspace #1
						} }	
  title = \markup { "51 " \large \smallCaps "(Modern Tune)" }
			       
  arranger = \markup { \small { \italic "Angers Church Melody."} }
  poet = \markup { \small { \sans  "LUCIS CREATOR." \hspace #1 \roman { "(L. M.)"} } }
  meter = \markup { \small { \italic {In moderate time} \fontsize #-5 \general-align #Y #DOWN \note #"4" #1 = 144.} }
  tagline = ""
}

%%%%%%%%%%%%%%%%%%%%%%%%% Macros

%% Macro to push notes rightwards
push = { \once \override Dots #'transparent = ##t
	\once \override NoteColumn #'force-hshift = #0.6 }

%%%%%%%%%%%%%%%%%%%%%%%% End of Macro Definitions
	
global = {
  \time 3/4
  \key e \minor 
  \set Staff.midiInstrument = "church organ"
}

soprano = \relative c' {
  \partial 4 e4^\markup { \italic "To be sung in unison." } | e2 g4 | e2 d4 | g2 a4 | b2 \bar "||" a4 | d2 e4 | \break 
  d4( cis4) b4 | a2 b4 | b2 \bar "||" e,4 | b'4( c4) b4 | a2 fis4 | \break
  g4( fis4) e4 | fis2 \bar "||" d4 | < fis a >4( <g b>4) <fis a>4 | g2 fis4 | e2 d4 | e2. \bar "||" 
}

alto = \relative c' {
  s4 | s2. | s2. | s2 <d fis>4 | <d g>2 \bar "||" <d fis>4 | < fis a >2 <a cis>4 | 
  <fis b>4 < fis a >4 <d g>4 | <d fis>2 < d fis >4 | <d fis>2 \bar "||" s4 | < e g >2 <d g>4 | <d fis>2 < a d >4 |
  < b d ~ >4 < a ~ d >4 < a cis >4 | <a d>2 \bar "||" s4 | d2. | < b ~ e >2 <b d>4 | s2. | s2. \bar "||" 
}

tenor = \relative c { \clef bass
  <g' b>4 | <g b>2 <g b>4 | < g c >2 <g b>4 | <g b>2 s4 | s2 \bar "||" s4 | s2. | 
  s2. | s2. | s2 \bar "||" <g b>4 | s2. | s2. | 
  s2. | s2 \bar "||" <fis a>4 | s2. | s2. | < g ~ c >2 <g b>4 | < g b >2. \bar "||" 
}

bass = \relative c { \clef bass
  e4 | e2 e4 | c2 g4 | e'2 d4 | g2 \bar "||" d4 | d2 \stemUp a4 | 
  b4 \stemDown fis'4 g4 | \stemUp d2 b4 | b2 \bar "||" \stemDown e4 | e4 \stemUp c4 \stemDown g'4 | d2 d4 | 
  \stemUp g,4 d'4 a4 | d2 \bar "||" \stemDown d4 | d4 g4 d4 | e2 b4 | c2 g4 | e2. \bar "||"  
}

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

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

\book{

\score{
\new ChoirStaff	
 <<

	\context Staff = upper << 
	\context Voice = sopranos { \voiceOne \global \soprano }
	\context Voice = altos    {\voiceTwo \global \alto }
	                       >>
	\context Staff = lower <<
	\context Voice = tenors { \voiceOne \global \tenor }
	\context Voice = basses { \voiceTwo \global \bass }
			        >> 
 >>
\layout {
		indent=0
%		\context { \Score timing = ##f }
		\context { \Score \remove "Bar_number_engraver" }
		\context { \Staff \remove "Time_signature_engraver" }
		\context { \Score \remove "Mark_engraver"  }
                \context { \Staff \consists "Mark_engraver"  }
	}

\midi { 
   \context { \Score tempoWholesPerMinute = #(ly:make-moment 144 4) }
       }	
} %%% score bracket


%%% Beginning of lyrics block

\markup {
	\column {
		\line { \small { \hspace #16 \smallCaps "Office Hymn." \italic " Sunday," "E." \hspace #24 \italic "6th cent.  Tr. J. M. Neale."  } }  
	        \line { \small { \hspace #44 "Lucis Creator optime."} }
} }


\markup { \hspace #30 %% add space here as necc. to center the entire block of lyrics
          \column { %% whole block of lyrics goes into one super column with sub-columns as necessary
	              \column { %% column for verse 1, a column of 2 lines  
	                  \line { \hspace #2.2 \column { \lower #2.4 \fontsize #8 "O" }   %%Drop Cap goes here
				  \hspace #-1.2    %% adjust this if other letters are too far from Drop Cap
				  \column  { \raise #0.0 "  BLEST Creator of the light,"  
			                                 "  Who mak'st the day with radiance bright," 
			                }}          
	                  \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 o'er the forming world didst call"
					   "The light from chaos first of all;"
			  		}}
			           } %% finish verse 1	
				   
		    \hspace #1  % adds vertical spacing between verses   
		    \line { "2  "
		    \column {	     
			    "Whose wisdom joined in meet array"
			    "The morn and eve, and named them Day:"
			    "Night comes with all its darkling fears;"
			    "Regard thy people's prayers and tears,"
			}}
		} %% end of super column  
} %% end of markup	  
			
%%second page
%%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
}}}

%%% Continuation of lyrics

\markup { \hspace #30  %% add space here as necc. to center the entire block of lyrics
          \column {  %% whole block of lyrics goes into one super column with sub-columns as necessary
		  \line { "3  "
		    \column {	     
			    "Lest, sunk in sin, and whelm'd with strife,"
			    "They lose the gift of endless life;"
			    "While thinking but the thoughts of time,"
			    "They weave new chains of woe and crime."
			}}
		  \hspace #1  % adds vertical spacing between verses  
		  \line { "4  "
		    \column {	     
			    "But grant them grace that they may strain"
			    "The heavenly gate and prize to gain:"
			    "Each harmful lure aside to cast,"
			    "And purge away each error past."
			}}
		 \hspace #1  % adds vertical spacing between verses  		    
           	 \line { "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 of super column
} %% lyric markup bracket


%%% Amen score block
\score{
  \new ChoirStaff
   <<
        \context Staff = upper \with { fontSize = #-3  \override StaffSymbol #'staff-space = #(magstep -2) }  
	                      << 
	\context Voice = "sopranos" { \relative c' { \clef treble \global \voiceOne e2 ( fis2 e2 d2 e2 ) e1  \bar "||" }}
	\context Voice = "altos"    { \relative c' {  \clef treble \global \voiceTwo s1. s1 s1 \bar "||" }}
	                      >>
	
	\context Lyrics \lyricsto "sopranos" {	\override LyricText #'font-size = #-1 "A       -       -       -" men. }	      
	%\context Lyrics \lyricmode { \override LyricText #'font-size = #-1 "A"2 "-"2 "-"2 "-"2 "-"2 "men."2 }
	
	\context Staff = lower \with { fontSize = #-3  \override StaffSymbol #'staff-space = #(magstep -2) }  
	                       <<
	\context Voice = "tenors" { \relative c { \clef bass \global \voiceThree  < g' c >2 < b d >2 < g c >2 \push < g b >1 < g b >1 \bar "||" }}
	\context Voice = "basses" { \relative c { \clef bass \global \voiceFour   c2 b2 c2 g2 e2 e1 \bar "||" }}
			        >> 
  >>			      
\header { breakbefore = ##f piece = " " opus = " " }
\layout { 
	\context { \Score timing = ##f }
	ragged-right = ##t
	indent = 13\cm
	\context { \Staff \remove Time_signature_engraver }
       }
       
%%% Amen midi       
\midi { \context { \Score tempoWholesPerMinute = #(ly:make-moment 144 4) }}  
       
}  

} %%book bracket

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

Notes by L2 Jkenny 08:26, 10 June 2007 (PDT)

  • Method used in L1 to divide between the vocal parts is fine. Just for reference, if I have two notes on an up stem in treble, that is entered as a chord in soprano. 2 notes on the down stem is entered as a chord in alto. For bass, two notes on the up stem is entered as a chord in tenor and two notes on the down stem is entered as a chord in bass. So if you do the same in ABC, that will convert fine.

QMacrocarpa 14:51, 11 June 2007 (PDT)

  • Amen block: on beats 4 & 5, where the lower staff includes a pair of half-notes below a G+B whole-note, there's a niggly note-alignmentment issue.
  • No other problems spotted.
  • (Hey, this unison stuff isn't so bad! Thanks for the feedback.)

Jkenny 19:51, 11 June 2007 (PDT)

  • Fixed amen block note alignment

styg 16:13, 22 June 2007 (PDT)

  • In the header the word "unison" should not be capitalized.
  • Should there be more hyphens in the lyrics of Amen?

Jkenny 18:32, 22 June 2007 (PDT)

  • Fixed "unison".
  • Fixed hyphens - tried this method: "A - - -" wrapping hyphens in quote marks and managed to insert three hyphens, producing something which kind of matches the image.

Lily3 cleared, files uploaded styg 23:33, 23 June 2007 (PDT)


Project History

    • Lily1 - done QMacrocarpa 10:06, 9 June 2007 (PDT) (ABC) (lyrics added)
    • Lily2 - done Jkenny 08:27, 10 June 2007 (PDT)
    • Lily3 - comments added QMacrocarpa 14:52, 11 June 2007 (PDT)
- fixed. Jkenny 19:52, 11 June 2007 (PDT)
- comments added styg 16:14, 22 June 2007 (PDT)
- fixed. Jkenny 18:33, 22 June 2007 (PDT)
- Lily3 cleared, files uploaded styg 23:34, 23 June 2007 (PDT)