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

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.


Lyrics copied from P3 and perl-formatted --QMacrocarpa 16:32, 1 June 2007 (PDT):

"O THOU who dost accord us"
"    The highest prize and guerdon,"
"        Thou hope of all our race,"
"Jesu, do thou afford us"
"    The gift we ask of pardon"
"        For all who humbly seek thy face."
""
"With whispered accusation"
"    Our conscience tells of sinning"
"        In thought, and word, and deed;"
"Thine is our restoration,"
"    The work of grace beginning"
"        For souls from every burthen freed."
""
"For who, ¡f thou reject us,"
"    Shall raise the fainting spirit?"
"        'Tis thine alone to spare:"
"If thou to life elect us,"
"    With cleansèd hearts to near it,"
"        Shall be our task, our lowly prayer."
""
"O Trinity most glorious."
"    Thy pardon free bestowing,"
"        Defend us evermore;"
"That in thy courts victorious."
"    Thy love more truly knowing,"
"        We may with all thy Saints adore."
""

Lily2 Code

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

%%%% 150.png
%%%% Hymn 86 Innsbruck O thou who dost accord us
%%%% Rev 2.

\version "2.10"

\header {

  dedication = \markup { \center-align { "THE CHRISTIAN YEAR - LENT"

        \hspace #0.1 }} 

  title = "86"

  meter = \markup { \small {\column {  \line { \sans {"INNSBRUCK. "} \hspace #1 \roman {"(7 7 6. 7 7 8.)" }}
                                       \line { \italic {Very slow and solemn} \fontsize #-5 \general-align #Y #DOWN \note #"2" #1 = 42.}
                                  }
                  }}
 
  arranger =  \markup { \small {\center-align {
                            \line { \italic "Traditional German Melody." }
                            \line { \italic "Adapted and harmonized by" \smallCaps "J. S. Bach." }
                } } }

  tagline =""

}

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

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

%%% Same as above but move a smaller amount	      
	      
smallstraddle =  { \once \override Score.SeparationItem #'padding = #1
              \once \override NoteHead #'X-offset = #-1.4
              \once \override Stem #'X-offset = #-1.4 }	      
	      
	      
%%% Push notecolumn a little to the right

push = { \once \override NoteColumn #'force-hshift = #0.4 }
  
%%% macro to insert a singlebar while forbidding linebreak

nbbar = { \bar "|" \noBreak }

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

%%% SATB voices

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

soprano = \relative c' { 
  \partial 2 b'2 \nbbar g a b4( c) d2 \nbbar \once \override NoteColumn #'force-hshift = #1.6 c1 b2^\fermata \bar "||" \noBreak b4( c) \nbbar d2 d a b \bar "|" \break
  \push g1 fis2 ^\fermata \bar "||" \noBreak d \nbbar g a b b \nbbar a1. ^\fermata \bar "||" b2 \bar "|" \break
  g2 a b4( c4) d2 \nbbar \push c1 b2 ^\fermata \bar "||" \noBreak b4( c4) \nbbar d2 d a b \bar "|" \break
  g1 fis2 ^\fermata \bar "||" \noBreak d \nbbar g a b c \nbbar b a g ^\fermata \bar "||" 
}

alto = \relative c' { 
  g'2 \nbbar e fis g4( a4) b2 \nbbar b2( a) g \bar "||" g \nbbar g4( fis4) g4( e4) fis4( e4) d2 \bar "|"
  d2( cis2) d \bar "||" a2 \nbbar d c b4( c4) d2 \nbbar d1. \bar "||" fis2 \bar "|"
  e2 d  \once \override NoteColumn #'force-hshift = #1.0 d e \nbbar e4( d e fis) gis2 \bar "||" g2 \nbbar a g4( fis4) e2 fis \bar "|"
  \straddle fis2( e) dis \bar "||" d \nbbar d4( e) d( c) \smallstraddle b( d) e( fis) \nbbar g2 fis d \bar "||"
}

tenor = \relative c { \clef bass
   d'2 \nbbar c c d4( c) b( a) \nbbar g2( d') d \bar "||" e \nbbar d d d fis, \bar "|"
   g4( fis g2) a2 \bar "||" fis4( e) \nbbar d2 e4( fis) g2 g \nbbar fis1. \bar "||" b2 \bar "|"
   b4( c) b( a) g( a) b2 \nbbar a4( b c d) e2 \bar "||" e \nbbar d4( c) b2 cis fis, \bar "|"
   b1 b2 \bar "||" b \nbbar b4( c) b( a) g2 g \nbbar e' a,4( b8[ c]) b2 \bar "||" 	
}

bass = \relative c { \clef bass
  g'2 \nbbar \straddle c4( b) a2 g2. fis4 \nbbar e2( fis) g_\fermata \bar "||" e \nbbar b4( a) b( c) d( c) b2 \bar "|"
  \push e1 d2 _\fermata \bar "||" c \nbbar b a g4( a) b( c) \nbbar d1. _\fermata \bar "||" dis2 \bar "|"
  e2 fis g gis \nbbar a( a,) e' _\fermata \bar "||" e \nbbar fis g g4( fis) \straddle e( dis) \bar "|"
  \smallstraddle e4( fis g a) b2 _\fermata \bar "||" b, \nbbar e fis \straddle g4( fis) e( d) \nbbar c2 d g, _\fermata \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 \remove "Bar_number_engraver" }
        \context { \Staff \remove "Time_signature_engraver" }
        \context { \Score \remove "Mark_engraver"  }
        \context { \Staff \consists "Mark_engraver"  }
        } %% close layout

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

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

%%% Lyric attribution

\markup { \hspace #78 \small { \center-align { \line { \italic "J. W. Hewett and others.  Based on" }  
                                               \line { "Summi largitor praemii," \italic "c. 6th cent." }
}}}

