Shamusworld >> Repos - music/blob - open-the-eyes-of-my-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 = #18
   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 "Open The Eyes Of My 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 % Lead vocal
  24 %
  25
  26 LeadVox = \relative c''
  27 {
  28         \set Voice.autoBeaming = ##f
  29 %       \set Staff.instrument = #"Lead vox"
  30         \clef G
  31         \key e \major
  32         \override Staff.TimeSignature #'style = #'()
  33         \time 4/4
  34 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  35
  36         \set Score.markFormatter = #format-mark-box-letters
  37
  38         % Intro
  39
  40         r1^\markup { Mid-tempo rock } |   % 1
  41         r1 |   % 2
  42         r1 |   % 3
  43         r1 |   % 4
  44
  45         % Verse
  46
  47         \repeat volta 2
  48         {
  49 \once \override Score.RehearsalMark #'self-alignment-X = #left
  50 \mark \markup { \override #'(font-family . sans) { \box { A } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
  51
  52                 gs8 [ b b b ] ~ b [ gs b b ] ~ |   % 5
  53                 b8 [ gs ] ~ gs4 r2 |   % 6
  54                 gs8 [ b b b ] ~ b [ gs b b ] ~ |   % 7
  55                 b4 r \times 2/3 { gs4 fs e  } |   % 8
  56                 fs4. e8 ~ e2 |   % 9
  57                 r2 \times 2/3 { gs4 fs e } |   % 10
  58                 fs4. e8 ~ e2 |   % 11
  59         }
  60         \alternative
  61         {
  62                 {
  63                         r1 |   % 12
  64                 }
  65                 {
  66                         r4. e8 gs4 b |   % 13
  67                 }
  68         }
  69
  70         % Chorus
  71
  72         \repeat volta 3
  73         {
  74 %               \mark #2
  75 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  76
  77                 b4 b8 [ b ] ~ b4 cs8 [ cs ] ~ |   % 14
  78                 cs4 r4 r2 |   % 15
  79                 cs8 [ b b b ] cs [ b gs gs ] ~ |   % 16
  80                 gs [ fs ] ~ fs4 r2 |   % 17
  81                 gs8. [ b16 ] ~ b8 [ b ] b [ gs b cs ] ~ |   % 18
  82                 cs4 r8 gs gs4 b |   % 19
  83                 cs4 b8 [ b ] ~ b4 gs8 [ gs ] ~ |   % 20
  84                 gs8 [ fs ] ~ fs4 r2 |   % 21
  85         }
  86         \alternative
  87         {
  88                 {
  89                         r1 \bar "||"   % 22
  90 \once \override Score.RehearsalMark #'self-alignment-X = #right
  91 \mark \markup { \italic { D.S. } }
  92                 }
  93                 {
  94                         r4. e8 gs4 b |   % 23
  95                 }
  96                 {
  97                         r1 |   % 24
  98                 }
  99         }
 100
 101         % Outro
 102
 103         \repeat volta 2
 104         {
 105 %               \mark #3
 106 \mark \markup { \override #'(font-family . sans) { \box { C } } }
 107
 108                 cs4 b8 [ b ] ~ b4 gs8 [ gs ] ~ |   % 25
 109                 gs8 [ fs ] ( e4 ) ~ e2 |   % 26
 110                 cs'4 b8 [ b ] ~ b4 gs8 [ gs ] ~ |   % 27
 111                 gs8 [ fs ] ( e4 ) ~ e2 |   % 28
 112                 cs'4 b8 [ b ] ~ b4 gs8 [ gs ] ~ |   % 29
 113                 gs8 [ fs ] ( e4 ) \times 2/3 { gs fs e } |   % 30
 114                 fs4. e8 ~ e2 ~ |   % 31
 115                 e2. r4 |   % 32
 116         }
 117 }
 118
 119 LeadVoxText = \lyricmode
 120 {
 121         O -- pen the eyes _ of my heart _ Lord _
 122         O -- pen the eyes _ of my heart _
 123         I want to see you _
 124         I want to see you _
 125
 126         To see you
 127
 128         high and lift -- _ ed up _
 129         Shi -- ning in the light of your glo -- _ ry _
 130         Pour out _ your po -- wer and love _
 131         As we sing ‘Ho -- ly, ho -- _ ly, ho -- _ ly' _
 132
 133         To see you
 134
 135         Ho -- ly ho -- _ ly ho -- _ ly __ _ _
 136         Ho -- ly ho -- _ ly ho -- _ ly __ _ _
 137         Ho -- ly ho -- _ ly ho -- _ ly __ _
 138         I want to see you __ _ _
 139 }
 140
 141
 142 %
 143 % Chord names
 144 %
 145
 146 Chords = \chordmode
 147 {
 148 %Bah, can't we set this globally?
 149 %       \popChords
 150
 151         \override Staff.TimeSignature #'style = #'()
 152         \time 4/4
 153
 154         % Intro
 155
 156         e1:sus2 |   % 1
 157         s1 |   % 2
 158         s1 |   % 3
 159         s1 |   % 4
 160
 161         % Verse
 162
 163         \repeat volta 2
 164         {
 165                 e1:sus2 |   % 5
 166                 s1 |   % 6
 167                 b1:sus2/ds |   % 7
 168                 r1 |   % 8
 169                 a1:sus2/cs |   % 9
 170                 a1 |   % 10
 171                 a4.:6/e e8 s2 |   % 11
 172         }
 173         \alternative
 174         {
 175                 {
 176                         a1/b |   % 12
 177                 }
 178                 {
 179                         e1 |   % 13
 180                 }
 181         }
 182
 183         % Chorus
 184
 185         \repeat volta 3
 186         {
 187                 b1 |   % 14
 188                 cs1:m |   % 15
 189                 a2.. b8:sus4 |   % 16
 190                 s2 b |   % 17
 191                 gs1:m |   % 18
 192                 cs1:m |   % 19
 193                 fs2..:m a8/b |   % 20
 194                 s2.. a8/b |   % 21
 195         }
 196         \alternative
 197         {
 198                 {
 199                         s1 \bar "||"   % 22
 200                 }
 201                 {
 202                         a1/b |   % 23
 203                 }
 204                 {
 205                         a1/b |   % 24
 206                 }
 207         }
 208
 209         % Outro
 210
 211         \repeat volta 2
 212         {
 213                 e1:sus2 |   % 25
 214                 s1 |   % 26
 215                 b1:sus2/ds |   % 27
 216                 s1 |   % 28
 217                 a1:sus2/cs |   % 29
 218                 fs2:m a/b |   % 30
 219                 a4.:6/e e8 s2 |   % 31
 220                 a1/b |   % 32
 221         }
 222 }
 223
 224
 225 %
 226 % Chord rhythms
 227 %
 228
 229 % Use a RhythmicStaff on the chords instead of this?
 230 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 231
 232 StaffC = \relative c
 233 {
 234         \set Voice.autoBeaming = ##f
 235 %       \set Staff.instrument = #"Rhythm"
 236         \override Staff.TimeSignature #'style = #'()
 237         \time 4/4
 238         \override NoteHead #'style = #'slash
 239
 240         % Intro
 241
 242         c1-\markup { \italic { Floating, cymbal colors, bass sus. } } |   % 1
 243         c1 |   % 2
 244         c1 |   % 3
 245         c1 |   % 4
 246
 247         % Verse
 248
 249         \repeat volta 2
 250         {
 251                 c1-\markup { \dynamic mf \italic { Colors 1st time, sidestick on DS } } |   % 5
 252                 c1 |   % 6
 253                 c1 |   % 7
 254                 c1 |   % 8
 255                 c1 |   % 9
 256                 c1 |   % 10
 257                 c4. c8 ~ c2 |   % 11
 258         }
 259         \alternative
 260         {
 261                 {
 262                         c1 |   % 12
 263                 }
 264                 {
 265 %                       c4-> \f c-> \< r2-\markup { \italic { dr. fill } } \ff |   % 13
 266                         << { \voiceOne c4_> c_> r2_\markup { \italic { dr. fill } } }
 267                                 \new Voice = "v" { \voiceTwo s4 \f s s4. \< s8 \ff } >>
 268
 269 %{
 270         r2 r4 r8 << { \voiceOne <b' gs> ~ } \new Voice = "v" { \voiceTwo fs8 ~ } >> |   % 12
 271         << { \voiceOne <b gs>1 ~ } \context Voice = v { \voiceTwo fs2 ~ fs4. f8 ~ } >> |   % 13
 272         << { \voiceOne <b gs>2 } \context Voice = v { \voiceTwo f2 } >> \oneVoice r2 |   % 14
 273 %}
 274
 275                 }
 276         }
 277
 278         % Chorus
 279
 280         \repeat volta 3
 281         {
 282                 c4._\markup { \italic { Rock 4 } } c8 ~ c2 |   % 14
 283                 c4. c8 ~ c2 |   % 15
 284                 c4. c8 ~ c4. c8 ~ |   % 16
 285                 c2 c4_\markup { \italic { dr. fill } } c |   % 17
 286                 c4. c8 ~ c2 |   % 18
 287                 c4. c8 ~ c2 |   % 19
 288                 c4. c8 ~ c4. c8 ~ |   % 20
 289                 c4 c c c8 [ c ] ~ |   % 21
 290         }
 291         \alternative
 292         {
 293                 {
 294                         c1 |   % 22
 295                 }
 296                 {
 297                         c4_> c_> r2_\markup { \italic { dr. fill } } |   % 23
 298                 }
 299                 {
 300 %                       << c1 \\ { s4 \> s2 s4 \! } >> |   % 24
 301                         << { \voiceOne c1 } \context Voice = v { \voiceTwo s4 \> s2 s4 \! } >> |   % 24
 302                 }
 303         }
 304
 305         % Outro
 306
 307         \repeat volta 2
 308         {
 309                 c1_\markup { \dynamic mf \italic { Floating } } |   % 25
 310                 c1 |   % 26
 311                 c1 |   % 27
 312                 c1 |   % 28
 313                 c1 |   % 29
 314                 c2 c |   % 30
 315                 c4. c8^\fermata _\markup { \italic { Last time } } ~ c2 |   % 31
 316                 c1 |   % 32
 317         }
 318 }
 319
 320
 321 \score
 322 {
 323         <<
 324 %               \new ChoirStaff = "Vox"
 325                 <<
 326                         \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
 327                         \new Lyrics \lyricsto "lead" \LeadVoxText
 328                 >>
 329
 330                 \new ChoirStaff = "Rhythm"
 331                 <<
 332                         \new ChordNames = "chords" \Chords
 333                         \new RhythmicStaff = "chordRhythm" \StaffC
 334                 >>
 335
 336                 \set Score.skipBars = ##t
 337                 \set Score.melismaBusyProperties = #'()
 338         >>
 339         \layout
 340         {
 341 %               ragged-last-bottom = ##t
 342                 ragged-last = ##t
 343         }
 344 }
 345
 346
 347 \paper
 348 {
 349   #(define fonts (make-pango-font-tree
 350     "Times New Roman"
 351     "DomCasual BT"
 352     "Luxi Mono"
 353     (/ staffSize 20)))
 354 }