The English Hymnal - Wiki Music Experiment/052

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, 052.png
%%% Format=ABC

X: 1
T: FOREST GREEN. (D. C. M. Words irreg.)
C: English Traditional Melody.
M: 4/2
L: 1/2
Q: 1/2=80
K: F
V:1 staves=4
%%MIDI transpose 0
C|FFFG|(A/G/)(A/B/)c||A|B(A/F/)GG|F3:|
(F/A/)|c3/2d/(c/B/)(A/G/)|(F/G/A/B/)c||C|FAGF|C2||
C2|FFFG|(A/G/)(A/B/)c||A|B(A/F/)GG|F3||
%
V:2
%%MIDI transpose 0
C|CDC(D/E/)|FFE||D|DFFE|F3:|
F|E3/2D/EC|(CF)E||C|CCB,(A,/B,/)|C2||
C2|CDC(D/E/)|FFE||D|DFFE|F3||
%
V:3 clef=bass
%%MIDI transpose -24
g|abc'b|c'fg||f|bc'd'(c'/b/)|a3:|
a|a3/2f/c'(c'/b/)|(af)g||e|ff(d/e/)f|e2||
(fg)|abc'b|c'fg||f|b(c'/a/)c'(c'/b/)|a3||
%
V:4 clef=bass
%%MIDI transpose -24
e|fbag|fdc||d|GABc|f3:|
d|A3/2B/c(d/e/)|(fd)c||(c/B/)|AFBd|c2||
(de)|fbag|fdc||d|G(A/d/)cc|[F3f3]||

Lily2 Code

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

To upload a midi, go 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

%%%052.png
%%%Forest Green
%%%Version 3 Fonts reset

\version "2.10.19"


\header {
  dedication = \markup { \center-align { "THE CHRISTIAN YEAR - CHRISTMAS EVE"
		\hspace #0.1
	                                     }}
  arranger = \markup { \small \italic "English Traditional Melody."}
  title="15"
  poet = \markup { \small { \sans  "FOREST GREEN."  \hspace #1 \roman  "(D. C. M. Words irreg.)" } }
  meter = \markup { \small { \italic {In moderate time} \fontsize #-5 \general-align #Y #DOWN \note #"2" #1 = 80.} }
  tagline = ""
}

%%%%%%%%%%%%%%%%%%%%%%%%macros

%%generates the breathmarks which are placed on top of barlines
breathmark = {	
	      \override Score.RehearsalMark #'break-visibility = #begin-of-line-invisible 
	      \override Score.RehearsalMark #'Y-offset = #'4.0 
	      \override Score.RehearsalMark #'X-offset = #'-0.5
	      \mark \markup { \fontsize #4 ","}
}	      

%%prints a repeat sign glyph comprising 4 dots and two thin bars
fdendrepeat = {\once \override Staff.BarLine #'stencil = #ly:text-interface::print 
	\once \override Staff.BarLine #'text = \markup  {  \line { \raise #1.4 \override #'(baseline-skip . 1.0)  \column { \with-color #black {  \fontsize #2 . \fontsize #2 . \fontsize #2 . \fontsize #2 .} }
	                                                  \hspace #-1 \filled-box #'(0 . 0.15) #'(-2 . 2) #0
							  \hspace #-0.9 \filled-box #'(0 . 0.15) #'(-2 . 2) #0
	
	} }	
        \bar "||"} 

%%prints a repeat sign glyph comprising 4 dots. Used only to begin a repeat at the start of a piece where \bar ":" does not work	
fdstartrepeat =  {\once \override Staff.BarLine #'stencil = #ly:text-interface::print 
	          \once \override Staff.BarLine #'text = \markup  { \line { \hspace #0 \override #'(baseline-skip . 1.0) 
	                                                 \raise #1.4 \column { \with-color #black { 
							                \fontsize #2 . \fontsize #2 . \fontsize #2 . \fontsize #2 .} }
	          } }	
                 \bar "|:"}
	
%%%%%%%%%%%%%%%%%%%%%%%%%%end of macro definitions

global = {
  \time 4/2 
  \key f \major 
  \set Staff.midiInstrument = "church organ"
}

soprano =  \relative c' { 
  \fdstartrepeat
  \partial 2 c2 | f2 f2 f2 g2 | a4 \( ( g4) a4(  bes4) \) c2 \breathmark \bar "||" a2 | bes2 a4( f4) g2 g2 | \once \override Dots #'transparent = ##t f1. \breathmark \fdendrepeat \break
  f4( a4) | c2. d4 c4 ( bes4) a4( g4) | f4( g4 a4 bes4) c2 \breathmark \bar "||" c,2 | f2 a2 g2 f2 | c1 \breathmark \bar "||" \break
  c1 | f2 f2 f2 g2 | a4( g4 -) a4( bes4) c2 \breathmark \bar "||" a2 | bes2 a4( f4 ) g2 g2 | \once \override Dots #'transparent = ##t f1. \bar "||"
}  

alto = \relative c' { 
  \fdstartrepeat c2 | c2 d2 c2 d4( e4) | f2 f2 e2 \bar "||" d2 | d2 f2 f2 e2 | \once \override NoteColumn #'force-hshift = #0.1 f1. \fdendrepeat
  f2 | e2. d4 e2 c2 | c2( f2) e2 \bar "||" c2 | c2 c2 bes2 a4( bes4) | \once \override NoteColumn #'force-hshift = #0.1 c1 \bar "||" 
  \once \override NoteColumn #'force-hshift = #0.1 c1 | c2 d2 c2 d4( e4) | f2 f2 e2 \bar "||" d2 | d2 f2 f2 e2 | 
    \once \override NoteColumn #'force-hshift = #0.1 f1. \bar "||"
}

tenor = \relative c { \clef bass
  \fdstartrepeat g'2 | a2 bes2 c2 bes2 | c2 f,2 g2 \bar "||" f2 | bes2 c2 d2 c4( bes4) | a1. \fdendrepeat
  a2 | a2. f4 c'2 c4( bes4) | a2( f2) g2 \bar "||" e2 | f2 f2 d4( e4) f2 | e1 \bar "||"
  f2( g2) | a2 bes2 c2 bes2 | c2 f,2 g2 \bar "||" f2 | bes2 c4( a4) c2 c4( bes4) | a1. \bar "||"
}

bass = \relative c { \clef bass 
  \fdstartrepeat e2 | f2 bes2 a2 g2 | f2 d2 c2 \bar "||" d2 | g,2 a2 bes2 c2 | f1.\fdendrepeat
  d2 | a2. bes4 c2 d4( e4) | f2( d2) c2 \bar "||" c4( bes4) | a2 f2 bes2 d2 | c1 \bar "||" 
  d2( e2) | f2 bes2 a2 g2 | f2 d2 c2 \bar "||" d2 | g,2 a4( d4) c2 c2 | <<  { \voiceTwo f1. } 
    \new Voice {\once \override NoteColumn #'force-hshift = #0.1 \voiceFour \set fontSize = #-3 f,1. _\markup {\italic "Org."} }  >> \bar "||"
}

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

\paper {
  #(set-paper-size "a4")
  top-margin = 0
  bottom-margin = 0
  print-page-number = ##f
  between-system-padding = 3\mm
}


\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 \remove "Bar_number_engraver" }
		\context { \Staff \remove "Time_signature_engraver" }
		\context { \Score \remove "Mark_engraver"  }
                \context { \Staff \consists "Mark_engraver"  }
	}
}

