Shamusworld >> Repos - music/blob - create-in-me-a-clean-heart.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 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         title    = \markup { \override #'(font-family . sans) \fontsize #3.5 "Create In Me A Clean Heart" }
  16 %       composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
  17         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
  18         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  19 }
  20
  21
  22 %
  23 % Song's structure
  24 %
  25 Global =
  26 {
  27         \clef G
  28         \key g \major
  29         \numericTimeSignature
  30         \time 4/4
  31
  32         % Intro
  33
  34         s1^\markup { 8th note ballad, s. stick & colors } |   % 1
  35         s1*3 \bar "||"   % 2-4
  36
  37         % Verse
  38
  39         \once \override Score.RehearsalMark #'self-alignment-X = #left
  40         \mark \markup { \override #'(font-family . sans) { \box { A } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
  41
  42         s1*8 \bar ".|:-||"   % 5-12
  43
  44         % Chorus
  45
  46         \repeat volta 3
  47         {
  48                 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  49
  50                 s8.^\markup { \italic { 2nd time snare } } s16 s2. |   % 13
  51                 s1*6 |   % 14-19
  52         }
  53         \alternative
  54         {
  55                 {
  56                         s1 |   % 20
  57                         s2.. s8^\markup { \hspace #0.0 \raise #0.65 \bold D.S. } \bar "||"   % 21
  58                 }
  59                 {
  60                         s1 |   % 22
  61                 }
  62                 {
  63                         s1 |   % 23
  64                 }
  65         }
  66
  67         % Ending
  68
  69         s1*4 \bar "|."   % 24-27
  70 }
  71
  72
  73 %
  74 % Lead vocal
  75 %
  76 LeadVox = \relative c'
  77 {
  78         % Intro
  79
  80         R1 |   % 1
  81         R1 |   % 2
  82         R1 |   % 3
  83         r2 r4. d8 |   % 4
  84
  85         % Verse
  86
  87         g8 g g g fs4 d8 ( fs |   % 5
  88         e4 ) e16 ( d e8 ) d4 r |   % 6
  89         r8 g16 g  g a g8  fs fs  g16 a8 ( g16 ) |   % 7
  90         g2 r4. d8 |   % 8
  91         g8 g g g fs4 d8 ( fs |   % 9
  92         e4 ) e16 ( d e8 ) d4 r |   % 10
  93         r8 g16 g  g a g8  fs fs  g16 a8 ( g16 ) |   % 11
  94         g2 r |   % 12
  95
  96         % Chorus
  97
  98         c8. c16 c8 b a4 g8 a |   % 13
  99         b8 b4 a16 ( g ) g4 r8 g |   % 14
 100         c4 c8 b a a a16 g a8 |   % 15
 101         b2 r4. g8 |   % 16
 102         c4 c8 b16 ( a ) a4. r16 g |   % 17
 103         b8. c16 b8 a g e ~ e4 |   % 18
 104         r8 g16 g  g a g8  fs fs  g16 a8 ( g16 ) |   % 19
 105
 106         g2 r |   % 20
 107         r2 r4. d8 |   % 21
 108
 109         g2 r |   % 22
 110
 111         g2 r |   % 23
 112
 113         % Ending
 114
 115         r8 g16 g  g a g8  fs fs  fs16 a ( g8 ) |   % 24
 116         g2 r |   % 25
 117         r8 g16 g  g a g8  fs fs  fs16 a ( g8 ) |   % 26
 118         g1^\fermata |   % 27
 119 }
 120
 121
 122 LeadVoxText = \lyricmode
 123 {
 124         Cre -- ate in me a clean heart __ _ _ O __ _ _ God
 125         And re -- new a right spi -- rit wi -- thin _ me
 126         Cre -- ate in me a clean heart __ _ _ O __ _ _ God
 127         And re -- new a right spi -- rit wi -- thin _ me
 128
 129         Cast me not a -- way from your pre -- sence O _ Lord
 130         And take not your Ho -- ly Spi -- rit from me
 131         Re -- store un -- to _ me the joy of your sal -- va -- tion _
 132         And re -- new a right spi -- rit wi -- thin _ me
 133
 134         Cre --
 135         me
 136         me
 137
 138         And re -- new a right spi -- rit wi -- thin _ me
 139         And re -- new a right spi -- rit wi -- thin _ me
 140 }
 141
 142
 143 %
 144 % Chord names
 145 %
 146 Chords = \chordmode
 147 {
 148         % Intro
 149
 150         g2 d/g |   % 1
 151         c2/g d/g |   % 2
 152         g2 d/g |   % 3
 153         c2/g d/g |   % 4
 154
 155         % Verse
 156
 157         g2 d/g |   % 5
 158         c2/g g |   % 6
 159         c2 d |   % 7
 160         g2:sus4 g |   % 8
 161         g2 b:m7 |   % 9
 162         a2:m7 g |   % 10
 163         a2:m7 d |   % 11
 164         g2:sus4 g8. a:m7 g8/b |   % 12
 165
 166         % Chorus
 167
 168         c2 d/c |   % 13
 169         b2:m7 e:m7 |   % 14
 170         a2:m7 d |   % 15
 171         g1:maj7 |   % 16
 172         fs2:m7.5- b:7.9- |   % 17
 173         e4:m7 e:m7/d c:maj7 g/b |   % 18
 174         a2:m7 d |   % 19
 175
 176         g2 d/g |   % 20
 177         c2/g d/g |   % 21
 178
 179         g2 g8. a:m7 g8/b |   % 22
 180
 181         g2 b:m7 |   % 23
 182
 183         % Ending
 184
 185         a2:m7 d |   % 24
 186         g2 b:m7 |   % 25
 187         a2:m7 d |   % 26
 188         g1 |   % 27
 189 }
 190
 191
 192 %
 193 % Chord rhythms
 194 %
 195 StaffC = \relative c
 196 {
 197         \numericTimeSignature
 198         \override NoteHead #'style = #'slash
 199         \teeny
 200
 201         % Intro
 202
 203         c4_\mp c c c |   % 1
 204         c4 c c c |   % 2
 205         c4 c c c |   % 3
 206         c4 c c c |   % 4
 207
 208         % Verse
 209
 210         c4 c c c |   % 5
 211         c4 c c c |   % 6
 212         c4 c c c |   % 7
 213         c4 c c c |   % 8
 214         c4 c c c |   % 9
 215         c4 c c c |   % 10
 216         c4 c c c |   % 11
 217         c4 c c8.-> c16-> \< ~ c8 c \! |   % 12
 218
 219         % Chorus
 220
 221         c4_\mf c c c |   % 13
 222         c4 c c c |   % 14
 223         c4 c c c |   % 15
 224         c4 c c c |   % 16
 225         c4 c c c |   % 17
 226         c4 c c c |   % 18
 227         c4 c c c |   % 19
 228
 229         c4 c c c |   % 20
 230         c4 c c c \bar "||"   % 21
 231
 232         c4 c c8.-> c16-> \< ~ c8 c \! |   % 22
 233
 234         c4 c c c |   % 23
 235
 236         % Ending
 237
 238         c4 c c c |   % 24
 239         c4 c c c |   % 25
 240         c2 c_\markup { \italic { rit. } } |   % 26
 241         c1^\fermata |   % 27
 242 }
 243
 244
 245 \score
 246 {
 247         <<
 248                 \Global         % The "roadmap" that everything else depends on
 249
 250                 \context Staff
 251                 <<
 252                         \new Voice = "lead" \LeadVox
 253                         \new Lyrics \lyricsto "lead" \LeadVoxText
 254                 >>
 255
 256                 \new ChoirStaff
 257                 <<
 258                         \new ChordNames \Chords
 259                         \new RhythmicStaff \StaffC
 260                 >>
 261
 262                 \set Score.skipBars = ##t
 263                 \set Score.melismaBusyProperties = #'()
 264         >>
 265 }
 266
 267
 268 \paper
 269 {
 270         #(define fonts (make-pango-font-tree
 271                 "Times New Roman"
 272                 "LilyJAZZText"
 273                 "Luxi Mono"
 274                 (/ staffSize 20)))
 275
 276 % Don't spread staves vertically across last page (default: t)
 277 %       ragged-last-bottom = ##f
 278 % Don't spread staves vertically across the page (default: f)
 279 %       ragged-bottom = ##t
 280 % Allow partial line for last stave (default: f)
 281 %       ragged-last = ##t
 282
 283 % To find out what's eating the space at the top...
 284 %       annotate-spacing = ##t
 285 }
 286