%%% Main lyrics markup block
  
\markup { \hspace #32 %%add space as necc. to center the column
	     \column {  %% a super column for entire block of lyrics 
                        \column { %%% verse 1 is 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 "  THOU who dost accord us"
                                                         "  The highest prize and guerdon," } }          
                          \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 {   
					   "        Thou hope of all our race,"
					   "Jesu, do thou afford us"
					   "    The gift we ask of pardon"
					   "        For all who humbly seek thy face."
                                        }}
                                   } %% finish verse 1    
                \hspace #1 
                \line { "2  "
                           \column {         
				   "With whispered accusation"
				   "    Our conscience tells of sinning"
				   "        In thought, and word, and deed;"
				   "Thine is our restoration,"
				   "    The work of grace beginning"
				   "        For souls from every burthen freed."
                        }}
                  \hspace #1 
                  \line { "3  "
                    \column {        
			    "For who, if thou reject us,"
			    "    Shall raise the fainting spirit?"
			    "        'Tis thine alone to spare:"
			    "If thou to life elect us,"
			    "    With cleansèd hearts to near it,"
			    "        Shall be our task, our lowly prayer."
                        }}
                \hspace #1 % adds vertical spacing between verses  
                \line {"4. "
                    \column {        
			    "O Trinity most glorious,"
			    "    Thy pardon free bestowing,"
			    "        Defend us evermore;"
			    "That in thy courts victorious,"
			    "    Thy love more truly knowing,"
			    "        We may with all thy Saints adore."
                }}
          }
} %%% 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 g'1 g1  \bar "||" }}
        \context Voice = "altos"    { \relative c' { \clef treble \global \voiceTwo e1 d1 \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 c'1 b1 \bar "||" }}
        \context Voice = "basses" { \relative c { \clef bass \global \voiceFour  c1 g1 \bar "||" }}
                                >> 
  >>                          

\header { breakbefore = ##f piece = " " opus = " " }

\layout { 

   \context { 
        \Score timing = ##f }
        ragged-right = ##t
        indent = 15\cm
   \context { \Staff \remove Time_signature_engraver }

       } %% close layout

%%%%%%%%%%%%%% Amen Midi

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

} %%% book bracket

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.

Notes by L2 Jkenny 06:38, 28 June 2007 (PDT)

  • P3 typos in lyrics - verse 4 lines 1 and 4 should end with commas. Errata page updated.

styg 19:13, 3 July 2007 (PDT)

  • P3 scanno in lyrics - verse 3 line 1 "¡f" (inverted !) for "if". Errata page updated.
  • System 1, 1st full bar, soprano last note should be d instead of c.
  • System 4, 1st bar, bass part, first four notes (e fis g a) should be all in one slur instead of in two.
  • System 4, 2nd full bar, tenor third note should be a instead of c.

Jkenny 06:02, 4 July 2007 (PDT)

  • Fixed "if"
  • System 1 soprano note fixed
  • System 4 1st bar bass note fixed
  • System 4 2nd full bar tenor note fixed

QMacrocarpa 15:01, 6 July 2007 (PDT)

  • Cleared


Project History

    • Lily1 - (lyrics added)
    • Lily2 - done Jkenny 06:39, 28 June 2007 (PDT)
    • Lily3 - comment added styg 19:14, 3 July 2007 (PDT)
- fixed Jkenny 06:04, 4 July 2007 (PDT)
- Lily3 cleared and uploaded QMacrocarpa 15:08, 6 July 2007 (PDT)