Shamusworld >> Repos - music/blob - template-chords-on-top.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                         \new ChordNames \Chords
 251 %Capo 4 edition
 252 %                       \new ChordNames \transpose b g \Chords
 253                         \new RhythmicStaff << \Rhythm \Dynamics >>
 254                 >>
 255
 256                 \new Staff
 257                 <<
 258                         \Global                                         % The "roadmap" that everything else depends on
 259                         \new Voice = "lead" \LeadVox
 260                         \new Voice \Riffs
 261                         \new Lyrics \lyricsto "lead" \LeadVoxText
 262                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 263                         \new Lyrics \lyricsto "lead" \LeadVoxTextC
 264                         \new Lyrics \lyricsto "lead" \LeadVoxTextD
 265                 >>
 266         >>
 267 }
 268
 269
 270 \paper
 271 {
 272   #(define fonts (make-pango-font-tree
 273     "Times New Roman"
 274     "DomCasual BT"
 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!]
 288         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 289 }