Shamusworld >> Repos - music/blob - spirit-of-the-living-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 \header
  12 {
  13 %Let's bump up the title size and switch to the chord font. :-)
  14
  15         title    = \markup { \override #'(font-family . sans) \fontsize #3.5 "Spirit of the Living God" }
  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  = "Engraved by JLH and Lilypond 2.8.6"
  19 }
  20
  21
  22 %
  23 % Lead vocal
  24 %
  25
  26 LeadVox = \relative c''
  27 {
  28 %       \set Voice.autoBeaming = ##f
  29 %       \set Staff.instrumentName = #"Lead vox"
  30         \clef G
  31         \key f \major
  32         \override Staff.TimeSignature #'style = #'()
  33         \time 4/4
  34 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  35
  36         % Intro
  37
  38         R1 |   % 1
  39         R1 |   % 2
  40         R1 |   % 3
  41         R1 \bar "||:"   % 4
  42
  43         \repeat volta 3
  44         {
  45                 % A section
  46
  47 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  48
  49                 a4. a8 a4 a |   % 5
  50                 g4 a bf2 |   % 6
  51                 a4. f8 f4 g |   % 7
  52                 a1 |   % 8
  53
  54                 a4. a8 a4 a |   % 9
  55                 g4 a bf2 |   % 10
  56                 a4. f8 f4 g |   % 11
  57                 f1 \bar "||"   % 12
  58
  59                 % B section
  60
  61 \once \override Score.RehearsalMark #'self-alignment-X = #left
  62 \mark \markup { \override #'(font-family . sans) { \box { B } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
  63
  64                 bf2 bf |   % 13
  65                 a2 a |   % 14
  66                 b2 b |   % 15
  67                 c2 c4 ( bf ) \bar "||"   % 16
  68
  69                 % A section
  70
  71 \mark \markup { \override #'(font-family . sans) { \box { C } } }
  72
  73                 a4. a8 a4 a |   % 17
  74                 g4 a bf2 |   % 18
  75                 a4. f8 f4 g |   % 19
  76         }
  77         \alternative
  78         {
  79                 {
  80                         f1 |   % 20
  81                 }
  82                 {
  83                         f1^\markup { \hspace #8.0 \raise #1.0 \bold { D.S. } } \bar "||"   % 21
  84                 }
  85                 {
  86                         f1^\fermata \bar "|."   % 22
  87                 }
  88         }
  89 }
  90
  91 LeadVoxText = \lyricmode
  92 {
  93         Spi- rit of the li- ving God
  94         fall a- fresh on me
  95
  96         Spi- rit of the li- ving God
  97         fall a- fresh on me.
  98
  99         Melt me, mold me,
 100         fill me, use me, __ _
 101
 102         Spi- rit of the li- ving God
 103         fall a- fresh on me.
 104
 105         me.
 106         me.
 107 }
 108
 109
 110 %
 111 % Chord names
 112 %
 113
 114 Chords = \chordmode
 115 {
 116 %Bah, can't we set this globally?
 117 %       \popChords
 118
 119         % Intro
 120
 121         f2 f4:maj7 f:7 |   % 1
 122         bf4:6 d:7/a g2:m7 |   % 2
 123         f2/c bf4/c c |   % 3
 124         f2 bf/c |   % 4
 125
 126         \repeat volta 3
 127         {
 128                 % A section
 129
 130                 f2 f4:maj7 f:7 |   % 5
 131                 bf4:6 d:7/a g2:m7 |   % 6
 132                 f2/c bf4/c c |   % 7
 133                 f2 bf/c |   % 8
 134
 135                 f2 f4:maj7 f:7 |   % 9
 136                 bf4:6 d:7/a g2:m7 |   % 10
 137                 f2/c bf4/c c |   % 11
 138                 f2 f:7 |   % 12
 139
 140                 % B section
 141
 142                 bf2 g:m7 |   % 13
 143                 f1 |   % 14
 144                 g1:7 |   % 15
 145                 c4 bf:sus2/d c2:7/e |   % 16
 146
 147                 % A section
 148
 149                 f2 f4:maj7 f:7 |   % 17
 150                 bf4:6 d:7/a g2:m7.5- |   % 18
 151                 f2/c bf4/c c |   % 19
 152         }
 153         \alternative
 154         {
 155                 {
 156                         f2 bf/c |   % 20
 157                 }
 158                 {
 159                         f2 f:7 |   % 21
 160                 }
 161                 {
 162                         f1 |   % 22
 163                 }
 164         }
 165 }
 166
 167
 168 %
 169 % Chord rhythms
 170 %
 171
 172 % Use a RhythmicStaff on the chords instead of this?
 173 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 174
 175 StaffC = \relative c
 176 {
 177 %       \set Voice.autoBeaming = ##f
 178 %       \set Staff.instrumentName = #"Rhythm"
 179         \override Staff.TimeSignature #'style = #'()
 180         \time 4/4
 181         \override NoteHead #'style = #'slash
 182
 183         % Intro
 184
 185         c4 c c c |   % 1
 186         c4 c c c |   % 2
 187         c4 c c c |   % 3
 188         c4 c c c \bar "||:"   % 4
 189
 190         \repeat volta 3
 191         {
 192                 % A section
 193
 194                 c4 c c c |   % 5
 195                 c4 c c c |   % 6
 196                 c4 c c c |   % 7
 197                 c4 c c c |   % 8
 198
 199                 c4 c c c |   % 9
 200                 c4 c c c |   % 10
 201                 c4 c c c |   % 11
 202                 c4 c c c \bar "||"   % 12
 203
 204                 % B section
 205
 206                 c4 c c c |   % 13
 207                 c4 c c c |   % 14
 208                 c4 c c c |   % 15
 209                 c4 c c c \bar "||"   % 16
 210
 211                 % A section
 212
 213                 c4 c c c |   % 17
 214                 c4 c c c |   % 18
 215                 c4 c c c |   % 19
 216         }
 217         \alternative
 218         {
 219                 {
 220                         c4 c c c |   % 20
 221                 }
 222                 {
 223                         c4 c c c |   % 21
 224                 }
 225                 {
 226                         c1^\fermata \bar "|."   % 22
 227                 }
 228         }
 229 }
 230
 231
 232 \score
 233 {
 234         <<
 235                 <<
 236                         \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
 237                         \new Lyrics \lyricsto "lead" \LeadVoxText
 238                 >>
 239
 240                 \new ChoirStaff = "Rhythm"
 241                 <<
 242                         \new ChordNames = "chords" \Chords
 243                         \new RhythmicStaff = "chordRhythm" \StaffC
 244                 >>
 245
 246                 \set Score.skipBars = ##t
 247                 \set Score.melismaBusyProperties = #'()
 248         >>
 249
 250         \layout
 251         {
 252 %               \context { \Staff \RemoveEmptyStaves }
 253 %               ragged-last-bottom = ##t
 254                 ragged-last = ##t
 255         }
 256 }
 257
 258
 259 \paper
 260 {
 261   #(define fonts (make-pango-font-tree
 262     "Times New Roman"
 263     "DomCasual BT"
 264     "Luxi Mono"
 265     (/ staffSize 20)))
 266 }