The English Hymnal - Wiki Music Experiment/084

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.

X:1
M:none
L:1/4
Q:1/2=69
T:WOHLAUF, THUT NICHT VERZAGEN. (76. 76. D.)
C:B. HELDER, 1585-1635.
V:1
V:2
V:3 bass
V:4 bass
K:G
V:1
|:G2|B3BA2G2|c4 B2||d2e3dc2A2|B6:||d2|d2c2B2A2|(B2AG)A2||F2|G2A2B2^c2|d6||A2|B2A2G2F2|(E2DC)D2||D2|E2G2G2F2|G6||
V:2
|:D2|G2G2F2E2|G4G2||G2|G2G2E2F2|G6:||G2|F2G2G2(EF)|(G2FE) F2||D2|D2F2G2G2|F6||F2|G2F2E2D2|(C2B,A,)B,2||D2|D2|(B,C)D2D2|D6||
V:3
|:B,2|D3DD2B,2|E4 D2|B,2C2B,2C2D2|D6:||B,2|A,2E2D2C2|D4D2||A,2G,2D2D2G,2|A,6||D2|D2D2B,2B,2|G,4G,2||G,2|G,2G,2A,2A,2|B,6||
V:4
|:G,2|G,2G,2D,2E,2|C,4 G,2||G,2C2G,2A,2D,2|G,6||G,2|D,2(E,F,)G,2A,2|G,4 D,2||C,2|B,,2D,2G,2E,2|D,6||D,2|G,2D,2E,2B,,2|C,4 G,,2||B,2|C,2 E,2 D,2 D,2|G,,6||

X:2
M:none
L:1/2
T:Amen
K:G
V:1
G2 G2|]
V:2
E2 D2|]
V:3
C2 B,2|]
V:4
C,2 G,,2|]
% Notes:
% I transposed (with abc2abc) two bottom voices to sit correctly on bass clef,
% and added MIDI transpose command to keep Tune-O-Tron sound file sounding right.
%
% Generally add line breaks in the ABC code where line-breaks in original fall.
%
% Double barlines not necessary after repeat sign.  Will be tweaked in Lily.
%
% I stuck in % symbols (ignored by converters) between voices just for readability.
%
% For this piece, I probably would have selected a default note length (L:) of 1/2,
% since that would save a lot of "2" typing.  If you have L:1/2, then in the few spots where 
% you need 1/4-notes, you could represent them as c/2 or just c/ --the way you 
% have done it is fine, just could be done with fewer keystrokes.
%
% For the Tune-O-Tron, I added meters (M:4/2).  It will display and play this
% successfully now-- try it! :) (but remember it only handles one ABC block at a time, so
% the amen has to be pasted in separately.) --QMacrocarpa

X:1
M:4/2
L:1/4
Q:1/2=69
T:WOHLAUF, THUT NICHT VERZAGEN. (76. 76. D.)
C:B. HELDER, 1585-1635.
K:G
V:1
|:G2|B3BA2G2|c4 B2||d2e3dc2A2|B6:|
d2|d2c2B2A2|(B2AG)A2||F2|G2A2B2^c2|d6||
A2|B2A2G2F2|(E2DC)D2||D2|E2G2G2F2|G6||
%
V:2
|:D2|G2G2F2E2|G4G2||G2|G2G2E2F2|G6:|
G2|F2G2G2(EF)|(G2FE) F2||D2|D2F2G2G2|F6||
F2|G2F2E2D2|(C2B,A,)B,2||D2|D2|(B,C)D2D2|D6||
%
V:3 clef=bass
%%MIDI transpose -24
|:b2|d'3d'd'2b2|e'4 d'2|b2c'2b2c'2d'2|d'6:|
b2|a2e'2d'2c'2|d'4d'2||a2g2d'2d'2g2|a6||
d'2|d'2d'2b2b2|g4g2||g2|g2g2a2a2|b6||
%
V:4 clef=bass
%%MIDI transpose -24
|:g2|g2g2d2e2|c4 g2||g2c'2g2a2d2|g6:|
g2|d2(ef)g2a2|g4 d2||c2|B2d2g2e2|d6||
d2|g2d2e2B2|c4 G2||b2|c2 e2 d2 d2|G6||

X:2
M:4/2
L:1/2
T:Amen
K:G
V:1
G2 G2|]
%
V:2
E2 D2|]
%
V:3 clef=bass
%%MIDI transpose -24
c'2 b2|]
%
V:4 clef=bass
%%MIDI transpose -24
c2 G2|]


