]> Shamusworld >> Repos - music/commitdiff
New chart "From The Inside Out".
authorShamus Hammons <jlhamm@acm.org>
Thu, 31 Aug 2017 20:39:06 +0000 (15:39 -0500)
committerShamus Hammons <jlhamm@acm.org>
Thu, 31 Aug 2017 20:39:06 +0000 (15:39 -0500)
from-the-inside-out.ly [new file with mode: 0644]

diff --git a/from-the-inside-out.ly b/from-the-inside-out.ly
new file mode 100644 (file)
index 0000000..9065ca1
--- /dev/null
@@ -0,0 +1,602 @@
+\version "2.19.48"
+\include "pop-chords.ly"
+\include "english.ly"
+
+% Good sizes are 16, 18, & 20
+staffSize = #18
+#(set-default-paper-size "letter")
+#(set-global-staff-size staffSize)
+#(ly:set-option (quote no-point-and-click))
+
+%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %}
+
+\header
+{
+       title    = \markup { \override #'(font-family . sans) \fontsize #3.5 "From The Inside Out" }
+       composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Hillsong United" }
+       arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. S. Hammons" }
+       tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
+}
+
+% Useful tweak abbreviations (hn = harmony note)
+
+hn = #(define-music-function (parser location arg) (ly:music?)
+;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
+
+  (set! (ly:music-property arg 'tweaks)
+    (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg)
+
+%
+% Song's structure (original is in C)
+%
+
+Global =
+{
+       \key c \major
+       \numericTimeSignature
+       \time 4/4
+
+       % Intro
+
+       s1*4 |   % 1-4
+
+       \repeat volta 2
+       {
+%      \once \override TextScript #'padding = #2.0
+%      s1*0^\markup { \large \italic { Piano only } }
+               s1*4 \bar "||"   % 5-8
+
+               % Verse
+
+               \mark \markup { \override #'(font-family . sans) { \box { A } } }
+               s1*8 |   % 9-16
+
+               % Prechorus
+
+%              \mark \markup { \override #'(font-family . sans) { \box { B } } }
+\once \override Score.RehearsalMark #'self-alignment-X = #left
+\mark \markup { \override #'(font-family . sans) { \box { B } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
+               s1*7 |   % 17-23
+\once \override Score.RehearsalMark #'self-alignment-X = #right
+\once \override Score.RehearsalMark #'break-visibility = #begin-of-line-invisible
+\mark \markup { \italic { to Coda } \hspace #1.0 \musicglyph #"scripts.coda" }
+       }
+       \alternative
+       {
+               {
+                       s1*2 |   % 24-5
+               }
+               {
+                       s1 |   % 26
+               }
+       }
+
+       % Chorus
+
+       \mark \markup { \override #'(font-family . sans) { \box { C } } }
+       s1*8 \bar "||"  % 27-34
+
+       % Solo
+
+       \mark \markup { \override #'(font-family . sans) { \box { D } } }
+       s1*9 \bar "||"  % 35-43
+
+       \once \override Score.RehearsalMark #'self-alignment-X = #right
+       \mark \markup { \italic { D.S. al Coda } }
+
+       % blank measure between last measure and coda
+       \stopStaff s1 \startStaff
+       \set Score.currentBarNumber = #44
+
+       % Coda
+
+       \once \override Score.RehearsalMark #'self-alignment-X = #left
+       \mark \markup { { \musicglyph #"scripts.coda" } "Coda" }
+       s1 |   % 44
+
+       \repeat volta 2
+       {
+               \mark \markup { \override #'(font-family . sans) { \box { E } } }
+               s1*7 |   % 45-51
+       }
+       \alternative
+       {
+               {
+                       s1 |   % 52
+               }
+               {
+                       s1 |   % 53
+               }
+       }
+
+       s1*5 \bar "|." |   % 54-58
+}
+
+
+%
+% Lead vocal
+%
+
+LeadVox = \relative c'
+{
+       \clef "treble_8"
+       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
+
+       % Intro
+
+       s1*7 |   % 1-7
+       s2 s8 s16 g16 \stemUp c8 b \stemNeutral |   % 8
+
+       % Verse
+
+       a8 a4 a8 ~ a r e g |   % 9
+       g8 f e d r8. g16 c8 b |   % 10
+       a8 g a c,4 r8 r16 e16 g8 |   % 11
+       g8 f a4 g c,16 d e8 ~ |   % 12
+
+       e8 c r e e d c d |   % 13
+       e4 d d c16 d e8 ~ |   % 14
+       e8 c r e e d c d |   % 15
+       e4 d d r |   % 16
+
+       % Prechorus
+
+       r4 r8 c' c b a g |   % 17
+       r4 r8 c c b a g |   % 18
+       r4 r8 c c b a g |   % 19
+       g4 a a a |   % 20
+
+       r4 r8 c c b a g |   % 21
+       r4 r8 c c << { \voiceTwo b a g } \context Voice = vb { \voiceOne \tiny d' e d } >> |   % 22
+       r4 r8 << { \voiceTwo c c b a g } \context Voice = vb { \voiceOne \tiny g' g f f e } >> \oneVoice |   % 23
+
+       g,4 a a2 |   % 24
+       R1 |   % 25
+
+       << { \voiceTwo g4 a a } \context Voice = vb { \voiceOne \tiny e' f e16 ( d8. ) } >> \oneVoice c16 d e8 ~ |   % 26
+
+       % Chorus
+
+       e8 c r e e d c d |   % 27
+       e4 d d8 r c16 d e8 ~ |   % 28
+       e8 c r e e d c d |   % 29
+       e4 d d8 r c16 d e8 ~ |   % 30
+
+       e8 f e c8 ~ c d8 d d ~ |   % 31
+       d8 r e4 e8 r d16 c c8 ~ |   % 32
+       c8 r e4 d8 c b c ~ |   % 33
+       c4 e d2 |   % 34
+
+       % Solo
+
+       R1 |   % 35
+       r4 r8 c8 g'4 c,8 c ~ |   % 36
+       c2 r4 d8 d ~ |   % 37
+       d4. c8 g'4 g8 ( e ) |   % 38
+       f16 ( e c4 ) r8 r4 e8 e ~ |   % 39
+       e2 r8 f8 ( e ) d ~ |   % 40
+       d2 r4 a |   % 41
+       a2 r |   % 42
+       R1 |   % 43
+
+       % Coda
+
+       % blank measure between last measure and coda
+       s1
+
+       << { \voiceTwo g4 a a } \context Voice = vb { \voiceOne \tiny e' f e16 ( d8. ) } >> \oneVoice c16 d e8 ~ |   % 44
+
+       e8 c r e e d c d |   % 45
+       e4 d d8 r c16 d e8 ~ |   % 46
+       e8 c r e e d c d |   % 47
+       e4 d d8 r c16 d e8 ~ |   % 48
+       e8 f e c8 ~ c d8 d d ~ |   % 49
+       d8 r e4 e8 r d16 c c8 ~ |   % 50
+       c8 r e4 d8 c b c ~ |   % 51
+
+       c4 e d c16 d e8-\laissezVibrer |   % 52
+
+       c4-\repeatTie e d d8 c |   % 53
+
+       c8 r e4 d8 c b c ~ |   % 54
+       c4 e d d8 c |   % 55
+       c8 r e4 d8 c b c ~ |   % 56
+       c4 e d2 ~ |   % 57
+       d1-\fermata |   % 58
+}
+
+
+LeadVoxTextA = \lyricmode
+{
+       A thou -- sand times I've failed, _
+       still your mer -- cy re -- mains
+       And should I stum -- ble a -- gain,
+       still I'm caught in your grace
+
+       E -- ver -- last -- _ ing,
+       your light will shine when all else fades
+       Nev -- er -- end -- _ ing,
+       your glo -- ry goes be -- yond all fame
+
+       My heart and my soul, I give you con -- trol,
+       con -- sume me from the in -- side out Lord
+       Let jus -- tice and praise, be -- come my em -- brace,
+       to love you from the in -- side out
+
+       in -- side out
+
+       E -- ver -- last -- _ ing,
+       your light will shine when all else fades
+       Nev -- er -- end -- _ ing,
+       your glo -- ry goes be -- yond all fame
+
+       And the cry _ of my heart _ is to bring _ you praise
+       from the in -- _ side out, Lord my soul _ cries out
+
+       My soul cries out _ to you _
+       My soul cries _ out _ _ to you _
+       to _ you _
+       to you
+
+       in -- side out
+
+       E -- ver -- last -- _ ing,
+       your light will shine when all else fades
+       Nev -- er -- end -- _ ing,
+       your glo -- ry goes be -- yond all fame
+
+       And the cry _ of my heart _ is to bring _ you praise
+       from the in -- _ side out, Lord my soul _ cries out
+
+       E -- ver -- last
+
+       _ cries out
+       from the in -- side out, Lord my soul _ cries out
+       from the in -- side out, Lord my soul _ cries out
+}
+
+LeadVoxTextB = \lyricmode
+{
+       Your will a -- bove all else, _
+       _ my pur -- pose re -- mains
+       The art of los -- ing my -- self,
+       _ in bring -- ing you praise
+}
+
+
+Riffs = \relative c
+{
+       \tiny
+       f8 g e'8. e16 ~ e2 |   % 1
+       e,8 g e'8. e16 d8 b g4 |   % 2
+       f8 g e'8. e16 ~ e2 |   % 3
+       e,8 g e'8. e16 d8 b g4 |   % 4
+       f8 g e'8. e16 ~ e2 |   % 5
+       e,8 g e'8. e16 d8 b g4 |   % 6
+       f8 g e'8. e16 ~ e2 |   % 7
+       e,8 g e'8. e16 d8 b \stemDown g4 \stemNeutral |   % 8
+       \normalsize
+%{
+       \tiny
+       a8 gs gs fs |   % 0
+       gs4 gs a8 gs fs e |   % 1
+       fs4 fs a8 gs gs fs |   % 2
+       gs4 gs gs8 b4 e,8 ~ |   % 3
+       e16 a, b e ~ e b e gs ~ gs b, e b' ~ b8 b,16 e ~ |   % 4
+       e16 a, b e ~ e b e gs ~ gs b, e b' ~ b8 b, |   % 5
+
+       s1*16 |   % 6-21
+
+       r16 a b e ~ e b e gs ~ gs b, e b' ~ b8 b,16 e ~ |   % 22
+       e16 a, b e ~ e b e gs ~ gs b, e b' ~ b8 b, |   % 23
+
+       s1*7 |   % 24-30
+
+       s1 % blank bar for Coda
+
+       s1*13 |   % 31-43
+
+       r16 a b e ~ e b e gs ~ gs b, e b' ~ b8 b,16 e ~ |   % 44
+       e a, b e ~ e b e gs ~ gs b, e b' ~ b8 b,16 e ~ |   % 45
+       e16 a, b e ~ e b e gs ~ gs b, e b' ~ b8 b, |   % 46
+       <a b e>1-\fermata |   % 47
+       \normalsize
+%}
+}
+
+
+%
+% Chord names
+%
+
+Chords = \chordmode
+{
+       % Intro
+
+       f1 |   % 1
+       c2 g |   % 2
+       f1 |   % 3
+       c2 g |   % 4
+       f1 |   % 5
+       c2 g |   % 6
+       f1 |   % 7
+       c2 g |   % 8
+
+       % Verse
+
+       f1 |   % 9
+       c2 g |   % 10
+       f1 |   % 11
+       c2 g |   % 12
+       a2:m f |   % 13
+       c2 g |   % 14
+       a2:m f |   % 15
+       c2 g |   % 16
+
+       % Prechorus
+
+       f1 |   % 17
+       c1 |   % 18
+       a1:m |   % 19
+       g1 |   % 20
+       f1 |   % 21
+       a1:m |   % 22
+       g1 |   % 23
+
+       d1:m |   % 24
+       s1 |   % 25
+
+       d1:m |   % 26
+
+       % Chorus
+
+       a2:m f |   % 27
+       c2 g |   % 28
+       a2:m f |   % 29
+       c2 g |   % 30
+
+       c2 f |   % 31
+       g2 a:m |   % 32
+       f2 g |   % 33
+       f2 g |   % 34
+
+       % Solo
+
+       f1 |   % 35
+       c1 |   % 36
+       a1:m |   % 37
+       g1 |   % 38
+       f1 |   % 39
+       a1:m |   % 40
+       g1 |   % 41
+       d1:m |   % 42
+       s1 |   % 43
+
+       % Coda
+
+       % blank measure between last measure and coda
+       s1
+
+       d1:m |   % 44
+
+       a2:m f |   % 45
+       c2 g |   % 46
+       a2:m f |   % 47
+       c2 g |   % 48
+       c2 f |   % 49
+       g2 a:m |   % 50
+       f2 g |   % 51
+
+       f2 g |   % 52
+
+       f2 g |   % 53
+
+       f2 g |   % 54
+       f2 g |   % 55
+       f2 g |   % 56
+       f2 g |   % 57
+       g1 |   % 58
+}
+
+
+%
+% Chord rhythms
+%
+
+% Use a RhythmicStaff on the chords instead of this?
+% It almost works, but not quite. Doesn't collapse chords above to single notes...
+
+Rhythm = \relative c
+{
+       \numericTimeSignature
+       \override NoteHead #'style = #'slash
+       \teeny
+
+       % Intro
+
+       c4 c c c |   % 1
+       c4 c c c |   % 2
+       c4 c c c |   % 3
+       c4 c c c |   % 4
+       c4 c c c |   % 5
+       c4 c c c |   % 6
+       c4 c c c |   % 7
+       c4 c c c |   % 8
+
+       % Verse
+
+       c4 c c c |   % 9
+       c4 c c c |   % 10
+       c4 c c c |   % 11
+       c4 c c c |   % 12
+       c4 c c c |   % 13
+       c4 c c c |   % 14
+       c4 c c c |   % 15
+       c4 c c c |   % 16
+
+       % Prechorus
+
+       c4 c c c |   % 17
+       c4 c c c |   % 18
+       c4 c c c |   % 19
+       c4 c c c |   % 10
+       c4 c c c |   % 21
+       c4 c c c |   % 22
+       c4 c c c |   % 23
+
+       c4 c c c |   % 24
+       c1 |   % 25
+
+       c4 c c c |   % 26
+
+       % Chorus
+
+       c4 c c c |   % 27
+       c4 c c c |   % 28
+       c4 c c c |   % 29
+       c4 c c c |   % 30
+       c4 c c c |   % 31
+       c4 c c c |   % 32
+       c4 c c c |   % 33
+       c4 c c c |   % 34
+
+       % Solo
+
+       c4 c c c |   % 35
+       c4 c c c |   % 36
+       c4 c c c |   % 37
+       c4 c c c |   % 38
+       c4 c c c |   % 39
+       c4 c c c |   % 40
+       c4 c c c |   % 41
+       c4 c c c |   % 42
+       c4 c c c |   % 43
+
+       % Coda
+
+       % blank measure between last measure and coda
+%hm. Shouldn't need /startStaff /stopStaff... !!! FIX !!!
+       \stopStaff s1 \startStaff
+       c4 c c c |   % 44
+
+       c4 c c c |   % 45
+       c4 c c c |   % 46
+       c4 c c c |   % 47
+       c4 c c c |   % 48
+       c4 c c c |   % 49
+       c4 c c c |   % 50
+       c4 c c c |   % 51
+
+       c4 c c c |   % 52
+
+       c4 c c c |   % 53
+
+       c4 c c c |   % 54
+       c4 c c c |   % 55
+       c4 c c c |   % 56
+       c4 c c c |   % 57
+       c1-\fermata |   % 58
+}
+
+
+Dynamics =
+{
+%{
+       s2_\mf |   % 0
+       s1*3 |   % 1-3
+       s4_\markup { \italic { add cymbal colors } } s2. |   % 5
+       s2 s16 s \> s4 s16 s \! |   % 5
+
+       % Verse
+
+       s4_\markup { \italic { Unison 1st X } } s2. |   % 6
+       s1*8 |   % 7-14
+
+       % Chorus
+
+       s4_\markup { \italic { snare on D.S. } } s2. |   % 15
+       s1*9 |   % 16-24
+
+       % Bridge
+
+       s4_\markup { \italic { Unison 1st X } } s2. |   % 25
+       s1*4 |   % 26-29
+       s4.. s16_\markup { \italic { big fill } } \< s4. s8-\f |   % 30
+
+       s1 % blank bar for coda
+
+       % Coda
+
+       s2 s8 \< s4 s8 \! |   % 31
+       s4_\ff s2. |   % 32
+       s1*6 |   % 33-38
+       s2 s8 \> s4 s8-\mp |   % 39
+
+       s4_\markup { \italic { floating } } s2. |   % 40
+%}
+}
+
+
+\score
+{
+%{
+       <<
+               <<
+%                      \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
+                       \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> }
+                       \new Lyrics \lyricsto "lead" \LeadVoxText
+               >>
+
+               \new ChoirStaff = "Rhythm"
+               <<
+                       \new ChordNames = "chords" \Chords
+                       \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
+               >>
+
+               \set Score.skipBars = ##t
+               \set Score.melismaBusyProperties = #'()
+       >>
+%}
+       <<
+               \set Score.skipBars = ##t
+               \set Score.melismaBusyProperties = #'()
+
+               \new Staff
+               <<
+                       \Global   % The "roadmap" that everything else depends on
+                       \new Voice = "lead" \LeadVox
+                       \new Voice \Riffs
+                       \new Lyrics \lyricsto "lead" \LeadVoxTextA
+                       \new Lyrics \lyricsto "lead" \LeadVoxTextB
+               >>
+
+%              \new Staff
+               <<
+                       \new ChordNames \Chords
+                       \new RhythmicStaff << \Rhythm \Dynamics >>
+               >>
+       >>
+}
+
+
+\paper
+{
+  #(define fonts (make-pango-font-tree
+    "Times New Roman"
+    "JazzText"
+    "Luxi Mono"
+    (/ staffSize 20)))
+
+% Spread staves vertically across last page (default: t)
+%      ragged-last-bottom = ##f
+% Don't spread staves vertically across the page (default: f)
+%      ragged-bottom = ##t
+% Allow partial line for last stave (default: f)
+       ragged-last = ##t
+
+% To find out what's eating the space at the top...
+%      annotate-spacing = ##t
+%let's try this: [It works! Huzzah!][nope... :-/]
+%      obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
+}
+