The English Hymnal - Wiki Music Experiment/091

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.

Midi file here: midi file

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

%%%091.png
%%%38 St. Venantius (L. M.) "Why, impious Herod, shouldst thou fear"
%%%Version 5 091png-H38-v5.ly


\version "2.10"

\header {
  dedication = \markup { \center-align { "THE CHRISTIAN YEAR - CHRISTMAS"
		\hspace #0.1 }}	
  title = \markup { \line { \center-align {"38"} \large \smallCaps {"(Modern Tune)"}}}
  poet = \markup { \column { \line { \sans \small {"ST. VENANTIUS."} \hspace #1 \roman \small {"(L. M.)"}} }}
  meter = \markup { \small { \italic {"In moderate time"} \fontsize #-5 \general-align #Y #DOWN \note #"4" #1 = 144. } }
  arranger = \markup { \italic \small {"Rouen Church Melody."}  }
  piece = \markup { \italic \small {"    To be sung in unison."} }
  tagline =""
}  %% close header


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

nbbar = { \bar "|" \noBreak } %%macro to generate a nobreak bar

soprano = \relative c' {  
  \partial 4 f4 \nbbar a( c) bes \nbbar a( g) a \nbbar f2 g4 \nbbar a2 \bar "||" \noBreak c4 \nbbar d( c) bes \bar "|" \break
  a( bes) c \nbbar c( bes) a \nbbar g2 \bar "||" \noBreak g4 \nbbar bes( a) g \nbbar f( d) e \bar "|" \break
  f( e4.) d8 \nbbar c2 \bar "||" \noBreak g'4 \nbbar a( f) bes \nbbar a( g) <f a,>4 \nbbar e2 f4 \nbbar f2 \bar "||"
}

alto = \relative c' {
  \partial 4 c4 \nbbar f2( <f d >4) \nbbar <f c >4 ~ <e c >2 \nbbar <d a >2 <e c >4 \nbbar <f c >2 \bar "||" \noBreak <a f >4 \nbbar <bes f >4  <g e >4 ~ <g d >4 \bar "|" \break
  <f d >2 <g e >4 \nbbar <f c >4 <f d >2 \nbbar <d bes >2 \bar "||" \noBreak <e c >4 \nbbar 
      \once\override Tie  #'control-points = #'(( 1.6 . -2.8 )( 4 . -4 ) ( 9 . -4 )(11.6 . -2.8 ))
      <f d >2 ~ 
      \once\override Tie  #'control-points = #'(( 1.8 . -2.8 ) ( 3.6 . -4 ) ( 6 . -4 ) (8 . -2.8 ))
      <d bes >4 ~ \nbbar <d a >4 s2 \bar "|" \break
  s2. \nbbar s2 \bar "||" \noBreak \override TieColumn #'tie-configuration = #'((-3.0 . 1) (-6.5 . -1)) <e c >4 ~ \nbbar <e c >4 d2 \nbbar <f c >4 d s4 \nbbar \tieUp c2 ~ <c a >4 \nbbar <c a >2 \bar "||"
}

tenor = \relative c { \clef bass
  \partial 4 a'4 \nbbar c( a) s \nbbar s c, a \nbbar s2 c4 \nbbar s2 \bar "||" \noBreak s4 \nbbar bes c s \bar "|" \break
  s2 c4 \nbbar a bes s \nbbar s2 \bar "||" \noBreak c4 \nbbar bes s2 \nbbar s4 <f' a >4  <g c~ >4 \bar "|" \break
  <c a >4 <c g >4. \tieDown <b g~ >8 \nbbar <g e >2 \bar "||" \noBreak c,4 \nbbar s4 f g \nbbar s4 \override Accidental #'transparent = ##t bes f \nbbar g2 f,4 \nbbar f2 \bar "||"
}

bass = \relative c { \clef bass
  \partial 4 f4 \nbbar f2 bes,4 \nbbar f' s2 \nbbar d s4 \nbbar f2 \bar "||" \noBreak f4 \nbbar s2 g4 \bar "|" \break
  d2 s4 \nbbar s2 d4 \nbbar 
      <<  { \voiceTwo g2 } 
    \new Voice = "pedals" {\once \override NoteColumn #'force-hshift = #0.1 \voiceFour \set fontSize = #-3 g,2  }  >>
  \bar "||" \noBreak s4 \nbbar s d' g \nbbar d2 c4 \bar "|" \break
  f, c'4. g8 \nbbar c2 \bar "||" \noBreak s4 \nbbar a d g, \nbbar a bes d \nbbar c2 s4 \nbbar s2 \bar "||"
}

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

\paper {  
  #(set-paper-size "a4")
  top-margin = 3\mm
  bottom-margin = 5\mm
  page-top-space = 1\mm
  print-page-number = ##f
  next-padding = 2.5\mm
  after-title-space = 1\mm
  between-system-padding = #0.1
  between-system-space = #0.1
  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

\markup { \hspace #4   %%add space as necc. to center the column
          \column { %% super column of everything
	    \hspace #0.2
	  \line { \small { \smallCaps {"Office Hymn.   E."} \italic {"and"} \smallCaps {" M."} \hspace #43 \italic {"C. Sedulius, c. 450.  Tr. P. D."}} }
	  \line { \hspace #42 \small {"Hostis Herodes impie."} }
	    \line { %% a master line of 3 columns
              \column { %% column 1
		\hspace #0.2
          \column {
		  \line { \hspace #2.2 \column { \lower #2.4 \fontsize #8 "W" }   %%Drop Cap goes here
			 \hspace #-1.2    %% adjust this if other letters are too far from Drop Cap
			\column  { \raise #0.0 "HY, impious Herod, shouldst thou fear" "Because the Christ is come so near?"  } }          
	          \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 {   
				"He who doth heavenly kingdoms grant" 
				"Thine earthly realm can never want." 
			  		}}
	           } %% finish stanza 1
		  
		   \hspace #0.2 % adds vertical spacing between verses
		   \line { "2  "
		       \column {	     
			       "Lo, sages from the East are gone" 
			       "To where the star hath newly shone:" 
			       "Led on by light to Light they press," 
			       "And by their gifts their God confess."
		   }}
		       }  %% finish Page column 1
		
	\hspace #4 %%adds horizontal space columns 1 and 2   
			   
	\column { \filled-box #'(0.0 . 0.1) #'( -25 . -1) #0 }       %%Column 2. This is the line dividing the columns 1 and 3. 
			   	   
	\hspace #4 %%adds horizontal space between columns 2 and 3
	   
	\column { %%start page column 3	
		\hspace #0.2	
		\line { "3  "
		    \column {	     
				"The Lamb of God is manifest" 
				"Again in Jordan's water blest," 
				"And he who sin had never known" 
				"By washing hath our sins undone."  	   
	   }} 
	   	\hspace #0.2 % adds vertical spacing between verses
		\line { "4  "
		    \column {    
				"Yet he that ruleth everything" 
				"Can change the nature of the spring," 
				"And gives at Cana this for sign—" 
				"The water reddens into wine." 
 	   }}  

	  } %% end column 3
	  } %% master line bracket
	  
	  \hspace #0.2
	  \line { \hspace #27 "5. "
             \column {    
		     "Then glory, Lord, to thee we pay" 
		     "For thine Epiphany to-day;" 
		     "All glory through eternity" 
		     "To Father, Son, and Spirit be.  Amen." 
 	   }} %% end last stanza
          } %% page super column bracket
} %%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' {        
	                           \overrideProperty #"Score.NonMusicalPaperColumn"
                                                #'line-break-system-details #'((Y-offset . 135)
                                                        (alignment-offsets . (0 -5.4 -11.6)))
                                                  \global \time 5/1 \voiceOne  f1( g1 f1 e1) f1 \bar "||" }}
	\context Voice = "altos" { \relative c' {   \global \time 5/1 \voiceTwo <d a >1 <d bes >1 <c a >1 <c g >1 <c a >1 \bar "||" }}
	 		>>
			 
	\context Lyrics \lyricsto "altos" {  \override LyricText #'font-size = #-1 A1 -1 -1 -1 men.1 }
	
	\context Staff = lower \with { fontSize = #-3  \override StaffSymbol #'staff-space = #(magstep -2) } 
	                 <<
	\context Voice = "basses" { \relative c {  \global \clef bass \time 5/1 \voiceFour d1 g,1 a1 c1 f,1 \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 144 4) }}  %%Amen midi 

} 	
	

} %% 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 from Lily2 stygiania 09:26, 16 May 2007 (PDT)

  • Please compare the Amen block word spacing with that of Hymn 18 (Modern). Both will be done the same in the end, but I'd like to know which is preferred or if I should try something else.
  • Verse 1, line 1 is wrapped in the original, but unwrapped here and line two indented around drop cap instead to be consistent with other hymns.

Comments by QMacrocarpa 19:14, 16 May 2007 (PDT)

  • 2nd system, last 2 bars in upper staff: I think those ties are between the D's, but they seem to be roping in the B somehow. If not too much hassle to tweak, would be nice.
  • Any chance of fitting words onto same page with music? I think Amen block was moved up adjacent to final verse in some other piece to make that work. As is, seems like much whitespace both pages, but if it won't fit, it won't.
  • I don't have a strong preference about "A-men" spacer. I guess the multi-dash version is more like the stretched out original here. Whatever gets decided should go into the Lilypond code snippets or somewhere, because I'm sure this will come up again.
  • Didn't spot anything else!

Reply from stygiania 20:50, 16 May 2007 (PDT)

  • Woo-hoo! Jack found a tweak for the droopy tie!
  • Squeezed words/Amen up to page 1. Spacing in header suffers a bit though.
  • No big secret in the Amen spacer. Just treated a single hyphen as an ordinary syllable (i.e., followed it with a note value such as -1). Tried en-dash character but that looked too long.

Loaded v4 code stygiania 10:33, 18 May 2007 (PDT)

  • Removed \small from lyrics attribution line.

QMacrocarpa 14:03, 18 May 2007 (PDT)

  • Hmm, font-sizes. Crud. I just saw jkenny's relevant font-size notes on 057.png, but it sure looks to me like the H's of "Hymn" and "Hostis" are the same size. I put a ruler on the screen and everything. Maybe there are some pieces where a font size difference between those lines is clear? I wouldn't mind having some font-size consistency in the Lily code that doesn't exist in the original, but on the pngs I just leafed through it looked to me like the lyrics headers (attribution line, Latin, and <sc>Office Hymn...</sc>) were consistently a smaller font-size than the lyrics themselves. If the book isn't consistent with itself, then I think we can make a choice about how to standardize, but if the book is consistent with itself, shouldn't we stick with its font-size conventions? Can someone point me at a png where the Latin is smaller than the lyrics attribution line? Edit: I'd also be ok with not using \small at all in the lyrics headers, to match the non-\small-ness of the composer's line above the music. ...But after looking at a couple of pieces, it seems like maybe we haven't been consistent about that either?...
  • Otherwise, looks ready to clear (as soon as we get out of this can of font-size worms!) :)

stygiania 21:45, 21 May 2007 (PDT)

  • v5 code -- hopefully all font size issued fixed.

QMacrocarpa 10:23, 22 May 2007 (PDT)

  • Cleared!


Project History

    • Lily1 - done by stygiania 08:14, 15 May 2007 (PDT) (SATB midi--parts chosen based on stem direction)
    • Lily2 - done by stygiania 09:30, 16 May 2007 (PDT)
    • Lily3 - comments added by QMacrocarpa
- v2 code loaded stygiania 20:51, 16 May 2007 (PDT)
- v3 code loaded stygiania 15:16, 17 May 2007 (PDT)
- v4 code loaded stygiania 15:16, 17 May 2007 (PDT)
- In which Q frets about font sizes.
-- v5 code loaded stygiania 21:46, 21 May 2007 (PDT) Lily3, please
- Cleared and files uploaded --QMacrocarpa