Shamusworld >> Repos - music/blob - god-is-my-redeemer.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 = #18
   7 #(set-default-paper-size "letter")
   8 #(set-global-staff-size staffSize)
   9 #(ly:set-option (quote no-point-and-click))
  10
  11 \header
  12 {
  13         title    = \markup { \override #'(font-family . sans) \fontsize #3.5 "God Is My Redeemer" }
  14 %       composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Traditional" }
  15         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
  16         tagline  = "Engraved by JLH and Lilypond 2.8.6"
  17 }
  18
  19
  20 %
  21 % Lead vocal
  22 %
  23
  24 LeadVox = \relative c'
  25 {
  26 %       \set Voice.autoBeaming = ##f
  27 %       \set Staff.instrumentName = #"Lead vox"
  28         \clef G
  29         \key d \major
  30         \override Staff.TimeSignature #'style = #'()
  31         \time 4/4
  32 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  33
  34         % Intro
  35
  36         \tiny
  37         r4 <b' d,>8 [ <b d,>16 <b d,>16 ] ~ <b d,>8 [ <cs e,> ] <d g,>4 |   % 1
  38         r4 <a d,>8 [ <a d,>16 <a d,>16 ] ~ <a d,>8 [ <cs e,> ] <d fs,>4 |   % 2
  39         r4 g, fs e |   % 3
  40         d1 |   % 4
  41         \normalsize
  42
  43         % Verse
  44
  45         \repeat volta 3
  46         {
  47 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  48
  49                 fs2^\markup { \italic { 3rd time instr. solo to B } } e  |   % 5
  50                 d2 r4. a'8 |   % 6
  51                 b2 ~ b8 [ a g a ] |   % 7
  52                 a2 r |   % 8
  53                 fs2 e |   % 9
  54                 d2. ~ d8 [ fs ] |   % 10
  55                 g4. g8 g8. [ fs16 ] ~ fs8 [ d ] |   % 11
  56                 e2. r8 a, \bar"||"   % 12
  57
  58 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  59
  60                 fs'2 e | d2. ~ d8 [ a' ] |   % 14
  61                 b2 ~ b8 [ a g a ] |   % 15
  62                 a1 |   % 16
  63                 r4 <b d,>8 [ <b d,>16 <b d,>16 ] ~ <b d,>8 [ <cs e,> ] <d g,>4 |   % 17
  64                 r4 <a d,>8 [ <a d,>16 <a d,>16 ] ~ <a d,>8 [ <cs e,> ] <d fs,>4 |   % 18
  65                 r4 g, fs e |   % 19
  66         }
  67         \alternative
  68         {
  69                 {
  70                         d1 |   % 20
  71                 }
  72                 {
  73                         d2 r |   % 21
  74                 }
  75         }
  76
  77         % Outro
  78
  79 \mark \markup { \override #'(font-family . sans) { \box { C } } }
  80         r4 <b' d,>8 [ <b d,>16 <b d,>16 ] ~ <b d,>8 [ <cs e,> ] <d g,>4 |   % 22
  81         r4 <a d,>8 [ <a d,>16 <a d,>16 ] ~ <a d,>8 [ <cs e,> ] <d fs,>4 |   % 23
  82         r4 g, fs e |   % 24
  83         d1 |   % 25
  84
  85         \repeat volta 3
  86         {
  87 \mark \markup { \override #'(font-family . sans) { \box { D } } }
  88 %               \mark \default
  89                 r4^\markup { \italic { 3x } } <b' d,>8 [ <b d,>16 <b d,>16 ] ~ <b d,>8 [ <cs e,> ] <d g,>4 |   % 26
  90                 r4 <a d,>8 [ <a d,>16 <a d,>16 ] ~ <a d,>8 [ <cs e,> ] <d fs,>4 |   % 27
  91         }
  92
  93         % Ending
  94
  95         r4 g, fs e |   % 28
  96         d1^\fermata \bar "|."   % 29
  97 }
  98
  99 LeadVoxText = \lyricmode
 100 {
 101         _ _ _ _ _ _ _ _
 102         _ _ _ _ _ _ _ _
 103
 104         God is my re- dee- __ _ _ _ _ mer
 105         He heals me _ with re- a- ssu- __ _ _ ring love
 106         And I love my _ re- dee- __ _ _ _ _ mer
 107         O- ver- whel- __ _ _ ming
 108         o- ver- co- __ _ _ ming
 109         re- dee- ming love
 110
 111         love
 112
 113         O- ver- whel- __ _ _ ming
 114         o- ver- co- __ _ _ ming
 115         re- dee- ming love
 116
 117         O- ver- whel- __ _ _ ming
 118         o- ver- co- __ _ _ ming
 119
 120         re- dee- ming love
 121 }
 122
 123
 124 %
 125 % Chord names
 126 %
 127
 128 Chords = \chordmode
 129 {
 130 %Bah, can't we set this globally?
 131 %       \popChords
 132
 133         % Intro
 134
 135         g1 |   % 1
 136         d2./fs b4:m7 |   % 2
 137         e2:m7 d4/a a |   % 3
 138         d2 g/a |   % 4
 139
 140         % Verse
 141
 142         \repeat volta 3
 143         {
 144                 d2 a |   % 5
 145                 b2:m7 b:m7/a |   % 6
 146                 g1 |   % 7
 147                 d1 |   % 8
 148                 d2 a/cs |   % 9
 149                 b2:m7 b:m7/a |   % 10
 150                 e1:m7 |   % 11
 151                 a2:sus4 a |   % 12
 152
 153                 d2 a/cs |   % 13
 154                 b2:m7 b:m7/a |   % 14
 155                 g1 |   % 15
 156                 d2 e4:m11 d/fs |   % 16
 157                 g1 |   % 17
 158                 d2./fs b4:m7 |   % 18
 159                 e2:m7 d4/a a |   % 19
 160         }
 161         \alternative
 162         {
 163                 {
 164                         d2 g/a |   % 20
 165                 }
 166                 {
 167                         d2 e4:m11 d/fs |   % 21
 168                 }
 169         }
 170
 171         % Outro
 172
 173         g1 |   % 22
 174         d2./fs b4:m7 |   % 23
 175         e2:m7 d4/a a |   % 24
 176         d2 e4:m11 d/fs |   % 25
 177
 178         \repeat volta 3
 179         {
 180                 g1 |   % 26
 181                 d2./fs b4:m7 |   % 27
 182         }
 183
 184         % Ending
 185
 186         e2:m7 d4/a a |   % 28
 187         d1 \bar "|."   % 29
 188 }
 189
 190
 191 %
 192 % Chord rhythms
 193 %
 194
 195 % Use a RhythmicStaff on the chords instead of this?
 196 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 197
 198 StaffC = \relative c
 199 {
 200 %       \set Voice.autoBeaming = ##f
 201 %       \set Staff.instrumentName = #"Rhythm"
 202         \override Staff.TimeSignature #'style = #'()
 203         \time 4/4
 204         \override NoteHead #'style = #'slash
 205
 206         % Intro
 207
 208         c4 c c c |   % 1
 209         c4 c c c |   % 2
 210         c4 c c c |   % 3
 211         c4 c c c |   % 4
 212
 213         % Verse
 214
 215         \repeat volta 3
 216         {
 217                 c4 c c c |   % 5
 218                 c4 c c c |   % 6
 219                 c4 c c c |   % 7
 220                 c4 c c c |   % 8
 221                 c4 c c c |   % 9
 222                 c4 c c c |   % 10
 223                 c4 c c c |   % 11
 224                 c4 c c c |   % 12
 225
 226                 c4 c c c |   % 13
 227                 c4 c c c |   % 14
 228                 c4 c c c |   % 15
 229                 c4 c c c |   % 16
 230                 c4 c c c |   % 17
 231                 c4 c c c |   % 18
 232                 c4 c c c |   % 19
 233         }
 234         \alternative
 235         {
 236                 {
 237                         c4 c c c |   % 20
 238                 }
 239                 {
 240                         c4 c \< c c \! |   % 21
 241                 }
 242         }
 243
 244         % Outro
 245
 246         c4 c c c |   % 22
 247         c4 c c c |   % 23
 248         c4 c c c |   % 24
 249         c4 c \< c c \! |   % 25
 250
 251         \repeat volta 3
 252         {
 253                 c4 c c c |   % 26
 254                 c4 c c c |   % 27
 255         }
 256
 257         % Ending
 258
 259         c2_\markup { \italic { rit. } } c4 c |   % 28
 260         c1^\fermata \bar "|."   % 29
 261 }
 262
 263
 264 \score
 265 {
 266         <<
 267 %               \new ChoirStaff = "Vox"
 268                 <<
 269                         \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
 270                         \new Lyrics \lyricsto "lead" \LeadVoxText
 271                 >>
 272
 273                 \new ChoirStaff = "Rhythm"
 274                 <<
 275                         \new ChordNames = "chords" \Chords
 276                         \new RhythmicStaff = "chordRhythm" \StaffC
 277                 >>
 278
 279                 \set Score.skipBars = ##t
 280                 \set Score.melismaBusyProperties = #'()
 281         >>
 282         \layout
 283         {
 284 %               linewidth = 170.000 \mm
 285 %               textheight = 250.000 \mm
 286 %               papersize = "letter"
 287 %               ragged-last-bottom = ##t
 288                 ragged-last = ##t
 289         }
 290 }
 291
 292
 293 \paper
 294 {
 295   #(define fonts (make-pango-font-tree
 296     "Times New Roman"
 297     "DomCasual BT"
 298     "Luxi Mono"
 299     (/ staffSize 20)))
 300 }