The English Hymnal - Wiki Music Experiment/053

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, 053.png
%%% Lily1 Code skipped

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

%%%053.png
%%%Hymn 16 NEWBURY "The Maker of the sun and moon"
%%%version 3

\version "2.10"

\header {
dedication = \markup { \center-align { "THE CHRISTIAN YEAR - CHRISTMAS EVE" \hspace #0.1 }}
title = "16"
poet = \markup { \sans \small {"NEWBURY."} \hspace #1 \roman \small {"(C. M.)"} }
meter = \markup { \small { \italic {In moderate time} \fontsize #-5 \general-align #Y #DOWN \note #"4" #1 = 92.} }
arranger =  \markup { \italic \small {English Traditional Melody.}}
tagline =""
}

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

%% Macro for generating two augmentation dots for a notehead. 
%% When dotted notes from two vocal parts share a single notehead, 
%% Lilypond only inserts a single dot. In the image, two dots are used. 
%% This macro generates the two dots by replacing the normal dot glyph 
%% with a new glyph comprising a column of 2 dots one above the other.

augdots = { 
  \once \override Voice.Dots #'stencil = #ly:text-interface::print 
  \once \override Voice.Dots #'text = \markup {  \hspace #0 \raise #1 
                                                 \line { \translate #(cons -0.2 0) 
                                                 \override #'(baseline-skip . 1 )  
                                                    \column { 
                                                      \musicglyph #"dots.dot" 
                                                      \musicglyph #"dots.dot" } } }
 }

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

%%end of macro definition




singleBar = { \bar "|" }
doubleBar = { \bar "||" }

soprano = \relative c' { 
\cadenzaOn \partial 4 e8[ gis8] \singleBar b4 b4 a4 cis4 \singleBar b4 gis8[ fis8] e4 gis4 \singleBar fis4 fis8[ gis8] a4 gis8[ fis8] \singleBar gis2. \doubleBar \break
\partial 4 e8[ gis8] \bar "|" b4 b8[ cis8] a4 fis8[ gis8] \bar "|" a8[ gis8] a8[ cis8] b4 \breathmark e,8[ gis8] \bar "|" b4 

cis8[ b8] gis4 fis4 \bar "|" e2. \bar "||"  \break \cadenzaOff
}
alto = \relative c' { 
\partial 4 e4 \bar "|" e4 e4 e4 e4 \bar "|" e4 dis4 cis4 e4 \bar "|" e4 e4 e4 dis4 \bar "|" e2. \bar "||" \break
\partial 4 e4 \bar "|" e4 e4 e4 e4 \bar "|" e4 dis4 e4 e4 \bar "|" e4 e4 e4 dis4 \bar "|" \augdots e2. \bar "||"  \break
}
tenor = \relative c { 
\partial 4 e4 \bar "|" gis4 gis4 a4 a4 \bar "|" b4 b8[ a8] gis4 gis4 \bar "|" cis4 cis4 cis4 b4 \bar "|" b2. \bar "||" \break
\partial 4 gis4 \bar "|" gis4 b4 cis4 cis8[ b8] \bar "|" a4 a4 gis4 gis4 \bar "|" e4 e4 b'4 b8[ a8] \bar "|" gis2. \bar "||" \break 
}
bass = \relative c { 
\partial 4 e4 \bar "|" e4 e4 cis4 a4 \bar "|" gis4 b4 cis4 cis4 \bar "|" a4 a'8[ gis8] fis4 b,4 \bar "|" e2. \bar "||" \break
\partial 4 e4 \bar "|" e4 gis4 fis4 a8[ gis8] \bar "|" fis4 fis4 gis4 cis,4 \bar "|" gis4 a8[ gis8] b4 b4 \bar "|"e2. \bar "||" \break
}

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

\paper {
 #(set-paper-size "a4")
 between-system-padding = 2\mm
 before-title-space = 0\mm
 after-title-space = 1.5\mm
 top-margin = 3\mm
 bottom-margin = 5\mm
 print-page-number = ##f
 between-system-space = #0
 ragged-last-bottom = ##t
 ragged-bottom = ##t
}

\score {
<< 
\new ChoirStaff <<
\new Staff = women <<
\new Voice =
"sopranos" { \voiceOne << \global \soprano >> }
\new Voice =
"altos" { \voiceTwo << \global \alto >> }
                   >>
\new Staff = men <<
\clef bass
\new Voice =
"tenors" { \voiceOne <<\global \tenor >> }
\new Voice =
"basses" { \voiceTwo <<\global \bass >> }
                 >>
               >>
>>

\layout { indent=0
\context { \Score
           \remove "Bar_number_engraver" }
\context { \Staff
           \override TimeSignature #'transparent = ##t }
\context { \Score \remove "Mark_engraver" }
\context { \Staff \consists "Mark_engraver" }
}

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

\markup {   \hspace #10  %% use \hspace or \halign to centre the 3-column group
  \line { %% Master Line - of 3 page columns 
    \column { %%start page column 1
			    
    \line { \italic \small "Suitable till Candlemas." }
			    
    \column { %% stanza 1 is a column of 2 lines. Redundant if only 1 stanza
      \line { \column { \lower #2.4 \fontsize #8 "T" }   %%Drop Cap goes here
              \hspace #-1    %% adjust this if other letters are too far from Drop Cap
              \column  { \raise #0.0 "HE Maker of the sun and moon," "The Maker of our earth," } }          
			       
      \line {  \hspace #-0.6  %%adjust hspace until this line left edge is flush with Drop Cap
               \lower  #1.56  %%adjust this until the line spacing looks right
	       \column {   
		  "Lo! late in time, a fairer boon,"
		  "    Himself is brought to birth!" }	}
			       
             } %% finish stanza 1 column
	} %%finish page column 1
		           
      \hspace #2 %%adds horizontal space columns 1 and 2   
			   
      \column { \filled-box #'(0.0 . 0.1) #'( -12.2 . -1.8) #0 }    %%Column 2. This is the line
			   
      \hspace #2 %%adds horizontal space between columns 2 and 3
			   
      \column { %%start column 3
      
      \line { \hspace #23 \italic \small "Laurence Housman." } 
	
       \line {  "2  "
               \column { "How blest was all creation then,"
                         "    When God so gave increase;"
                         "And Christ, to heal the hearts of men,"
                         "    Brought righteousness and peace!" }
				 }
	} %% end column 3 
    } % end master line			
} %% end markup			

 
\markup {
          \halign #-2.3
          \column {
          \hspace #0.5
          \line { "3  " \column { "No star in all the heights of heaven"
                                 "    But burned to see him go;"
                                 "Yet unto earth alone was given"
                                 "    His human form to know." }
                               }
         \hspace #0.5
         \line { "4  " \column { "His human form, by man denied,"
                                "    Took death for human sin:"
	                        "His endless love, through faith descried,"
                                "    Still lives the world to win." }
                              }
         \hspace #0.5
         \line { "5. " \column { "O perfect Love, outpassing sight,"
                                "    O Light beyond our ken,"
                                "Come down through all the world to-night,"
                                "    And heal the hearts of men!" }
               }
             }
        }

%% 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.8 -9.6)))
                                                    \global \time 2/1 \voiceOne  e1 e1 \bar "||" }}
	\context Voice = "altos" { \relative c' {   \global \time 2/1 \voiceTwo cis1 b1 \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 \time 2/1 \voiceThree a'1 gis1 \bar "||" }}
	\context Voice = "basses" { \relative c {  \global \clef bass \time 2/1 \voiceFour a1 e'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 92 4) }
      }
}

Lily3

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

Stygiania's notes:

  • jkenny is using the full header on pages (THE CHRISTIAN YEAR - CHRISTMAS EVE) which I think may be more useful for the finished project.
  • Not certain the melody name (NEWBURY. (C. M.)) should be bold.
  • Add period after quarter note = 92. (Don't think I can enter the symbol on the wiki.)
  • Fix beaming of eighth notes: m3 soprano; m5 soprano, tenor, bass; m6 soprano; and m7 tenor.
  • In the original there is a dot for both the soprano and alto parts on the final note even though they share the E. Is that needed?
  • I really like the drop cap for the first verse and the removal of the vertical line between staves to match the original. How hard was that to accomplish?

jkenny's notes:

  • I pasted in a new markup block of code for the drop cap, resolving the spacing problems ( I hope)
  • Other changes I recommend (but not done yet):
    • for "meter", the size of the crochet 1/4 note symbol, I suggest fontsize #-5 rather than fontsize #0, as the stem of the note is too long right now. In the image, it is actually quite small, the height of the other letters.
    • System start delimiter -- after all the discussion, I think Daniemers (PPer) preferred adopting the "modern" style, meaning leave the delimiter in.
    • Stanza numbers - The last number has a dot after it. The rest don't. So I recommend 2 spaces after numbers without dots, 1 space after those that do i.e. "2 ", "3 ", "4 ", "5. "

camilla's notes:

Thanks both for really useful input. All done. Fab drop cap BTW!

Comments stygiania 21:02, 21 May 2007 (PDT)

  • I modified your code a bit to add standard comment lines at the beginning, [standardize the font sizes], remove the tagline from the bottom of the page, turn off point-and-click, add \paper block, and change to the new Amen block code. We're trying to standardize a lot of these things across the hymnal. Please take a look and see if it all looks ok.
    • Looks great - thanks for doing this! camilla

QMacrocarpa 11:12, 22 May 2007 (PDT)

  • I think it's ready to clear!

QMacrocarpa 13:11, 23 May 2007 (PDT)

  • Cleared!

Record of Work

    • Lily1 - done by stygiania (midi - Cakewalk)
    • Lily2 - done by camilla
    • Lily3 - notes added by stygiania.
-- added code to fix drop caps. Also notes on other suggestions. Please see. Jkenny 08:09, 8 May 2007 (PDT)
-- All done now - thanks for input! camilla
--added some more code to standardize to newly-adopted guidelines for project. Please check. stygiania 21:02, 21 May 2007 (PDT)
- positive comments from C and Q.
- I think ready to clear. I've got some code in there, Styg has some code in there, so Q it will have to be you :) Ready to clear? Lily3 cleared, files uploaded. --Q