% Title: Rutland
% Composer: William Billings
\version "2.10.10"
\include "english.ly"
\include "../mrlUtil.ly"
#(ly:set-option 'point-and-click #f)
% a little smaller than the default 20 to get
% 3 systems on the first page
#(set-global-staff-size 17)
headerMarkup = \markup { "Billings:" \italic "Rutland" }
\paper {
#(set-paper-size "letter")
top-margin = .4\in
bottom-margin = .4\in
left-margin = .75\in
line-width = 7\in
between-system-padding = 0.08\in
page-top-space = 0\in
%ragged-last-bottom = ##t
myStaffSize = #17
#(define fonts
(make-pango-font-tree "Baskerville1757"
"Sans"
"Mono"
(/ myStaffSize 20)))
oddHeaderMarkup = \markup
\fill-line {
""
\on-the-fly #not-first-page \headerMarkup
\on-the-fly #print-page-number-check-first \fromproperty #'page:page-number-string
}
evenHeaderMarkup = \markup
\fill-line {
\on-the-fly #print-page-number-check-first \fromproperty #'page:page-number-string
\on-the-fly #not-first-page \headerMarkup
""
}
}
# (define (tsaFn grob)
(interpret-markup
(ly:grob-layout grob)
'(( ))
(markup #:rotate 180 #:musicglyph "timesig.C22")))
tsAdagio = { \time 4/4 \tempo 4=60 }
tsLargo = { \time 2/2 \tempo 2=40 }
tsThreeTwo = { \time 3/2 \tempo 2=60 }
tsTwoFour = { \time 2/4 \tempo 4=120 }
tsThreeFour = { \time 3/4 \tempo 4=80 }
tsAllegro = { \once \override Staff.TimeSignature #'stencil = #tsaFn \time 2/2 \tempo 2=60 }
global = {
% main
%\set Staff.forceClef = ##t
%\set Staff.forceTime = ##f
%\key aes \major
%\set Timing.defaultBarType = ""
\override Staff.VerticalAxisGroup #'minimum-Y-extent = #'(-2 . 2)
\set Staff.midiInstrument = "acoustic grand"
#(override-auto-beam-setting '(end * * * *) 1 4 )
#(override-auto-beam-setting '(end * * * *) 2 4 )
#(override-auto-beam-setting '(end * * * *) 3 4 )
#(override-auto-beam-setting '(end * * * *) 4 4 )
\key a \minor
\tsAllegro
\skip 1*34
\bar "||"
\key d \minor
\skip 1*5
\bar "||"
\tsThreeFour
\skip 4*24
\bar "||"
\key c \major
\tsAllegro
\skip 1*31
\bar "|."
}
sopranoNotes = {
\relative g' {
\set Staff.instrumentName = "Treble"
\clef "treble"
R1 |
r2 a2 |
a4 a g g |
e e c2 |
%5
e4 e a2~ |
a1~ |
a1~ |
a1 |
a2 a |
%10
e1 |
fs2 fs |
fs1 |
g2 f? |
d1 |
%15
d2 d |
e1 |
e2 e2 |
g1~ |
g1~ |
%20
g1~ |
g1 |
r2 a2 |
e'4 e c d8( c) |
b2 a |
%25
a2. r4 |
R1 |
r2 b2 |
c4.( b8 a4) a |
b2. b4 |
%30
b( c d) g, |
g1~ |
g2. g4 |
c8( d) e4 e a, |
a2 a |
%35
a2. a4 |
a2. g4 |
a2 bf4( a) |
bf( c8 d c bf) a4 |
a1 |
%40
r2. |
r4 r4 a4 |
a2 g4 |
a2 g4 |
g8 g8\noBeam g4 g4 |
%45
a8.( bf16 c4) c |
d( c) bf |
a( bf) c |
c1 |
R1 |
%50
R1 |
R1 |
c4.( d8 e[ d]) e( f) |
e1 |
b4.( c8 d[ e]) f4 |
%55
e4.( d8 c2) |
e4.( f8 g[ f]) e( d) |
c2( b) |
d2 e4( e8 f) |
e4.( d8 c2) |
%60
e4( d8 c) d4( c8 b) |
c1 |
c4 c8 \noBeam d c4 c8( d) |
e( d) c( b) a2 |
a4 g8\noBeam a b4 c |
%65
f8( e) d( c) b2 |
c8( d) e\noBeam f^\markup {\tiny * } a,4 b |
c c c2 |
c8( d) e\noBeam f g4 c, |
c e d2~ |
%70
d e8( f) g\noBeam d |
e4 f g8( e) f4 |
f1 |
R1 |
e1 |
%75
R1 |
c1 |
R1 |
e1 |
}
}
sopranoLyrics = \lyricmode {
My flesh shall slum -- ber in the ground,
in the ground, __
in the ground,
in the ground,
in the ground,
in the ground,
in the ground, __
Till the last Trum -- pet
joy -- ful sound,
Then burst __ the Chains with sweet __ sur -- prise, __
And in my Sav -- ior’s Im -- age rise,
And in my Sav -- ior’s Im -- age rise.
This life’s a dream, an emp -- ty show,
but the bright world to which I go
and __ sin -- cere, and __ sin -- cere, __
and __ sin -- cere, __ and sin -- cere, __
and __ sin -- cere.
When shall I wake and find me there,
When shall I wake and find me there,
When shall I wake and find me there,
When shall I wake and find me there, __
When shall I wake and find me there,
There, There, There.
}
altoNotes = {
\relative c' {
\set Staff.instrumentName = "Counter"
\clef "treble"
% Original clef:
%\clef "neomensural-c3"
R1 |
R1 |
R1 |
c2 a4 a |
%5
c4.( b8 c4) c |
c2 c |
c1~ |
c1~ |
c1 |
%10
c2 c2 |
d1~ |
d1 |
e2 d |
b1 |
%15
b2 b |
c1 |
c2 c |
e1~ |
e1~ |
%20
e1~ |
e1 |
r2 e2 |
g4 g a a |
g2 e2 |
%25
fs2. r4 |
r2 g2 |
g4( a g) g8( f) |
e2. e8( f) |
g4.( a8 g4) g |
%30
g2. d4 |
e4.( f8 e4) f |
e2. e8( f) |
g4 g g f |
f2 e |
%35
f2. e4 |
f4.( e8 d4) c |
d2 e4( f) |
g4( a) a2 |
fs1 |
%40
r4 r4 e4 |
f2 e4 |
d2 g4 |
f2 d4 |
e2 e4 |
%45
f2 g4 |
f2 d4 |
f8.( e16 d4) f |
e1 |
r2 d2 |
%50
e4.( d8 e4) g |
g2 a2 |
g4.( f8 e4) g |
g1 |
g2 g4 g |
%55
g g a f |
g g g g |
a f g( e) |
f4( g8 a) g2~ |
g2 r2 |
%60
e4( f8 g) f4( g8 a) |
g1 |
g8( f) e\noBeam d c( d) e( f) |
g4 a a2 |
f4 e8\noBeam d e4 e |
%65
f g g2 |
g4 g8\noBeam f e4 g |
a a a2 |
e8( f) g\noBeam a g4 a |
g c b2~ |
%70
b c4 b8\noBeam a |
g4 a8.( b16) c8.( b16) a4 |
a1 |
R1 |
g1 |
%75
R1 |
e1 |
R1 |
g1 |
}
}
altoLyrics = \lyricmode {
My flesh shall slum -- ber in the ground, __
in the ground, __
in the ground,
in the ground,
in the ground, __
Till the last Trum -- pet
joy -- ful sound,
Then burst __ the Chains with sweet __ sur -- prise,
with sweet __ sur -- prise,
And in my Sav -- ior’s Im -- age rise,
And in __ my Sav -- ior’s Im -- age rise.
This life’s a dream, an emp -- ty show,
but the bright world to which I go
Hath Joys __ sub -- stan -- tial and __ sin -- cere,
Hath Joys sub -- stan -- tial,
Joys sub -- stan -- tial,
Joys sub -- stan -- tial,
and __ sin -- cere, __
and __ sin -- cere.
When shall I wake and find me there,
When shall I wake and find me there,
When shall I wake and find me there,
When shall I wake and find me there, __
When shall I wake and find me there,
There, There, There.
}
%\noacc = { \once \override Accidental #'transparent = ##t }
%\ficnat = \markup { \tiny \natural }
tenorNotes = {
\relative a {
\set Staff.instrumentName = "Tenor"
\clef "treble_8"
R1 |
R1 |
R1 |
a2 e4 e |
%5
a4.( gs8 a4) e |
a2 e2 |
e1~ |
e1 |
e2 e |
%10
a1~ |
a1~ |
a1 |
c2 a |
g1~ |
%15
g1~ |
g1 |
g2 g2 |
c1~ |
c1 |
%20
c2 c |
b1 |
r2 c2 |
b4 b a a |
e'2 cs |
%25
d2. r4 |
R1 |
R1 |
r2 c2 |
e8.([ f16 e8 d] e4) e |
%30
d4( c8. d16 b4) b |
c4.( d8 c4) b |
c2. c8( d) |
e4 e8( d) c4 a |
d2 cs |
%35
d2. cs4 |
d4.( e8 d4) e |
f2 e4( d) |
e( f e8 d) cs4 |
d1 |
%40
r4 r4 a4 |
d2 e4 |
f2 e4 |
d4( c) b |
c2 c4 |
%45
a2 g4 |
a2 d4 |
c( bf) a |
g1 |
r2 g2 |
%50
c4.( b8 c4) d |
e4.( d8 e4) d |
e4.( f8 g[ f]) e( d) |
c2( b) |
d4.( e8 f[ e]) d( c) |
%55
b2( a4) r4 |
c4.( d8 e[ d]) c( b) |
a2( g) |
a4( b8 c) b4( c8 d) |
c1 |
%60
c4( d8 e) d4( e8 f) |
e1 |
e8( d) c\noBeam b a4 g |
c c c2 |
d8( c) b\noBeam a g4 g |
%65
d' d d2 |
e8( d) c\noBeam b c4 e^\markup { \tiny * } |
f f f2 |
g8( f) e\noBeam d e4 c |
e g g2~ |
%70
g g8( f) e\noBeam f |
g4 f e d |
c1 |
R1 |
c1 |
%75
R1 |
g1 |
R1 |
c1 |
}
}
tenorLyrics = \lyricmode {
My flesh shall slum -- ber in the ground, __
in the ground, __
in the ground, __
in the ground, __
in the ground,
Till the last Trum -- pet
joy -- ful sound,
Then burst __ the Chains __ with sweet __ sur -- prise,
And in my Sav -- ior’s Im -- age rise,
And in __ my Sav -- ior’s Im -- age rise.
This life’s a dream, an emp -- ty show,
but the bright world to which I go
Hath Joys __ sub -- stan -- tial and __ sin -- cere, __
and __ sin -- cere, __
and __ sin -- cere, __
and __ sin -- cere, __
and __ sin -- cere.
When shall I wake and find me there,
When shall I wake and find me there,
When shall I wake and find me there,
When shall I wake and find me there, __
When shall I wake and find me there,
There, There, There.
}
bassNotes = {
\relative a {
\set Staff.instrumentName = "Bass"
\clef "bass"
a2 e4 e |
f4.( e8 d4) c |
d2 e2
a,1~ |
a1~ |
a1~ |
a1 |
a2 a2 |
a1 |
a2 a2 |
d1~ |
d1 |
c2 d |
g,1 |
g2 g |
c1~ |
c1~ |
c1~ |
c1 |
c2 c |
e1 |
r2 2 |
e'4 e f d |
e2 2 |
d2. e4 |
a8.([ b16 a8 b] c4) b8( a) |
g4( f8. g16 e4) e |
a4.( b8 a4) a, |
e'2. e8( f) |
g4.( a8 g4) g, |
c1~ |
c2. c4 |
c c8( d) e4 f |
d2 2 |
d2. a4 |
d4.( e8 f4) e |
d2 g4( f) |
e( d a') a, |
d1 |
r2. |
r4 r4 a4 |
d2 e4 |
f2 g4 |
c,8 c\noBeam c4 c |
f2 e4 |
d8.( e16 f4) g |
a4( g) f |
c1 |
R1 |
r2 r4 g'4 |
c4.( b8 a g) f4 |
e4.( d8 c4) c |
c2 e |
g1 |
e2 f |
e c4 e |
f2( e) |
d2 g |
c,2 f |
e d |
c1 |
c4 c8\noBeam c f4 e |
c f f2 |
d4 g8\noBeam f e4 c |
d g g2 |
c8( b) a\noBeam g a4 e |
f f f2 |
e8( d) c\noBeam f e4 f |
e c g'2~ |
g c4 g8\noBeam f |
e4 d c d8.( e16) |
f1 |
R1 |
c1 |
R1 |
c1 |
R1 |
c1 |
}
}
bassLyrics = \lyricmode {
My flesh shall slum -- ber in the ground, __
in the ground,
in the ground, __
in the ground,
in the ground, __
in the ground,
Till the last Trum -- pet
joy -- ful sound,
Then burst __ the Chains __ with sweet __ sur -- prise,
with sweet __ sur -- prise, __
And in my Sav -- ior’s Im -- age rise,
And in __ my Sav -- ior’s Im -- age rise.
This life’s a dream, an emp -- ty show,
but the bright world to which I go
Hath Joys __ sub -- stan -- tial and sin -- cere,
Hath Joys sub -- stan -- tial and __ sin -- cere,
and sin -- cere,
sin -- cere.
When shall I wake and find me there,
When shall I wake and find me there,
When shall I wake and find me there,
When shall I wake and find me there, __
When shall I wake and find me there,
There, There, There.
}
#(define engravedLine (string-append
"Engraved by LilyPond (version "
(lilypond-version)
")" ))
\header {
title = \markup { \bigger \medium \italic "Rutland" }
composer = \markup { \bigger {\bold \italic "William Billings" "(1746-1800)" }}
%subtitle = ""
poet = \markup { \bigger "“Words from D. W.”" }
piece = \markup { \bigger { "(Isaac Watts, Psalm 17" \bold \italic "lm)" }}
opus = \markup { \bigger { \italic { The Psalm-Singer’s Amusement } (1781) } }
copyright = \markup { { \center-align {
"Copyright © 2005 by Michael Lauer."
"This edition may be freely distributed, duplicated, performed, or recorded." } } }
tagline = \markup { \column {
\fill-line { "Edited by Michael Lauer" " " }
\engravedLine
"Measure 66: orignal has E in treble, C in tenor."
} }
}
\score {
\context ChoirStaff = choir <<
\context Voice =
sopranoNotes << \global \sopranoNotes >>
\context Lyrics =
sopranoLyrics \lyricsto sopranoNotes { \sopranoLyrics }
\context Voice =
altoNotes << \global \altoNotes >>
\context Lyrics =
altoLyrics \lyricsto altoNotes { \altoLyrics }
\context Voice =
tenorNotes << \global \tenorNotes >>
\context Lyrics =
tenorLyrics \lyricsto tenorNotes { \tenorLyrics }
\context Voice =
bassNotes << \global \bassNotes >>
\context Lyrics =
bassLyrics \lyricsto bassNotes { \bassLyrics }
>>
\layout {
\context {
\Score
\override MetronomeMark #'transparent = ##t
\override BarNumber #'padding = #2
}
\context {
\Staff
\override InstrumentName #'padding = #0.75
\override InstrumentName #'font-size = #1
}
\context {
\Lyrics
\override LyricText #'font-series = #'medium
\override LyricText #'font-size = #1
\override LyricText #'stencil = #add-bligs-print
\override LyricHyphen #'minimum-distance = #0.5
\override LyricSpace #'minimum-distance = #0.5
}
}
\midi {
\context {
\Score
tempoWholesPerMinute = #(ly:make-moment 60 2)
}
}
}