Shamusworld >> Repos - music/blob - i-stand-amazed-in-the-presence.ly

   1 \version "2.16.0"
   2 \include "pop-chords.ly"
   3 \include "english.ly"
   4
   5 % Good sizes are 16, 18, & 20 (11, 13, 14, 23, 26)
   6 % To fit on one page, use 16
   7 staffSize = #23
   8 #(set-default-paper-size "letter")
   9 #(set-global-staff-size staffSize)
  10 #(ly:set-option (quote no-point-and-click))
  11
  12 %{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %}
  13
  14 \header
  15 {
  16 %Let's bump up the title size and switch to the chord font. :-)
  17
  18         title    = \markup { \override #'(font-family . sans) \fontsize #3.5 "I Stand Amazed In The Presence" }
  19         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Charles H. Gabriel" }
  20         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
  21         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  22 }
  23
  24
  25 %
  26 % Lead vocal
  27 %
  28
  29 LeadVox = \relative c'
  30 {
  31 %       \set Voice.autoBeaming = ##f
  32 %       \set Staff.instrument = #"Lead vox"
  33         \clef G
  34         \key g \major
  35         \override Staff.TimeSignature #'style = #'()
  36         \time 4/4
  37 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  38
  39         % Intro
  40
  41         \repeat volta 2
  42         {
  43                 R1 |   % 1
  44                 R1 |   % 2
  45                 R1 |   % 3
  46                 r2 r4 r8 d |   % 4
  47         }
  48
  49         \repeat volta 3
  50         {
  51                 % Verse
  52
  53 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  54
  55                 d4 b ( d ) g8 a16 g |   % 5
  56                 b4. ( a16 g ) g4 g |   % 6
  57                 fs4 fs8 fs g4 a |   % 7
  58                 g2. d4 |   % 8
  59                 e4. e8 g4 fs8 e |   % 9
  60                 d4. ( g8 ) g4 a |   % 10
  61                 b4 b8 b a4 a |   % 11
  62                 g1 \bar "||"   % 12
  63
  64                 % Chorus
  65
  66 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  67
  68                 b4 b b8 a g4 |   % 13
  69                 d'4 d d8 c b4 |   % 14
  70                 a4 a a4. b8 |   % 15
  71                 c4 b a2 |   % 16
  72                 b4 b b8 a g4 |   % 17
  73                 d'4 d d8 c b4 |   % 18
  74                 a4 b8 ( c ) b4 a |   % 19
  75                 \time 2/4 g4 fs \time 4/4 |   % 20
  76         }
  77         \alternative
  78         {
  79                 {
  80                         g1 |   % 21
  81                         r2 r4 r8 d |   % 22
  82                 }
  83                 {
  84                         g1 \bar "||"   % 23
  85                 }
  86         }
  87
  88         % Chorus (redux)
  89
  90 \mark \markup { \override #'(font-family . sans) { \box { C } } }
  91
  92         b4 b b8 a g4 |   % 24
  93         d'4 d d8 c b4 |   % 25
  94         a4 a a4. b8 |   % 26
  95         c4 b a2 |   % 27
  96         b4 b b8 a g4 |   % 28
  97         d'4 d d8 c b4 |   % 29
  98         a4 b8 ( c ) b4 a |   % 30
  99         g2 fs \bar "||"   % 31
 100
 101         % Outro
 102
 103         g1 |   % 32
 104         R1 |   % 33
 105         r1^\fermata \bar "|."   % 34
 106 }
 107
 108 LeadVoxText = \lyricmode
 109 {
 110         I stand a -- _ mazed in the pre- __ _ _ sence
 111         of Je -- sus the Na -- za -- rene;
 112         And won -- der how he could love _ me
 113         a sin -- ner con -- demned un -- clean
 114
 115         Oh, how mar -- vel -- ous!
 116         Oh, how won -- der- ful!
 117         and my song shall e -- ver be:
 118         Oh, how mar -- vel -- ous!
 119         Oh, how won -- der -- ful!
 120         is my _ sav -- ior’s love for me.
 121
 122         He
 123         me
 124
 125         Oh, how mar -- vel -- ous!
 126         Oh, how won -- der -- ful!
 127         and my song shall e -- ver be:
 128         Oh, how mar -- vel -- ous!
 129         Oh, how won -- der -- ful!
 130         is my _ sav -- ior’s love for me.
 131 }
 132
 133 LeadVoxTextB = \lyricmode
 134 {
 135         _
 136         took my _ sins and my sor- __ _ _ rows
 137         he made them his ver -- y own;
 138         He bore the bur -- den to Cal -- _ vr’y
 139         and suf -- ferred and died a -- lone.
 140
 141         _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
 142         _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
 143
 144         When
 145 }
 146
 147 LeadVoxTextC = \lyricmode
 148 {
 149         _
 150         with the _ ran -- somed in glo- __ _ _ ry
 151         his face I at last shall see;
 152         ’Twill be my joy through the a -- _ ges
 153         to sing of his love for me.
 154 }
 155
 156
 157 %
 158 % Chord names
 159 %
 160
 161 Chords = \chordmode
 162 {
 163 %Bah, can't we set this globally?
 164 %       \popChords
 165
 166         % Intro
 167
 168         \repeat volta 2
 169         {
 170                 g2 s16 a4..:m11 |   % 1
 171                 c2:sus2 s16 d8.:sus4 d4 |   % 2
 172                 g2 s16 a4..:m11 |   % 3
 173                 c2:sus2 s16 d8.:sus4 d4 |   % 4
 174         }
 175
 176         \repeat volta 3
 177         {
 178                 % Verse
 179
 180                 g2 a:m11 |   % 5
 181                 g2/b e:m7 |   % 6
 182                 d2 c:sus2 |   % 7
 183                 g1 |   % 8
 184                 c2:sus2 a:m11 |   % 9
 185                 g2 e:m7 |   % 10
 186                 g2/d d |   % 11
 187                 g2 d4:sus4 d |   % 12
 188
 189                 % Chorus
 190
 191                 g2 a:m11 |   % 13
 192                 g2/b e:m7 |   % 14
 193                 a1:m7 |   % 15
 194                 d2:sus4 d |   % 16
 195                 g2 a:m11 |   % 17
 196                 g2/b e:m7 |   % 18
 197                 a2:m7 g4/b c:sus2 |   % 19
 198                 \time 2/4 g4/d d \time 4/4 |   % 20
 199         }
 200         \alternative
 201         {
 202                 {
 203                         g2 a:m11 |   % 21
 204                         c2:sus2 d4:sus4 d |   % 22
 205                 }
 206                 {
 207                         g2 d4:sus4 d |   % 23
 208                 }
 209         }
 210
 211         % Chorus (redux)
 212
 213         g2 a:m7 |   % 24
 214         g2/b e:m7 |   % 25
 215         a2:m7 a:m7/g |   % 26
 216         f2 d4:sus4 d |   % 27
 217         g2 a:m7 |   % 28
 218         g2/b e:m7 |   % 29
 219         a2:m7 g4/b c:sus2 |   % 30
 220         g2/d d |   % 31
 221
 222         % Outro
 223
 224         g2 s16 a4..:m7 |   % 32
 225         c2:sus2 s16 d8.:sus4 d4 |   % 33
 226         g1 |   % 34
 227 }
 228
 229
 230 %
 231 % Chord rhythms
 232 %
 233
 234 % Use a RhythmicStaff on the chords instead of this?
 235 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 236
 237 StaffC = \relative c
 238 {
 239 %       \set Voice.autoBeaming = ##f
 240 %       \set Staff.instrument = #"Rhythm"
 241         \override Staff.TimeSignature #'style = #'()
 242         \time 4/4
 243         \override NoteHead #'style = #'slash
 244
 245         % Intro
 246
 247         \repeat volta 2
 248         {
 249                 c4 c r16 c c c c4 |   % 1
 250                 c4 c r16 c8. c4 |   % 2
 251                 c4 c r16 c c c c4 |   % 3
 252                 c4 c r16 c8. c4 |   % 4
 253         }
 254
 255         \repeat volta 3
 256         {
 257                 % Verse
 258
 259                 c4 c c c |   % 5
 260                 c4 c c c |   % 6
 261                 c4 c c c |   % 7
 262                 c4 c c c |   % 8
 263                 c4 c c c |   % 9
 264                 c4 c c c |   % 10
 265                 c4 c c c |   % 11
 266                 c4 c c c \bar "||"   % 12
 267 \break
 268
 269                 % Chorus
 270
 271                 c4 c c c |   % 13
 272                 c4 c c c |   % 14
 273                 c4 c c c |   % 15
 274                 c4 c c c |   % 16
 275                 c4 c c c |   % 17
 276                 c4 c c c |   % 18
 277                 c4 c c c |   % 19
 278                 \time 2/4 c4 c \time 4/4 |   % 20
 279         }
 280         \alternative
 281         {
 282                 {
 283                         c4 c c c |   % 21
 284                         c4 c c c |   % 22
 285                 }
 286                 {
 287                         c4 c c c \bar "||"   % 23
 288                 }
 289         }
 290
 291         % Chorus (redux)
 292
 293         c2 c |   % 24
 294         c2 c |   % 25
 295         c2 c |   % 26
 296         c2 c4 c |   % 27
 297         c4 c c c |   % 28
 298         c4 c c c |   % 29
 299         c4 c c c |   % 30
 300         c4 c c c \bar "||"   % 31
 301
 302         % Outro
 303
 304         c4 c r16 c c c c4 |   % 32
 305         c4 c r16 c8. c4 |   % 33
 306         c1^\fermata \bar "|."   % 34
 307 }
 308
 309
 310 Dynamics =
 311 {
 312         s1*19
 313         s2
 314         s1*12
 315 %This causes lily to create an extra page for just 2 bars. It's not important.
 316 %One one page perhaps? With two, it's OK
 317         s2 s2_\markup { \italic { rit. } }  |   % 33
 318 }
 319
 320
 321 \score
 322 {
 323         <<
 324                 <<
 325                         \new Staff = leadStaff { << \new Voice = "lead" \LeadVox >> }
 326                         \new Lyrics \lyricsto "lead" \LeadVoxText
 327                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 328                         \new Lyrics \lyricsto "lead" \LeadVoxTextC
 329                 >>
 330
 331                 \new ChoirStaff = "Rhythm"
 332                 <<
 333                         \new ChordNames = "chords" \Chords
 334                         \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
 335                 >>
 336
 337                 \set Score.skipBars = ##t
 338                 \set Score.melismaBusyProperties = #'()
 339         >>
 340 }
 341
 342
 343 \paper
 344 {
 345         #(define fonts (make-pango-font-tree
 346                 "Times New Roman"
 347                 "DomCasual BT"
 348                 "Luxi Mono"
 349                 (/ staffSize 20)))
 350
 351 % Don't spread staves vertically across last page (default: t)
 352 %       ragged-last-bottom = ##f
 353 % Don't spread staves vertically across the page (default: f)
 354 %       ragged-bottom = ##t
 355 % Allow partial line for last stave (default: f)
 356         ragged-last = ##t
 357
 358 % To find out what's eating the space at the top...
 359 %       annotate-spacing = ##t
 360 %let's try this: [It works! Huzzah!]
 361         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 362 }