Shamusworld >> Repos - music/blob - in-the-secret.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 %{ 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 "In The Secret" }
  18         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "A. Park" }
  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.instrumentName = #"Lead vox"
  32         \clef G
  33         \key af \major
  34         \override Staff.TimeSignature #'style = #'()
  35         \time 4/4
  36 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  37
  38         % Intro
  39
  40 \once \override Score.RehearsalMark #'self-alignment-X = #left
  41 \mark \markup { \small "16th note rock" }
  42
  43         R1 |   % 1
  44
  45         \repeat volta 2
  46         {
  47                 r8 c bf16 af8. bf c16 ~ c8 af ~ |   % 2
  48                 af4 r ef'8. f16 ~ f8 ef |   % 3
  49         }
  50         \alternative
  51         {
  52                 {
  53                         r8 c bf16 af8. bf f16 ~ f8 af ~ |   % 4
  54                         af1 |   % 5
  55                 }
  56                 {
  57                         r8 c bf16 af8. bf c16 ~ c8 af ~ |   % 6
  58                 }
  59         }
  60
  61         af1 |   % 7
  62         R1 \bar "||:"   % 8
  63
  64         \repeat volta 3
  65         {
  66                 % Verse
  67
  68 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  69
  70                 r16 af af bf ~ bf c8. r16 af af bf ~ bf c8. |   % 9
  71                 bf16 ( af8. ) ~ af4 r2 |   % 10
  72                 r16 af af bf ~ bf c8. bf f16 ~ f8 bf ( |   % 11
  73                 af2 ) r2 |   % 12
  74                 r16 af af bf ~ bf c8. r16 af af bf ~ bf c8 df16 ~ |   % 13
  75                 df16 c bf af ~ af8. df16 ~ df c bf af ~ af4 |   % 14
  76                 r16 af af bf ~ bf c8. bf c16 ~ c8 bf ( |   % 15
  77                 af2. ) r4 \bar "||"   % 16
  78
  79                 % Chorus
  80
  81 \once \override Score.RehearsalMark #'self-alignment-X = #left
  82 \mark \markup { \override #'(font-family . sans) { \box { B } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
  83
  84                 r8 <af c ef> <af c ef> <c ef af> <bf ef g>8. <bf ef g>16 ~ <bf ef g>4 |   % 17
  85                 r8 <af c ef>16 <af c ef> ~ <af c ef> <c ef af>8. <df ef af> <df f>16 ~ <df f>8 <c ef af> |   % 18
  86                 r8 <af c ef> <af c ef> <c ef af> <bf ef g>8. <bf ef g>16 ~ <bf ef g>8 << { \voiceOne <bf ef g> ( |   % 19
  87                 <af f'>1 ) } \new Voice = "v" { \voiceThree s8 df8. c16 ~ c8 df ~ df2 } >> \oneVoice |   % 20
  88                 r8 <af c ef> <af c ef> <c ef af> <bf ef g>8. <bf ef g>16 r4 |   % 21
  89                 r8 <af c ef>16 <af c ef> ~ <af c ef> <c ef af>8. <df ef af> <df f>16 ~ <df f>8 <c ef af> |   % 22
  90                 r8 <af c ef> <af c ef> <c ef af> <bf ef g>8. <bf ef g>16 r8 <bf ef g> ( |   % 23
  91         }
  92         \alternative
  93         {
  94                 {
  95                         <af f' af>1 ) |   % 24
  96                         R1 |   % 25
  97                 }
  98                 {
  99                         af1^\markup { \hspace #18.0 \raise #1.0 \large \italic { D.S. } } \repeatTie \bar "||"   % 26
 100                 }
 101                 {
 102                         af1 \repeatTie |   % 27
 103                 }
 104         }
 105
 106         R1 |   % 28
 107         R1 \bar "||"   % 29
 108
 109         % Chorus (reprise)
 110
 111 \mark \markup { \override #'(font-family . sans) { \box { C } } }
 112
 113         r8 af af ef' ef8. bf16 ~ bf4 |   % 30
 114         r8 af16 af ~ af ef'8. ef df16 ~ df8 c |   % 31
 115         r8 <af ef'> <af ef'> <ef' af> <ef g>8. <bf g'>16 ~ \set Voice.autoBeaming = ##f
 116 <bf g'>8 << { \voiceOne \stemDown \slurDown bf ( |   % 32
 117         \set Voice.autoBeaming = ##t \stemNeutral \slurNeutral af1 ) } \new Voice = "v" { \voiceThree g'8 ( f8. ef8 ) ~ ef2 } >> \oneVoice |   % 33
 118         r8 af, af ef' ef8. bf16 ~ bf4 |   % 34
 119         r8 af16 af ~ af ef'8. ef df16 ~ df8 c |   % 35
 120         r8 <af ef'> <af ef'> <ef' af> <ef g>8. <bf g'>16 ~ <bf g'>4 |   % 36
 121         r4 <df f af df>2. |   % 37
 122
 123         \repeat volta 2
 124         {
 125                 % Chorus (outro)
 126
 127 \mark \markup { \override #'(font-family . sans) { \box { D } } }
 128
 129                 r8 <af c ef> <af c ef> <c ef af> <bf ef g>8. <bf ef g>16 ~ <bf ef g>4 |   % 38
 130                 r8 <af c ef>16 <af c ef> ~ <af c ef> <c ef af>8. <df ef af> <df f>16 ~ <df f>8 <c ef af> |   % 39
 131                 r8 <af c ef> <af c ef> <c ef af> <bf ef g>8. <bf ef g>16 ~ <bf ef g>8 << { \voiceOne <bf ef g> ( |   % 40
 132                 <af f'>1 ) } \new Voice = "v" { \voiceThree s8 df8. c16 ~ c8 df ~ df2 } >> \oneVoice |   % 41
 133                 r8 <af c ef> <af c ef> <c ef af> <bf ef g>8. <bf ef g>16 r4 |   % 42
 134                 r8 <af c ef>16 <af c ef> ~ <af c ef> <c ef af>8. <df ef af> <df f>16 ~ <df f>8 <c ef af> |   % 43
 135                 r8 <af c ef> <af c ef> <c ef af> <bf ef g>8. <bf ef g>16 r8 <bf ef g> ( |   % 44
 136                 <af f' af>1 ) |   % 45
 137         }
 138
 139 \mark \markup { \override #'(font-family . sans) { \box { E } } }
 140
 141         R1 |   % 46
 142         R1 |   % 47
 143         R1 |   % 48
 144         r1-\fermata \bar "|."   % 49
 145 }
 146
 147 LeadVoxText = \lyricmode
 148 {
 149         Bah bah dah bah bah _ bah, _ doo doo _ doo
 150         Bah bah dah bah bah _ bah, _
 151
 152         Bah bah dah bah bah _ bah, _
 153
 154         In the sec -- _ ret, in the qui -- _ et place, _ _
 155         in the still -- _ ness you are _ there. _
 156         In the sec -- _ ret, in the qui -- _ et ho -- _ ur I wait _
 157         on -- _ ly for you, _
 158         ’cause I want _ to know you _ more. __ _
 159
 160         I want to know you, _ I want _ to hear your _ voice,
 161         I want to know you _ more; _
 162         I want to touch you, I want _ to see your _ face,
 163         I want to know you more. _
 164
 165         _ _
 166
 167         I want to know you, _ I want _ to hear your _ voice,
 168         I want to know you _ more; _
 169         I want to touch you, _ I want _ to see your _ face,
 170         I want to know you _ MORE!
 171
 172         I want to know you, _ I want _ to hear your _ voice,
 173         I want to know you _ more; _
 174         I want to touch you, I want _ to see your _ face,
 175         I want to know you more. _
 176 }
 177
 178 LeadVoxTextB = \lyricmode
 179 {
 180         _ _ _ _ _ _ _ _ _ _ _ _
 181         _ _ _ _ _ _ _ _
 182         _ _ _ _ _ _ _ _
 183
 184         I am reach -- _ ing for the high -- _ est goal, _ _
 185         that I might _ re -- ceive the _ prize. _
 186         Press -- ing on -- _ ward, push -- ing ev’ -- _ ry hin -- _ drance a -- side, _
 187         out _ of my way, _
 188 }
 189
 190
 191 Riffs = \relative c'
 192 {
 193         \clef G
 194         \key af \major
 195         \override Staff.TimeSignature #'style = #'()
 196         \time 4/4
 197 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 198
 199 %{
 200         \tiny
 201         r2 r8 d f bf |   % 1
 202         bf4. af8 ~ af4. af8 |   % 2
 203         af4. g8 ~ g4. f8 |   % 3
 204         f1 |   % 4
 205
 206         s1*38 |   % 5-42
 207
 208         \voiceOne
 209         r2 r8 d f bf |   % 43
 210         \oneVoice
 211         bf4. af8 ~ af4. af8 |   % 44
 212         af4. g8 ~ g4. f8 |   % 45
 213         f1 |   % 46
 214
 215         s1*3 |   % 47-48 (plus spacer for coda)
 216
 217         s2 r8 d f bf |   % 49
 218         bf4. af8 ~ af4. af8 |   % 50
 219         af4. g8 ~ g4. f8 |   % 51
 220         f1 |   % 52
 221         r2 r8 d f bf |   % 53
 222         bf4. af8 ~ af4. af8 |   % 54
 223         af4. g8 ~ g4. f8 |   % 55
 224         f1 |   % 56
 225         r1-\fermata \bar "|."   % 57
 226 %}
 227 }
 228
 229
 230 %
 231 % Chord names
 232 %
 233
 234 Chords = \chordmode
 235 {
 236 %Bah, can't we set this globally?
 237 %       \popChords
 238
 239         % Intro
 240
 241         s1 |   % 1
 242
 243         \repeat volta 2
 244         {
 245                 af2 ef |   % 2
 246                 f8.:m ef df8 s2 |   % 3
 247         }
 248         \alternative
 249         {
 250                 {
 251                         af2 ef |   % 4
 252                         df8. af/c df8 s2 |   % 5
 253                 }
 254                 {
 255                         f2:m ef |   % 6
 256                 }
 257         }
 258
 259         df8. af/c df8 s2 |   % 7
 260         s1 |   % 8
 261
 262         % Verse
 263
 264         \repeat volta 3
 265         {
 266                 af2 af/c |   % 9
 267                 df1 |   % 10
 268                 f2:m ef |   % 11
 269                 df1 |   % 12
 270                 af2 af/c |   % 13
 271                 df1 |   % 14
 272                 f2:m ef |   % 15
 273                 df1 |   % 16
 274
 275                 % Chorus
 276
 277                 af2 ef |   % 17
 278                 f8.:m ef df8 s2 |   % 18
 279                 af2 ef |   % 19
 280                 df8. af/c df8 s2 |   % 20
 281                 af2 ef |   % 21
 282                 f8.:m ef df8 s2 |   % 22
 283                 f2:m ef |   % 23
 284         }
 285         \alternative
 286         {
 287                 {
 288                         df8. af/c df8 s2 |   % 24
 289                         s1 |   % 25
 290                 }
 291                 {
 292                         df8. af/c df8 s2 |   % 26
 293                 }
 294                 {
 295                         df8. af/c df8 s2 |   % 27
 296                 }
 297         }
 298
 299         af1 |   % 28
 300         s1 |   % 29
 301
 302         % Chorus (reprise)
 303
 304         af2 c:m7 |   % 30
 305         df1 |   % 31
 306         f2:m ef |   % 32
 307         df1 |   % 33
 308         af2 c:m |   % 34
 309         df1 |   % 35
 310         f2:m ef |   % 36
 311         df8. af/c df af/c df4 |   % 37
 312
 313         \repeat volta 2
 314         {
 315                 % Chorus (outro)
 316
 317                 af2 ef |   % 38
 318                 f8.:m ef df8 s2 |   % 39
 319                 af2 ef |   % 40
 320                 df8. af/c df8 s2 |   % 41
 321                 af2 ef |   % 42
 322                 f8.:m ef df8 s2 |   % 43
 323                 f2:m ef |   % 44
 324                 df8. af/c df8 s2 |   % 45
 325         }
 326
 327         af2 ef |   % 46
 328         f8.:m ef d8 s2 |   % 47
 329         f2:m ef |   % 48
 330         df8. af/c df8 s2 |   % 49
 331 }
 332
 333
 334 %
 335 % Chord rhythms
 336 %
 337
 338 % Use a RhythmicStaff on the chords instead of this?
 339 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 340
 341 StaffC = \relative c
 342 {
 343 %       \set Voice.autoBeaming = ##f
 344 %       \set Staff.instrumentName = #"Rhythm"
 345         \override Staff.TimeSignature #'style = #'()
 346         \time 4/4
 347         \override NoteHead #'style = #'slash
 348
 349         % Intro
 350
 351         c4 c c c |   % 1
 352
 353         \repeat volta 2
 354         {
 355                 c8 c ~ c4 c8 c ~ c4 |   % 2
 356                 c8.-> c16-> ~ c8 c-> ~ c4 c |   % 3
 357         }
 358         \alternative
 359         {
 360                 {
 361                         c8 c ~ c4 c8 c ~ c4 |   % 4
 362                         c8.-> c16-> ~ c8 c-> ~ c4 c |   % 5
 363                 }
 364                 {
 365                         c8 c ~ c4 c8 c ~ c4 |   % 6
 366                 }
 367         }
 368
 369         c8. c16 ~ c8 c ~ c4 c |   % 7
 370         c4 c c c \bar "||:"   % 8
 371
 372         % Verse
 373
 374         \repeat volta 3
 375         {
 376                 c4 c c c |   % 9
 377                 c4 c c c |   % 10
 378                 c4 c c c |   % 11
 379                 c4 c c c |   % 12
 380                 c4 c c c |   % 13
 381                 c4 c c c |   % 14
 382                 c4 c c c |   % 15
 383                 c4 c c c \bar "||"   % 16
 384
 385                 % Chorus
 386
 387                 c8 c ~ c4 c8 c ~ c4 |   % 17
 388                 c8.-> c16-> ~ c8 c-> ~ c4 c |   % 18
 389                 c8 c ~ c4 c8 c ~ c4 |   % 19
 390                 c8.-> c16-> ~ c8 c-> ~ c4 c |   % 20
 391                 c8 c ~ c4 c8 c ~ c4 |   % 21
 392                 c8.-> c16-> ~ c8 c-> ~ c4 c |   % 22
 393                 c8 c ~ c4 c8 c ~ c4 |   % 23
 394         }
 395         \alternative
 396         {
 397                 {
 398                         c8.-> c16-> ~ c8 c-> ~ c4 c |   % 24
 399                         c4 c c c |   % 25
 400                 }
 401                 {
 402                         c8.-> c16-> ~ c8 c-> ~ c4 c |   % 26
 403                 }
 404                 {
 405                         c8.-> c16-> ~ c8 c-> ~ c4 c |   % 27
 406                 }
 407         }
 408
 409         c1 ~ |   % 28
 410         c1 \bar "||"   % 29
 411
 412         % Chorus (reprise)
 413
 414         c2 c |   % 30
 415         c2 c |   % 31
 416         c2 c |   % 32
 417         c2 c |   % 33
 418         c2 c |   % 34
 419         c2 c |   % 35
 420         c2 c |   % 36
 421         c8.-> c16-> ~ c8 c-> ~ c16 c8.-> c4-> |   % 37
 422
 423         \repeat volta 2
 424         {
 425                 % Chorus (outro)
 426
 427                 c8 c ~ c4 c8 c ~ c4 |   % 38
 428                 c8.-> c16-> ~ c8 c-> ~ c4 c |   % 39
 429                 c8 c ~ c4 c8 c ~ c4 |   % 40
 430                 c8.-> c16-> ~ c8 c-> ~ c4 c |   % 41
 431                 c8 c ~ c4 c8 c ~ c4 |   % 42
 432                 c8.-> c16-> ~ c8 c-> ~ c4 c |   % 43
 433                 c8 c ~ c4 c8 c ~ c4 |   % 44
 434                 c8.-> c16-> ~ c8 c-> ~ c4 c |   % 45
 435         }
 436
 437         c8 c ~ c4 c8 c ~ c4 |   % 46
 438         c8.-> c16-> ~ c8 c-> ~ c4 c |   % 47
 439         c8 c ~ c4 c8 c ~ c4 |   % 48
 440         c8.-> c16-> ~ c8 c-> ~ c2-\fermata \bar "|."   % 49
 441 }
 442
 443
 444 Dynamics =
 445 {
 446         s4_\markup { \italic { drum fill } } s2. |   % 1
 447         s4_\ff s2. |   % 2
 448         s1*5 |   % 3-7
 449         s4_\markup { \italic { drum AND BASS fill } } s2. |   % 8
 450         s4_\mp s2. |   % 9
 451         s1*6 |   % 10-15
 452         s4 s s \< s |   % 16
 453         s4_\ff s2. |   % 17
 454         s1*7 |   % 18-24
 455         s4_\markup { \italic { drum AND BASS fill } } s2. |   % 25
 456         s1*2 |   % 26-27
 457         s4 s s \> s |   % 28
 458         s1 |   % 29
 459         s4_\mf s2. |   % 30
 460         s1*6 |   % 31-36
 461         s4_\f s s \< s |   % 37
 462         s4_\ff s2. |   % 38
 463 %{
 464         s1*27 |   % 1-27
 465         s4 s \< s \! s |   % 28
 466         s4_\markup { \italic { add backbeat } } s2. |   % 29
 467         s1*18 |   % 30-47
 468         s4 s \< s \! s |   % 48
 469         s1*8 |   % 49-55
 470         s2 s_\markup { \italic { rit. } } |   % 56
 471 %}
 472 }
 473
 474
 475 \score
 476 {
 477         <<
 478                 <<
 479 %                       \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
 480                         \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> }
 481                         \new Lyrics \lyricsto "lead" \LeadVoxText
 482                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 483                 >>
 484
 485                 \new ChoirStaff = "Rhythm"
 486                 <<
 487                         \new ChordNames = "chords" \Chords
 488                         \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
 489                 >>
 490
 491                 \set Score.skipBars = ##t
 492                 \set Score.melismaBusyProperties = #'()
 493         >>
 494 }
 495
 496
 497 \paper
 498 {
 499         #(define fonts (make-pango-font-tree
 500                 "Times New Roman"
 501                 "DomCasual BT"
 502                 "Luxi Mono"
 503                 (/ staffSize 20)))
 504
 505 % Don't spread staves vertically across last page (default: t)
 506 %       ragged-last-bottom = ##f
 507 % Don't spread staves vertically across the page (default: f)
 508 %       ragged-bottom = ##t
 509 % Allow partial line for last stave (default: f)
 510         ragged-last = ##t
 511
 512 % To find out what's eating the space at the top...
 513 %       annotate-spacing = ##t
 514 %let's try this: [It works! Huzzah!]
 515         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 516 }