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         \override Staff.TimeSignature #'style = #'()
  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 %       \set Staff.instrument = #"Lead vox"
  70         \clef G
  71         \override Staff.TimeSignature #'style = #'()
  72 %Hm. Needed anymore?
  73 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  74
  75         % Intro
  76
  77         s1*4 |   % 1-4
  78
  79         % A section
  80
  81         r4 e8 f g a4 f8 ~ |   % 5
  82         f1 |   % 6
  83         r4 d8 e f g4 e8 ~ |   % 7
  84         e1 |   % 8
  85         r4 e8 f g a4 f8 ~ |   % 9
  86         f1 |   % 10
  87         r4 f8 e d e4. |   % 11
  88         c1 |   % 12
  89
  90         % B section
  91
  92         r2 \times 2/3 { gs'4 a b } |   % 13
  93         c4. ( b8 ) a2 |   % 14
  94         r4 a g a8 e ~ |   % 15
  95         e1 |   % 16
  96         r2 \times 2/3 { gs4 a b } |   % 17
  97         c4. ( b8 ) a2 |   % 18
  98         r4 a8 a g4 fs |   % 19
  99         g1 |   % 20
 100 }
 101
 102 LeadVoxText = \lyricmode
 103 {
 104         Change my heart, O God, _
 105         Make it e -- ver true. _
 106         Change my heart, O God, _
 107         May I be like you.
 108
 109         You are the pot -- _ ter,
 110         I am the clay, _
 111         Mold me and make _ me,
 112         This is what I pray. _
 113 }
 114
 115
 116 Riffs = \relative c'
 117 {
 118         \clef G
 119 %Hm. Needed anymore?
 120 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 121
 122         % Intro
 123
 124         \tiny
 125         r4 e8 f g a4 f8 ~ |   % 1
 126         f1 |   % 2
 127         r4 f8 e d e4. |   % 3
 128         c1 |   % 4
 129         \normalsize
 130 }
 131
 132
 133 %
 134 % Chord names
 135 %
 136 Chords = \chordmode
 137 {
 138 %Bah, can't we set this globally?
 139 %       \popChords
 140
 141         % Intro
 142
 143         s1 |   % 1
 144         d1:m7 |   % 2
 145         g1:7 |   % 3
 146         c1 |   % 4
 147
 148         % A section
 149
 150         s1 |   % 5
 151         d1:m7 |   % 6
 152         g1 |   % 7
 153         c1 |   % 8
 154         a1:m7 |   % 9
 155         d1:m7 |   % 10
 156         g1:7 |   % 11
 157         c1 |   % 12
 158
 159         % B section
 160
 161         e2:sus4 \times 2/3 { e4 e:sus4/fs e/gs } |   % 13
 162         a1:m |   % 14
 163         d2:m7 g:7 |   % 15
 164         c1 |   % 16
 165         e2:sus4 \times 2/3 { e4 e:sus4/fs e/gs } |   % 17
 166         a1:m |   % 18
 167         c2./d d4:7 |   % 19
 168         g2:sus4 g |   % 20
 169 }
 170
 171
 172 %
 173 % Chord rhythms
 174 %
 175 % Use a RhythmicStaff on the chords instead of this?
 176 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 177 %
 178 Rhythm = \relative c
 179 {
 180 %%      \set Voice.autoBeaming = ##f
 181 %%      \set Staff.instrument = #"Rhythm"
 182         \override Staff.TimeSignature #'style = #'()
 183         \override NoteHead #'style = #'slash
 184
 185         % Intro
 186
 187         r1 |   % 1
 188         c4 c c c |   % 2
 189         c4 c c c |   % 3
 190         c4 c c c |   % 4
 191
 192         % A section
 193
 194         r1 |   % 5
 195         c4 c c c |   % 6
 196         c4 c c c |   % 7
 197         c4 c c c |   % 8
 198         c4 c c c |   % 9
 199         c4 c c c |   % 10
 200         c4 c c c |   % 11
 201         c4 c c c |   % 12
 202
 203         % B section
 204
 205         c2 \times 2/3 { c4 c c } |   % 13
 206         c4 c c c |   % 14
 207         c4 c c c |   % 15
 208         c4 c c c |   % 16
 209         c2 \times 2/3 { c4 c c } |   % 17
 210         c4 c c c |   % 18
 211         c4 c c c |   % 19
 212         c4 c c c |   % 20
 213 }
 214
 215
 216 Dynamics =
 217 {
 218 %{
 219         s4_\markup { \italic { snare pat. } } s2 |   % 1
 220         s4_\markup { \italic { simile } } s2 |   % 2
 221         s2.*19
 222         s4_\markup { \italic { spacey } } s2 |   % 22
 223         s2.*5
 224         s4 s \< s \! |   % 28
 225         s2.*22
 226         s4_\markup { \italic { Last time } } s2 |   % 51
 227 %}
 228 }
 229
 230
 231 \score
 232 {
 233         <<
 234                 \set Score.skipBars = ##t
 235                 \set Score.melismaBusyProperties = #'()
 236
 237 %               \new Staff
 238                 <<
 239                         \new ChordNames \Chords
 240 %Capo 4 edition
 241 %                       \new ChordNames \transpose b g \Chords
 242                         \new RhythmicStaff << \Rhythm \Dynamics >>
 243                 >>
 244
 245                 \new Staff
 246                 <<
 247                         \Global                                         % The "roadmap" that everything else depends on
 248                         \new Voice = "lead" \LeadVox
 249                         \new Voice \Riffs
 250                         \new Lyrics \lyricsto "lead" \LeadVoxText
 251                 >>
 252         >>
 253 }
 254
 255
 256 \paper
 257 {
 258   #(define fonts (make-pango-font-tree
 259     "Times New Roman"
 260     "DomCasual BT"
 261     "Luxi Mono"
 262     (/ staffSize 20)))
 263
 264 % Spread staves vertically across last page (default: t)
 265         ragged-last-bottom = ##f
 266 % Don't spread staves vertically across the page (default: f)
 267         ragged-bottom = ##t
 268 % Allow partial line for last stave (default: f)
 269         ragged-last = ##t
 270
 271 % To find out what's eating the space at the top...
 272 %       annotate-spacing = ##t
 273 %let's try this: [It works! Huzzah!]
 274         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 275 }