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

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.

%%% 134.png
%%% Hymn 71, St. Bernard (C.M.), All ye who seek a comfort sure.
%%% Rev 1.

\version "2.10.23"

\header {
	dedication = \markup { \center-align { "THE CHRISTIAN YEAR - LENT" \hspace #0.1 }}
	title = "71"
	poet = \markup { \small { \sans "ST. BERNARD." \hspace #1 \roman  "(C. M.)" } }
	meter =  \markup { \small { \italic "Moderately slow" \fontsize #-5 \general-align #Y #DOWN \note #"2" #1 = 69.} }
	arranger = \markup { \small \italic "Adapted from a melody in 'Tochter Sion'" (Cöln, 1741). }
	tagline =""
			}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%macros begin
%%generates the breathmarks

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 "," }
	}
%% no break bar and double bars
nbbar = { \bar "|" \noBreak }
nbdbar = { \bar "||" \noBreak }

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

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

soprano = \relative c' { \partial 2 a'2 \nbbar d, e fis e4(d) \nbbar g2 fis e \breathmark \nbdbar a \nbbar fis b gis2. gis4 \nbbar a1. \breathmark \bar "||" \break
a2 \nbbar d b a b \nbbar g g fis \breathmark \nbdbar d \nbbar g fis e e \nbbar  \push d1. \bar "||" }
 
alto = \relative c' { \partial 2 d2 \nbbar d cis d cis4(d) \nbbar cis2 d cis \nbdbar e \nbbar d d-. d2. d4 \nbbar cis1. \bar "||" \break
cis2 \nbbar d d d b \nbbar b e d \nbdbar d \nbbar cis d d cis \nbbar d1. \bar "||" }

tenor = \relative c { \clef bass \partial 2 fis2 \nbbar a a a a \nbbar g a a \nbdbar a \nbbar a b b2. b4 \nbbar a1. \bar "||" \break
a2 \nbbar a g fis fis \nbbar g a a \nbdbar a \nbbar g a b a4(g) \nbbar fis1. \bar "||"}

bass = \relative c { \clef bass \partial 2 d2 \nbbar fis e d g4(fis) \nbbar e2 d a \nbdbar cis \nbbar d b e2. e4 \nbbar a,1. \bar "||" \break
a'2 \nbbar fis g d dis \nbbar e cis d \nbdbar fis \nbbar e d g, a \nbbar d1. \bar "||"}

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

\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" }
	}
%%Hymn midi
\midi { \context { \Score tempoWholesPerMinute = #(ly:make-moment 69 2)}}
%%Hymn midi

}%%score

%%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 d1 d \bar "||" }}
		\context Voice = "altos" { \relative c' {\clef treble \global \voiceTwo b1 a \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 \voiceOne g'1 fis \bar "||" }}
		\context Voice = "basses" { \relative c {\clef bass \global \voiceTwo g1 d'1 \bar "||" }}
		>>
>>

\header { breakbefore = ##f piece = " " opus = " " }
\layout {
	\context { \Score timing = ##f }
	ragged-right = ##t
	indent = 15\cm
	\context { \Staff \remove "Time_signature_engraver" }
	}%%layout

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



}%%amen score

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

"ALL ye who seek a comfort sure"
"    In trouble and distress,"
"Whatever sorrow vex the mind,"
"    Or guilt the soul oppress,"
""
"Jesus, who gave himself for you"
"    Upon the Cross to die,"
"Opens to you his sacred Heart;"
"    O to that Heart draw nigh."
""
"Ye hear how kindly he invites;"
"    Ye hear his words so blest--"
"'All ye that labour come to me,"
"    And I will give you rest.'"
""
"O Jesus, joy of Saints on high,"
"    Thou hope of sinners here,"
"Attracted by those loving words"
"    To thee I lift my prayer."
""
"Wash thou my wounds in that dear Blood"
"    Which forth from thee doth flow;"
"New grace, new hope inspire, a new"
"    And better heart bestow."
""

Lily2 Code

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

%%% 134.png
%%% Hymn 71, St. Bernard (C.M.), All ye who seek a comfort sure.
%%% Rev 4.

\version "2.10"

\header {
	dedication = \markup { \center-align { "THE CHRISTIAN YEAR - LENT" \hspace #0.1 }}
	title = "71"
	meter =  \markup { \small { \column {  \line { \sans "ST. BERNARD." \hspace #1 \roman  "(C. M.)" } 	
	                                       \line { \italic "Moderately slow" \fontsize #-5 \general-align #Y #DOWN \note #"2" #1 = 69.} } } }
	arranger = \markup { \small { \center-align { \italic "Adapted from a melody in"
	                                              \line { "‘" \hspace #-1 \italic "Tochter Sion" \hspace #-1.2 "’" "(Cöln, 1741)." } } } }
	tagline =""
}			

%%%%%%%%%%%%%%%%%%%%%%%%%%%%macros begin

%%generates the breathmarks
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 "," }
	}

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

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

soprano = \relative c' { 
  \partial 2 a'2 | d, e fis  e4(d) | g2 fis e \breathmark \bar "||" 
      a | fis b gis2. gis4 | a1. \breathmark \bar "||" \break
  a2 | d b a b | g g fis \breathmark \bar "||" d | g fis e e |  \push d1. \bar "||" }
 
alto = \relative c' { 
  d2 | d cis d  cis4(d) | cis2 d cis \bar "||" 
      e | d d d2. d4 | cis1. \bar "||" \break
  cis2 | d d d b | b e d \bar "||" d | cis d d cis | d1. \bar "||" }

tenor = \relative c { \clef bass 
  fis2 | a a a \once \override NoteColumn #'force-hshift = #1.6 a | g a a \bar "||" 
      a | a b b2. b4 | a1. \bar "||" \break
  a2 | a g fis fis | g a a \bar "||" a | g a b a4(g) | fis1. \bar "||"}

bass = \relative c { \clef bass 
  d2 | fis e d  g4(fis) | e2 d a \bar "||" 
      cis | d b e2. e4 | a,1. \bar "||" \break
  a'2 | fis g d dis | e cis d \bar "||" fis | e d g, a | d1. \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
}

\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" }
	}
	
%%Hymn midi
\midi { \context { \Score tempoWholesPerMinute = #(ly:make-moment 69 2)}}

}%%score


\markup { \hspace #8   %%add space as necc. to center the column
          \column { %% super column of everything
	    \line { \hspace #66 \small  { \italic "18th cent.  Tr. E. Caswall" "‡."}}
	    \line { \hspace #30 \small {"Quicumque certum quaeritis."}}
	    \line { %% a master line of 3 columns    
		\column { %% column 1
	        \hspace #1 % adds vertical spacing between verses
	              \column { %%stanza 1 is a column of 2 lines  
	                  \line { \hspace #2.2 \column { \lower #2.4 \fontsize #8 "A" }   %%Drop Cap goes here
				  \hspace #-1.2    %% adjust this if other letters are too far from Drop Cap
				  \column  { \raise #0.0 "LL ye who seek a comfort sure" "  In trouble and distress," } }          
	                  \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 {   
					   "Whatever sorrow vex the mind,"
					   "    Or guilt the soul oppress,"
			  		}}
			       
			           } %% finish stanza 1
		\hspace #1 
           		\line { "2  "
			   \column {	     
				   "Jesus, who gave himself for you"
				   "    Upon the Cross to die,"
				   "Opens to you his sacred Heart;"
				   "    O to that Heart draw nigh."
			}}
		}  %% finish Page column 1
		
	\hspace #4 %%adds horizontal space columns 1 and 2   
			   
	\column { \filled-box #'(0.0 . 0.1) #'( -26 . -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 #1 % adds vertical spacing between verses
           		\line { "3  "
			  \column {	     
				  "Ye hear how kindly he invites;"
				  "    Ye hear his words so blest—"
				  "'All ye that labour come to me,"
				  "    And I will give you rest.'"
			}}
		\hspace #1 
           		\line {"4  "
			  \column {	     
				  "O Jesus, joy of Saints on high,"
				  "    Thou hope of sinners here,"
				  "Attracted by those loving words"
				  "    To thee I lift my prayer."
			}}


	    } %% end column 3
     } %% end master-line
    		\hspace #1 
           		\line { \hspace #20  "5. "
			  \column {	     
				  "Wash thou my wounds in that dear Blood"
				  "    Which forth from thee doth flow;"
				  "New grace, new hope inspire, a new"
				  "    And better heart bestow."
     			}}
}
}% stanza 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' { \global
	                                             \voiceOne d1 d \bar "||" }}
	\context Voice = "altos"    { \relative c' { \global
	                                              \voiceTwo b1 a \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 { \global \clef bass
	                                          \voiceThree g'1 fis \bar "||" }}
	\context Voice = "basses" { \relative c { \global \clef bass 
	                                          \voiceFour  g1 d'1 \bar "||" }}
			        >> 
  >>			      
\header { breakbefore = ##f piece = ##f opus = ##f tagline = ##f }

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


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



}%%amen score

Lily3

Notes

  • Not clear whether Circumflex , Caron, Breve or Diaeresis used with small letter o, in Coln 1741. Scan not clear.

Notes by L2 Jkenny 09:43, 3 June 2007 (PDT)

  • Tentatively going with umlaut (diaeresis) above the o in Coln. At least that's the way Cologne is spelt these days. Any other views?
  • Only small changes - used column for Tune Name/Meter, and center-align column for Source.
  • Was able to change nbbar back to |. In general, I think you can stick with | instead of nbbar unless Lilypond starts misbehaving with regards to linebreaks.
  • Added lyrics.
  • Alto part 1st system 4th note from end of line - image shows a dot under the notehead. An articulation? Or a bit of dirt? There is no dot in my 1933 edition.

Comments by ebykm 21:25, 3 May 2007 UTC

  • Regarding articulation dot, one appears in the high res scan [1] , caution 4mb jpg file. Though none appear in later editions, a typo error ?.
  • Seems either Caron or Breve is used above o in Coln.
  • Regarding \nbbar, sometimes lilypond starts misbehaving, it could be platform specific issue.
  • Fraktur fonts/addons how to get those ?

Reply by Jkenny 18:59, 3 June 2007 (PDT)

  • Q has a hard copy of the 1906 - I'll ask her to check. Perhaps the dot is specific to that copy that has been scanned.
  • About the \nbbar - right, I understand now. Go ahead and use nbbar when Lilypond starts misbehaving and I'll leave it in. However could you indicate when Lilypond DOESN'T misbehave, and use | instead? Helps to understand why and when Lilypond misbehaves. It seems rather strange that it misbehaves about linebreaking on a short CM piece with only a few notes on each line.
  • On Coln, I'll ask someone from the German team for an opinion.
  • Just sent you a PM on how to get Fraktur fonts.

Reply by ebykm 12:54, 4 June 2007 UTC

  • Regarding fraktur fonts, my problem is i don't see any fraktur, i have HumboldtFraktur, GF Gesetz, and other commercial fraktur fonts'(postscript, truetype and opentype) installed.
This is really strange, I've tried other non-fraktur font's, they all shows up, except the fraktur ones.
  • This could be another platform specific issue, i tried lilypond -dshow-available-fonts blahbla command, nothing happened except Welcome to lilypond file(with simple scale of C) popped up.

QMacrocarpa 15:48, 6 June 2007 (PDT)

  • Not sure I follow all the stuff about \nbbar and Lilypond misbehaving with '|' sometimes, but if '|' sometimes causes problems, maybe we should just be avoiding it all the time for the sake of end-users? Though I suppose with a future version of Lilypond it might be \nbbar that causes the trouble... Anyway, I'm no Lilypond expert, will defer to those that are.
  • 1st system, 1st complete measure after double-bar: the mystery dot is not present in the copy of the 1906 edition I have out from the library. I think it's a stray mark which we should omit.
  • Amen block: font-o-vision indicates the notes are not sized smaller in the usual way, and they look like they could be full-size.
  • Amen block: clefs also look full-size instead of smaller to be proportional with smaller staff.
  • About the accent on Coln, I agree that the original doesn't look like an umlaut in this instance, but of the five other instances of "Coln" I found (searching on "ln" in the concatenated text file to track them down) 4 have clear umlauts in the original, and the remaining 1 has what looks like an umlaut where one dot didn't print. Suggests the v-shaped accent here is a typo. Let's go with whatever the German team suggests.

Jkenny 20:14, 11 June 2007 (PDT)

  • German team responded with the opinion that it should be the umlaut above Coln as they are pretty sure it refers to the town of Cologne
  • Omitted the mystery dot.
  • I think we'll leave a note for the PPer referring to the above 2 issues.
  • Amen block - puzzling, because the code is the same as elsewhere where it displays correctly. Couldn't debug it. Just pasted in a new set of code from another piece, and everything became small size. Perhaps the Mac introduces hidden characters here and there? Anyway, all fixed now.
  • On Lilypond misbehaviour - that is when Lilypond attempts to do a linebreak when it has not been commanded to. This usually only happens when we try to squeeze too many music notes onto one line and the paper is too narrow. An example wss Adeste Fideles. To prevent line breaks, we are obliged to put \bar "|" \noBreak at every bar. We macroed this to \nbbar. However the music does not look too dense here, so I used the default bar type which is simply |, as this reduces clutter. I'll revert to \nbbar if Lilypond continues to misbehave here.

styg 12:56, 25 June 2007 (PDT)

  • For some reason it has just jumped out at me that we have been using straight quote marks for everything and the original uses curly quotes. This is particularly noticed in italics (such as 'Tochter Sion' ) where the closing quote looks more like a misplaced acute accent. Doesn't look bad in normal text. Going back and changing all would be a lot of work. Could just leave the quote marks outside the \italic command so they would be straight unless that makes them collide with the text. Opinions?

Jkenny 20:49, 25 June 2007 (PDT)

  • I just pasted in a version using the unicode curly single quotes (hex 2018 and hex 2019), does it look better?
  • Using the unicode gives cleaner code as we don't have to jump out and in again to italics. We are already using unicode for daggers, em dashes in any case.
  • I am not sure how this degrades though, I suspect if users do not have unicode capable fonts, the quotes will simply not show, but the text will still read correctly, which will be okay.

Jkenny 11:05, 26 June 2007 (PDT)

  • Further notes: even the unicode curly quotes don't look good when italicized. So there's no choice, I have to jump out of italics for the single quotes.
  • Version 4 now uses unicode curly quotes which are upright next to the italic words.

Lily3 cleared, files uploaded styg 17:01, 30 June 2007 (PDT)


Project History

    • Lily1 - done by ebykm 13:12, June 3 2007.
- (lyrics added)
    • Lily2 - done by Jkenny 09:45, 3 June 2007 (PDT)
    • Lily3 - comments added QMacrocarpa 15:50, 6 June 2007 (PDT)
- fixed. Jkenny 20:23, 11 June 2007 (PDT)
- Added question styg 12:57, 25 June 2007 (PDT)
- responded - new version, we try unicode? Jkenny 20:50, 25 June 2007 (PDT)
- Lily3 cleared, files uploaded styg 17:01, 30 June 2007 (PDT)


Notes for PPer

  • Word "Coln" appears to have a v-shaped accent above it, like a carron or breve. Elsewhere in the book an umlaut is used. Sought German team's advice and they thought it should be an umlaut, so corrected.
  • 1st system, 1st complete measure after double-bar: alto note had a dot underneath in the scan as well as high-res image. However this dot is not present in another hardcopy of the 1906 edition which we consulted, and it wasn't in the 1933 edition which we consulted. So we omitted it.