Lyrics copied from P3 and perl-formatted--QMacrocarpa 05:36, 17 May 2007 (PDT):

"The Lord and King of all things"
"    But yesterday was born;"
"And Stephen's glorious offering"
"    His birth-tide shall adorn:"
"No pearls of orient splendour,"
"    No jewels can he show;"
"But with his own true heart's blood"
"    His shining vestments glow."
""
"Come, ye that love the Martyrs,"
"    And pluck the flowers of song,"
"And weave them in a garland"
"    For this our suppliant throng;"
"And cry, 'O thou that shinest"
"    In grace's brightest ray,"
"Christ's valiant Protomartyr,"
"    For peace and favour pray!'"
""
"Thou first of all confessors,"
"    Of all the deacons crown,"
"Of every following athlete"
"    The glory and renown:"
"Make supplication, standing"
"    Before Christ's royal throne,"
"That he would give the kingdom,"
"    And for our sins atone!"

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

%%% 084.png
%%% Hymn 32 WOHLAUF The Lord and King of all things
%%% Version 3


\version "2.10.19"

\header {
  dedication = \markup { \center-align { "THE CHRISTIAN YEAR - CHRISTMAS"
		\hspace #0.1 }}	
  title = "32"
 
  poet = \markup { \small { \sans "WOHLAUF, THUT NICHT VERZAGEN." \hspace #1 \roman  "(7 6. 7 6. D.)" } }
 
  meter =  \markup { \small { \italic "In moderate time" \fontsize #-5 \general-align #Y #DOWN \note #"2" #1 = 69.} }
 
  arranger = \markup { \small \smallCaps "B. Helder, 1585-1635."}
 
  tagline =""
}

%%%%%%%%%%%%%%%%%%%%%%%% macros

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

%%% prints a repeat sign glyph comprising 4 dots and two thin bars
fdendrepeat = {\once \override Staff.BarLine #'stencil = #ly:text-interface::print 
	\once \override Staff.BarLine #'text = \markup  {  \line { \raise #1.4 \override #'(baseline-skip . 1.0)  \column { \with-color #black {  \fontsize #2 . \fontsize #2 . \fontsize #2 . \fontsize #2 .} }
	                                                  \hspace #-1 \filled-box #'(0 . 0.15) #'(-2 . 2) #0
							  \hspace #-0.9 \filled-box #'(0 . 0.15) #'(-2 . 2) #0
	
	} }	
        \bar "||"} 

%% %prints a repeat sign glyph comprising 4 dots. Used only to begin a repeat at the start of a piece where \bar ":" does not work	
fdstartrepeat =  {\once \override Staff.BarLine #'stencil = #ly:text-interface::print 
	          \once \override Staff.BarLine #'text = \markup  { \line { \hspace #0 \override #'(baseline-skip . 1.0) 
	                                                 \raise #1.4 \column { \with-color #black { 
							                \fontsize #2 . \fontsize #2 . \fontsize #2 . \fontsize #2 .} }
	          } }	
                 \bar "|:"}
	
%%%%%%%%%%%%%%%%%%%%%%%%%% end of macro definitions

%%% SATB voices

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

soprano = \relative c' {
  \fdstartrepeat \partial 2 g'2 | b2. b4 a2 g2 | c1 b2 \breathmark \bar "||" 
      d2 e2. d4 c2 a2 | b1. \breathmark \fdendrepeat  \break
  d2 | d2 c2 b2 a2 | b2 ( a4 g4 ) a2 \bar "||" 
      fis2 | g2 a2 b2 cis2 | d1. \breathmark \bar "||" \break
  a2 | b2 a2 g2 fis2 | e2 ( d4 c4 ) d2 \breathmark \bar "||" 
      d2 | e2 g2 g2 fis2 | g1. \bar "||" 
}

alto = \relative c' {
  d2 | g2 g2 fis2 e2 | g1 g2 \breathmark \bar "||" 
      g2 | g2 g2 e2 fis2 | g1. 
  g2 | fis2 g2 g2 e4 ( fis4 ) | g2 ( fis4 e4 ) fis2 \breathmark \bar "||" 
      d2 | d2 fis2 g2 g2 | fis1. \bar "||" 
  fis2 | g2 fis2 e2 d2 | c2 ( b4 a4 ) b2 \bar "||" 
      d2 | d2  b4 ( c4 ) d2 d2 | d1. \bar "||"
}

