Shamusworld >> Repos - music/blob - in-christ-alone.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 "In Christ Alone" }
  18         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Stuart Townend/Keith Getty" }
  19 %       arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. " }
  20         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  21 % Let's try a chord dictionary
  22 %       subtitle = \markup { \center-column { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } "       " \center-column { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } "       " \center-column { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" }  "       " \center-column { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" }  "       " \center-column { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" }  "       " \center-column { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" }  }
  23 }
  24
  25 % Useful tweak abbreviations (hn = harmony note)
  26
  27 hn = #(define-music-function (parser location arg) (ly:music?)
  28 ;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
  29
  30   (set! (ly:music-property arg 'tweaks)
  31     (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg)
  32
  33
  34 %
  35 % Song's structure
  36 %
  37 Global =
  38 {
  39         \key d \major
  40         \override Staff.TimeSignature #'style = #'()
  41         \time 3/4
  42
  43         % Intro
  44
  45         \once \override TextScript #'padding = #2.0
  46         s1*0^\markup { \large \bold { Not too fast } }
  47 % Capo 4 version
  48 %       s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } }
  49
  50         s2.*17 \bar "|."   % 1-17
  51 %               \mark \markup { \override #'(font-family . sans) { \box { A } } }
  52 }
  53
  54
  55 %
  56 % Lead vocal
  57 %
  58 LeadVox = \relative c'
  59 {
  60 %       \set Staff.instrument = #"Lead vox"
  61         \clef G
  62         \override Staff.TimeSignature #'style = #'()
  63 %Hm. Needed anymore?
  64 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  65
  66         r4 r8 a b8. d16 |   % 0
  67         d4. a8 b d |   % 1
  68         e2 fs8 e16 d |   % 2
  69         b8 fs' e4. d8 |   % 3
  70         d4 r8 a b8. d16 |   % 4
  71
  72         d4. a8 b d |   % 5
  73         e2 fs8 e16 d |   % 6
  74         b8 fs' e4. d8 |   % 7
  75         d4 r8 d fs a |   % 8
  76
  77         b4. b8 a fs |   % 9
  78         e4 r8 d d' cs |   % 10
  79         b4. b8 a fs |   % 11
  80         e4 r8 a, b8. d16 |   % 12
  81
  82         d4. a8 b d |   % 13
  83         e2 fs8 e16 d |   % 14
  84         b8 fs' e4. d8 |   % 15
  85         d4. r8 r4 |   % 16
  86 }
  87
  88 LeadVoxText = \lyricmode
  89 {
  90         In Christ a -- lone my hope is found,
  91         he is my light, my strength, my song;
  92         This cor -- ner -- stone, this so -- lid ground,
  93         firm thro’ the fier -- cest drought and storm.
  94
  95         What heights of love, what depths of peace,
  96         when fears are stilled, when striv -- ing cease.
  97
  98         My com -- for -- ter, my all in all,
  99         here in the love of Christ I stand.
 100 }
 101
 102 LeadVoxTextB = \lyricmode
 103 {
 104         In Christ a -- lone, who took on flesh,
 105         full -- ness of God in help -- less babe.
 106         This gift of love and right -- eous -- ness,
 107         scorned by the ones he came to save.
 108
 109         Till on that cross, as Je -- sus died,
 110         the wrath of God was sat -- is -- fied;
 111
 112         For ev’ -- ry sin on him was laid,
 113         here in the death of Christ I live.
 114 }
 115
 116 LeadVoxTextC = \lyricmode
 117 {
 118         There in the ground his bo -- dy lay,
 119         light of the world by dark -- ness slain;
 120         Then burst -- ing forth in glor -- ious day
 121         up from the grave he rose a -- gain.
 122
 123         And as he stands in vic -- tor -- y
 124         sin’s curse has lost its grip on me,
 125
 126         For I am his and he is mine,
 127         bought with the pre -- cious blood of Christ.
 128 }
 129
 130 LeadVoxTextD = \lyricmode
 131 {
 132         No guilt in life, no fear in death,
 133         this is the pow’r of Christ in me;
 134         From life’s first cry to fi -- nal breath,
 135         Je -- sus com -- mands my des -- tin -- y.
 136
 137         No pow’r of hell, no scheme of man,
 138         can e -- ver pluck me from his hand;
 139
 140         Till he re -- turns or calls me home,
 141         here in the pow’r of Christ I stand.
 142 }
 143
 144
 145 Riffs = \relative c''
 146 {
 147         \clef G
 148 %Hm. Needed anymore?
 149 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 150
 151         % Intro
 152
 153 %{
 154         \tiny
 155         \normalsize
 156 %}
 157 }
 158
 159
 160 %
 161 % Chord names
 162 %
 163 Chords = \chordmode
 164 {
 165 %Bah, can't we set this globally?
 166 %       \popChords
 167
 168         s4. d8 g4/a |   % 0
 169         d2 g4 |   % 1
 170         a4:sus4 a b:m |   % 2
 171         g4 a4. g8/a |   % 3
 172         d2 g4/a |   % 4
 173
 174         d4 d/cs b:m |   % 5
 175         g4:6 a b:m |   % 6
 176         g4 a4. g8/a |   % 7
 177         d2 d4/fs |   % 8
 178
 179         g2 d4/a |   % 9
 180         a2 d8/fs fs:m7 |   % 10
 181         g2 b4:m7 |   % 11
 182         a2 g4/a |   % 12
 183
 184         d4:sus4 d g |   % 13
 185         a4:sus4 a b:m |   % 14
 186         g4 a4. g8/a |   % 15
 187         d4. s |   % 16
 188 }
 189
 190
 191 %
 192 % Chord rhythms
 193 %
 194 % Use a RhythmicStaff on the chords instead of this?
 195 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 196 %
 197 Rhythm = \relative c
 198 {
 199 %%      \set Voice.autoBeaming = ##f
 200 %%      \set Staff.instrument = #"Rhythm"
 201         \override Staff.TimeSignature #'style = #'()
 202         \override NoteHead #'style = #'slash
 203
 204         r4 r8 c c4 |   % 0
 205         c4 c c |   % 1
 206         c4 c c |   % 2
 207         c4 c4. c8 |   % 3
 208         c4 c c |   % 4
 209
 210         c4 c c |   % 5
 211         c4 c c |   % 6
 212         c4 c4. c8 |   % 7
 213         c4 c c |   % 8
 214
 215         c4 c c |   % 9
 216         c4 c c8 c |   % 10
 217         c4 c c |   % 11
 218         c4 c c |   % 12
 219
 220         c4 c c |   % 13
 221         c4 c c |   % 14
 222         c4 c4. c8 |   % 15
 223         c4. r |   % 16
 224 }
 225
 226
 227 Dynamics =
 228 {
 229 %{
 230         s4_\markup { \italic { snare pat. } } s2 |   % 1
 231         s4_\markup { \italic { simile } } s2 |   % 2
 232         s2.*19
 233         s4_\markup { \italic { spacey } } s2 |   % 22
 234         s2.*5
 235         s4 s \< s \! |   % 28
 236         s2.*22
 237         s4_\markup { \italic { Last time } } s2 |   % 51
 238 %}
 239 }
 240
 241
 242 \score
 243 {
 244         <<
 245                 \set Score.skipBars = ##t
 246                 \set Score.melismaBusyProperties = #'()
 247
 248                 \new Staff
 249                 <<
 250                         \Global                                         % The "roadmap" that everything else depends on
 251                         \new Voice = "lead" \LeadVox
 252                         \new Voice \Riffs
 253                         \new Lyrics \lyricsto "lead" \LeadVoxText
 254                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 255                         \new Lyrics \lyricsto "lead" \LeadVoxTextC
 256                         \new Lyrics \lyricsto "lead" \LeadVoxTextD
 257
 258 %               \new Staff
 259                 <<
 260                         \new ChordNames \Chords
 261 %Capo 4 edition
 262 %                       \new ChordNames \transpose b g \Chords
 263                         \new RhythmicStaff << \Rhythm \Dynamics >>
 264                 >>
 265                 >>
 266         >>
 267 }
 268
 269
 270 \paper
 271 {
 272   #(define fonts (make-pango-font-tree
 273     "Times New Roman"
 274     "JazzText"
 275     "Luxi Mono"
 276     (/ staffSize 20)))
 277
 278 % Spread staves vertically across last page (default: t)
 279         ragged-last-bottom = ##f
 280 % Don't spread staves vertically across the page (default: f)
 281 %       ragged-bottom = ##t
 282 % Allow partial line for last stave (default: f)
 283 %       ragged-last = ##t
 284
 285 % To find out what's eating the space at the top...
 286 %       annotate-spacing = ##t
 287 %let's try this: [It works! Huzzah!][nope, it does not]
 288 %       obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 289 }