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