Shamusworld >> Repos - music/blob - how-great-thou-art-hymnal.ly

   1 \version "2.21.1"
   2 \include "pop-chords.ly"
   3 \include "english.ly"
   4
   5 % Good sizes are 16, 18, & 20 (11, 13, 14, 23, 26)
   6 staffSize = #18
   7 #(set-default-paper-size "letter")
   8 #(set-global-staff-size staffSize)
   9 #(ly:set-option (quote no-point-and-click))
  10
  11 \header
  12 {
  13         title    = \markup { \override #'(font-family . sans) \fontsize #3.5 "How Great Thou Art" }
  14 %       composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
  15 %       poet     = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
  16 %       arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr." }
  17         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  18 }
  19
  20
  21 %
  22 % Song's structure
  23 %
  24 Global =
  25 {
  26         \key bf \major
  27         \numericTimeSignature
  28         \time 4/4
  29
  30         \partial 8*3 s4. |   % 0
  31         s1*8 \bar "||"   % 1-8
  32         s1*7   % 9-15
  33         \partial 8*5 s2 s8 \bar "|."   % 16
  34 }
  35
  36
  37 Soprano = \relative c'
  38 {
  39         \clef G
  40         \voiceOne
  41
  42         f8 f f |   % 0
  43         d4. f8 f f g g |   % 1
  44         ef4 g4. g8 g g |   % 2
  45         f4. d8 f f ef ef |   % 3
  46         d2 ~ d8 f f f |   % 4
  47         d4. f8 f f g g |   % 5
  48         ef4 g4. g8 g g |   % 6
  49         f4. d8 f f ef ef |   % 7
  50         d2 ~ d8 f f bf |   % 8
  51
  52         d4. c8 bf a bf8. g16 |   % 9
  53         f2 ~ f8 bf bf a |   % 10
  54         c,2 ~ c8 ef g f |   % 11
  55         d2 ~ d8 f f bf |   % 12
  56         d4. c8 bf a bf8. g16 |   % 13
  57         f2 ~ f8 bf a bf |   % 14
  58         c2 ~ c8 d ef a, |   % 15
  59         bf2 ~ bf8 |   % 16
  60 }
  61
  62 Alto = \relative c'
  63 {
  64         \clef G
  65         \voiceTwo
  66
  67         d8 d d |   % 0
  68         bf4. d8 ef bf ef ef |   % 1
  69         bf4 ef4. ef8 d cs |   % 2
  70         d4. bf8 d d c a |   % 3
  71         bf2 ~ bf8 d d d |   % 4
  72         bf4. d8 ef bf ef ef |   % 5
  73         bf4 ef4. ef8 d cs |   % 6
  74         d4. bf8 d d c a |   % 7
  75         bf2 ~ bf8 d d d |   % 8
  76
  77         f4. af8 g fs g8. ef16 |   % 9
  78         d2 ~ d8 d d ef |   % 10
  79         a,2 ~ a8 c ef c |   % 11
  80         bf2 ~ bf8 d d d |   % 12
  81         f4. af8 g fs g8. ef16 |   % 13
  82         d2 ~ d8 d ef f |   % 14
  83         g2 ~ g8 g g ef |   % 15
  84         d2 ~ d8 |   % 16
  85 }
  86
  87 Tenor = \relative c'
  88 {
  89         \clef F
  90         \voiceThree
  91
  92         bf8 bf bf |   % 0
  93         f4. bf8 a f bf bf |   % 1
  94         g4 bf4. bf8 bf bf |   % 2
  95         bf4. f8 a a g f |   % 3
  96         f2 ~ f8 bf bf bf |   % 4
  97         f4. bf8 a f bf bf |   % 5
  98         g4 bf4. bf8 bf bf |   % 6
  99         bf4. f8 a a g f |   % 7
 100         f2 ~ f8 bf8 bf bf |   % 8
 101
 102         bf4. bf8 ef ef ef8. bf16 |   % 9
 103         bf2 ~ bf8 f f c' |   % 10
 104         f,2 ~ f8 a bf a |   % 11
 105         f2 ~ f8 bf bf bf |   % 12
 106         bf4. bf8 ef ef ef8. bf16 |   % 13
 107         bf2 ~ bf8 bf f bf |   % 14
 108         bf2 ~ bf8 b c c |   % 15
 109         bf2 ~ bf8 |   % 16
 110 }
 111
 112 Bass = \relative c
 113 {
 114         \clef F
 115         \voiceFour
 116
 117         bf8 bf bf |   % 0
 118         bf4. bf8 c d ef ef |   % 1
 119         ef4 ef4. ef8 e e |   % 2
 120         f4. f8 f, f f f |   % 3
 121         bf2 ~ bf8 bf bf bf |   % 4
 122         bf4. bf8 c d ef ef |   % 5
 123         ef4 ef4. ef8 e e |   % 6
 124         f4. f8 f, f f f |   % 7
 125         bf2 ~ bf8 bf bf bf |   % 8
 126
 127         bf4. d8 ef ef ef8. ef16 |   % 9
 128         bf2 ~ bf8 bf f' f |   % 10
 129         f,2 ~ f8 f g a |   % 11
 130         bf2 ~ bf8 bf bf bf |   % 12
 131         bf4. d8 ef ef ef8. ef16 |   % 13
 132         bf2 ~ bf8 bf c d |   % 14
 133         ef2 ~ ef8 d c f |   % 15
 134         bf,2 ~ bf8 |   % 16
 135 }
 136
 137 VerseA = \lyricmode
 138 {
 139         O Lord my God! when I in awe -- some won -- der
 140         Con -- sid -- er all the worlds Thy hands have made, _
 141         I see the starts, I hear the roll -- ing thun -- der,
 142         Thy power through -- out the u -- ni -- verse dis -- played: _
 143
 144         Then sings my soul, my Sav -- ior God, to Thee, _
 145         How great Thou art, _ how great Thou art! _
 146         Then sings my soul, my Sav -- ior God, to Thee, _
 147         How great Thou art, _ how great Thou art! _
 148 }
 149
 150 VerseB = \lyricmode
 151 {
 152         When through the woods and for -- est glades I wan -- der
 153         And hear the birds sing sweet -- ly in the trees; _
 154         When I look down from loft -- y moun -- tain gran -- deur
 155         And hear the brook and feel the gen -- tle breeze: _
 156 }
 157
 158 VerseC = \lyricmode
 159 {
 160         And when I think that God, His Son not spar -- ing,
 161         Sent Him to die, I scarce can take it in, _
 162         That on the cross, my bur -- den glad -- ly bear -- ing,
 163         He bled and died to take a -- way my sin; _
 164 }
 165
 166 VerseD = \lyricmode
 167 {
 168         When Christ shall come with shout of ac -- cla -- ma -- tion
 169         And take me home; what joy shall fill my heart! _
 170         Then I shall bow in hum -- ble ad -- o -- ra -- tion,
 171         And there pro -- claim, my God how great Thou art! _
 172 }
 173
 174
 175 \score
 176 {
 177         <<
 178                 \context Staff
 179                 <<
 180                         \Global
 181                         \new Voice = "vA" \Soprano
 182                         \new Voice = "vB" \Alto
 183                         \new Lyrics \lyricsto "vA" \VerseA
 184                         \new Lyrics \lyricsto "vA" \VerseB
 185                         \new Lyrics \lyricsto "vA" \VerseC
 186                         \new Lyrics \lyricsto "vA" \VerseD
 187                 >>
 188
 189                 <<
 190                         \new Staff = leadStaffB
 191                         {
 192                                 <<
 193                                         \Global
 194                                         \new Voice = "vC" \Tenor
 195                                         \new Voice = "vD" \Bass
 196                                 >>
 197                         }
 198                 >>
 199
 200                 \set Score.skipBars = ##t
 201                 \set Score.melismaBusyProperties = #'()
 202         >>
 203
 204 %{    \midi
 205         {
 206                 \tempo 4 = 80
 207                 %% Remove the dynamics from the midi output
 208                 \context
 209                 {
 210                         \Voice
 211                         \remove "Dynamic_performer"
 212                         \remove "Span_dynamic_performer"
 213                 }
 214         }
 215 %}
 216 }
 217
 218
 219 \paper
 220 {
 221         #(define fonts (make-pango-font-tree
 222                 "Times New Roman"
 223                 "LilyJazz Text"
 224                 "Luxi Mono"
 225                 (/ staffSize 20)))
 226
 227 % Spread staves vertically across last page (default: t)
 228 %       ragged-last-bottom = ##f
 229 % Don't spread staves vertically across the page (default: f)
 230 %       ragged-bottom = ##t
 231 % Allow partial line for last stave (default: f)
 232 %       ragged-last = ##t
 233
 234 % To find out what's eating the space at the top...
 235 %       annotate-spacing = ##t
 236 }