Shamusworld >> Repos - music/blob - above-all.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 %{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %}
  12
  13 \header
  14 {
  15 %Let's bump up the title size and switch to the chord font. :-)
  16
  17         title    = \markup { \override #'(font-family . sans) \fontsize #3.5 "Above All" }
  18         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Michael W. Smith" }
  19         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
  20         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  21 }
  22
  23
  24 %
  25 % Lead vocal
  26 %
  27
  28 LeadVox = \relative c''
  29 {
  30 %       \set Voice.autoBeaming = ##f
  31 %       \set Staff.instrument = #"Lead vox"
  32         \clef G
  33         \key bf \major
  34         \override Staff.TimeSignature #'style = #'()
  35         \time 4/4
  36 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  37
  38         % Intro
  39
  40         \tiny r2 r8 d f bf |   % 1
  41         c8.f,16 f4 ~ f ~ f8 bf16 a |   % 2
  42         bf8. ef,16 ef4 ~ ef d |   % 3
  43         <f c>2 \normalsize r8 f,16 f ~ f bf8. \bar "||:"   % 4
  44
  45         % Verse
  46
  47         \repeat volta 2
  48         {
  49 \once \override Score.RehearsalMark #'self-alignment-X = #left
  50 \mark \markup { \override #'(font-family . sans) { \box { A } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
  51
  52                 a8. g16 ~ g4 r8. ef16 ef g8. |   % 5
  53                 f2 r8. f16 f bf8. |   % 6
  54                 a8. g16 ~ g8 a bf a16 g ~ g f f8 ~ |   % 7
  55                 f2 r8. d16 d g8. |   % 8
  56                 g8 g4 a8 bf a16 f ~ f8 d16 g ( ~ |   % 9
  57                 g4. f8 ~ f2 ) |   % 10
  58         }
  59         \alternative
  60         {
  61                 {
  62                         ef8 ef16 ef ~ ef8 f16 g ~ g8 f16 ef ~ ef8 d16 c ~ |   % 11
  63                         c2 r8 f16 f ~ f bf8. |   % 12
  64                 }
  65                 {
  66                         ef,8 ef16 ef ~ ef8 f16 g ~ g8 f16 ef ~ ef8 d16 d ~ |   % 13
  67                 }
  68         }
  69
  70         d2 r |   % 14
  71
  72         % Chorus
  73
  74         \repeat volta 3
  75         {
  76 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  77
  78                 d'4. c16 ef ~ ef2 |   % 15
  79                 c8 d16 ef ~ ef8 d16 d ~ d4 r8. bf16 |   % 16
  80                 d4. c16 ef ~ ef4. ~ ef16 c |   % 17
  81                 c8 d16 ef ~ ef8 d16 d ~ d4 d8 c16 bf ~  |   % 18
  82                 bf2 d8 c bf a16 g ~ |   % 19
  83                 g2 r8. c16 bf8 d,16 ef ~ |   % 20
  84                 ef2 r8. f16 bf8 a16 bf ~ |   % 21
  85                 bf2 r4 g16 a8 ( bf16 ) |   % 22
  86         }
  87         \alternative
  88         {
  89                 {
  90                         << { \voiceOne bf1 } \context Voice = v { \voiceThree \tiny \tiny r2 r8 d f bf \normalsize } >> \oneVoice |   % 23
  91                         \tiny c8.f,16 f4 ~ f ~ f8 bf16 a |   % 24
  92                         bf8. ef,16 ef4 ~ ef d |   % 25
  93                         <f c>2 \normalsize r8 f,16 f ~ f^\markup { \hspace #0.0 \raise #1.0 \bold D.S. } bf8. \bar "||"   % 26
  94                 }
  95                 {
  96                         bf1 |   % 27
  97                 }
  98                 {
  99                         bf2. d8 c16 bf ~ |   % 28
 100                 }
 101         }
 102
 103         bf2 d8 c bf a16 g ~ |   % 29
 104         g2 r8. c16 bf8 d,16 ef ~ |   % 30
 105         ef2 r8. f16 bf8 a16 bf ~ |   % 31
 106         bf2 r4 g16 a8 ( bf16 ) |   % 32
 107         bf1^\fermata \bar "|."   % 33
 108 }
 109
 110 LeadVoxText = \lyricmode
 111 {
 112         _ _ _ _ _ _ _ _
 113         _ _ _ _ _ _ _ _
 114
 115         A -- bove _ all po -- wers _ a -- bove all kings
 116         A -- bove all na -- ture _ and all cre -- a -- _ ted things _
 117         A -- bove all wis -- dom and all the ways _ of man __ _ _ _
 118         You were here _ be -- fore _ the world _ be -- gan _
 119
 120         A -- bove _ all
 121         There's no way _ to mea -- _ sure what _ you're worth _
 122
 123         Cru -- ci -- fied, _ laid be -- hind _ the stone _
 124         You lived to die, __ _ _ re -- ject -- ed and _ a -- lone _
 125         Like a rose _ tra -- mpled on the ground _
 126         You took the fall _ and thought of me _
 127         A -- bove _ all
 128
 129         _ _ _ _ _
 130         _ _ _ _ _ _ _ _
 131
 132         A -- bove _ all
 133         all
 134         all
 135
 136         Like a rose _ tra -- mpled on the ground _
 137         You took the fall _ and thought of me _
 138         A -- bove _ all
 139 }
 140
 141 LeadVoxTextB = \lyricmode
 142 {
 143         _ _ _ _ _ _ _ _
 144         _ _ _ _ _ _ _ _
 145
 146         _ _ _ _ king -- doms _ a -- bove all thrones
 147         A -- bove all won -- ders _ the world has e -- _ ver known _
 148         A -- bove all wealth _ and trea -- sures of _ the earth __ _ _
 149 }
 150
 151
 152 %
 153 % Chord names
 154 %
 155
 156 Chords = \chordmode
 157 {
 158 %Bah, can't we set this globally?
 159 %       \popChords
 160
 161         % Intro
 162
 163         bf1:sus2 |   % 1
 164         f1/bf |   % 2
 165         ef1/bf |   % 3
 166         f2/bf bf/d |   % 4
 167
 168         % Verse
 169
 170         \repeat volta 2
 171         {
 172                 ef2 f |   % 5
 173                 bf2 bf/d |   % 6
 174                 ef2 f4:sus4 f |   % 7
 175                 bf1 |   % 8
 176                 g2:m bf:maj7/f |   % 9
 177                 ef2 bf/d |   % 10
 178         }
 179         \alternative
 180         {
 181                 {
 182                         c2:m c:m/bf |   % 11
 183                         f2/a bf/d |   % 12
 184                 }
 185                 {
 186                         c2:m c:m/bf |   % 13
 187                 }
 188         }
 189
 190         a2:m11 d |   % 14
 191
 192         % Chorus
 193
 194         \repeat volta 3
 195         {
 196                 bf2 c:m11 |   % 15
 197                 f2/a bf |   % 16
 198                 bf2 c:m11 |   % 17
 199                 f2/a bf4 f/a |   % 18
 200                 g2:m bf:maj7/f |   % 19
 201                 ef2 bf/d |   % 20
 202                 c2:m7 bf/d |   % 21
 203                 ef2 f4:sus4 f |   % 22
 204         }
 205         \alternative
 206         {
 207                 {
 208                         bf1 |   % 23
 209                         f1/bf |   % 24
 210                         ef1/bf |   % 25
 211                         f2/bf bf/d |   % 26
 212                 }
 213                 {
 214                         bf2 ef4/bf f/bf |   % 27
 215                 }
 216                 {
 217                         bf2 f/a |   % 28
 218                 }
 219         }
 220
 221         g2:m bf:maj7/f |   % 29
 222         ef2 bf/d |   % 30
 223         c2:m bf/d |   % 31
 224         ef2 f4:sus4 f |   % 32
 225         bf1 |   % 33
 226 }
 227
 228
 229 %
 230 % Chord rhythms
 231 %
 232
 233 % Use a RhythmicStaff on the chords instead of this?
 234 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 235
 236 StaffC = \relative c
 237 {
 238 %       \set Voice.autoBeaming = ##f
 239 %       \set Staff.instrument = #"Rhythm"
 240         \override Staff.TimeSignature #'style = #'()
 241         \time 4/4
 242         \override NoteHead #'style = #'slash
 243
 244         % Intro
 245
 246         c4 c c c |   % 1
 247         c4 c c c |   % 2
 248         c4 c c c |   % 3
 249         c4 c c c \bar "||:"   % 4
 250
 251         % Verse
 252
 253         \repeat volta 2
 254         {
 255                 c4 c c c |   % 5
 256                 c4 c c c |   % 6
 257                 c4 c c c |   % 7
 258                 c4 c c c |   % 8
 259                 c4 c c c |   % 9
 260                 c4 c c c |   % 10
 261         }
 262         \alternative
 263         {
 264                 {
 265                         c4 c c c |   % 11
 266                         c4 c c c |   % 12
 267                 }
 268                 {
 269                         c4 c c c |   % 13
 270                 }
 271         }
 272
 273         c4 c c \< c \! |   % 14
 274
 275         % Chorus
 276
 277         \repeat volta 3
 278         {
 279                 c4 c c c |   % 15
 280                 c4 c c c |   % 16
 281                 c4 c c c |   % 17
 282                 c4 c c c |   % 18
 283                 c4 c c c |   % 19
 284                 c4 c c c |   % 20
 285                 c4 c c c |   % 21
 286                 c4 c c c |   % 22
 287         }
 288         \alternative
 289         {
 290                 {
 291                         c4 c c c |   % 23
 292                         c4 c c c |   % 24
 293                         c4 c c c |   % 25
 294                         c4 c c c \bar "||"   % 26
 295                 }
 296                 {
 297                         c4 c c \< c \! |   % 27
 298                 }
 299                 {
 300                         c4 c c c |   % 28
 301                 }
 302         }
 303
 304         c4 c c c |   % 29
 305         c4 c c c |   % 30
 306         c4 c c c |   % 31
 307         c4_\markup { \italic { rit. } } c c c |   % 32
 308         c1^\fermata \bar "|."   % 33
 309 }
 310
 311
 312 \score
 313 {
 314         <<
 315                 <<
 316                         \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
 317                         \new Lyrics \lyricsto "lead" \LeadVoxText
 318                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 319                 >>
 320
 321                 \new ChoirStaff = "Rhythm"
 322                 <<
 323                         \new ChordNames = "chords" \Chords
 324                         \new RhythmicStaff = "chordRhythm" \StaffC
 325                 >>
 326
 327                 \set Score.skipBars = ##t
 328                 \set Score.melismaBusyProperties = #'()
 329         >>
 330
 331         \layout
 332         {
 333 %               \context { \RemoveEmptyStaffContext }
 334 %               ragged-last-bottom = ##t
 335                 ragged-last = ##t
 336         }
 337 }
 338
 339
 340 \paper
 341 {
 342   #(define fonts (make-pango-font-tree
 343     "Times New Roman"
 344     "DomCasual BT"
 345     "Luxi Mono"
 346     (/ staffSize 20)))
 347 }