]> Shamusworld >> Repos - music/blobdiff - stand-in-the-congregation.ly
New charts "How Great Thou Art" and "In The Garden".
[music] / stand-in-the-congregation.ly
index 13e4d11715409380024ab00eae19353a516d4b83..ca94fc5c88ab51d7d60cd739d3934f345a0f48cf 100644 (file)
@@ -1,8 +1,8 @@
-\version "2.16.0"
+\version "2.19.0"
 \include "pop-chords.ly"
 \include "english.ly"
 
-% Good sizes are 16, 18, & 20
+% Good sizes are 16, 18, & 20 (11, 13, 14, 23, 26)
 staffSize = #18
 #(set-default-paper-size "letter")
 #(set-global-staff-size staffSize)
@@ -21,101 +21,57 @@ staffSize = #18
 
 
 %
-% Lead vocal
+% Song's structure
 %
-
-LeadVox = \relative c'
+Global =
 {
-%      \set Voice.autoBeaming = ##f
-%      \set Staff.instrument = #"Lead vox"
        \clef G
        \key ef \major
-       \override Staff.TimeSignature #'style = #'()
+       \numericTimeSignature
        \time 4/4
-\override Score.SpacingSpanner #'average-spacing-wishes = ##f
 
        \repeat volta 2
        {
                % Intro
 
-               r1 |   % 1
-               r1 |   % 2
+               s1*2 |   % 1-2
        }
        \alternative
        {
                {
-                       r1 |   % 3
-                       r1 |   % 4
+                       s1*2 |   % 3-4
                }
                {
-                       r1 |   % 5
+                       s1 |   % 5
                }
        }
-       r2 ef4 f \bar "||"   % 6
+
+       s1 \bar "||"   % 6
 
        % Verse
 
-\mark \markup { \override #'(font-family . sans) { \box { A } } }
-
-       g4 g8 g g4 f8 f ~ |   % 7
-       f8 ef4 bf8 ef4 f8 ef |   % 8
-       g2 ( f4. ) ef8 ~ |   % 9
-       ef4 r d ef |   % 10
-       f4 f8 f f4 f8 f ~ |   % 11
-       f bf,4 bf8 ef4 f8 ef |   % 12
-       g2 ( f4. ) ef8 ~ |   % 13
-       ef4 r ef f |   % 14
-       g8 g g g ~ g f4 f8 ~ |   % 15
-       f8 ef ~ ef4 ef f |   % 16
-       g2 bf4. af8 ~ |   % 17
-       af2 r4 c |   % 18
-       bf2 ( g4 ef ) |   % 19
-       g2 ( f4. ) ef8 ~ |   % 20
-       ef1 |   % 21
-       r2 ef4 f \bar "||:"   % 22
+       \mark \markup { \override #'(font-family . sans) { \box { A } } }
+       s1*16 \bar ".|:-||"   % 7-22
 
        \repeat volta 2
        {
                % Verse
 
-\mark \markup { \override #'(font-family . sans) { \box { B } } }
-
-               g4 g8 g g4 f8 f ~ |   % 23
-               f8 ef4 bf8 ef4 f8 ef |   % 24
-               g2 ( f4.)  ef8 ~ |   % 25
-               ef4 r d ef |   % 26
-               f4 f8 f f4 f8 f ~ |   % 27
-               f bf,4 bf8 ef4 f8 ef |   % 28
-               g2 ( f4. ) ef8 ~ |   % 29
-               ef4 r ef f |   % 30
-               g8 g g g ~ g f4 f8 ~ |   % 31
-               f8 ef ~ ef4 ef f |   % 32
-               g2 bf4. af8 ~ |   % 33
-               af2 r4 c |   % 34
-               bf2 ( g4 ef ) |   % 35
-               g2 ( f4. ) ef8 ~ |   % 36
-               ef1 |   % 37
-               r2 ef4 bf' \bar "||"   % 38
+               \mark \markup { \override #'(font-family . sans) { \box { B } } }
+               s1*16 \bar "||"   % 23-38
 
                % Chorus
 
-\mark \markup { \override #'(font-family . sans) { \box { C } } }
-
-               bf2 ( ~ bf8 f4 ) f8 ~  |   % 39
-               f2 ef4 bf' |   % 40
-               bf2 ( ~ bf8 g4 ) g8 ~ |   % 41
-               g2 ef4 bf' |   % 42
-               c2 ( ~ c8 bf4 ) af8 ~ |   % 43
-               af2 f4 c' |   % 44
-               d2 ( c4. ) bf8 ~ |   % 45
+               \mark \markup { \override #'(font-family . sans) { \box { C } } }
+               s1*7 |   % 39-45
        }
        \alternative
        {
                {
-                       bf4 r ef, f |   % 46
+                       s1 |   % 46
                }
                {
-                       bf4 r f g \bar "||"   % 47
+                       s1 \bar "||"   % 47
                }
        }
 
@@ -123,7 +79,93 @@ LeadVox = \relative c'
 
        \key f \major
 
-\mark \markup { \override #'(font-family . sans) { \box { D } } }
+       \mark \markup { \override #'(font-family . sans) { \box { D } } }
+       s1*12 |   % 48-59
+
+       \repeat volta 2
+       {
+               s1*4 |   % 60-63
+       }
+
+       s1*5 \bar "|."   % 64-68
+}
+
+
+%
+% Lead vocal
+%
+LeadVox = \relative c'
+{
+       \repeat volta 2
+       {
+               % Intro
+
+               r1*2 |   % 1-2
+       }
+       \alternative
+       {
+               {
+                       r1*2 |   % 3-4
+               }
+               {
+                       r1 |   % 5
+               }
+       }
+       r2 ef4 f |   % 6
+
+       % Verse
+
+       g4 g8 g g4 f8 f ~ |   % 7
+       f8 ef4 bf8 ef4 f8 ef |   % 8
+       g2 ( f4. ) ef8 ~ |   % 9
+       ef4 r d ef |   % 10
+       f4 f8 f f4 f8 f ~ |   % 11
+       f bf,4 bf8 ef4 f8 ef |   % 12
+       g2 ( f4. ) ef8 ~ |   % 13
+       ef4 r ef f |   % 14
+       g8 g g g ~ g f4 f8 ~ |   % 15
+       f8 ef ~ ef4 ef f |   % 16
+       g2 bf4. af8 ~ |   % 17
+       af2 r4 c |   % 18
+       bf2 ( g4 ef ) |   % 19
+       g2 ( f4. ) ef8 ~ |   % 20
+       ef1 |   % 21
+       r2 ef4 f |   % 22
+
+       % Verse
+
+       g4 g8 g g4 f8 f ~ |   % 23
+       f8 ef4 bf8 ef4 f8 ef |   % 24
+       g2 ( f4.)  ef8 ~ |   % 25
+       ef4 r d ef |   % 26
+       f4 f8 f f4 f8 f ~ |   % 27
+       f bf,4 bf8 ef4 f8 ef |   % 28
+       g2 ( f4. ) ef8 ~ |   % 29
+       ef4 r ef f |   % 30
+       g8 g g g ~ g f4 f8 ~ |   % 31
+       f8 ef ~ ef4 ef f |   % 32
+       g2 bf4. af8 ~ |   % 33
+       af2 r4 c |   % 34
+       bf2 ( g4 ef ) |   % 35
+       g2 ( f4. ) ef8 ~ |   % 36
+       ef1 |   % 37
+       r2 ef4 bf' |   % 38
+
+       % Chorus
+
+       bf2 ( ~ bf8 f4 ) f8 ~  |   % 39
+       f2 ef4 bf' |   % 40
+       bf2 ( ~ bf8 g4 ) g8 ~ |   % 41
+       g2 ef4 bf' |   % 42
+       c2 ( ~ c8 bf4 ) af8 ~ |   % 43
+       af2 f4 c' |   % 44
+       d2 ( c4. ) bf8 ~ |   % 45
+
+       bf4 r ef, f |   % 46
+
+       bf4 r f g |   % 47
+
+       % Verse
 
        a4 a8 a a4 g8 g ~ |   % 48
        g8 f4 c8 f4 g8 f |   % 49
@@ -138,21 +180,19 @@ LeadVox = \relative c'
        a2 c4. bf8 ~ |   % 58
        bf2 r4 d4 |   % 59
 
-       \repeat volta 2
-       {
-               c2 ( a4 f ) |   % 60
-               a2 ( g4. ) f8 ~ |   % 61
-               f1 |   % 62
-               r2 r4 d' |   % 63
-       }
+       c2 ( a4 f ) |   % 60
+       a2 ( g4. ) f8 ~ |   % 61
+       f1 |   % 62
+       r2 r4 d' |   % 63
 
        c2 ( a4 f ) |   % 64
        a2 ( g4. ) f8 ~ |   % 65
        f1 |   % 66
        r1 |   % 67
-       r1 \bar "|."   % 68
+       r1 |   % 68
 }
 
+
 LeadVoxText = \lyricmode
 {
        I will stand in the con -- gre -- ga -- _ tion
@@ -213,31 +253,18 @@ LeadVoxTextB = \lyricmode
 %
 % Chord names
 %
-
 Chords = \chordmode
 {
-% Do we need this anymore???
-%      \override SeparatingGroupSpanner #'padding = #'2.0
-%Bah, can't we set this globally?
-%      \popChords
+       % Intro
 
-       \repeat volta 2
-       {
-               % Intro
+       df2./ef s8 af8/ef |   % 1
+       s1 |   % 2
+
+       ef1 |   % 3
+       s1 |   % 4
+
+       ef2. s8 af8/bf |   % 5
 
-               df2./ef s8 af8/ef |   % 1
-               s1 |   % 2
-       }
-       \alternative
-       {
-               {
-                       ef1 |   % 3
-                       s1 |   % 4
-               }
-               {
-                       ef2. s8 af8/bf |   % 5
-               }
-       }
        s1 |   % 6
 
        % Verse
@@ -259,46 +286,38 @@ Chords = \chordmode
        ef2. s8 af/bf |   % 21
        s1 |   % 22
 
-       \repeat volta 2
-       {
-               % Verse
-
-               ef1 |   % 23
-               s2 af/ef |   % 24
-               ef1 |   % 25
-               s1 |   % 26
-               bf1 |   % 27
-               s1 |   % 28
-               ef1 |   % 29
-               s2 af/bf |   % 30
-               ef1 |   % 31
-               s1 |   % 32
-               ef2./g s8 af |   % 33
-               s1 |   % 34
-               ef1/bf |   % 35
-               af2/bf bf |   % 36
-               ef2 s8 f4:m7 ef8/g |   % 37
-               s1 |   % 38
-
-               % Chorus
+       % Verse
 
-               bf1 |   % 29
-               s1 |   % 30
-               ef1 |   % 31
-               s1 |   % 32
-               f1:7 |   % 33
-               s1 |   % 34
-               bf2:7 af4./c bf8/d |   % 35
-       }
-       \alternative
-       {
-               {
-                       s1 |   % 36
-               }
-               {
-                       s2 bf/c |   % 37
-               }
-       }
+       ef1 |   % 23
+       s2 af/ef |   % 24
+       ef1 |   % 25
+       s1 |   % 26
+       bf1 |   % 27
+       s1 |   % 28
+       ef1 |   % 29
+       s2 af/bf |   % 30
+       ef1 |   % 31
+       s1 |   % 32
+       ef2./g s8 af |   % 33
+       s1 |   % 34
+       ef1/bf |   % 35
+       af2/bf bf |   % 36
+       ef2 s8 f4:m7 ef8/g |   % 37
+       s1 |   % 38
+
+       % Chorus
+
+       bf1 |   % 29
+       s1 |   % 30
+       ef1 |   % 31
+       s1 |   % 32
+       f1:7 |   % 33
+       s1 |   % 34
+       bf2:7 af4./c bf8/d |   % 35
+
+       s1 |   % 36
+
+       s2 bf/c |   % 37
 
        % Verse
 
@@ -315,13 +334,10 @@ Chords = \chordmode
        f2./a s8 bf |   % 48
        s1 |   % 49
 
-       \repeat volta 2
-       {
-               f1/c |   % 50
-               bf2/c c |   % 51
-               d2.:m7 s8 bf |   % 52
-               s1 |   % 53
-       }
+       f1/c |   % 50
+       bf2/c c |   % 51
+       d2.:m7 s8 bf |   % 52
+       s1 |   % 53
 
        f1/c |   % 54
        bf2/d c/e |   % 55
@@ -335,37 +351,26 @@ Chords = \chordmode
 % 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...
-
 %Slash = { \override NoteHead #'style = #'slash }
 %Cross = { \override NoteHead #'style = #'cross }
 
 StaffC = \relative c
 {
-       \override Staff.TimeSignature #'style = #'()
-       \time 4/4
+       \numericTimeSignature
        \override NoteHead #'style = #'slash
-
        \teeny
-       \repeat volta 2
-       {
-               % Intro
 
-               c4 c c r8 c ~ |   % 1
-               c4 c c c |   % 2
-       }
-       \alternative
-       {
-               {
-                       c4 c c c |   % 3
-                       c4 c c c |   % 4
-               }
-               {
-                       c4 c c r8 c ~ |   % 5
-               }
-       }
-       c4 c c c \bar "||"   % 6
+       % Intro
+
+       c4 c c r8 c ~ |   % 1
+       c4 c c c |   % 2
+
+       c4 c c c |   % 3
+       c4 c c c |   % 4
+
+       c4 c c r8 c ~ |   % 5
+
+       c4 c c c |   % 6
 
        % Verse
 
@@ -384,48 +389,40 @@ StaffC = \relative c
        c4 c c c |   % 19
        c4 c c c |   % 20
        c4 c c r8 c ~ |   % 21
-       c4 c c c \bar "||:"   % 22
+       c4 c c c |   % 22
 
-       \repeat volta 2
-       {
-               % Verse
+       % Verse
 
-               c4 c c c |   % 23
-               c4 c c c |   % 24
-               c4 c c c |   % 25
-               c4 c c c |   % 26
-               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 r8 c ~ |   % 33
-               c4 c c c |   % 34
-               c4 c c c |   % 35
-               c4 c c c |   % 36
-               c4 c r8 c4 c8 ~ |   % 37
-               c4 c c c \bar "||"   % 38
+       c4 c c c |   % 23
+       c4 c c c |   % 24
+       c4 c c c |   % 25
+       c4 c c c |   % 26
+       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 r8 c ~ |   % 33
+       c4 c c c |   % 34
+       c4 c c c |   % 35
+       c4 c c c |   % 36
+       c4 c r8 c4 c8 ~ |   % 37
+       c4 c c c |   % 38
 
-               % Chorus
+       % Chorus
 
-               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
-               c4 c c4. c8 ~ |   % 35
-       }
-       \alternative
-       {
-               {
-                       c4 c c c |   % 36
-               }
-               {
-                       c4 c c c |   % 37
-               }
-       }
+       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
+       c4 c c4. c8 ~ |   % 35
+
+       c4 c c c |   % 36
+
+       c4 c c c |   % 37
 
        % Verse
 
@@ -442,19 +439,16 @@ StaffC = \relative c
        c4 c c r8 c ~ |   % 48
        c4 c c c |   % 49
 
-       \repeat volta 2
-       {
-               c4 c c c |   % 50
-               c4 c c c |   % 51
-               c4 c c r8 c ~ |   % 52
-               c4 c c c |   % 53
-       }
+       c4 c c c |   % 50
+       c4 c c c |   % 51
+       c4 c c r8 c ~ |   % 52
+       c4 c c c |   % 53
 
        c4 c c c |   % 54
        c2 c |   % 55
        c4 c c r8 c ~ |   % 56
        c4 c c c |   % 57
-       c4-^ c-^ r2 \bar "|."   % 58
+       c4-^ c-^ r2 |   % 58
 }
 
 
@@ -483,23 +477,24 @@ Dynamics =
 \score
 {
        <<
+               \Global         % The "roadmap" that everything else depends on
                \set Score.skipBars = ##t
                \set Score.melismaBusyProperties = #'()
 
-%              \new ChoirStaff = "Rhythm"
-               <<
-                       \new ChordNames = "chords" \Chords
-% Capo 3 Edition
-%                      \new ChordNames = "chords" \transpose ef c \Chords
-                       \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
-               >>
-
-               \new Staff
+               \context Staff
                <<
                        \new Voice = "lead" \LeadVox
                        \new Lyrics \lyricsto "lead" \LeadVoxText
                        \new Lyrics \lyricsto "lead" \LeadVoxTextB
                >>
+
+               \new ChoirStaff
+               <<
+                       \new ChordNames \Chords
+% Capo 3 Edition
+%                      \new ChordNames \transpose ef c \Chords
+                       \new RhythmicStaff << \StaffC \Dynamics >>
+               >>
        >>
 }
 
@@ -508,7 +503,7 @@ Dynamics =
 {
        #(define fonts (make-pango-font-tree
                "Times New Roman"
-               "DomCasual BT"
+               "LilyJAZZText"
                "Luxi Mono"
                (/ staffSize 20)))
 
@@ -521,6 +516,5 @@ Dynamics =
 
 % To find out what's eating the space at the top...
 %      annotate-spacing = ##t
-%let's try this: [It works! Huzzah!]
-       obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 }
+