Shamusworld >> Repos - music/blob - change-my-heart-o-god.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 = #20
   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 "Change My Heart, O God" }
  18         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Eddie Espinosa" }
  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 c \major
  40         \numericTimeSignature
  41         \time 4/4
  42
  43         % Intro
  44
  45         \once \override TextScript #'padding = #2.0
  46         s1*0^\markup { \large \bold { Not too slow } }
  47 % Capo 4 version
  48 %       s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } }
  49
  50         s1*4 \bar ".|:-||"   % 1-4
  51
  52         \repeat volta 2
  53         {
  54                 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  55                 s1*7 |   % 5-11
  56                 s1^\markup { \large \bold \italic { Fine } } \bar "||"   % 12
  57
  58                 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  59                 s1*8 |   % 13-20
  60         }
  61 }
  62
  63
  64 %
  65 % Lead vocal
  66 %
  67 LeadVox = \relative c'
  68 {
  69         \clef G
  70
  71         % Intro
  72
  73         s1*4 |   % 1-4
  74
  75         % A section
  76
  77         r4 e8 f g a4 f8 ~ |   % 5
  78         f1 |   % 6
  79         r4 d8 e f g4 e8 ~ |   % 7
  80         e1 |   % 8
  81         r4 e8 f g a4 f8 ~ |   % 9
  82         f1 |   % 10
  83         r4 f8 e d e4. |   % 11
  84         c1 |   % 12
  85
  86         % B section
  87
  88         r2 \times 2/3 { gs'4 a b } |   % 13
  89         c4. ( b8 ) a2 |   % 14
  90         r4 a g a8 e ~ |   % 15
  91         e1 |   % 16
  92         r2 \times 2/3 { gs4 a b } |   % 17
  93         c4. ( b8 ) a2 |   % 18
  94         r4 a8 a g4 fs |   % 19
  95         g1 |   % 20
  96 }
  97
  98 LeadVoxText = \lyricmode
  99 {
 100         Change my heart, O God, _
 101         Make it e -- ver true. _
 102         Change my heart, O God, _
 103         May I be like you.
 104
 105         You are the pot -- _ ter,
 106         I am the clay, _
 107         Mold me and make _ me,
 108         This is what I pray. _
 109 }
 110
 111
 112 Riffs = \relative c'
 113 {
 114         \clef G
 115
 116         % Intro
 117
 118         \tiny
 119         r4 e8 f g a4 f8 ~ |   % 1
 120         f1 |   % 2
 121         r4 f8 e d e4. |   % 3
 122         c1 |   % 4
 123         \normalsize
 124 }
 125
 126
 127 %
 128 % Chord names
 129 %
 130 Chords = \chordmode
 131 {
 132         % Intro
 133
 134         s1 |   % 1
 135         d1:m7 |   % 2
 136         g1:7 |   % 3
 137         c1 |   % 4
 138
 139         % A section
 140
 141         s1 |   % 5
 142         d1:m7 |   % 6
 143         g1 |   % 7
 144         c1 |   % 8
 145         a1:m7 |   % 9
 146         d1:m7 |   % 10
 147         g1:7 |   % 11
 148         c1 |   % 12
 149
 150         % B section
 151
 152         e2:sus4 \times 2/3 { e4 e:sus4/fs e/gs } |   % 13
 153         a1:m |   % 14
 154         d2:m7 g:7 |   % 15
 155         c1 |   % 16
 156         e2:sus4 \times 2/3 { e4 e:sus4/fs e/gs } |   % 17
 157         a1:m |   % 18
 158         c2./d d4:7 |   % 19
 159         g2:sus4 g |   % 20
 160 }
 161
 162
 163 %
 164 % Chord rhythms
 165 %
 166 % Use a RhythmicStaff on the chords instead of this?
 167 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 168 %
 169 Rhythm = \relative c
 170 {
 171         \numericTimeSignature
 172         \override NoteHead #'style = #'slash
 173         \teeny
 174
 175         % Intro
 176
 177         r1 |   % 1
 178         c4 c c c |   % 2
 179         c4 c c c |   % 3
 180         c4 c c c |   % 4
 181
 182         % A section
 183
 184         r1 |   % 5
 185         c4 c c c |   % 6
 186         c4 c c c |   % 7
 187         c4 c c c |   % 8
 188         c4 c c c |   % 9
 189         c4 c c c |   % 10
 190         c4 c c c |   % 11
 191         c4 c c c |   % 12
 192
 193         % B section
 194
 195         c2 \times 2/3 { c4 c c } |   % 13
 196         c4 c c c |   % 14
 197         c4 c c c |   % 15
 198         c4 c c c |   % 16
 199         c2 \times 2/3 { c4 c c } |   % 17
 200         c4 c c c |   % 18
 201         c4 c c c |   % 19
 202         c4 c c c |   % 20
 203 }
 204
 205
 206 Dynamics =
 207 {
 208 %{
 209         s4_\markup { \italic { snare pat. } } s2 |   % 1
 210         s4_\markup { \italic { simile } } s2 |   % 2
 211         s2.*19
 212         s4_\markup { \italic { spacey } } s2 |   % 22
 213         s2.*5
 214         s4 s \< s \! |   % 28
 215         s2.*22
 216         s4_\markup { \italic { Last time } } s2 |   % 51
 217 %}
 218 }
 219
 220
 221 \score
 222 {
 223         <<
 224                 \set Score.skipBars = ##t
 225                 \set Score.melismaBusyProperties = #'()
 226
 227                 \context Staff
 228                 <<
 229                         \Global         % The "roadmap" that everything else depends on
 230                         \new Voice = "lead" \LeadVox
 231                         \new Voice \Riffs
 232                         \new Lyrics \lyricsto "lead" \LeadVoxText
 233                 >>
 234
 235                 \new ChoirStaff
 236                 <<
 237                         \new ChordNames \Chords
 238 %Capo 4 edition
 239 %                       \new ChordNames \transpose b g \Chords
 240                         \new RhythmicStaff << \Rhythm \Dynamics >>
 241                 >>
 242         >>
 243 }
 244
 245
 246 \paper
 247 {
 248   #(define fonts (make-pango-font-tree
 249         "Times New Roman"
 250         "JazzText"
 251         "Luxi Mono"
 252         (/ staffSize 20)))
 253
 254 % Spread staves vertically across last page (default: t)
 255 %       ragged-last-bottom = ##f
 256 % Don't spread staves vertically across the page (default: f)
 257 %       ragged-bottom = ##t
 258 % Allow partial line for last stave (default: f)
 259         ragged-last = ##t
 260
 261 % To find out what's eating the space at the top...
 262 %       annotate-spacing = ##t
 263 }