The English Hymnal - Wiki Music Experiment/099

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

Soprano = c2 | d2 c2 bes2 a2 | g1 a2 || a2 | f2 f2 g2 c2 | a1. ||
  a2 | bes2 a2 g2 f2 | e1 f2 || a2 | g2 g2 a2 f2 | e1. ||
  a2 | a2 g2 a2 d2 | c1 a2 || c2 | bes2 a2 g2 g2 | f1. ||

Alto = f2 | f2 f2 f2 f2 | f2 e2 f2 || f2 | c2 f2 f2 e2 | f1. ||
  f2 | f2 f2 e2 d2 | d2 cis2 d2 || f2 e2 d2 cis2 d2 | cis1. ||
  c2 | f2 e2 f2 f2 | e1 f2 || f2 | f2 f2 f2 e2 | f1. ||

Tenor = a2 | bes2 c2 d2 c2 | c1 c2 || c2 | a2 a2 c2 c2 | c1. ||
  c2 | bes2 c2 c4 bes4 a2 | a1 a2 || c2 | c2 g2 e2 f4 g4 | a1. ||
  a2 | c2 c2 c2 bes4 a4 | g2 c2 c2 || c2 | d2 c2 c2 c4 bes4 | a1. ||

Bass = f2 | bes2 a2 bes2 f2 | c1 f2 || f2 | a2 f2 c2 c2 | f1. ||
  f2 | d2 f2 e2 f2 | a1 d2 || f2 | c2 bes2 a2 d2 | a1. ||
  f2 | f2 c2 f2 bes2 | c1 f2 || a2 | bes2 f2 c2 c2 | f1. ||
"Hail to the Lord's Anointed!"
"    Great David's greater Son;"
"Hail, in the time appointed,"
"    His reign on earth begun!"
"He comes to break oppression,"
"    To let the captive free;"
"To take away transgression,"
"    And rule in equity."
""
"He comes with succour speedy"
"    To those who suffer wrong;"
"To help the poor and needy,"
"    And bid the weak be strong;"
"To give them songs for sighing,"
"    Their darkness turn to light,"
"Whose souls, condemned and dying,"
"    Were precious in his sight."
""
"He shall come down like showers"
"    Upon the fruitful earth,"
"And love, joy, hope, like flowers,"
"    Spring in his path to birth:"
"Before him on the mountains"
"    Shall peace the herald go;"
"And righteousness in fountains"
"    From hill to valley flow."
""
"* Arabia's desert-ranger"
"    To him shall bow the knee;"
"The Ethiopian stranger"
"    His glory come to see;"
"With offerings of devotion"
"    Ships from the isles shall meet,"
"To pour the wealth of ocean"
"    In tribute at his feet."
""
"Kings shall fall down before him,"
"    And gold and incense bring;"
"All nations shall adore him,"
"    His praise all people sing;"
"To him shall prayer unceasing"
"    And daily vows ascend;"
"His kingdom still increasing,"
"    A kingdom without end."
""
"* O'er every foe victorious,"
"    He on his throne shall rest,"
"From age to age more glorious,"
"    All-blessing and all-blest:"
"The tide of time shall never"
"    His covenant remove;"
"His name shall stand for ever;"
"    That name to us is Love."

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

%%%099.png - lst staff on 098.png
%%%Hymn 45 Cruger Hail to Lord's Anointed
%%%Version 2

\version "2.10"

