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