]> Shamusworld >> Repos - music/commitdiff
New chart "Wishing You Were Here".
authorShamus Hammons <jlhamm@acm.org>
Mon, 3 May 2021 04:30:36 +0000 (23:30 -0500)
committerShamus Hammons <jlhamm@acm.org>
Mon, 3 May 2021 04:30:36 +0000 (23:30 -0500)
covers/wishing-you-were-here.ly [new file with mode: 0644]

diff --git a/covers/wishing-you-were-here.ly b/covers/wishing-you-were-here.ly
new file mode 100644 (file)
index 0000000..6ad790a
--- /dev/null
@@ -0,0 +1,713 @@
+\version "2.22.0"
+\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
+{
+%Let's bump up the title size and switch to the chord font. :-)
+
+       title    = \markup { \override #'(font-family . sans) \fontsize #3.5 "Wishing You Were Here" }
+       composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Chicago" }
+%      arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. S. Hammons" }
+       tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
+% Let's try a chord dictionary
+       subtitle = \markup {
+               \center-column { "Dm7" \fret-diagram-terse "x;x;o;5;6;5;" } "    "
+               \center-column { "E/D" \fret-diagram-terse "x;x;o;4;5;4;" } "    "
+               \center-column { "Eb/D" \fret-diagram-terse "x;x;o;3;4;3;" } "    "
+               \center-column { "Bb" \fret-diagram-terse "x;1;3;3;3;x;" } "    "
+               \center-column { "Dm7" \fret-diagram-terse "x;x;o;2;1;1;" }
+       }
+}
+
+% Useful tweak abbreviations (hn = harmony note)
+
+hn = #(define-music-function (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
+%
+Global =
+{
+       \key d \minor
+       \override Staff.TimeSignature.style = #'numbered
+       \time 4/4
+
+       % Intro
+
+% Capo 4 version
+%      s1*0^\markup { \hspace #0.0 \raise #2.0 \bigger \bold { "Moderate pop (*** CAPO 4 ***)" } }
+
+       \once \override TextScript.padding = #2.0
+       s1*0^\markup { \large \bold { Moderate } }
+
+       \repeat volta 2
+       {
+               \mark \markup { \override #'(font-family . sans) { \box { A } } }
+               s1*7 \bar "||"   % 1-7
+       }
+       \alternative
+       {
+               {
+                       s1 |   % 8
+               }
+               {
+                       s1 |   % 9
+               }
+       }
+
+       \repeat volta 4
+       {
+               \mark \markup { \override #'(font-family . sans) { \box { B } } }
+               s1*7 |   % 10-16
+       }
+       \alternative
+       {
+               {
+                       s1 |   % 17
+               }
+               {
+                       s4 s2.^\markup{ Da Capo } \bar "||"   % 18
+               }
+               {
+                       s1 |   % 19
+               }
+               {
+                       s1 |   % 20
+               }
+       }
+
+       \repeat volta 2
+       {
+               \mark \markup { \override #'(font-family . sans) { \box { C } } }
+               s1*7 |   % 21-27
+       }
+       \alternative
+       {
+               {
+                       s1 |   % 28
+               }
+               {
+                       s1 \bar "||"   % 29
+               }
+       }
+
+       \mark \markup { \override #'(font-family . sans) { \box { D } } }
+       s1*14 | % 30-43
+
+       \repeat volta 2
+       {
+               \mark \markup { \override #'(font-family . sans) { \box { E } } }
+               s1*7 |   % 44-50
+       }
+       \alternative
+       {
+               {
+                       s1 |   % 51
+               }
+               {
+                       s1 |   % 52
+               }
+       }
+
+       \repeat volta 2
+       {
+               \mark \markup { \override #'(font-family . sans) { \box { F } } }
+               s1*7 |   % 53-59
+       }
+       \alternative
+       {
+               {
+                       s1 |   % 60
+               }
+               {
+                       s1 |   % 61
+               }
+       }
+
+       s1*6 |   % 62-67
+
+       \repeat volta 2
+       {
+               \mark \markup { \override #'(font-family . sans) { \box { G } } }
+               s1*7 |   % 68-74
+       }
+       \alternative
+       {
+               {
+                       s1 |   % 75
+               }
+               {
+                       s1 |   % 76
+               }
+       }
+
+       s1 \bar "|."   % 77
+}
+
+
+%
+% Lead vocal
+%
+LeadVox = \relative c'
+{
+%      \set Staff.instrument = #"Lead vox"
+       \clef G
+       \override Staff.TimeSignature.style = #'numbered
+%Hm. Needed anymore?
+%      \override Score.SpacingSpanner.average-spacing-wishes = ##f
+
+       % Intro (refrain)
+
+       r1 |   % 1
+       r1 |   % 2
+       r1 |   % 3
+       r1 |   % 4
+       r1 |   % 5
+       r1 |   % 6
+       r1 |   % 7
+
+       r1 |   % 8
+
+       r1 |   % 9
+
+       % Verse
+
+       e4 e8 e4. e8 e |   % 10
+       fs4 a8 e4. a8 a |   % 11
+       b4 c8 a8 ~ a2 |   % 12
+       r2 f'8 ( g4. ) |   % 13
+       g4 ( a bf2 ) |   % 14
+       g8 f4 e f4. |   % 15
+       f8 g4 a g f8 ( ~ |   % 16
+
+       f2 e ) |   % 17
+
+       f2.-\repeatTie r4 |   % 18
+
+       f2-\repeatTie ( e ) |   % 19
+
+       f2.-\repeatTie r4 |   % 20
+
+       % Refrain
+
+       a1 ~ |   % 21
+       a1 |   % 22
+       gs1 ~ |   % 23
+       gs1 |   % 24
+       g1 ~ |   % 25
+       g1 |   % 26
+       f1 ~ |   % 27
+
+       f1 |   % 28
+
+       r1 |   % 29
+
+       % Bridge
+
+       r2 d8 d4. |   % 30
+       e4 e8 e4. f8 d |   % 31
+       r4 a8 a e' f4 d8 ( ~ |   % 32
+       d8 c bf2. ) |   % 33
+       r2 c4 d8 bf' ~ |   % 34
+       bf4 a8 g4. f8 f ~ |   % 35
+       f4 c8 c d f4 d8 ( |   % 36
+       c2 ) r |   % 37
+       r2 d8 d4. |   % 38
+       e4 e8 e4. f8 d ~ |   % 39
+       d4 a8 a e' f4 d8 ( ~ |   % 40
+       d8 c bf2. ) |   % 41
+       r2 c8 d4 bf'8 ~ |   % 42
+       bf4 a g f8 f ~ |   % 43
+
+       % Refrain
+
+       << { f1 } \new Voice = "v2" { \voiceTwo a1 } >> |   % 44
+       a8 a4 a a gs8 ~ |   % 45
+       gs1 |   % 46
+       r1 |   % 47
+       g1 |   % 48
+       g8 g4 g g f8 ~ |   % 49
+       f1 |   % 50
+
+       r1 |   % 51
+
+       r1 |   % 52
+
+       % Verse
+
+       e,4 e8 e4. e8 e |   % 53
+       fs4 a8 e4. a4 |   % 54
+       b4 c8 a8 ~ a2 |   % 55
+       r2 f'8 ( g4. ) |   % 56
+       g4 ( a bf2 ) |   % 57
+       g8 f4 e f4. |   % 58
+       f8 g4 a g f8 ( ~ |   % 59
+
+       f2 e ) |   % 60
+
+       f2-\repeatTie f8 ( g4. ) |   % 61
+       g4 ( a bf2 ) |   % 62
+       g8  f4 e f4. |   % 63
+       f8 g4 a g f8 ~ |   % 64
+       f2 f8 ( g4. ) |   % 65
+       g4 ( a bf2 ) |   % 66
+       g8  f4 e f4. |   % 67
+
+       % Outro
+
+       d1 ~ |   % 68
+       d1 |   % 69
+       d8 d4 d4 d4 d8 ~ |   % 70
+       d1 |   % 71
+       d1 ~ |   % 72
+       d1 |   % 73
+       d8 d4 d4 d4 d8 ~ |   % 74
+
+       d1 |   % 75
+
+       r1 |   % 76
+       r1-\fermata |   % 77
+}
+
+LeadVoxText = \lyricmode
+{
+       Sleep -- less hours and _ dream -- less nights and _ far a -- ways. _
+       Ooo ooo ooo __ _ _
+       Wish -- ing you were, wish -- ing you were here. __ _ _
+
+       _ _ _ _
+
+       Ooo __ _ Ooo __ _ Ooo __ _ Ooo __ _
+
+       And I'd like to change my life, and you know I would, __ _ _ _
+       Just to be __ _ with you to -- night, _ ba -- by if I could. __ _
+       But I've got my job to do, _ and I do it well, __ _ _ _
+       So I guess _ that's how it is. __ _
+
+       wish -- ing you were here, __ _
+       Ooo, wish -- ing you were here. __ _
+
+       On the road, it's a hea -- vy load, but I'll be by, __ _
+       Ooo ooo ooo __ _ _
+       Wish -- ing you were, wish -- ing you were here. __ _ _
+       _
+       Ooo ooo ooo __ _ _
+       Wish -- ing you were, wish -- ing you were here. __ _
+       Ooo __ _ ooo __ _ _
+       Wish -- ing you were,
+
+       Ooo __ _
+       Wish -- ing you were here __ _
+       Ooo __ _
+       Wish -- ing you were here __ _
+%{
+Sleepless hours and dreamless nights and far aways
+Ooo wishing you were, wishing you were here.
+Heaven knows and Lord, it shows, when I'm away,
+Ooo wishing you were, wishing you were here.
+
+Ooooo, ooooo, ooooo, ooooo
+Ooooo, ooooo, ooooo, ooooo
+
+Same old show in a different town, on another day,
+Ooo wishing you were, wishing you were here.
+Even though you're far away, you're on my mind,
+Ooo wishing you were, wishing you were here.
+
+Ooooo, ooooo, ooooo, ooooo
+Ooooo, ooooo, ooooo, ooooo
+
+And I'd like to change my life, and you know I would,
+Just to be with you tonight, baby if I could.
+But I've got my job to do, and I do it well,
+So I guess that's how it is.
+
+Ooooo, wishing your were here, ooooo, wishing you were here
+Ooooo, wishing your were here, ooooo, wishing you were here
+
+On the road, it's a heavy load, but I'll be by,
+Ooo, wishing your were, wishing you were here.
+Pay the price, make a sacrifice, and still I'll try.
+Ooo, wishing you were, wishing you were here.
+Ooo, wishing you were, wishing you were here.
+Ooo, wishing you were...
+
+Ooooo, wishing you were here.
+Ooooo, wishing you were here.
+
+%}
+}
+
+LeadVoxTextB = \lyricmode
+{
+       Hea -- ven knows and _ Lord, it shows, _ when I'm a -- way, _
+       _ _ _ _ _
+       _ _ _ _ _ _ _ _ _ _  _ _ _ _
+
+       _ _ _ _ _ _ _ _
+
+       _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
+       _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
+       _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
+       _ _ _ _ _ _ _ _ _ _
+
+       _ _ _ _ _ _
+       _ _ _ _ _ _ _
+
+       Pay the price, make a sa -- cri -- fice, and still I'll try. __ _
+}
+
+LeadVoxTextC = \lyricmode
+{
+       Same old show in a diff -- erent town, on a -- no -- ther day,
+}
+
+LeadVoxTextD = \lyricmode
+{
+       E -- ven though you're _ far a -- way, you're _ on my mind, _
+}
+
+LeadVoxOverlap = \lyricmode
+{
+       Ooo,
+}
+
+Riffs = \relative c'
+{
+       \clef G
+%Hm. Needed anymore?
+%      \override Score.SpacingSpanner.average-spacing-wishes = ##f
+
+       % Intro
+
+       \tiny
+%      f8 a ef' g d'-\fermata r s4
+       \normalsize
+}
+
+
+%
+% Chord names
+%
+Chords = \chordmode
+{
+       % Refrain
+
+       d1:m7 |   % 1
+       s1 |   % 2
+       e1/d |   % 3
+       s1 |   % 4
+       ef1/d |   % 5
+       s1 |   % 6
+       d1:m |   % 7
+
+       s1 |   % 8
+
+       bf2 c |   % 9
+
+       % Verse
+
+       a1 |   % 10
+       d4. a8 s2 |   % 11
+       d1:m7 |   % 12
+       s1 |   % 13
+       g1:m7 |   % 14
+       c1 |   % 15
+       d1:m7 |   % 16
+
+       bf2 c |   % 17
+
+       d1:m7 |   % 18
+
+       bf2 c |   % 19
+
+       d1:m7 |   % 20
+
+       % Refrain
+
+       d1:m7 |   % 21
+       s1 |   % 22
+       e1/d |   % 23
+       s1 |   % 24
+       ef1/d |   % 25
+       s1 |   % 26
+       d1:m |   % 27
+
+       s1 |   % 28
+
+       d2:m c |   % 29
+
+       % Bridge
+
+       bf1 |   % 30
+       c1 |   % 31
+       d2:m c |   % 32
+       bf1 |   % 33
+       f1 |   % 34
+       bf1 |   % 35
+       f2 bf |   % 36
+       f1 |   % 37
+       bf1 |   % 38
+       c1 |   % 39
+       d2:m c |   % 40
+       bf1 |   % 41
+       f1 |   % 42
+       bf1 |   % 43
+
+       % Refrain
+
+       d1:m7 |   % 44
+       s1 |   % 45
+       e1/d |   % 46
+       s1 |   % 47
+       ef1/d |   % 48
+       s1 |   % 49
+       d1:m |   % 50
+
+       s1 |   % 51
+
+       bf2 c |   % 52
+
+       % Verse
+
+       a1 |   % 53
+       d4. a8 s2 |   % 54
+       d1:m7 |   % 55
+       s1 |   % 56
+       g1:m7 |   % 57
+       c1 |   % 58
+       d1:m7 |   % 59
+
+       bf2 c |   % 60
+
+       d1:m7 |   % 61
+       g1:m7 |   % 62
+       c1 |   % 63
+       d1:m7 |   % 64
+       s1 |   % 65
+       g1:m7 |   % 66
+       c1 |   % 67
+%      d1:m7 |   % 68
+
+       % Outro
+
+       d1:m7 |   % 69
+       s1 |   % 70
+       e1/d |   % 71
+       s1 |   % 72
+       ef1/d |   % 73
+       s1 |   % 74
+       d1:m |   % 75
+
+       s1 |   % 76
+
+       d1:m |   % 77
+       d1 |   % 78
+}
+
+
+%
+% 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
+{
+%%     \set Voice.autoBeaming = ##f
+%%     \set Staff.instrument = #"Rhythm"
+       \override Staff.TimeSignature.style = #'numbered
+       \override NoteHead.style = #'slash
+
+       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
+
+       c4 c c c |   % 9
+
+       % Verse
+
+       c4 c c c |   % 10
+       c4 c8 c8 ~ c4 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
+
+       c4 c c c |   % 17
+
+       c4 c c c |   % 18
+
+       c4 c c c |   % 19
+
+       c4 c c c |   % 20
+
+       % Refrain
+
+       c4 c c c |   % 21
+       c4 c c c |   % 22
+       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
+
+       % Bridge
+
+       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 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
+
+       % Refrain
+
+       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
+
+       % Verse
+
+       c4 c c c |   % 53
+       c4 c8 c ~ c4 c |   % 54
+       c4 c c c |   % 55
+       c4 c c c |   % 56
+       c4 c c c |   % 57
+       c4 c c c |   % 58
+       c4 c c c |   % 59
+
+       c4 c c c |   % 60
+
+       c4 c c c |   % 61
+       c4 c c c |   % 62
+       c4 c c c |   % 63
+       c4 c c c |   % 64
+       c4 c c c |   % 65
+       c4 c c c |   % 66
+       c4 c c c |   % 67
+%      c4 c c c |   % 68
+
+       % Outro (refrain)
+
+       c4 c c c |   % 69
+       c4 c c c |   % 70
+       c4 c c c |   % 71
+       c4 c c c |   % 72
+       c4 c c c |   % 73
+       c4 c c c |   % 74
+       c4 c c c |   % 75
+
+       c4 c c c |   % 76
+
+       c2 c |   % 77
+       c1-\fermata |   % 78
+}
+
+
+Dynamics =
+{
+%{
+       s4_\markup { \italic { Let notes ring } } s2. |   % 1
+       s4_\markup { \italic { snare pat. } } s2 |   % 1
+       s4_\markup { \italic { simile } } s2 |   % 2
+       s2.*19
+       s4_\markup { \italic { spacey } } s2 |   % 22
+       s2.*5
+       s4 s \< s \! |   % 28
+       s2.*22
+       s4_\markup { \italic { Last time } } s2 |   % 51
+%}
+}
+
+
+\score
+{
+       <<
+               \set Score.skipBars = ##t
+               \set Score.melismaBusyProperties = #'()
+
+%              \new Staff
+               <<
+                       \new ChordNames \Chords
+%Capo 4 edition
+%                      \new ChordNames \transpose b g \Chords
+                       \new RhythmicStaff << \Rhythm \Dynamics >>
+               >>
+
+               \new Staff
+               <<
+                       \Global                                         % The "roadmap" that everything else depends on
+                       \new Voice = "lead" \LeadVox
+                       \new Voice \Riffs
+                       \new Lyrics \lyricsto "lead" \LeadVoxText
+                       \new Lyrics \lyricsto "lead" \LeadVoxTextB
+                       \new Lyrics \lyricsto "lead" \LeadVoxTextC
+                       \new Lyrics \lyricsto "lead" \LeadVoxTextD
+                       \new Lyrics \lyricsto "v2" \LeadVoxOverlap
+               >>
+       >>
+}
+
+
+\paper
+{
+  #(define fonts (make-pango-font-tree
+    "Times New Roman"
+    "LilyJAZZ Text"
+    "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)
+}