\markup {   \hspace #6  %% use \hspace or \halign to centre the 3-column group
	\column {   %%super column for the whole page
	     \line {  \small { \italic { \hspace #2.5 "Suitable till Candlemas." \hspace #40  "Bp. Phillips Brooks, 1835-93." } } }
	     \line { " " }
	     \line { %% Master Line - of 3 page columns 
	                \column { %%start page column 1
			    
			   
			    
			    \column { %% stanza 1 is a column of 2 lines. Redundant if only 1 stanza
			    	\line { \hspace #2.2 \column { \lower #2.4 \fontsize #8 "O" }   %%Drop Cap goes here
					 \hspace #0    %% adjust this if other letters are too far from Drop Cap
				         \column  { \raise #0.0 "LITTLE town of Bethlehem,"  "How still we see thee lie!" } }          
			       
				\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 {   
						"Above thy deep and dreamless sleep"
						"    The silent stars go by."
						"Yet in thy dark streets shineth"
						"    The everlasting light;"
						"The hopes and fears of all the years"
						"    Are met in thee to-night." }	}
			       
			           } %% finish stanza 1
				   
			   \hspace #0.5 % adds vertical spacing between verses
			    \line { "2  "
				    \column {
					    "O morning stars, together"
					    "    Proclaim the holy birth,"
					    "And praises sing to God the King,"
					    "    And peace to men on earth;"
					    "For Christ is born of Mary;"
					    "    And, gathered all above,"
					    "While mortals sleep, the angels keep"
					    "    Their watch of wondering love."
				    	    }
			    		}  
				   
			           } %%finish page column 1
		           
	                   \hspace #4 %%adds horizontal space columns 1 and 2   
			   
			   \column { \filled-box #'(0.0 . 0.1) #'( -45 . 1) #0 }       %%Column 2. This is the line dviding the columns 1 and 3. 
			   	   
			   \hspace #4 %%adds horizontal space between columns 2 and 3
			   
			\column { %%start page column 3
			      
				
	%  \hspace #0.5 % adds vertical spacing
          
			  \line {  "3  "
				  \column {
					  "How silently, how silently,"
					  "    The wondrous gift is given!"
					  "So God imparts to human hearts"
					  "    The blessings of his heaven."
					  "No ear may hear his coming;"
					  "    But in this world of sin, "
					  "Where meek souls will receive him still,"
					  "    The dear Christ enters in."
				  	}
			  		}
					
			\hspace #0.5 % adds vertical spacing between verses
           
			\line { "4  "
				\column {
					"Where children pure and happy"
					"    Pray to the blessèd Child,"
					"Where misery cries out to thee,"
					"    Son of the mother mild;"
					"Where charity stands watching"
					"    And faith holds wide the door,"
					"The dark night wakes, the glory breaks,"
					"    And Christmas comes once more."
					}
				}
			        } %% end page column 3 
	} % end master line
   } %% end super column	
} %% end markup

%%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 = " " opus = " " }
\layout{
\context { \Staff
\remove Time_signature_engraver
\remove Key_engraver
\remove Clef_engraver
\remove Staff_symbol_engraver
}}
}     

\markup {
       \fill-line {
          \column {
           \line { "5. "
             \column {
		"O holy Child of Bethlehem,"
		"    Descend to us, we pray;"
		"Cast out our sin, and enter in,"
		"    Be born in us to-day."
		"We hear the Christmas Angels"
		"    The great glad tidings tell:"
		"O come to us, abide with us,"
		"    Our Lord Emmanuel."
             }
           }
          }
     }    
 }


%%%%%%%%%%%%%%%% This next score section is only for unfolding the repeats and generating the midi. 
%%%%%%%%%%%%%%%% Not necessary for the layout
 
\score { 
\new ChoirStaff 
<<

\new Staff = "soprano" {\relative c' {\clef treble \global  
  \unfoldRepeats { \repeat volta 2 { 
  \partial 2 c2 | f2 f2 f2 g2 | a4 \( ( g4) a4(  bes4) \) c2  \bar "||" a2 | bes2 a4( f4) g2 g2 |  f1. }   } \break
  f4( a4) | c2. d4 c4 ( bes4) a4( g4) | f4( g4 a4 bes4) c2  \bar "||" c,2 | f2 a2 g2 f2 | c1  \bar "||" \break
  c1 | f2 f2 f2 g2 | a4( g4) a4( bes4) c2  \bar "||" a2 | bes2 a4( f4 ) g2 g2 | f1. \bar "||" 
}
}

\new Staff = "alto" {\relative c' {\clef treble \global  
  \unfoldRepeats { \repeat volta 2 { 
  c2 | c2 d2 c2 d4( e4) | f2 f2 e2 \bar "||" d2 | d2 f2 f2 e2 |  f1. } }
  f2 | e2. d4 e2 c2 | c2( f2) e2 \bar "||" c2 | c2 c2 bes2 a4( bes4) |  c1 \bar "||" 
  c1 | c2 d2 c2 d4( e4) | f2 f2 e2 \bar "||" d2 | d2 f2 f2 e2 |  f1. \bar "||" 
}	
}

\new Staff = "tenor" { \relative c {\clef bass \global  
  \unfoldRepeats { \repeat volta 2 { 
  g'2 | a2 bes2 c2 bes2 | c2 f,2 g2 \bar "||" f2 | bes2 c2 d2 c4( bes4) | a1. } }
  a2 | a2. f4 c'2 c4( bes4) | a2( f2) g2 \bar "||" e2 | f2 f2 d4( e4) f2 | e1 \bar "||"
  f2( g2) | a2 bes2 c2 bes2 | c2 f,2 g2 \bar "||" f2 | bes2 c4( a4) c2 c4( bes4) | a1. \bar "||" 
} 
}


\new Staff = "bass" { \relative c { \clef bass \global  
  \unfoldRepeats { \repeat volta 2 { 
  e2 | f2 bes2 a2 g2 | f2 d2 c2 \bar "||" d2 | g,2 a2 bes2 c2 | f1. } }
  d2 | a2. bes4 c2 d4( e4) | f2( d2) c2 \bar "||" c4( bes4) | a2 f2 bes2 d2 | c1 \bar "||" 
  d2( e2) | f2 bes2 a2 g2 | f2 d2 c2 \bar "||" d2 | g,2 a4( d4) c2 c2 | < f  f, >1.  \bar "||" 
}
}


>>

\midi { 
   \context {
       \Score 
       tempoWholesPerMinute = #(ly:make-moment 80 2)
            }
       }
}
       
   
%% Amen score block
\score{
  \new ChoirStaff
   <<
        \context Staff = upper \with { fontSize = #-3  \override StaffSymbol #'staff-space = #(magstep -2) } 
	                    << 
	\context Voice = "sopranos" { \relative c' {  \set Staff.midiInstrument = "church organ" 
	                              \clef treble \time 4/2 \key f \major \voiceOne f1 f1 \bar "||" }}
	\context Voice = "altos"    { \relative c' {  \set Staff.midiInstrument = "church organ" 
	                               \clef treble \key f \major \voiceTwo d1 c1 \bar "||" }}
	                      >>
			      
	\context Lyrics \lyricsto "altos" { \override LyricText #'font-size = #-1 A -- men. }
	
	\context Staff = lower \with { fontSize = #-3  \override StaffSymbol #'staff-space = #(magstep -2) } 
	                      <<
	\context Voice = "tenors" { \relative c {  \set Staff.midiInstrument = "church organ" 
	                            \clef bass \key f \major \voiceThree bes'1 a1 \bar "||" }}
	\context Voice = "basses" { \relative c {  \set Staff.midiInstrument = "church organ" 
	                            \clef bass \key f \major \voiceFour  bes1 f1 \bar "||" }}
			        >> 
  >>			      
\header { breakbefore = ##f piece = " " opus = " " }
  
\layout { 
	ragged-right = ##t
	indent = 15\cm
	\context { \Staff \remove Time_signature_engraver }

       }

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

       
 } % close Amen block
       
} %%close book bracket  

Lily3

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

L2-052png.pdf

L2-052png.midi

Second Version:

L2-052v2png.pdf

L2-052v2png.midi

Third Version

052v3png.pdf

052v3png.midi

052v3png-amen.midi

Notes

jkenny's notes after Lily 2

  • Text proofing note (relevant to F1/F2 also). The attribution of the author of the lyrics looks like "By Phillips Brooke".
  • But my 1933 edition clearly shows "Bp. Phillips Brooks."
  • I have no idea what "Bp." means.

QMacrocarpa's notes:

  • In final "Amen" snippet, barline between notes not present in original.
-fixed. See v2 pdf. Jkenny 06:41, 6 May 2007 (PDT)
  • Missing "." after "Bp. Phillips Brooks, 1835-93"
-fixed. See v2 pdf. Should years be italicized? Let's ask PP. Jkenny 06:41, 6 May 2007 (PDT)
  • Missing "." after metronome marking (but possibly tricky to add?)
-added. Jkenny 06:41, 6 May 2007 (PDT)
  • Saw something about fermatas in section of code for MIDI, but I don't hear them in MIDI output. Tempo seems quite steady (I don't see that as a problem, but might not bother with fermatas).
-removed fermata. Jkenny 06:41, 6 May 2007 (PDT)
  • Question: without special MIDI section, would we not hear both times through repeat?
-By default Lily does not unfold and play out repeats. According to manual, a separate score needs to be added to unfold repeats for midi. Jkenny 06:41, 6 May 2007 (PDT)
  • Final "Amen" not included in midi. Perhaps by choice?
-Yes. Let's ask the PM/PP whether midi should have "amen". Not easy though, as they are different scores. Jkenny 06:41, 6 May 2007 (PDT)
  • First verse not numbered in original.
-Without the drop cap, it would look funny without number. Let's ask PP. Jkenny 06:41, 6 May 2007 (PDT)
  • Verse numbers inconsistently punctuated in original. Actually, I think this is 2nd piece I've noticed where only number of last verse is followed by "." Perhaps that punctuation pattern is widespread through the book? Could be short-hand to indicate final verse?
-Agree. Changed so that only last stanza number is punctuated. Will draw PP attention to this and seek guidance.
  • "Music engraving by...." footer seems too close to lower edge of page (unless a quirk of my viewers: GhostView and Gnome PDF Viewer). Also header of first page seems very close to upper edge of page in GhostView, but ok in Gnome PDF Viewer).
-Removed this tagline. Jkenny 06:41, 6 May 2007 (PDT)
  • (Is this format ok for my notes? --Q)
-Format seems fine. What do you think of my format for replying?
-Dandy! --Q
-Other changes: Adjusted headers to look more like image.
-Changed metro timing to 2=80 (version 1 mistakenly said 2=60)
-Italicized the line that says "Suitable until Candlemas"

Stygiania's notes (based on v2):

  • Should "English Traditional Melody." be in italics?
-yes indeed. Done! Jkenny 18:44, 8 May 2007 (PDT)
  • In verse 4 the word "blesséd" appears as "blessd".
-yes, added. But not sure whether it is this direction \ or /. My 1933 edition shows \ . So added it as "blessèd" i.e. accent grave rather than apostrophe. Jkenny 18:44, 8 May 2007 (PDT)


In response to request for final Lily3 clearance:

  • My sole remaining reservation is whether "= 80." in tempo marking should be italicized (I don't know). QMacrocarpa 19:45, 8 May 2007 (PDT)
-Daniemers has responded in forum saying we match the image unless "the context is clear" - by this I think he means the context is clear that it is a date where the printer would have used italic numerals if he had them. I had referred him to a forum post by JulietS where she said the rendering of upright dates in italics is a special case, and not all numerals should be italicized. Jkenny 03:11, 9 May 2007 (PDT)
-Then I agree piece is clear! --Q Lily3 cleared QMacrocarpa 04:24, 9 May 2007 (PDT)

Record of Work

    • Lily1 - done by QMacrocarpa (ABC)
    • Lily2 - done by jkenny - requesting smooth-read/listen
    • Lily3 - notes added by QMacrocarpa.
errors fixed. See v2! Jkenny 06:51, 6 May 2007 (PDT)
- notes added by stygiania.
-fixed. Drop caps etc added.Final Lily3 clearance requested.
-one last niggling question from QMacrocarpa.
-I think this is one where we match the image - see my note in notation page, and also forum recent post on italics/smallcaps. Jkenny 03:14, 9 May 2007 (PDT)
-Lily3 cleared QMacrocarpa 04:24, 9 May 2007 (PDT)
    • Reset fonts Jkenny 09:49, 22 May 2007 (PDT)