tenor = \relative c { \clef bass
  \fdstartrepeat b'2 | d2. d4 d2 b2 | e1 d2 \bar "||" 
      b2 c2 b2 c2 d2 | d1. \fdendrepeat
  b2 | a2 e'2 d2 c2 | d1 d2 \bar "||" 
      a2 g2 d'2 d2 g,2 | a1. \bar "||" 
  d2 | d2 d2 b2 b2 | g1 g2 \bar "||" 
      g2 | g2 g2 a2 a2 | b1. \bar "||"
}

bass = \relative c { \clef bass
  \repeat volta 2 { g'2 | g2 g2 d2 e2 | c1 g'2 \bar "||" 
      g2 | c2 g2 a2 d,2 | g1. } 
  g2 | d2 e4 ( fis4 ) g2 a2 | g1 d2 \bar "||" 
      c2 | b2 d2 g2 e2 | d1. \bar "||" 
  d2 | g2 d2 e2 b2 | c1 g2 \bar "||" 
      b2 | c2 e2 d2 d2 | g,1. \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 timing = ##f }
		\context { \Score \remove "Bar_number_engraver" }
		\context { \Staff \remove "Time_signature_engraver" }
		\context { \Score \remove "Mark_engraver" }
		\context { \Staff \consists "Mark_engraver" }
	}
	
} %%score bracket

%%% A separate score block to unfold the repeats and generate the midi

\score { 
\new ChoirStaff 
<<

\new Staff = "soprano" {\relative c' {\clef treble \global  \set Staff.midiInstrument = "church organ"
  \unfoldRepeats  {   \repeat volta 2 { \partial 2 g'2 | b2. b4 a2 g2 | c1 b2 \bar "||" 
      d2 e2. d4 c2 a2 | b1. }  }\break
  d2 | d2 c2 b2 a2 | b2 ( a4 g4 ) a2 \bar "||" 
      fis2 | g2 a2 b2 cis2 | d1. \bar "||" \break
  a2 | b2 a2 g2 fis2 | e2 ( d4 c4 ) d2 \bar "||" 
      d2 | e2 g2 g2 fis2 | g1. \bar "||" 
}
}

\new Staff = "alto" {\relative c' {\clef treble \global  \set Staff.midiInstrument = "church organ"
  \unfoldRepeats {   \repeat volta 2 { d2 | g2 g2 fis2 e2 | g1 g2 \bar "||" 
      g2 | g2 g2 e2 fis2 | g1. } }
  g2 | fis2 g2 g2 e4 ( fis4 ) | g2 ( fis4 e4 ) fis2 \bar "||" 
      d2 | d2 fis2 g2 g2 | fis1. \bar "||" 
  fis2 | g2 fis2 e2 d2 | c2 ( b4 a4 ) b2 \bar "||" 
      d2 | d2  b4 ( c4 ) d2 d2 | d1. \bar "||"
}	
}

\new Staff = "tenor" { \relative c {\clef bass \global  \set Staff.midiInstrument = "church organ"
  \unfoldRepeats {   \repeat volta 2 { b'2 | d2. d4 d2 b2 | e1 d2 \bar "||" 
      b2 c2 b2 c2 d2 | d1. } }
  b2 | a2 e'2 d2 c2 | d1 d2 \bar "||" 
      a2 g2 d'2 d2 g,2 | a1. \bar "||" 
  d2 | d2 d2 b2 b2 | g1 g2 \bar "||" 
      g2 | g2 g2 a2 a2 | b1. \bar "||"
} 
}

\new Staff = "bass" { \relative c { \clef bass \global  \set Staff.midiInstrument = "church organ"
  \unfoldRepeats {   \repeat volta 2 { g'2 | g2 g2 d2 e2 | c1 g'2 \bar "||" 
      g2 | c2 g2 a2 d,2 | g1. } }
  g2 | d2 e4 ( fis4 ) g2 a2 | g1 d2 \bar "||" 
      c2 | b2 d2 g2 e2 | d1. \bar "||" 
  d2 | g2 d2 e2 b2 | c1 g2 \bar "||" 
      b2 | c2 e2 d2 d2 | g,1. \bar "||" 
}
}

>>

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

%%% lyric titles and attributions

