Shamusworld >> Repos - music/blob - have-thine-own-way-lord-satb.ly

   1 \version "2.16.0"
   2 \include "pop-chords.ly"
   3 \include "english.ly"
   4
   5 % Good sizes are 16, 18, & 20
   6 staffSize = #20
   7 #(set-default-paper-size "letter")
   8 #(set-global-staff-size staffSize)
   9 #(ly:set-option (quote no-point-and-click))
  10
  11 %{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %}
  12
  13 \header
  14 {
  15         title    = \markup { \override #'(font-family . sans) \fontsize #3.5 "Have Thine Own Way, Lord!" }
  16 %       subtitle = \markup { \override #'(font-family . sans) \fontsize #1.3 "Genevan Psalter, 1551" }
  17         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "George C. Stebbins, 1846-1945" }
  18         poet     = \markup { \override #'(font-family . sans) \fontsize #1.3 "Adelaide A. Pollard, 1862-1934" }
  19         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  20 }
  21
  22
  23 %
  24 % Lead vocal
  25 %
  26 LeadVox = \relative c''
  27 {
  28         \set Staff.instrumentName = #"Sop."
  29         \clef G
  30         \key ef \major
  31         \numericTimeSignature
  32         \time 9/4
  33
  34         % Verse
  35
  36         \partial 4*3 g4 f g |   % 0
  37         af2. g ef4 d ef |   % 1
  38         f2. ~ f f4 e f |   % 2
  39
  40         g2. f f4 ef d |   % 3
  41         ef2. ~ ef g4 f g |   % 4
  42
  43         af2. g bf4 a bf |   % 5
  44         c2. ~ c c4 d c |   % 6
  45
  46         bf2. g f4 ef f |   % 7
  47         ef2. ~ ef \bar "|."   % 8
  48 }
  49
  50 AltoVox = \relative c'
  51 {
  52         \set Staff.instrumentName = #"Alto"
  53         \clef G
  54         \key ef \major
  55         \numericTimeSignature
  56         \time 9/4
  57
  58         % Verse
  59
  60         \partial 4*3 ef4 ef ef |   % 0
  61         ef2. ef bf4 bf bf |   % 1
  62         d2. ~ d d4 d d |   % 2
  63
  64         d2. d bf4 bf bf |   % 3
  65         bf2. ~ bf ef4 ef ef |   % 4
  66
  67         ef2. ef df4 c df |   % 5
  68         ef2. ~ ef ef4 ef ef |   % 6
  69
  70         ef2. ef bf4 bf bf |   % 7
  71         bf2. ~  bf \bar "|."   % 8
  72 }
  73
  74 TenorVox = \relative c'
  75 {
  76         \set Staff.instrumentName = #"Tenor"
  77         \clef F
  78         \key ef \major
  79         \numericTimeSignature
  80         \time 9/4
  81
  82         % Verse
  83
  84         \partial 4*3 bf4 af bf |   % 0
  85         c2. bf g4 f g |   % 1
  86         af2. ~ af af4 g af |   % 2
  87
  88         bf2. af af4 g f |   % 3
  89         g2. ~ g bf4 af bf |   % 4
  90
  91         c2. bf g4 g g |   % 5
  92         af2. ~ af af4 bf af |   % 6
  93
  94         g2. bf af4 g af |   % 7
  95         g2. ~ g \bar "|."   % 8
  96 }
  97
  98 BassVox = \relative c
  99 {
 100         \set Staff.instrumentName = #"Bass"
 101         \clef F
 102         \key ef \major
 103         \numericTimeSignature
 104         \time 9/4
 105
 106         % Verse
 107
 108         \partial 4*3 ef4 ef ef |   % 0
 109         ef2. ef ef4 ef ef |   % 1
 110         bf2. ~ bf bf4 bf bf |   % 2
 111
 112         bf2. bf bf4 bf bf |   % 3
 113         ef2. ~ ef ef4 ef ef |   % 4
 114
 115         ef2. ef ef4 ef ef |   % 5
 116         af,2. ~ af af4 af af |   % 6
 117
 118         bf2. bf bf4 bf bf |   % 7
 119         ef2. ~ ef \bar "|."   % 8
 120 }
 121
 122
 123 LeadVoxText = \lyricmode
 124 {
 125         Have thine own way, Lord! Have thine own way! _
 126         Thou art the pot -- ter, I am the clay: _
 127         Mould me and make me Aft -- er thy will, _
 128         While I am wait -- ing, Yield -- ed and still.
 129 }
 130
 131 LeadVoxTextB = \lyricmode
 132 {
 133         Have thine own way, Lord! Have thine own way! _
 134         Search me and try me, Mas -- ter, to -- day! _
 135         Whit -- er than snow, Lord, Wash me just now, _
 136         As in thy pres -- ence Hum -- bly I bow.
 137 }
 138
 139 LeadVoxTextC = \lyricmode
 140 {
 141         Have thine own way, Lord! Have thine own way! _
 142         Wound -- ed and wea -- ry, Help me, I pray! _
 143         Pow -- er, all pow -- er, Sure -- ly is thine! _
 144         Touch me and heal me, Sav -- ior di -- vine!
 145 }
 146
 147 LeadVoxTextD = \lyricmode
 148 {
 149         Have thine own way, Lord! Have thine own way! _
 150         Hold o’er my be -- ing Ab -- so -- lute sway! _
 151         Fill with thy Spir -- it Till all shall see _
 152         Christ on -- ly, al -- ways, Liv -- ing in me!
 153 }
 154
 155
 156 Dynamics =
 157 {
 158 %{
 159         s4_\markup { \italic { snare on 4, bass 8th notes } } s2. |   % 1
 160         s1*26 |   % 2-27
 161         s2 s4 \< s |   % 28
 162         s4_\f s_\markup { \hspace #0.0 \raise #-2.0 \italic { snare 2 & 4 } } s2 |   % 29
 163         s1*8 |   % 30-37
 164         s2 s4 \< s \! |   % 38
 165         s1 |   % 39
 166         s2. s8 \> s \! |   % 40
 167         s4_\markup { \hspace #0.0 \raise #-2.0 \italic { bass 8th notes, band builds each repeat } } s2. |   % 41
 168         s1*8 |   % 42-49
 169         s4 \< s2. |   % 50
 170         s4_\f s2. |   % 51
 171         s1*5 |   % 52-56
 172         s4_\markup { \hspace #0.0 \raise #-2.0 \italic { rit. last time } } s2. |   % 57
 173         s2 s4 \< s \! |   % 58
 174 %}
 175 }
 176
 177
 178 \score
 179 {
 180         <<
 181                 \new ChoirStaff = "Rhythm"
 182                 <<
 183                         \new Staff = UpperStaffA { \new Voice = "lead" \LeadVox }
 184                         \new Lyrics \lyricsto "lead" \LeadVoxText
 185                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 186                         \new Lyrics \lyricsto "lead" \LeadVoxTextC
 187                         \new Lyrics \lyricsto "lead" \LeadVoxTextD
 188                         \new Staff = UpperStaffB { \new Voice = "alto" \AltoVox }
 189                         \new Staff = LowerStaffA { \new Voice = "tenor" \TenorVox }
 190                         \new Staff = LowerStaffB { \new Voice = "bass" \BassVox }
 191                 >>
 192
 193                 \set Score.skipBars = ##t
 194                 \set Score.melismaBusyProperties = #'()
 195         >>
 196 }
 197
 198
 199 \paper
 200 {
 201         #(define fonts (make-pango-font-tree
 202                 "Times New Roman"
 203                 "JazzText"
 204                 "Luxi Mono"
 205                 (/ staffSize 20)))
 206
 207 % Spread staves vertically across last page (default: t)
 208         ragged-last-bottom = ##f
 209 % Don't spread staves vertically across the page (default: f)
 210 %       ragged-bottom = ##t
 211 % Allow partial line for last stave (default: f)
 212         ragged-last = ##t
 213
 214 % To find out what's eating the space at the top...
 215 %       annotate-spacing = ##t
 216 }
 217