X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=he-knows-my-name.ly;h=af774b1a6d21eb2c562dcacc91eb4881cc4ef9c9;hb=bd3b595932c04f7eb329df944c474f89bce236af;hp=dad67dbc99dab330ac87a525fae3a0e49fed8844;hpb=6f8ca2d1ddc26dc34f0be9b733d6ef860005c06d;p=music diff --git a/he-knows-my-name.ly b/he-knows-my-name.ly index dad67db..af774b1 100644 --- a/he-knows-my-name.ly +++ b/he-knows-my-name.ly @@ -3,15 +3,13 @@ \include "english.ly" % Good sizes are 16, 18, & 20 -staffSize = #20 +staffSize = #18 #(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 "He Knows My Name" } % composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" } arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } @@ -28,80 +26,106 @@ hn = #(define-music-function (parser location arg) (ly:music?) % -% Lead vocal +% Song's structure % - -LeadVox = \relative c' +Global = { -% \set Voice.autoBeaming = ##f -% \set Staff.instrument = #"Lead vox" \clef G \key e \major - \override Staff.TimeSignature #'style = #'() + \numericTimeSignature \time 4/4 -\override Score.SpacingSpanner #'average-spacing-wishes = ##f % Intro \partial 8*1 s8 | % 0 - s1 | % 1 - s1 | % 2 - s1 | % 3 - s1 | % 4 + s1*4 \bar ".|:-||" % 1-4 \repeat volta 2 { % Verse -\mark \markup { \override #'(font-family . sans) { \box { A } } } + \mark \markup { \override #'(font-family . sans) { \box { A } } } - r4 e8 fs ~ fs4 a8 gs ( ~ | % 5 - gs4 e8 ) cs ~ cs4 r | % 6 - r4 gs'8 a ( ~ a gs ) fs fs ~ | % 7 - fs2 r | % 8 - r4 e8 fs ~ fs4 gs8 a | % 9 - gs4 ( e8 ) cs ~ cs4. e8 | % 10 - gs4 gs8 fs ~ fs4 e8 e ~ | % 11 - e2 r \bar "||" % 12 + s1*8 \bar "||" % 5-12 % Chorus -\mark \markup { \override #'(font-family . sans) { \box { B } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" } - - r4 8 ~ 4 8 ( ~ | % 13 - 4. 8 ) ~ 2 | % 14 - r4 8 ~ 4 8 ~ | % 15 - 4 8 ~ 2 | % 16 - r4 8 ~ 4 8 ~ | % 17 - 4 8 ~ 4 r8 | % 18 -\once \override Score.RehearsalMark #'self-alignment-X = #right -\mark \markup { \italic { to Coda } \hspace #1.0 \musicglyph #"scripts.coda" } - 4 8 8 ~ 4 8 ~ | % 19 + \mark \markup { \override #'(font-family . sans) { \box { B } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" } + + s1*6 | % 13-18 + \once \override Score.RehearsalMark #'self-alignment-X = #right + \mark \markup { \italic { to Coda } \hspace #1.0 \musicglyph #"scripts.coda" } + s1 | % 19 } \alternative { { - 2 r | % 20 + s1 | % 20 } { - 2 \repeatTie r \bar "||" % 21 + s1 \bar "||" % 21 -\once \override Score.RehearsalMark #'self-alignment-X = #right -\mark \markup { \italic { D.S. al Coda } } + \once \override Score.RehearsalMark #'self-alignment-X = #right + \mark \markup { \italic { D.S. al Coda } } } } % Coda -\stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break -%\stopStaff s1 \startStaff -\set Score.currentBarNumber = #22 + \stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break + %\stopStaff s1 \startStaff + \set Score.currentBarNumber = #22 %blegh \break -\once \override Score.RehearsalMark #'self-alignment-X = #left -\mark \markup { { \musicglyph #"scripts.coda" } "Coda" } + \once \override Score.RehearsalMark #'self-alignment-X = #left + \mark \markup { { \musicglyph #"scripts.coda" } "Coda" } + + s1*9 \bar "|." % 22-30 +} + + +% +% Lead vocal +% +LeadVox = \relative c' +{ + \clef G + + % Intro + + \partial 8*1 s8 | % 0 + s1*4 | % 1-4 + + % Verse + + r4 e8 fs ~ fs4 a8 gs ( ~ | % 5 + gs4 e8 ) cs ~ cs4 r | % 6 + r4 gs'8 a ( ~ a gs ) fs fs ~ | % 7 + fs2 r | % 8 + r4 e8 fs ~ fs4 gs8 a | % 9 + gs4 ( e8 ) cs ~ cs4. e8 | % 10 + gs4 gs8 fs ~ fs4 e8 e ~ | % 11 + e2 r | % 12 + + % Chorus + + r4 8 ~ 4 8 ( ~ | % 13 + 4. 8 ) ~ 2 | % 14 + r4 8 ~ 4 8 ~ | % 15 + 4 8 ~ 2 | % 16 + r4 8 ~ 4 8 ~ | % 17 + 4 8 ~ 4 r8 | % 18 + 4 8 8 ~ 4 8 ~ | % 19 + + 2 r | % 20 + + 2 \repeatTie r | % 21 + + % Coda + + s1 % Extra bar for coda 4 8 8 ~ 4 8 ~ | % 22 2 r4 r8 | % 23 @@ -109,11 +133,10 @@ LeadVox = \relative c' 2. r8 e | % 25 e4 gs8 fs ~ fs4 e | % 26 \voiceTwo e1 \oneVoice | % 27 - s1 | % 28 - s1 | % 29 - s1 \bar "|." % 30 + s1*3 | % 28-30 } + LeadVoxText = \lyricmode { I have _ a mak -- _ _ er, _ @@ -145,10 +168,6 @@ LeadVoxTextB = \lyricmode Riffs = \relative c'' { \clef G - \key e \major - \override Staff.TimeSignature #'style = #'() - \time 4/4 -\override Score.SpacingSpanner #'average-spacing-wishes = ##f % Intro @@ -170,56 +189,44 @@ Riffs = \relative c'' % % Chord names % - Chords = \chordmode { -%Bah, can't we set this globally? -% \popChords - % Intro \partial 8*1 s8 | % 0 a4. b2 cs8:m7 | % 1 - r4. cs2:m7/b s8 | % 2 + s4. cs2:m7/b s8 | % 2 fs4.:m7 b a8/b e | % 3 s2 b4/e a/e | % 4 - \repeat volta 2 - { - % Verse + % Verse - e4. fs2:m11 e8/gs | % 5 - s4. a2 s8 | % 6 - e4./b a2:sus2/cs b8:sus4 | % 7 - s4. b2 s8 | % 8 - e4. fs2:m11 e8/gs | % 9 - s4. a2 s8 | % 10 - e4./b b a8/b e | % 11 - s2 fs4:m7 e/gs | % 12 + e4. fs2:m11 e8/gs | % 5 + s4. a2 s8 | % 6 + e4./b a2:sus2/cs b8:sus4 | % 7 + s4. b2 s8 | % 8 + e4. fs2:m11 e8/gs | % 9 + s4. a2 s8 | % 10 + e4./b b a8/b e | % 11 + s2 fs4:m7 e/gs | % 12 - % Chorus + % Chorus - a4. e2 b8 | % 13 - s4. e2 s8 | % 14 - a4. e2 b8 | % 15 - s4. e2 s8 | % 16 - a4. e2 b8 | % 17 - s4. cs2:m7 s8 | % 18 - fs4.:m7 b2 e8 | % 19 - } - \alternative - { - { - s2 a/b | % 20 - } - { - s2 fs4:m7 e/gs | % 21 - } - } + a4. e2 b8 | % 13 + s4. e2 s8 | % 14 + a4. e2 b8 | % 15 + s4. e2 s8 | % 16 + a4. e2 b8 | % 17 + s4. cs2:m7 s8 | % 18 + fs4.:m7 b2 e8 | % 19 + + s2 a/b | % 20 + + s2 fs4:m7 e/gs | % 21 % Coda -s1 + s1 % Extra bar for coda fs4.:m7 b2 cs8:m7 | % 22 s2 cs:m7/b | % 23 @@ -236,17 +243,11 @@ 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.instrument = #"Rhythm" - \override Staff.TimeSignature #'style = #'() - \time 4/4 + \numericTimeSignature \override NoteHead #'style = #'slash + \teeny % Intro @@ -256,44 +257,35 @@ StaffC = \relative c c4. c8 ~ c4 c8 c ~ | % 3 c2 c4 c | % 4 - \repeat volta 2 - { - % Verse + % Verse - c4. c8 ~ c4. c8 ~ | % 5 - c4. c8 ~ c4 c | % 6 - c4. c8 ~ c4. c8 ~ | % 7 - c4. c8 ~ c2 | % 8 - c4. c8 ~ c4. c8 ~ | % 9 - c4. c8 ~ c4 c | % 10 - c4. c8 ~ c4 c8 c ~ | % 11 - c2 c4 c \bar "||" % 12 + c4. c8 ~ c4. c8 ~ | % 5 + c4. c8 ~ c4 c | % 6 + c4. c8 ~ c4. c8 ~ | % 7 + c4. c8 ~ c2 | % 8 + c4. c8 ~ c4. c8 ~ | % 9 + c4. c8 ~ c4 c | % 10 + c4. c8 ~ c4 c8 c ~ | % 11 + c2 c4 c | % 12 - % Chorus + % Chorus - c4. c8 ~ c4. c8 ~ | % 13 - c4. c8 ~ c4 c | % 14 - c4. c8 ~ c4. c8 ~ | % 15 - c4. c8 ~ c4 c | % 16 - c4. c8 ~ c4. c8 ~ | % 17 - c4. c8 ~ c4 c | % 18 - c4. c8 ~ c4. c8 ~ | % 19 - } - \alternative - { - { - c4 c c c | % 20 - } - { - c4 \repeatTie c c c | % 21 - } - } + c4. c8 ~ c4. c8 ~ | % 13 + c4. c8 ~ c4 c | % 14 + c4. c8 ~ c4. c8 ~ | % 15 + c4. c8 ~ c4 c | % 16 + c4. c8 ~ c4. c8 ~ | % 17 + c4. c8 ~ c4 c | % 18 + c4. c8 ~ c4. c8 ~ | % 19 + + c4 c c c | % 20 + + c4 \repeatTie c c c | % 21 % Coda \stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break %\stopStaff s1 \startStaff -\set Score.currentBarNumber = #22 c4. c8 ~ c4. c8 ~ | % 22 c4 c c c | % 23 @@ -303,7 +295,7 @@ StaffC = \relative c c4. c8 ~ c4. c8 ~ | % 27 c4. c8 ~ c4 c | % 28 c4 c c c | % 29 - c1-\fermata \bar "|." % 30 + c1-\fermata | % 30 } @@ -325,39 +317,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" + "JazzText" + "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 } +