1 % Tests a number of features:
2 % * Lyric_phrasing_engraver
3 % * Stanza_number_engraver
4 % * Automatic melismata on beamed notes
10 title = "Crowned with Honour";
11 composer = "Oliver Holden (1765-1844)";
12 poet = "Thomas Kelly (1769-1855)";
16 \property Voice.verticalDirection = \up
17 \property Voice.slurVerticalDirection = \up
18 \property Voice.tieVerticalDirection = \up
19 \property Voice.dynamicDirection = \up
23 \property Voice.verticalDirection = \down
24 \property Voice.slurVerticalDirection = \down
25 \property Voice.tieVerticalDirection = \down
26 \property Voice.dynamicDirection = \down
36 Soprano = \notes \relative c' {
38 d4 | g g b b a g a b a g b a g( a )g % modified to test melisma align right
40 [a8 b] | b4 % modified to test melisma align left
41 a g b [d16 d c8] [b a] b4 % modified to test beam melisma
42 % a4 | b a g b [d8 \melisma c] \melismaEnd [b \melisma a] \melismaEnd b4
44 d d2 d e d4( cs8 ~ )cs d2.
46 b4 | d b g b [a8 g] [a b] a4
47 % b4 | d b g b [a8 \melisma g] \melismaEnd [a \melisma b] \melismaEnd a4
49 g d'2 c b4.( c8 )a4 a g2.
51 Alto = \notes \relative c'{
53 d4 | d d g g fs g fs g fs e g fs d2.
54 d4 | g d b g' [b8 a] [g fs] g4 fs g2 a g fs4( e8 )g fs2.
55 d4 | g g d g [fs8 e] [fs g] fs4 g f2 e d4.( d8 )d4 fs4 d2.
57 Tenor = \notes \relative c{
59 d4 | b' b d d c b c d c b d c b2.
60 a4 | b a g b [d8 c] [b a] b4 a b2 c b a a2.
61 g4 | b d b d [c8 b] [c d] c4 b g2 g g4.( a8 [fs )a] c4 b2.
63 Bass = \notes \relative c{
65 d4 | g g g g d d d g d e d d g,2.
66 d'4 | g d b g' [b8 a] [g fs] g4 d g2 fs e a d,2.
67 g4 | g g g g d d d e b2 c d2. d4 g,2.
72 \context LyricVoice = "Soprano-1"
73 \property LyricVoice .stanza = "1:"
74 \property LyricVoice .stz = "(1)"
75 The4 head that once was crowned with thorns
76 Is crowned with glo -- ry now;
77 A roy -- al di -- a -- dem a -- dorns
78 The might -- y Vic -- tor's brow.
79 A roy -- al di -- a -- dem a -- dorns
80 The might -- y Vic -- tor's brow.
83 \context LyricVoice = "Soprano-2"
84 \property LyricVoice .stanza = "2:"
85 \property LyricVoice .stz = "(2)"
86 The4 high -- est place that heav'n af -- fords
87 Is His by sov -- 'reign right;
88 The King of kings, the Lord of lords,
89 He reigns in glo -- ry bright,
90 The King of kings, the Lord of lords,
91 He reigns in glo -- ry bright.
94 \context LyricVoice = "Soprano-3"
95 \property LyricVoice .stanza = "3:"
96 \property LyricVoice .stz = "(3)"
97 The joy of all who dwell a -- bove,
98 The joy of saints be -- low,
99 To4 whom He man -- i -- fests His love,
100 And grants His name to know,
101 To4 whom He man -- i -- fests His love,
102 And grants His name to4 know.
111 \property Score.barNumberScriptPadding = #10.0
112 \context Staff = "treblestaff"{
114 \context Voice = "Soprano" { }
115 \context Voice = "Alto" { }
118 \context Lyrics = mainlyrics { }
119 \context Staff = "treblestaff"{
122 \addlyrics { \context Voice = "Soprano" \Soprano }
123 { \context Lyrics = mainlyrics \TheLyrics }
124 \context Voice = "Alto" \Alto
128 \context Staff = "bassstaff"{
131 \context Voice = "Tenor" { \Tenor }
132 \context Voice = "Bass" { \Bass }
141 automaticMelismata = ##t;
143 \remove "Auto_beam_engraver";