Shamusworld >> Repos - music/blob - doxology.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 "Doxology" }
  16         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Old 100th" }
  17         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. S. Hammons" }
  18         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  19 }
  20
  21
  22 %
  23 % Lead vocal
  24 %
  25
  26 LeadVox = \relative c''
  27 {
  28         \set Staff.instrumentName = #"Sop."
  29         \clef G
  30         \key g \major
  31         \override Staff.TimeSignature #'style = #'()
  32         \time 4/4
  33 %\override Score.SpacingSpanner #'average-spacing-wishes = ##f
  34
  35         % Verse
  36
  37         \partial 4*1 g4 |   % 0
  38         \time 6/4 g4 fs e d g a |   % 1
  39         \time 4/4 b2. b4 |   % 2
  40
  41         \time 6/4 b4 b a g c b |   % 3
  42         \time 4/4 a2. g4 |   % 4
  43
  44         \time 6/4 a4 b a g d fs |   % 5
  45         \time 4/4 g2. d'4 |   % 6
  46
  47         \time 6/4 b4 g a c b a |   % 7
  48         \time 4/4 g1 |   % 8
  49
  50         g2-\fermata g-\fermata \bar "|."   % 9
  51 }
  52
  53 AltoVox = \relative c'
  54 {
  55         \set Staff.instrumentName = #"Alto"
  56         \clef G
  57         \key g \major
  58         \override Staff.TimeSignature #'style = #'()
  59         \time 4/4
  60 %\override Score.SpacingSpanner #'average-spacing-wishes = ##f
  61
  62         % Verse
  63
  64         \partial 4*1 d4 |   % 0
  65         \time 6/4 d4 d b b b d |   % 1
  66         \time 4/4 d2. d4 |   % 2
  67
  68         \time 6/4 ds4 e fs g g g |   % 3
  69         \time 4/4 fs2. e4 |   % 4
  70
  71         \time 6/4 d4 d d d e ds |   % 5
  72         \time 4/4 e2. d4 |   % 6
  73
  74         \time 6/4 d4 e fs e8 fs g4 fs |   % 7
  75         \time 4/4 g1 |   % 8
  76
  77         e2-\fermata d-\fermata \bar "|."   % 9
  78 }
  79
  80 TenorVox = \relative c'
  81 {
  82         \set Staff.instrumentName = #"Tenor"
  83         \clef F
  84         \key g \major
  85         \override Staff.TimeSignature #'style = #'()
  86         \time 4/4
  87 %\override Score.SpacingSpanner #'average-spacing-wishes = ##f
  88
  89         % Verse
  90
  91         \partial 4*1 b4 |   % 0
  92         \time 6/4 b4 a g fs g fs |   % 1
  93         \time 4/4 g2. g4 |   % 2
  94
  95         \time 6/4 a4 g b b e d |   % 3
  96         \time 4/4 d2. b4 |   % 4
  97
  98         \time 6/4 a4 g fs g g b |   % 5
  99         \time 4/4 b2. a4 |   % 6
 100
 101         \time 6/4 g4 b d e d d8 c |   % 7
 102         \time 4/4 b1 |   % 8
 103
 104         c2-\fermata b-\fermata \bar "|."   % 9
 105 }
 106
 107 BassVox = \relative c
 108 {
 109         \set Staff.instrumentName = #"Bass"
 110         \clef F
 111         \key g \major
 112         \override Staff.TimeSignature #'style = #'()
 113         \time 4/4
 114 %\override Score.SpacingSpanner #'average-spacing-wishes = ##f
 115
 116         % Verse
 117
 118         \partial 4*1 g4 |   % 0
 119         \time 6/4 g'4 d e b e d |   % 1
 120         \time 4/4 g,2. g'4 |   % 2
 121
 122         \time 6/4 fs4 e ds e c g |   % 3
 123         \time 4/4 d'2. e4 |   % 4
 124
 125         \time 6/4 fs4 g d b c b |   % 5
 126         \time 4/4 e2. fs4 |   % 6
 127
 128         \time 6/4 g4 e d a b8 c d4 |   % 7
 129         \time 4/4 g1 |   % 8
 130
 131         c,2-\fermata g-\fermata \bar "|."   % 9
 132 }
 133
 134 LeadVoxText = \lyricmode
 135 {
 136         Praise God from whom all bles -- sings flow;
 137         Praise Him all crea -- tures here be -- low;
 138         Praise Him a -- bove ye heaven -- ly host;
 139         Praise Fa -- ther, Son, and Ho -- ly Ghost.
 140         A -- men.
 141 }
 142
 143
 144 %
 145 % Chord names
 146 %
 147
 148 Chords = \chordmode
 149 {
 150 %       \override SeparatingGroupSpanner #'padding = #'2.0
 151 %Bah, can't we set this globally?
 152 %       \popChords
 153
 154         \partial 4*1 g4 |   % 0
 155         \time 6/4 s4 d e2.:m d4 |   % 1
 156         \time 4/4 g2. g4 |   % 2
 157
 158         \time 6/4 b2:7 e:m c4 g |   % 3
 159         \time 4/4 d2. e4:m |   % 4
 160
 161         \time 6/4 d4 g2. c4 b:7 |   % 5
 162         \time 4/4 e2.:m d4 |   % 6
 163
 164         \time 6/4 g2 d4 a:m g d |   % 7
 165         \time 4/4 g1 |   % 8
 166
 167         c2 g |   % 9
 168 }
 169
 170
 171 %
 172 % Chord rhythms
 173 %
 174
 175 % Use a RhythmicStaff on the chords instead of this?
 176 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 177
 178 %Slash = { \override NoteHead #'style = #'slash }
 179 %Cross = { \override NoteHead #'style = #'cross }
 180
 181 StaffC = \relative c
 182 {
 183         \override Staff.TimeSignature #'style = #'()
 184         \time 4/4
 185         \override NoteHead #'style = #'slash
 186
 187         % Verse
 188
 189         \partial 4*1 c4 |   % 0
 190         \time 6/4 c4 c c c c c |   % 1
 191         \time 4/4 c2. c4 |   % 2
 192
 193         \time 6/4 c4 c c c c c |   % 3
 194         \time 4/4 c2. c4 |   % 4
 195
 196         \time 6/4 c4 c c c c c |   % 5
 197         \time 4/4 c2. c4 |   % 6
 198
 199         \time 6/4 c4 c c c c c |   % 7
 200         \time 4/4 c1 |   % 8
 201
 202         c2-\fermata c-\fermata \bar "|."   % 9
 203 }
 204
 205
 206 Dynamics =
 207 {
 208 %{
 209         s4_\markup { \italic { snare on 4, bass 8th notes } } s2. |   % 1
 210         s1*26 |   % 2-27
 211         s2 s4 \< s |   % 28
 212         s4_\f s_\markup { \hspace #0.0 \raise #-2.0 \italic { snare 2 & 4 } } s2 |   % 29
 213         s1*8 |   % 30-37
 214         s2 s4 \< s \! |   % 38
 215         s1 |   % 39
 216         s2. s8 \> s \! |   % 40
 217         s4_\markup { \hspace #0.0 \raise #-2.0 \italic { bass 8th notes, band builds each repeat } } s2. |   % 41
 218         s1*8 |   % 42-49
 219         s4 \< s2. |   % 50
 220         s4_\f s2. |   % 51
 221         s1*5 |   % 52-56
 222         s4_\markup { \hspace #0.0 \raise #-2.0 \italic { rit. last time } } s2. |   % 57
 223         s2 s4 \< s \! |   % 58
 224 %}
 225 }
 226
 227
 228 \score
 229 {
 230         <<
 231                 \new ChoirStaff = "Rhythm"
 232                 <<
 233                         \new ChordNames = "chords" \Chords
 234                         \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
 235                 >>
 236
 237                 <<
 238                         \new Staff = UpperStaffA { \new Voice = "lead" \LeadVox }
 239                         \new Lyrics \lyricsto "lead" \LeadVoxText
 240                         \new Staff = UpperStaffB { \new Voice = "alto" \AltoVox }
 241                         \new Staff = LowerStaffA { \new Voice = "tenor" \TenorVox }
 242                         \new Staff = LowerStaffB { \new Voice = "bass" \BassVox }
 243                 >>
 244
 245                 \set Score.skipBars = ##t
 246                 \set Score.melismaBusyProperties = #'()
 247         >>
 248 }
 249
 250
 251 \paper
 252 {
 253   #(define fonts (make-pango-font-tree
 254     "Times New Roman"
 255     "DomCasual BT"
 256     "Luxi Mono"
 257     (/ staffSize 20)))
 258
 259 % Spread staves vertically across last page (default: t)
 260         ragged-last-bottom = ##f
 261 % Don't spread staves vertically across the page (default: f)
 262 %       ragged-bottom = ##t
 263 % Allow partial line for last stave (default: f)
 264         ragged-last = ##t
 265
 266 % To find out what's eating the space at the top...
 267 %       annotate-spacing = ##t
 268 %let's try this: [It works! Huzzah!]
 269         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 270 }