Shamusworld >> Repos - music/blob - give-thanks.ly

   1 \version "2.16.0"
   2 \include "pop-chords.ly"
   3 \include "english.ly"
   4
   5 staffSize = #18 % or 16
   6 #(set-default-paper-size "letter")
   7 #(set-global-staff-size staffSize)
   8 #(ly:set-option (quote no-point-and-click))
   9
  10 \header
  11 {
  12 %Let's bump up the title size and switch to the chord font. :-)
  13
  14         title    = \markup { \override #'(font-family . sans)
  15                 { \fontsize #3.5 "Give Thanks" } }
  16         composer = \markup { \override #'(font-family . sans) "Henry Smith" }
  17         arranger = \markup { \override #'(font-family . sans) "arr. Shamus Hammons" }
  18         tagline  = "Engraved by JLH and Lilypond 2.8.2"
  19 }
  20
  21
  22 %
  23 % Lead vocal
  24 %
  25 LeadVox = \relative c''
  26 {
  27         \set Voice.autoBeaming = ##f
  28 %       \set Staff.instrumentName = #"Lead vox"
  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         \set Score.markFormatter = #format-mark-box-letters
  36
  37 \tiny
  38         g2 ~ g8 [ b, d g ] |   % 1
  39         g4. g8 fs4
  40 \normalsize
  41         b |   % 2
  42
  43         \repeat volta 2
  44         {
  45 \once \override Score.RehearsalMark #'self-alignment-X = #left
  46 \mark \markup { \override #'(font-family . sans) { \box { A } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
  47
  48                 b2. a8 [ g ] |   % 3
  49                 a4 fs8 [ d ] ~ d4 a'4 |   % 4
  50                 g2. fs8 [ e ] |   % 5
  51                 fs4 d8 [ b ] ~ b4 fs'4 |   % 6
  52                 e2 ~ e8 [ g g e ] |   % 7
  53                 d8 [ g ] ~ g4 g b |   % 8
  54                 a2. g4 |   % 9
  55         }
  56         \alternative
  57         {
  58                 {
  59                         a2. b4 |   % 10
  60                 }
  61                 {
  62                         a2. d4 |   % 11
  63                 }
  64         }
  65
  66         \repeat volta 2
  67         {
  68 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  69
  70                 d2. d8 [ d ] |   % 12
  71                 d4 g, a b |   % 13
  72                 c2. c8 [ c ] |   % 14
  73                 c4 fs, g a |   % 15
  74                 b2 ~ b8 [ b b b ] |   % 16
  75                 b4. e,8 fs4 g |   % 17
  76                 a2. g4 |   % 18
  77                 a2. d4 |   % 19
  78
  79                 d2. d8 [ d ] |   % 20
  80                 d4 g, a b |   % 21
  81                 c2. c8 [ c ] |   % 22
  82                 c4 fs, g a |   % 23
  83                 b2 ~ b8 [ b b b ] |   % 24
  84                 b4. e,8 fs4 g |   % 25
  85                 a2. g4 |   % 26
  86         }
  87         \alternative
  88         {
  89                 {
  90 %\once \override Score.RehearsalMark #'self-alignment-X = #right
  91 %\mark \markup { \italic { D.S. } }
  92                         a2. b4^\markup { \bold \italic { D.S. } } \bar "||"   % 27
  93                 }
  94                 {
  95                         a2. g4 |   % 28
  96                 }
  97         }
  98
  99         g1 ~ |   % 29
 100         g2. g4 |   % 30
 101         g1 ~ |   % 31
 102         g2. g4 |   % 32
 103         g1-\fermata \bar "|."   % 33
 104 }
 105
 106 LeadVoxText = \lyricmode
 107 {
 108         _ _ _ _ _ _ _ _
 109
 110         Give thanks with a gra- teful heart _
 111         Give thanks to the ho- ly one _
 112         Give thanks, _ be- cause he's gi- ven _
 113         Je- sus Christ, his son
 114
 115         Give
 116         son
 117
 118         And now, let the weak say 'I am strong'
 119         Let the poor say 'I am rich' _
 120         Be- cause of what the Lord has done for us
 121
 122         And now, let the weak say 'I am strong'
 123         Let the poor say 'I am rich' _
 124         Be- cause of what the Lord has done for us
 125
 126         Give
 127         us
 128
 129         Give thanks __ _
 130         Give thanks __ _
 131         Give thanks.
 132 }
 133
 134
 135 %
 136 % Chord names
 137 %
 138 Chords = \chordmode
 139 {
 140         g1 |   % 1
 141         d2:sus4 d |   % 2
 142
 143         g1 |   % 3
 144         b1:m7 |   % 4
 145         e1:m7 |   % 5
 146         b1:m |   % 6
 147         c1 |   % 7
 148         g1/b |   % 8
 149         f1 |   % 9
 150
 151         d2:sus4 d |   % 10
 152
 153         d1 |   % 11
 154
 155         b1:m |   % 12
 156         e1:m7 |   % 13
 157         a1:m |   % 14
 158         d1:7 |   % 15
 159         g1:maj7 |   % 16
 160         e1:m |   % 17
 161         f1 |   % 18
 162         d1:7 |   % 19
 163
 164         b1:m |   % 20
 165         e1:m7 |   % 21
 166         a1:m |   % 22
 167         d1:7 |   % 23
 168         g1:maj7 |   % 24
 169         e1:m |   % 25
 170         f1 |   % 26
 171
 172         d1:7 |   % 27
 173
 174         d1 |   % 28
 175
 176         g1 |   % 29
 177         c1/g |   % 30
 178         g1 |   % 31
 179         c1/g |   % 32
 180         g1 |   % 33
 181 }
 182
 183
 184 %
 185 % Chord rhythms
 186 %
 187 StaffC = \relative c
 188 {
 189         \set Voice.autoBeaming = ##f
 190         \numericTimeSignature
 191         \time 4/4
 192         \override NoteHead #'style = #'slash
 193         \teeny
 194
 195         c4 c c c |   % 1
 196         c4 c c c |   % 2
 197
 198         c4 c c c |   % 3
 199         c4 c c c |   % 4
 200         c4 c c c |   % 5
 201         c4 c c c |   % 6
 202         c4 c c c |   % 7
 203         c4 c c c |   % 8
 204         c4 c c c |   % 9
 205
 206         c4 c c c |   % 10
 207
 208         c4 c c c |   % 11
 209
 210         c4 c c c |   % 12
 211         c4 c c c |   % 13
 212         c4 c c c |   % 14
 213         c4 c c c |   % 15
 214         c4 c c c |   % 16
 215         c4 c c c |   % 17
 216         c4 c c c |   % 18
 217         c4 c c c |   % 19
 218
 219         c4 c c c |   % 20
 220         c4 c c c |   % 21
 221         c4 c c c |   % 22
 222         c4 c c c |   % 23
 223         c4 c c c |   % 24
 224         c4 c c c |   % 25
 225         c4 c c c |   % 26
 226
 227         c4 c c c |   % 27
 228
 229         c4 c c c |   % 28
 230
 231         c4 c c c |   % 29
 232         c4 c c c |   % 30
 233         c4 c c c |   % 31
 234         c4 c c c |   % 32
 235         c1-\fermata \bar "|."   % 33
 236 }
 237
 238
 239 \score
 240 {
 241         <<
 242                 \context Staff
 243                 <<
 244                         \new Voice = "lead" \LeadVox
 245                         \new Lyrics \lyricsto "lead" \LeadVoxText
 246                 >>
 247
 248                 \new ChoirStaff
 249                 <<
 250                         \new ChordNames \Chords
 251                         \new RhythmicStaff \StaffC
 252                 >>
 253
 254                 \set Score.skipBars = ##t
 255                 \set Score.melismaBusyProperties = #'()
 256         >>
 257
 258         \layout
 259         {
 260                 \context { \Staff \RemoveEmptyStaves }
 261         }
 262 }
 263
 264
 265 \paper
 266 {
 267   #(define fonts (make-pango-font-tree
 268     "Times New Roman"
 269     "JazzText"
 270     "Luxi Mono"
 271     (/ staffSize 20)))
 272
 273 % Don't spread staves vertically across last page (default: t)
 274 %       ragged-last-bottom = ##f
 275 % Don't spread staves vertically across the page (default: f)
 276 %       ragged-bottom = ##t
 277 % Allow partial line for last stave (default: f)
 278         ragged-last = ##t
 279
 280 % To find out what's eating the space at the top...
 281 %       annotate-spacing = ##t
 282 }
 283