\markup { \hspace #60 \small \italic "Anatolius, c. 800.  Tr. J. M. Neale."} 

\markup { \hspace #40 \small {Τῷ Βασιλεῖ καὶ Δεσπότῃ. [Tô Basilei kai Despotê.] }}

%%% Lyrics

\markup { \hspace #30 %%add space as necc. to center the column
          \column { %% super column of everything
	              \column { %%stanza 1 is a column of 2 lines  
	                  \line { \hspace #2.2 \column { \lower #2.4 \fontsize #8 "T" }   %%Drop Cap goes here
				  \hspace #-1.0    %% adjust this if other letters are too far from Drop Cap
				  \column  { \raise #0.0 "HE Lord and King of all things"
			                               "  But yesterday was born;" } }          
	                  \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 {   
				"And Stephen's glorious offering"
				"    His birth-tide shall adorn:"
				"No pearls of orient splendour,"
				"    No jewels can he show;"
				"But with his own true heart's blood"
				"    His shining vestments glow."
			  		}}
		      } %%% end verse 1			
	  } %%% end supercolumn
} %%% end markup	  
  
%%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
}}}

%%% Second page
%%% continuation of  lyrics

\markup { \hspace #30   %%add space as necc. to center the column  
		\column { 
			\hspace #1  % adds vertical spacing between verses  
           		\line { "2  "
			   \column {	     
			 "Come, ye that love the Martyrs,"
			 "    And pluck the flowers of song,"
			 "And weave them in a garland"
			 "    For this our suppliant throng;"
			 "And cry, 'O thou that shinest"
			 "    In grace's brightest ray,"
			 "Christ's valiant Protomartyr,"
			 "    For peace and favour pray!'" 
			}}
			\hspace #1  % adds vertical spacing between verses  
           		\line { "3. "
			   \column {	     
			     "Thou first of all confessors,"
			     "    Of all the deacons crown,"
			     "Of every following athlete"
			     "    The glory and renown:"
			     "Make supplication, standing"
			     "    Before Christ's royal throne,"
			     "That he would give the kingdom,"
			     "    And for our sins atone!"
			}}
	  }
} %%% 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 }

       }

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


} %% 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 by L2 Jkenny 07:37, 18 May 2007 (PDT)

  • Greek. Transliteration is copied from P3. Greek alphabets are a best fit - please check.

QMacrocarpa 15:26, 18 May 2007 (PDT)

  • The amen midi uses a different midi voice from the usual one in the main hymn.
  • I can't see all the Greek, so need second opinion. What I see appears to match image.
  • On the Greek transliteration, for some weird reason I can't see the "D" of "Despotê." I don't see anything funny about it in the Lily code, so I don't know why...
  • These darned font sizes are popping up everywhere now that I know to look for them... I think we should get that settled before clearing more pieces.
  • Looks very good!

stygiania 19:31, 19 May 2007 (PDT)

  • I can see the accents on the Greek but it is so small (both the pdf and the original scan) I decided to post in the Greek help thread. Hope to find a volunteer who will give us all the accented Greek bits in the hymnal so we can just copy/paste them as needed. (Off to make a list of pngs with Greek....)

Notes by Jkenny 06:27, 20 May 2007 (PDT)

  • fixed Greek, which was kindly contributed by TheEileen and acunning40. See forumpost: 325114
  • Adjusted font sizes to the Proposal 3 conventions.
  • Got the strange "D" problem in Despote too, but only on low magnifications. Seems better under Adobe than under Ghostview somehow. The strange thing is, when I put a D somewhere else, it seems ... better than the D is Despote.

Lily3 cleared, files uploaded. stygiania 17:19, 20 May 2007 (PDT)

Revision notes by Jkenny 05:41, 8 August 2007 (PDT)

  • Went into the code again to add more comments and rearrange code layout to conform with latest style. Music was untouched. Lyrics rearranged to simplify pagination.
  • This becomes version 3

Record of Work

    • Lily1 - ebykm added ABC code, my first step :-), still learning ABC & Lilypond :(
- You're doing great! See tweaked ABC version with notes for additional tips.--QMacrocarpa
- QMacrocarpa added perl-formatted lyrics.
    • Lily2 - done by Jkenny 07:38, 18 May 2007 (PDT) ABC converted with no problems.
    • Lily3 - Comments added. Need someone else to review Greek. --QMacrocarpa 15:27, 18 May 2007 (PDT)
-fixed Greek (with help from Greek thread. Incorp. Proposal 3 conventions. Jkenny 06:45, 20 May 2007 (PDT)
- Lily3 cleared stygiania 17:19, 20 May 2007 (PDT)
    • After code revision, recompiled version 3 and uploaded to file repository. Jkenny 05:49, 8 August 2007 (PDT)