The English Hymnal - Wiki Music Experiment/381

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 to the 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.



Lily2 Code

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


%%%381.png

%%%Hymn 242 (Mod). COELITES PLAUDANT. (11 11. 11 5.) "Christ, the fair glory of the holy Angels" 
%%%Rev 1



\version "2.10.23"



\header {



  dedication = \markup { \center-align { "ST. MICHAEL AND ALL ANGELS"

                 	\hspace #0.1 }}	



  title = \markup { "242" \large \smallCaps "(Modern Tune)" }
  poet = \markup { \small {  \line { \sans {"COELITES PLAUDANT."} \hspace #1 \roman {"(11 11. 11 5.)"}} }}

  meter = \markup { \small { \italic {In moderate time} \fontsize #-5 \general-align #Y #DOWN \note #"4" #1 = 96.} }

  arranger = \markup { \small \italic "Rouen Church Melody" }

  tagline =""



}



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


movenote = \once \override NoteColumn #'force-hshift = #'0.1

%% Macro to shorten stems of a group of notes, only the stems of notes used inside the paranthesis are reduced, afterwards the stem length is reverted to the default automatically.
%% Usage \smallstem { c4 d e4. f8 g }

smallstem = #(define-music-function (parser location music) (ly:music?)
	#{
		 \override Stem #'length = #5
	$music
	\revert Stem #'length

	#})

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


%%%%%%%%%%%%%%%%%%%%%%%%%%%%% End of macro definitions



%%% SATB voices



global = {



\time 4/4

\key c \major

\set Staff.midiInstrument = "church organ"

}



soprano = \relative c' {  c'2^\markup { \small \italic "To be sung in unison." } g4 a g4. (f8) e2 a4. b8 g4 c c4(b) c2 \bar "||" c2 d4 d \bar "|" \break
e4(c) a2 d4. a8 b4 c b4(a) g2 \bar "||" e2 f4 g f4(e) d2 \bar "|" \break
a'4. b8 c4 a d4(c) b2 \bar "||" g4. (f8) e4 f e2(d) c1 \bar "||" }



alto = \relative c' { e2 c4 <c f> <b d>2 c c4. b8 c4 c g'2 e \bar "||" e2 g4 g \bar "|" \break
g4 <e a> <d fis>2 << { g4. fis8} \new Voice = "alt" { \voiceFour \movenote d2 } >> <d g>4 <c e> << { g'4 fis } \new Voice = "alt" { \voiceFour \movenote d2 } >> <b d>2 \bar "||" c2. b4 a4 cis d2 \bar "|" \break
c4. d8 c4 c f4 e e2 \bar "||" b2 c4 a c2 b g1 \bar "||" }



tenor = \relative c { \clef bass g'2 g4 f s1 a4. f8 g4 a d2 c \bar "||" c2 b4 b \bar "|" \break
c4 s4 s2 s1 s1 \bar "||" g2 f4 d f4 a f2 \bar "|" \break
 f4. f8 g4 a a4 a g2 \bar "||" g2 c4 f, g2 g e1 \bar "||" }



bass = \relative c {\clef bass \smallstem { c2 e4 f }  g,2 a \smallstem { f'4. d8 e4 f g2 c, \bar "||" a'2 g4 g } \bar "|" \break
c,4 a d2 b4. d8 g,4 a b4 d g,2 \bar "||" c2 a4 g d'4 a d2 \bar "|" \break  \augdots f4. d8 e4 f d4 a' e2 \bar "||" \smallstem { g2 a4 d, e4 f g2 }<c, c,>1 \bar "||"   }

bassAlt = \relative c {
\set fontSize = #-3
\override Stem #'length = #4
\override NoteColumn #'force-hshift = #0.1

\clef bass c,2 e4 f s1 f4. d8 e4 f g2 s2 \bar "||" a2 g4 g \bar "|" \break
s1 s1 s1 s1 s1 \bar "|" \break
s1 s1 \bar "||" g2 a4 d, e4 f g2 s1 \bar "||"   }



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



%%% score block	

	

\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 }
	\context Voice = bassAlt { \voiceFour \global \bassAlt }

			        >> 

>>



\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 96 4) }}%%% Hymn midi  



} %%% score 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  c2( d c b) c1 \bar "||" }}

	\context Voice = "altos"    { \relative c' { \clef treble \global \voiceTwo \override NoteColumn #'force-hshift = #0.4 a1 g1 \revert NoteColumn #'force-hshift g1 \bar "||" }}

	                      >>



	\context Lyrics \lyricsto "sopranos" { \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  e2 f e d e1 \bar "||" }}

	\context Voice = "basses" { \relative c { \clef bass \global \voiceFour   a2 d,(e g c,1) \bar "||" }}

                             >> 

>>			      



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



\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 96 4) }}  %%Amen midi 

}%%Amen score





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. After errors are corrected, the piece is declared "Cleared" and uploaded to the repository.

If you can't compile Lilypond, use the links here:

Original scan:

Links to L2 output version 1: