X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=jesus-is-just-alright.ly;h=ac9864c477c2b891ed7221471022518a3959f17f;hb=bd3b595932c04f7eb329df944c474f89bce236af;hp=8705886f5b82fa1499617799a30e401688a0c898;hpb=6f8ca2d1ddc26dc34f0be9b733d6ef860005c06d;p=music diff --git a/jesus-is-just-alright.ly b/jesus-is-just-alright.ly index 8705886..ac9864c 100644 --- a/jesus-is-just-alright.ly +++ b/jesus-is-just-alright.ly @@ -1,17 +1,15 @@ -\version "2.16.0" +\version "2.19.0" \include "pop-chords.ly" \include "english.ly" % Good sizes are 16, 18, & 20 (11, 13, 14, 23, 26) -staffSize = #18 +staffSize = #16 #(set-default-paper-size "letter") #(set-global-staff-size staffSize) #(ly:set-option (quote no-point-and-click)) \header { -%Let's bump up the title size and switch to the chord font. :-) - title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Jesus Is Just Alright" } composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Arthur Reynolds" } arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. The Doobie Brothers" } @@ -28,101 +26,63 @@ hn = #(define-music-function (parser location arg) (ly:music?) % -% Lead vocal +% Song's structure % - -LeadVox = \relative c'' +Global = { -% \set Voice.autoBeaming = ##f -% \set Staff.instrumentName = #"Lead vox" \clef G \key e \minor - \override Staff.TimeSignature #'style = #'() + \numericTimeSignature \time 4/4 -\override Score.SpacingSpanner #'average-spacing-wishes = ##f -\override MultiMeasureRest #'expand-limit = 1 % Intro -\once \override Score.RehearsalMark #'self-alignment-X = #left -\mark \markup { \hspace #0.0 \raise #1.8 \small "Bright rock" } + \once \override Score.RehearsalMark #'self-alignment-X = #left + \mark \markup { \hspace #0.0 \raise #1.8 \small "Bright rock" } - R1*4 | % 1-4 + s1*4 | % 1-4 \repeat volta 2 { - 8 ~ 4 8 ~ | % 5 - 8 4 8 ~ 4 r | % 6 + s1*2 | % 5-6 } \alternative { { - 8 ~ 4 8 ~ | % 7 - 8 4 8 ~ 4 r | % 8 + s1*2 | % 7-8 } { - 8 ~ 4 8 ~ | % 9 + s1 | % 9 } } - 2 r | % 10 - R1 | % 11 - - s1 | % 12 - s1 | % 13 - s1 | % 14 - s1 \bar "||:" % 15 + s1*6 \bar ".|:-||" % 10-15 \repeat volta 2 { -\once \override Score.RehearsalMark #'self-alignment-X = #left -\mark \markup { \override #'(font-family . sans) { \box { A } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" } + \once \override Score.RehearsalMark #'self-alignment-X = #left + \mark \markup { \override #'(font-family . sans) { \box { A } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" } % Verse - 8 ~ 4 8 ~ | % 16 - 8 4 8 ~ 4 r | % 17 - 8 ~ 4 8 ~ | % 18 - 8 4 8 ~ 4 r | % 19 - 8 ~ 4 8 ~ | % 20 - 8 4 8 ~ 4 r | % 21 - 8 ~ 4 8 ~ | % 22 - 4 r r2 | % 23 - R1 \bar "||" % 24 - -\once \override Score.RehearsalMark #'self-alignment-X = #left -\mark \markup { \override #'(font-family . sans) { \box { B } } } - - 8 4 8 ~ 4 8 ~ | % 25 - 8 4 8 ~ 4 r | % 26 - 8 4 8 ~ 4 8 ~ | % 27 - 8 4 8 ~ 4 r | % 28 - 8 4 8 ~ 4 8 ~ | % 29 - 8 4 8 ~ 4 r | % 30 - 8 ~ 4 8 | % 31 -\once \override Score.RehearsalMark #'self-alignment-X = #right -\mark \markup { \italic { to Coda } \hspace #1.0 \musicglyph #"scripts.coda" } + s1*9 \bar "||" % 16-24 + + \once \override Score.RehearsalMark #'self-alignment-X = #left + \mark \markup { \override #'(font-family . sans) { \box { B } } } + + s1*7 | % 25-31 + \once \override Score.RehearsalMark #'self-alignment-X = #right + \mark \markup { \italic { to Coda } \hspace #1.0 \musicglyph #"scripts.coda" } } \alternative { { - r4 8 ~ 2 | % 32 - 8 ~ ( ) | % 33 - R1 | % 34 - r8 e4 ( g8 a2 ) \bar "||" % 35 - - 8 ~ 4 8 ~ | % 36 - 8 4 8 ~ 4 r | % 37 - 8 ~ 4 8 ~ | % 38 - 8 4 8 ~ 4 r | % 39 - 8 ~ 4 8 ~ | % 40 - 8 4 8 ~ 4 r | % 41 - 8 ~ 4 8 ~ | % 42 - 2 r4 r8 d | % 43 - g8 a a e g4 ef16 ( d c8 ) | % 44 + s1*4 \bar "||" % 32-35 + + s1*9 | % 36-44 } { - r4 8 ~ 2-\fermata | % 45 + s1 | % 45 } } @@ -130,17 +90,135 @@ LeadVox = \relative c'' \time 3/4 -\once \override Score.RehearsalMark #'self-alignment-X = #left -\mark \markup { \override #'(font-family . sans) { \box { C } } \small "Moderate jazz waltz" } + \once \override Score.RehearsalMark #'self-alignment-X = #left + \mark \markup { \override #'(font-family . sans) { \box { C } } \small "Moderate jazz waltz" } + + \repeat volta 2 + { + s2.*4 | % 46-49 + } + + s2.*30 | % 50-79 \repeat volta 2 { - R2. | % 46 - R2. | % 47 - R2. | % 48 - R2. | % 49 + s2. | % 80 } + \once \override Score.RehearsalMark #'self-alignment-X = #left + \mark \markup { \small "Guitar solo" \bold "(rpt. 6x)" } + + \repeat volta 6 + { + s2.*4 | % 81-84 + } + + s2.*2 | % 85-86 + +%Ugh, only valid in size 18 +%\break + + \time 4/4 + + % Intro + + \once \override Score.RehearsalMark #'self-alignment-X = #left + \mark \markup { \override #'(font-family . sans) { \box { D } } \small "Bright rock - Guitar solo" \bold "(rpt. 7x)" } + + \repeat volta 7 + { + s1*2 | % 87-88 + } + + s1*2 \bar "||" % 89-90 + + \once \override Score.RehearsalMark #'self-alignment-X = #right + \mark \markup { \italic { D.S. al Coda } } + + % Coda + +\stopStaff s1 \startStaff | +\set Score.currentBarNumber = #91 + + \once \override Score.RehearsalMark #'self-alignment-X = #left + \mark \markup { { \musicglyph #"scripts.coda" } "Coda" } + + s1 \bar "|." % 91 +} + + +% +% Lead vocal +% +LeadVox = \relative c'' +{ + \clef G +\override MultiMeasureRest #'expand-limit = 1 + + % Intro + + R1*4 | % 1-4 + + 8 ~ 4 8 ~ | % 5 + 8 4 8 ~ 4 r | % 6 + + 8 ~ 4 8 ~ | % 7 + 8 4 8 ~ 4 r | % 8 + + 8 ~ 4 8 ~ | % 9 + + 2 r | % 10 + R1 | % 11 + + s1 | % 12 + s1 | % 13 + s1 | % 14 + s1 | % 15 + + % Verse + + 8 ~ 4 8 ~ | % 16 + 8 4 8 ~ 4 r | % 17 + 8 ~ 4 8 ~ | % 18 + 8 4 8 ~ 4 r | % 19 + 8 ~ 4 8 ~ | % 20 + 8 4 8 ~ 4 r | % 21 + 8 ~ 4 8 ~ | % 22 + 4 r r2 | % 23 + R1 | % 24 + + 8 4 8 ~ 4 8 ~ | % 25 + 8 4 8 ~ 4 r | % 26 + 8 4 8 ~ 4 8 ~ | % 27 + 8 4 8 ~ 4 r | % 28 + 8 4 8 ~ 4 8 ~ | % 29 + 8 4 8 ~ 4 r | % 30 + 8 ~ 4 8 | % 31 + + r4 8 ~ 2 | % 32 + 8 ~ ( ) | % 33 + R1 | % 34 + r8 e4 ( g8 a2 ) | % 35 + + 8 ~ 4 8 ~ | % 36 + 8 4 8 ~ 4 r | % 37 + 8 ~ 4 8 ~ | % 38 + 8 4 8 ~ 4 r | % 39 + 8 ~ 4 8 ~ | % 40 + 8 4 8 ~ 4 r | % 41 + 8 ~ 4 8 ~ | % 42 + 2 r4 r8 d | % 43 + g8 a a e g4 ef16 ( d c8 ) | % 44 + + r4 8 ~ 2-\fermata | % 45 + + % Bridge + + R2. | % 46 + R2. | % 47 + R2. | % 48 + R2. | % 49 + e8 e ~ e2 ~ | % 50 e2. | % 51 R2. | % 52 @@ -175,60 +253,29 @@ LeadVox = \relative c'' d4 c8 ( a ) ~ a4 ~ | % 78 a2. | % 79 - \repeat volta 2 - { - R2. | % 80 - } - -\once \override Score.RehearsalMark #'self-alignment-X = #left -\mark \markup { \small "Guitar solo" \bold "(rpt. 6x)" } + R2. | % 80 - \repeat volta 6 - { - R2.*4 | % 81 -% R2. | % 82 -% R2. | % 83 -% R2. | % 84 - } + R2.*4 | % 81-84 R2. | % 85 R2. | % 86 -%Ugh, only valid in size 18 -\break - - \time 4/4 - % Intro -\once \override Score.RehearsalMark #'self-alignment-X = #left -\mark \markup { \override #'(font-family . sans) { \box { D } } \small "Bright rock - Guitar solo" \bold "(rpt. 7x)" } -%\once \override Score.RehearsalMark #'self-alignment-X = #left -%\mark \markup { \override \once #'(font-family . sans) { \box { B } } } - - \repeat volta 7 - { - s1 | % 87 - s1 | % 88 - } + s1 | % 87 + s1 | % 88 s1 | % 89 - s1 \bar "||" % 90 - -\once \override Score.RehearsalMark #'self-alignment-X = #right -\mark \markup { \italic { D.S. al Coda } } + s1 | % 90 % Coda -\stopStaff s1 \startStaff | -\set Score.currentBarNumber = #91 - -\once \override Score.RehearsalMark #'self-alignment-X = #left -\mark \markup { { \musicglyph #"scripts.coda" } "Coda" } + s1 % blank bar for coda - r4 g'8 g ~ g2-\fermata \bar "|." % 91 + r4 g'8 g ~ g2-\fermata | % 91 } + LeadVoxText = \lyricmode { Do, do, do, do, _ do, do, _ do, do. _ @@ -286,12 +333,6 @@ LeadVoxTextB = \lyricmode Riffs = \relative c' { - \clef G - \key e \minor - \override Staff.TimeSignature #'style = #'() - \time 4/4 -\override Score.SpacingSpanner #'average-spacing-wishes = ##f - \tiny s1*11 | % 1-11 @@ -314,31 +355,19 @@ Riffs = \relative c' % % Chord names % - Chords = \chordmode { -%Bah, can't we set this globally? -% \popChords - % Intro s1*4 | % 1-4 - \repeat volta 2 - { - s1 | % 5 - s1 | % 6 - } - \alternative - { - { - s1 | % 7 - s1 | % 8 - } - { - s1 | % 9 - } - } + s1 | % 5 + s1 | % 6 + + s1 | % 7 + s1 | % 8 + + s1 | % 9 e1:7.9+ | % 10 f2:9 e:7.9+ | % 11 @@ -347,62 +376,49 @@ Chords = \chordmode s1 | % 14 s1 | % 15 - \repeat volta 2 - { - % Verse - - a4.:m a8:5^3 s2 | % 16 - s2. d4/a | % 17 - a4.:m a8:5^3 s2 | % 18 - s4. e8:7.9+ s2 | % 19 - a4.:m a8:5^3 s2 | % 20 - s2. d4/a | % 21 - a4.:m a8:5^3 s2 | % 22 - e1:7.9+ | % 23 - f2:9 e:7.9+ | % 24 - - a4.:m a8:5^3 s2 | % 25 - s2. d4/a | % 26 - a4.:m a8:5^3 s2 | % 27 - s4. e8:7.9+ s2 | % 28 - a4.:m a8:5^3 s2 | % 29 - s2. d4/a | % 30 - a4.:m a8:5^3 s2 | % 31 - } - \alternative - { - { - a4:m c2. | % 32 - a4.:m a8:5^3 s2 | % 33 - e1:7.9+ | % 34 - f2:9 e:7.9+ | % 35 - - a1:m | % 36 - s2. b4:m7 | % 37 - a1:m7 | % 38 - s2. e4:7.9+ | % 39 - a1:m7 | % 40 - s2. b4:m7 | % 41 - a1:m7 | % 42 - e1:7.9+ | % 43 - f2:9 e:7.9+ | % 44 - } - { - a4:m c2. | % 45 - } - } + % Verse + + a4.:m a8:5^3 s2 | % 16 + s2. d4/a | % 17 + a4.:m a8:5^3 s2 | % 18 + s4. e8:7.9+ s2 | % 19 + a4.:m a8:5^3 s2 | % 20 + s2. d4/a | % 21 + a4.:m a8:5^3 s2 | % 22 + e1:7.9+ | % 23 + f2:9 e:7.9+ | % 24 + + a4.:m a8:5^3 s2 | % 25 + s2. d4/a | % 26 + a4.:m a8:5^3 s2 | % 27 + s4. e8:7.9+ s2 | % 28 + a4.:m a8:5^3 s2 | % 29 + s2. d4/a | % 30 + a4.:m a8:5^3 s2 | % 31 + + a4:m c2. | % 32 + a4.:m a8:5^3 s2 | % 33 + e1:7.9+ | % 34 + f2:9 e:7.9+ | % 35 + + a1:m | % 36 + s2. b4:m7 | % 37 + a1:m7 | % 38 + s2. e4:7.9+ | % 39 + a1:m7 | % 40 + s2. b4:m7 | % 41 + a1:m7 | % 42 + e1:7.9+ | % 43 + f2:9 e:7.9+ | % 44 + + a4:m c2. | % 45 % Bridge - \time 3/4 - - \repeat volta 2 - { - a2.:m7 | % 46 - s2. | % 47 - d2. | % 48 - s2. | % 49 - } + a2.:m7 | % 46 + s2. | % 47 + d2. | % 48 + s2. | % 49 a2.:m7 | % 50 s2. | % 51 @@ -438,38 +454,27 @@ Chords = \chordmode a2.:m7 | % 78 s2. | % 79 - \repeat volta 2 - { - d2. | % 80 - } + d2. | % 80 - \repeat volta 6 - { - a2.:m7 | % 81 - s2. | % 82 - d2. | % 83 - s2. | % 84 - } + a2.:m7 | % 81 + s2. | % 82 + d2. | % 83 + s2. | % 84 a2.:m7 | % 85 s2. | % 86 - \time 4/4 - % Intro - \repeat volta 7 - { - s1 | % 87 - s1 | % 88 - } + s1 | % 87 + s1 | % 88 s1 | % 89 s1 | % 90 % Coda -s1 + s1 % blank bar for coda a4:m c2. | % 91 } @@ -478,102 +483,75 @@ s1 % % 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... - StaffC = \relative c { -% \set Voice.autoBeaming = ##f -% \set Staff.instrumentName = #"Rhythm" - \override Staff.TimeSignature #'style = #'() - \time 4/4 + \numericTimeSignature \override NoteHead #'style = #'slash \override MultiMeasureRest #'expand-limit = 1 + \teeny % Intro R1*4 | % 1-4 - \repeat volta 2 - { - r1 | % 5 - r1 | % 6 - } - \alternative - { - { - r1 | % 7 - r1 | % 8 - } - { - r1 | % 9 - } - } + r1 | % 5 + r1 | % 6 + + r1 | % 7 + r1 | % 8 + + r1 | % 9 c4 c r2 | % 10 c4 c c c | % 11 r1 | % 12 r1 | % 13 r1 | % 14 - r1 \bar "||:" % 15 - - \repeat volta 2 - { - % Verse - - c4 r8 c r c r c | % 16 - r8 c r c r c c r | % 17 - c4 r8 c r c r c | % 18 - r8 c r c ~ c4 c8 r | % 19 - c4 r8 c r c r c | % 20 - r8 c r c r c c r | % 21 - c4 r8 c r c r c | % 22 - c4 c r2 | % 23 - c4 c c c \bar "||" % 24 - - c4 r8 c r c r c | % 25 - r8 c r c r c c r | % 26 - c4 r8 c r c r c | % 27 - r8 c r c ~ c4 c8 r | % 28 - c4 r8 c r c r c | % 29 - r8 c r c r c c r | % 30 - c4 r8 c r c r c | % 31 - } - \alternative - { - { - c8 r c c ~ c2 | % 32 - c4 r8 c r c r c | % 33 - c4 c r2 | % 34 - c4 c c c \bar "||" % 35 - - c8 r r4 r2 | % 36 - r2 r4 c | % 37 - c4 r r2 | % 38 - r2 r4 c | % 39 - c8 r r4 r2 | % 40 - r2 r4 c | % 41 - c4 r r2 | % 42 - c4 c r2 | % 43 - c4 c c c | % 44 - } - { - c8 r c c ~ c2-\fermata | % 45 - } - } + r1 | % 15 + + % Verse + + c4 r8 c r c r c | % 16 + r8 c r c r c c r | % 17 + c4 r8 c r c r c | % 18 + r8 c r c ~ c4 c8 r | % 19 + c4 r8 c r c r c | % 20 + r8 c r c r c c r | % 21 + c4 r8 c r c r c | % 22 + c4 c r2 | % 23 + c4 c c c \bar "||" % 24 + + c4 r8 c r c r c | % 25 + r8 c r c r c c r | % 26 + c4 r8 c r c r c | % 27 + r8 c r c ~ c4 c8 r | % 28 + c4 r8 c r c r c | % 29 + r8 c r c r c c r | % 30 + c4 r8 c r c r c | % 31 + + c8 r c c ~ c2 | % 32 + c4 r8 c r c r c | % 33 + c4 c r2 | % 34 + c4 c c c | % 35 + + c8 r r4 r2 | % 36 + r2 r4 c | % 37 + c4 r r2 | % 38 + r2 r4 c | % 39 + c8 r r4 r2 | % 40 + r2 r4 c | % 41 + c4 r r2 | % 42 + c4 c r2 | % 43 + c4 c c c | % 44 + + c8 r c c ~ c2-\fermata | % 45 % Bridge - \time 3/4 - - \repeat volta 2 - { - c4 c c | % 46 - c4 c c | % 47 - c4 c c | % 48 - c4 c c | % 49 - } + c4 c c | % 46 + c4 c c | % 47 + c4 c c | % 48 + c4 c c | % 49 c4 c c | % 50 c4 c c | % 51 @@ -609,31 +587,20 @@ StaffC = \relative c c4 c c | % 78 c4 c c | % 79 - \repeat volta 2 - { - c8 c r2 | % 80 - } + c8 c r2 | % 80 - \repeat volta 6 - { - c4 c c | % 81 - c4 c c | % 82 - c4 c c | % 83 - c4 c c | % 84 - } + c4 c c | % 81 + c4 c c | % 82 + c4 c c | % 83 + c4 c c | % 84 c2. ~ | % 85 c2.-\fermata | % 86 - \time 4/4 - % Intro - \repeat volta 7 - { - r1 | % 87 - r1 | % 88 - } + r1 | % 87 + r1 | % 88 r1 | % 89 r1 | % 90 @@ -641,9 +608,8 @@ StaffC = \relative c % Coda \stopStaff s1 \startStaff | -\set Score.currentBarNumber = #91 - c8 r c c ~ c2-\fermata \bar "|." % 91 + c8 r c c ~ c2-\fermata | % 91 } @@ -660,39 +626,44 @@ Dynamics = \score { << + \Global % The "roadmap": that everything else depends on + + \context Staff << -% \new Staff = leadStaff { \new Voice = "lead" \LeadVox } - \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> } + \new Voice = "lead" \LeadVox + \new Voice = "riffs" \Riffs \new Lyrics \lyricsto "lead" \LeadVoxText \new Lyrics \lyricsto "lead" \LeadVoxTextB >> - \new ChoirStaff = "Rhythm" + \new ChoirStaff << - \new ChordNames = "chords" \Chords - \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + \new ChordNames \Chords + \new RhythmicStaff << \StaffC \Dynamics >> >> \set Score.skipBars = ##t \set Score.melismaBusyProperties = #'() >> - - \layout - { -% \context { \Staff \RemoveEmptyStaves } -% ragged-last-bottom = ##t - ragged-last = ##t - } } \paper { - #(define fonts (make-pango-font-tree - "Times New Roman" - "DomCasual BT" - "Luxi Mono" - (/ staffSize 20))) - -% top-margin = -0.25 \in + #(define fonts (make-pango-font-tree + "Times New Roman" + "LilyJAZZText" + "Luxi Mono" + (/ staffSize 20))) + +% Don't 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 } +