Shamusworld >> Repos - music/blob - refiner's-fire.ly

   1 \version "2.16.0"
   2 \include "pop-chords.ly"
   3 \include "english.ly"
   4
   5 staffSize = #16 % or 18
   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 "Refiner's Fire" } }
  16 %       composer = \markup { \override #'(font-family . sans) "" }
  17         arranger = \markup { \override #'(font-family . sans) "arr. Ed Smart" }
  18         tagline  = "Engraved by JLH and Lilypond 2.8.2"
  19 }
  20
  21
  22 %
  23 % Lead vocal
  24 %
  25
  26 LeadVox = \relative c''
  27 {
  28 %       \set Voice.autoBeaming = ##f
  29 %       \set Staff.instrumentName = #"Lead vox"
  30         \clef G
  31         \key e \major
  32         \override Staff.TimeSignature #'style = #'()
  33         \time 4/4
  34 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  35
  36         % Intro
  37
  38         R1 |   % 1
  39         R1 |   % 2
  40         R1 |   % 3
  41         R1 \bar "||:"   % 4
  42
  43         \repeat volta 2
  44         {
  45                 % Verse
  46
  47 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  48
  49                 gs4 b8 fs ~ fs4 gs |   % 5
  50                 e2 e8 fs gs a |   % 6
  51                 a2. r8 e |   % 7
  52                 e4 ds e fs |   % 8
  53                 gs4 b8 fs ~ fs4 gs |   % 9
  54                 e2 e8 fs gs a |   % 10
  55                 a1 |   % 11
  56                 gs4. ( fs8 ) fs2 \bar "||"   % 12
  57
  58                 % Chorus
  59
  60 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  61
  62                 gs2 a4 gs8 fs8 ~ |   % 13
  63                 fs2 r |   % 14
  64                 gs4 b a gs8 fs ~ |   % 15
  65                 fs2 r4 e8 b' |   % 16
  66                 b1 |   % 17
  67                 b8 ( fs ) fs4 r2 |   % 18
  68                 b8 ( a ) gs a ~ a e ( fs ) gs ~ |   % 19
  69                 gs8 fs4. r8 e e b' |   % 20
  70                 b1 |   % 21
  71                 b8 ( fs ) fs4 r2 |   % 22
  72                 b8 ( a ) gs a ~ a e ( fs ) gs ~ |   % 23
  73                 gs4 a8 gs ~ gs fs4. |   % 24
  74                 a8 gs fs e ~ e ds4. |   % 25
  75         }
  76         \alternative
  77         {
  78                 {
  79                         e1 |   % 26
  80                         R1 |   % 27
  81                         R1 |   % 28
  82                         R1 |   % 29
  83                 }
  84                 {
  85                         e1 \bar "||"   % 30
  86                 }
  87         }
  88
  89         % Outro
  90
  91 \mark \markup { \override #'(font-family . sans) { \box { C } } }
  92
  93         a8 gs fs e ~ e ds4. |   % 31
  94         e2 r2 |   % 32
  95         a8 gs fs e ~ e ds4. |   % 33
  96         e2 r2 |   % 34
  97         R1 |   % 35
  98         r1^\fermata \bar "|."   % 36
  99 }
 100
 101 LeadVoxText = \lyricmode
 102 {
 103         Pu- ri- fy _ my heart, let me be as gold
 104         and pre- cious sil- ver
 105         Pu- ri- fy _ my heart, let me be as gold
 106         pure _ gold
 107
 108         Re- fi- ner's fire _
 109         My heart's one de- sire _
 110         is to be ho- _ ly
 111         Set _ a- part _ for _ you, _ Lord
 112         I choose to be ho- _ ly
 113         Set _ a- part _ for _ you _ my mas- _ ter
 114         Rea- dy to do _ your will
 115
 116         will
 117
 118         Rea- dy to do _ your will
 119         Rea- dy to do _ your will.
 120 }
 121
 122 LeadVoxTextB = \lyricmode
 123 {
 124         Pu- ri- fy _ my heart, cleanse me from wi- thin
 125         and make me ho- ly
 126         Pu- ri- fy _ my heart, cleanse me from my sin
 127         deep wi- thin
 128 }
 129
 130
 131 %
 132 % Chord names
 133 %
 134
 135 Chords = \chordmode
 136 {
 137 %Bah, can't we set this globally?
 138 %       \popChords
 139
 140         % Intro
 141
 142         e4. e8:sus4 s2 |   % 1
 143         e4. e8:sus4 s2 |   % 2
 144         e4. e8:sus4 s2 |   % 3
 145         e1 |   % 4
 146
 147         \repeat volta 2
 148         {
 149                 % Verse
 150
 151                 e4. b8/ds s2 |   % 5
 152                 cs1:m |   % 6
 153                 fs1:m7 |   % 7
 154                 e4/b b a/b b |   % 8
 155                 e4. b8/ds s2 |   % 9
 156                 cs1:m |   % 10
 157                 fs1:m7 |   % 11
 158                 e4./b b8 s2 |   % 12
 159
 160                 % Chorus
 161
 162                 e2 a4. b8 |   % 13
 163                 s1 |   % 14
 164                 e2 a4. b8 |   % 15
 165                 s1 |   % 16
 166                 e1 |   % 17
 167                 b1 |   % 18
 168                 e4./gs a2 e8/b |   % 19
 169                 s8 b2.. |   % 20
 170                 e1 |   % 21
 171                 b1 |   % 22
 172                 e4./gs a2 e8/b |   % 23
 173                 s4. b2 s8 |   % 24
 174                 fs4.:m b4:sus4 b4. |   % 25
 175         }
 176         \alternative
 177         {
 178                 {
 179                         e4. e8:sus4 s2 |   % 26
 180                         e4. e8:sus4 s2 |   % 27
 181                         e4. e8:sus4 s2 |   % 28
 182                         e1 |   % 29
 183                 }
 184                 {
 185                         cs1:m |   % 30
 186                 }
 187         }
 188
 189         % Outro
 190
 191         fs4.:m b4:sus4 b4. |   % 31
 192         cs1:m |   % 32
 193         fs4.:m b4:sus4 b4. |   % 33
 194         e4. e8:sus4 s2 |   % 34
 195         e4. e8:sus4 s2 |   % 35
 196         e1 |   % 36
 197 }
 198
 199
 200 %
 201 % Chord rhythms
 202 %
 203
 204 % Use a RhythmicStaff on the chords instead of this?
 205 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 206
 207 StaffC = \relative c
 208 {
 209 %       \set Voice.autoBeaming = ##f
 210 %       \set Staff.instrumentName = #"Rhythm"
 211         \override Staff.TimeSignature #'style = #'()
 212         \time 4/4
 213         \override NoteHead #'style = #'slash
 214
 215         % Intro
 216
 217         c4. c8 ~ c4 c |   % 1
 218         c4. c8 ~ c4 c |   % 2
 219         c4. c8 ~ c4 c |   % 3
 220         c1 \bar "||:"   % 4
 221
 222         \repeat volta 2
 223         {
 224                 % Verse
 225
 226                 c4. c8 ~ c4 c |   % 5
 227                 c4 c c c |   % 6
 228                 c4 c c c |   % 7
 229                 c4 c c c |   % 8
 230                 c4. c8 ~ c4 c |   % 9
 231                 c4 c c c |   % 10
 232                 c4 c c c |   % 11
 233                 c4. c8 ~ c4 c \bar "||"   % 12
 234
 235                 % Chorus
 236
 237                 c4 c c4. c8 ~ |   % 13
 238                 c4 c c c |   % 14
 239                 c4 c c4. c8 ~ |   % 15
 240                 c4 c c c |   % 16
 241                 c4 c c c |   % 17
 242                 c4 c c c |   % 18
 243                 c4. c8 ~ c4. c8 ~ |   % 19
 244                 c8 c4. ~ c4 c |   % 20
 245                 c4 c c c |   % 21
 246                 c4 c c c |   % 22
 247                 c4. c8 ~ c4. c8 ~ |   % 23
 248                 c4. c8 ~ c4 c |   % 24
 249                 c4. c8 ~ c c4. |   % 25
 250         }
 251         \alternative
 252         {
 253                 {
 254                         c4. c8 ~ c4 c |   % 26
 255                         c4. c8 ~ c4 c |   % 27
 256                         c4. c8 ~ c4 c |   % 28
 257                         c1 |   % 29
 258                 }
 259                 {
 260                         c4 c c c |   % 30
 261                 }
 262         }
 263
 264         % Outro
 265
 266         c4. c8 ~ c c4. |   % 31
 267         c4 c c c |   % 32
 268         c4. c8 ~ c c4. |   % 33
 269         c4. c8 ~ c2 |   % 34
 270         c4. c8_\markup { \italic { rit. } } ~ c2 |   % 35
 271         c1^\fermata \bar "|."   % 36
 272 }
 273
 274
 275 \score
 276 {
 277         <<
 278                 <<
 279                         \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
 280                         \new Lyrics \lyricsto "lead" \LeadVoxText
 281                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 282                 >>
 283
 284                 \new ChoirStaff = "Rhythm"
 285                 <<
 286                         \new ChordNames = "chords" \Chords
 287                         \new RhythmicStaff = "chordRhythm" \StaffC
 288                 >>
 289
 290                 \set Score.skipBars = ##t
 291                 \set Score.melismaBusyProperties = #'()
 292         >>
 293 }
 294
 295
 296 \paper
 297 {
 298   #(define fonts (make-pango-font-tree
 299     "Times New Roman"
 300     "DomCasual BT"
 301     "Luxi Mono"
 302     (/ staffSize 20)))
 303
 304 % Spread staves vertically across last page (default: t)
 305         ragged-last-bottom = ##f
 306 % Don't spread staves vertically across the page (default: f)
 307 %       ragged-bottom = ##t
 308 % Allow partial line for last stave (default: f)
 309         ragged-last = ##t
 310
 311 % To find out what's eating the space at the top...
 312 %       annotate-spacing = ##t
 313 %let's try this: [It works! Huzzah!]
 314         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 315 }