diff --git a/static/idumea.ly b/static/idumea.ly new file mode 100644 index 0000000..cc0f327 --- /dev/null +++ b/static/idumea.ly @@ -0,0 +1,171 @@ +% The Sacred Harp book uses an older British/French bass clef. +% Source: https://lilypond.miraheze.org/wiki/Alten_Bassschl%C3%BCssel_erstellen +alt-clef = +#(ly:make-stencil + '(path 0.001 + (moveto -0.10 -0.35 + curveto -0.10 -1.11 0.48 -1.80 1.25 -1.80 + curveto 1.75 -1.80 2.20 -1.60 2.50 -1.05 + curveto 2.55 -0.95 2.50 -0.90 2.43 -0.95 + curveto 2.20 -1.17 1.90 -1.48 1.45 -1.48 + curveto 0.70 -1.48 0.15 -0.85 0.15 -0.15 + curveto 0.15 0.45 0.62 0.83 1.05 0.83 + curveto 1.55 0.83 1.90 0.50 1.90 0.05 + curveto 1.90 -0.35 1.55 -0.71 1.20 -0.71 + curveto 0.80 -0.71 0.60 -0.40 0.63 -0.17 + curveto 0.75 -0.30 0.90 -0.31 1.00 -0.31 + curveto 1.20 -0.31 1.38 -0.10 1.38 0.15 + curveto 1.38 0.35 1.20 0.55 0.95 0.55 + curveto 0.60 0.52 0.39 0.25 0.39 -0.05 + curveto 0.39 -0.52 0.62 -0.89 1.20 -0.89 + curveto 1.65 -0.89 2.07 -0.50 2.07 0.10 + curveto 2.07 0.66 1.56 1.01 1.05 1.01 + curveto 0.28 1.01 -0.10 0.35 -0.10 -0.35 + moveto 2.42 0.20 + curveto 2.54 0.20 2.64 0.30 2.64 0.42 + curveto 2.64 0.54 2.54 0.64 2.42 0.64 + curveto 2.30 0.64 2.20 0.54 2.20 0.42 + curveto 2.20 0.30 2.30 0.20 2.42 0.20 + moveto 2.42 -0.20 + curveto 2.54 -0.20 2.64 -0.30 2.64 -0.42 + curveto 2.64 -0.54 2.54 -0.64 2.42 -0.64 + curveto 2.30 -0.64 2.20 -0.54 2.20 -0.42 + curveto 2.20 -0.30 2.30 -0.20 2.42 -0.20 + closepath) + round round #t) + (cons -0.1 2.65) + (cons -1.3 1)) + +\header { + title = \markup { \sans "IDUMEA. C.M." } + dedication = \markup { \small "“A time to be born and a time to die.” — " \smallCaps "Eccl. 3:2" } + tagline = ##f + composer = "A. Davidson, 1817." + poet = "Chas. Wesley, 1753. Key of A Minor." +} + +#(set! paper-alist (cons '("trade" . (cons (* 8.5 in) (* 5.5 in))) paper-alist)) +\paper { + #(define fonts + (make-pango-font-tree "Gentium Book Plus" + "Gotu" + "Ubuntu Mono" + (/ staff-height pt 20))) + #(set-paper-size "trade") + top-margin = 1.5\in + indent = 0.0 +} + +\layout { + #(layout-set-staff-size 12.2) + \context { + \Score + \override Clef.stencil = + #(lambda (grob) + (let* ((sz (ly:grob-property grob 'font-size 0)) + (mlt (magstep sz)) + (glyph (ly:grob-property grob 'glyph-name))) + (cond + ((equal? glyph "clefs.F") + (ly:stencil-scale alt-clef (* .63 mlt) (* .63 mlt))) + ((equal? glyph "clefs.F_change") + (ly:stencil-scale alt-clef (* .8 mlt) (* .8 mlt))) + (else (ly:clef::print grob))))) + } +} + +% Global settings +global = { + \key c \major + \time 3/2 + \sacredHarpHeads +} + +% Music +sopranonotes = \relative c'' { + r1 c2 e1 d2 c1 d2 e1 e2 d1 e4( d) e1 d4( c) a1 % \bar ".|:" % Simplifying... + a2 c1 c4(b) a1 c4( d) e1 b4( a) g1 g'2 e1 e4( d) c1 d2 e1. \bar "|." +} + + +altonotes = \relative c'' { + r1 a2 c1 b4( a) g1 g2 a1 c2 b1 a4( b) c1 b4( g) c1 + c2 g1 a4( b) c1 g2 c1 e,2 g1 c2 c1 g4( f) e1 g2 e1. +} + +tenornotes = \relative c'' { + r1 a2 a1 g4( a) c1 d4( c) a1 e'2 g1 e4( b) c1 d2 e1 + e2 g1 e4( d) e1 d4( c) a1 g4( e) g1 g2 a1 g4( a) c1 d4( c) a1. +} + +bassnotes = { + \clef bass + r1 a2 a1 d2 e1 e2 a,1 a2 g1 c'4( b) a1 g2 c1 + a2 g1 a4( b) a1 e2 a,1 c2 g1 c2 a,1 c4(d) e1 e2 a1. +} + + +% Lyrics +lyricsone = { + \lyricmode { + \set stanza = "1." And am I born to die? To lay this bod -- y __ down! + And must my __ trem -- bling spir -- it __ fly in -- to a __ world un -- known? + } +} +lyricstwo = { + \lyricmode { + \set stanza = "2." A land of deep -- est shade; Un -- pierced by __ hu -- man __ thought. + The drear -- y __ re -- gions __ of the __ dead, Where all things __ are for -- got. + + } +} +lyricsthree = { + \lyricmode { + \set stanza = "3." Soon as from __ earth I __ go, What will be -- come of __ me? + E -- ter -- nal __ hap -- pi -- ness or __ woe Must then my __ por -- tion __ be. + + } +} +lyricsfour = { + \lyricmode { + \set stanza = "4." Waked by the __ trum -- pet __ sound, I from my -- grave will rise + And see the __ judge with __ glo -- ry __ crowned, and see the __ flam -- ing __ skies. + } +} + +% Put it all together +\score { + << + \new Staff << + \new Voice = "soprano" << + \global + \sopranonotes + >> + \new Lyrics \lyricsto "soprano" \lyricsone + >> + + \new Staff = "altostaff" << + \new Voice = "alto" << + \global + \altonotes + >> + \new Lyrics \with { alignAboveContext = "altostaff" } \lyricsto "alto" \lyricstwo + >> + + \new Staff << + \new Voice = "tenor" << + \global + \tenornotes + >> + \new Lyrics \lyricsto "tenor" \lyricsthree + >> + + \new Staff = "bassstaff" << + \new Voice = "bass" << + \global + \bassnotes + >> + \new Lyrics \with { alignAboveContext = "bassstaff" } \lyricsto "bass" \lyricsfour + >> + >> +} \ No newline at end of file diff --git a/static/idumea.pdf b/static/idumea.pdf new file mode 100644 index 0000000..82bd76a Binary files /dev/null and b/static/idumea.pdf differ