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