\header {
	dedication = \markup { \center-align { \line {  "THE CHRISTIAN YEAR - FROM EPIPHANY TILL SEPTUAGESIMA" } 
					       \hspace #1
						} }	
  title = "45"
  meter = \markup {  \small { \column {  \line { \sans {"CRÜGER."} \hspace #1 \roman {"(7 6. 7 6. D.)"}}
                                        \line { \italic {Slow and dignified} \fontsize #-5 \general-align #Y #DOWN \note #"2" #1 = 56.}}}}   
  arranger =  \markup {  \small \center-align {
		            \line{ \italic "Adapted by" \smallCaps "W. H. Monk" \italic "from a Chorale" } 
  			    \line { \italic  "by" "J. C" \hspace #-1.2 \teeny "RÜGER," "1598-1662."}}}
  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 "|:"}

%% Used to pull a note left. Used when a slurred note pair straddles a longer note when notecolumn force-hshift does not work 		 
straddle =  { \once \override Score.SeparationItem #'padding = #2
              \once \override NoteHead #'X-offset = #-2.8 
              \once \override Stem #'X-offset = #-2.8 }

%%%%%%%%%%%%%%%%%%%%%%%%%%end of macro definitions

soprano = \relative c' {
    \fdstartrepeat \partial 2 c'2 | d2 c2 bes2 a2 | g1 a2^\fermata \bar "||" a2 | f2 f2 g2 c2 | a1. \breathmark \fdendrepeat \break
   a2 | bes2 a2 g2 f2 | e1 f2^\fermata \bar "||" a2 | g2 g2 a2 f2 | e1. \breathmark \bar "||" \break
   a2 | a2 g2 a2 d2 | c1 a2^\fermata \bar "||" c2 | bes2 a2 g2 g2 | 
       \once \override Dots #'transparent = ##t f1. \bar "||"
}

alto = \relative c' {
  \fdstartrepeat \partial 2 f2 | f2 f2 f2 f2 | \straddle f2( e2) f2 \bar "||" f2 | c2 f2 f2 e2 | f1. \fdendrepeat
  f2 | f2 f2 e2 d2 | \straddle d2( cis2) d2 \bar "||" f2 e2 d2 cis2 d2 | cis1. \bar "||"
  c2 | f2 e2 f2 f2 | e1 f2 \bar "||" f2 | f2 f2 f2 e2 | 
      \once \override NoteColumn #'force-hshift = #0.11 f1. \bar "||"
}

tenor = \relative c { \clef bass
  \fdstartrepeat \partial 2 a'2 | bes2 c2 d2 c2 | c1 c2 \bar "||" c2 | a2 a2 c2 c2 | c1. \fdendrepeat
  c2 | bes2 c2 c4( bes4) a2 | a1 a2 \bar "||" c2 | c2 g2 e2 f4( g4) | a1. \bar "||"
  a2 | c2 c2 c2 bes4( a4) | g2( c2) c2 \bar "||" c2 | d2 c2 c2 c4( bes4) | a1. \bar "||"
}

bass = \relative c { \clef bass
  \fdstartrepeat \partial 2 f2 | bes,2 a2 bes2 f'2 | c1 f2_\fermata \bar "||" f2 | a2 f2 c2 c2 | f1. \fdendrepeat
  f2 | d2 f2 c2 d2 | a1 d2_\fermata \bar "||" f,2 | c'2 bes2 a2 d2 | a1. \bar "||"
  f'2 | f2 c2 f2 bes,2 | c1 f2_\fermata \bar "||" a,2 | bes2 f'2 c2 c2 | f,1. \bar "||"
}

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

#(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"  }
	}
		
} %%score bracket


%%%%%%%%%%%%%%%% This next section of code is for
%%%%%%%%%%%%%%%% unfolding the repeats and generating the midi
%%%%%%%%%%%%%%%% Not needed for visual layout
                

\score { 
\new ChoirStaff 
<<

\new Staff = "soprano" {\relative c' {\clef treble \global  
   \unfoldRepeats  { \repeat volta 2 { \partial 2 c'2 | d2 c2 bes2 a2 | g1 a2^\fermata \bar "||" a2 | f2 f2 g2 c2 | a1. } }\break
   a2 | bes2 a2 g2 f2 | e1 f2^\fermata \bar "||" a2 | g2 g2 a2 f2 | e1. \bar "||" 
   a2 | a2 g2 a2 d2 | c1 a2^\fermata \bar "||" c2 | bes2 a2 g2 g2 | f1. \bar "||"
}
}

\new Staff = "alto" {\relative c' {\clef treble \global  
  \unfoldRepeats { \repeat volta 2 { \partial 2 f2 | f2 f2 f2 f2 | f2( e2) f2 \bar "||" f2 | c2 f2 f2 e2 | f1. } }
  f2 | f2 f2 e2 d2 | d2( cis2) d2 \bar "||" f2 e2 d2 cis2 d2 | cis1. \bar "||"
  c2 | f2 e2 f2 f2 | e1 f2 \bar "||" f2 | f2 f2 f2 e2 | f1. \bar "||"
}	
}

\new Staff = "tenor" { \relative c {\clef bass \global  
  \unfoldRepeats { \repeat volta 2 { \partial 2 a'2 | bes2 c2 d2 c2 | c1 c2 \bar "||" c2 | a2 a2 c2 c2 | c1. } }
  c2 | bes2 c2 c4( bes4) a2 | a1 a2 \bar "||" c2 | c2 g2 e2 f4( g4) | a1. \bar "||"
  a2 | c2 c2 c2 bes4( a4) | g2( c2) c2 \bar "||" c2 | d2 c2 c2 c4( bes4) | a1. \bar "||"
} 
}


\new Staff = "bass" { \relative c { \clef bass \global  
  \unfoldRepeats { \repeat volta 2 { \partial 2 f2 | bes,2 a2 bes2 f'2 | c1 f2_\fermata \bar "||" f2 | a2 f2 c2 c2 | f1. } }
  f2 | d2 f2 c2 d2 | a1 d2_\fermata \bar "||" f,2 | c'2 bes2 a2 d2 | a1. \bar "||"
  f'2 | f2 c2 f2 bes,2 | c1 f2_\fermata \bar "||" a,2 | bes2 f'2 c2 c2 | f,1. \bar "||"
}
}

>>

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


\markup { \hspace #38 \italic "Unison."  \hspace #18 \small \italic "J. Montgomery, 1771-1854." }
	
\markup { \hspace #36 %%add space as necc. to center the column
          \column { %% super column of everything
	              \column { %%stanza 1 is a column of 2 lines  
	                  \line { \hspace #2.2 \column { \lower #2.4 \fontsize #8 "H" }   %%Drop Cap goes here
				  \hspace #-1.2    %% adjust this if other letters are too far from Drop Cap
				  \column  { \raise #0.0 "AIL to the Lord's Anointed!"  "  Great David's greater Son;" } }          
	                  \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 {   
					   "Hail, in the time appointed,"
					   "    His reign on earth begun!"
					   "He comes to break oppression,"
					   "    To let the captive free;"
					   "To take away transgression,"
					   "    And rule in equity."
			  		}}
			       
			           } %% finish stanza 1	
		}  
}	  
	
%%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
}}}

\markup { \hspace #36   %%add space as necc. to center the column
          \column { 
           	  \line { "2  "
		   \column {	     
			   "He comes with succour speedy"
			   "    To those who suffer wrong;"
			   "To help the poor and needy,"
			   "    And bid the weak be strong;"
			   "To give them songs for sighing,"
			   "    Their darkness turn to light,"
			   "Whose souls, condemned and dying,"
			   "    Were precious in his sight."
			}}
                  \hspace #1
		  \line { "3  "
		    \column {	     
			    "He shall come down like showers"
			    "    Upon the fruitful earth,"
			    "And love, joy, hope, like flowers,"
			    "    Spring in his path to birth:"
			    "Before him on the mountains"
			    "    Shall peace the herald go;"
			    "And righteousness in fountains"
			    "    From hill to valley flow."
			}}
		\hspace #1 % adds vertical spacing between verses  
           	\line {"4  "
		    \column {	     
			    "* Arabia's desert-ranger"
			    "    To him shall bow the knee;"
			    "The Ethiopian stranger"
			    "    His glory come to see;"
			    "With offerings of devotion"
			    "    Ships from the isles shall meet,"
			    "To pour the wealth of ocean"
			    "    In tribute at his feet."
			}}  
		\hspace #1 % adds vertical spacing between verses  
           	\line {"5  "
		    \column {	     
			    "Kings shall fall down before him,"
			    "    And gold and incense bring;"
			    "All nations shall adore him,"
			    "    His praise all people sing;"
			    "To him shall prayer unceasing"
			    "    And daily vows ascend;"
			    "His kingdom still increasing,"
			    "    A kingdom without end."
			}}  
		\hspace #1 % adds vertical spacing between verses
           	\line { \hspace #-10 \italic "Unison.  " "6. "
		   \column {	     
			   "* O'er every foe victorious,"
			   "    He on his throne shall rest,"
			   "From age to age more glorious,"
			   "    All-blessing and all-blest:"
			   "The tide of time shall never"
			   "    His covenant remove;"
			   "His name shall stand for ever;"
			   "    That name to us is Love." 
     			}}
	  }
}% 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 f1 f1 \bar "||" }}
	\context Voice = "altos"    { \relative c' {  \clef treble \global \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 { \clef bass \global \voiceThree bes'1 a1 \bar "||" }}
	\context Voice = "basses" { \relative c { \clef bass \global \voiceFour  bes1 f1 \bar "||" }}
			        >> 
  >>			      
\header { breakbefore = ##f piece = " " opus = " " }
\layout { 
	\context { \Score timing = ##f }
	ragged-right = ##t
	indent = 15\cm
	\context { \Staff \remove Time_signature_engraver }

       }

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


} %%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 08:11, 30 May 2007 (PDT)

  • The first verse looks a bit lonely on the first page, but not much of a choice here.

QMacrocarpa 13:56, 31 May 2007 (PDT)

  • I think I'd prefer the theme header in a single line. Having it on two lines makes it seem more important on the page than keeping it confined to a single header line.
  • Composer line: the U with umlaut looks a bit odd-- like it's not in small-caps but lower-case?
  • When I ran the lilypond command, I got an extra version of the MIDI for the main hymn. Maybe one is with repeat, other without?
  • 1st system, 1st complete measure: 1st 3 bass notes are an octave too high. Should be low B, A, B.
  • Missing "." after lyrics attribution.

stygiania 18:58, 31 May 2007 (PDT)

  • The 'regular' midi file (first generated) does not have repeat, the -1 (second generated) has repeat, and -2 (third generated) is Amen.
  • The bottom margin of page 2 is barely 0.5" on letter paper while top margin of page 2 is 1-1/4". This is one hymn where adding the blank line at the top of the second page probably is not a good idea.

Jkenny 19:16, 31 May 2007 (PDT)

  • Theme moved to one line.
  • Bass notes fixed.
  • Umlaut problem - you discovered a Lilypond limitation! I should have noticed it before. Looks like the default Roman font used by Lilypond does not have a smallCap version of a umlauted u, so it uses lower case umlauted u. The only way around it is somewhat of a kludge: if you look at the code. Remember the \teeny you saw elsewhere? So big caps are"J. C" and all the rest including the umlauted u are regular caps also, but set with \teeny size. The result is the same as with \smallCaps. But the font-o-vision won't catch this.
  • midi fixed.
  • On margins, I realize now that different viewers and printers behave different when resizing A4 into Letter. Some like Ghostview swipe space from the top, others, like GSView and probably Styg's printer, swipe space from the bottom, so when we try to second guess, we sometimes get it wrong. Q suggests that we just stick with Lilypond default paper sizes and margins, and allow viewers and printers to do their own resizing to fit.
  • Removed blank line now - back to all defaults.
  • This is probably a decision for Dani - but he's a Londoner, so likely to be an A4 person.

Lily3 cleared, files uploaded stygiania 19:46, 5 June 2007 (PDT)


Record of Work

    • Lily1 - done stygiania 22:43, 27 May 2007 (PDT) (plain text + lyrics)
    • Lily2 - done Jkenny 08:14, 30 May 2007 (PDT)
    • Lily3 - comments QMacrocarpa 13:57, 31 May 2007 (PDT)
- fixed. Jkenny 19:18, 31 May 2007 (PDT)
- Lily3 cleared, files uploaded stygiania 19:47, 5 June 2007 (PDT)