call your girlfriend: initial stuff

other/robyn-call-your-girlfriend.ly

@@ -0,0 +1,274 @@
+\version "2.20.0"
+\language "english"
+
+\header {
+  title = "Call Your Girlfriend"
+  composer = "Robyn"
+}
+
+global = {
+  \key fs \minor
+  \set Staff.printKeyCancellation = ##f
+  \numericTimeSignature
+  \compressFullBarRests
+  \omit Voice.StringNumber
+  \override TupletBracket #'bracket-visibility = #'if-no-beam
+  \override MultiMeasureRest.expand-limit = #3
+  \override Score.ChordName.font-name = #"Noto Serif"
+  \override Score.ChordName.font-size = #0
+  \override Score.LyricText.font-name = #"Noto Serif"
+  \override Score.LyricText.font-size = #0
+  \tempo 4 = 132
+}
+
+
+accompaniment = \relative c {
+  \clef bass
+  % intro
+  \repeat unfold 8 { r16 d, d d } |
+
+  % chorus 1
+  \repeat unfold 3 {
+    <<
+      { <d' fs a>1 | <a cs e> | } \\
+      {
+        \repeat unfold 4 { r16 d, d d } |
+        \repeat unfold 4 { r16 a a a } |
+      }
+    >>
+  }
+
+  <<
+    { <d' fs a>2 <a cs e> | <fs a cs>1 | } \\
+    {
+      \repeat unfold 2 { r16 d d d } \repeat unfold 2 { r16 a a a } |
+      \repeat unfold 4 { r16 fs fs fs } |
+    }
+  >>
+
+  <e'' gs b>2 <fs a cs> | <d fs a> <cs e a> |
+  <<
+    { <b e gs>1 ~ | q | \repeat unfold 4 { r16 fs' fs fs } }
+    \new CueVoice {
+      s1 |
+      \stemUp a'2 gs2 | fs1 |
+    }
+  >> |
+
+
+
+  \repeat unfold 4 { r16 e, e e } |
+  \repeat unfold 8 { r16 a a a } |
+
+  \repeat unfold 4 { r16 d, d d } |
+  \repeat unfold 4 { r16 fs fs fs } |
+  \repeat unfold 4 { r16 e e e } |
+  <<
+    {
+      \repeat unfold 4 { r16 e e e } | \repeat unfold 4 { r16 a, a a } |
+      \repeat unfold 4 { r16 e' e e } | \repeat unfold 4 { r16 fs fs fs } |
+    }
+    \new CueVoice {
+      \stemUp a'2 gs2 | e1 | gs1 | a1 |
+    }
+  >> |
+
+  \repeat unfold 2 { r16 d,, d d } \repeat unfold 2 { r16 e e  e } |
+
+  <<
+    {
+      \repeat unfold 4 { r16 a, a a } |
+      \repeat unfold 4 { r16 e' e e } |
+      \repeat unfold 4 { r16 fs fs fs } |
+      \repeat unfold 2 { r16 fs fs fs } \repeat unfold 2 { r16 e e e } |
+      \stemDown d1 ~ | d2\glissando \cadenzaOn \hideNotes d,4 \unHideNotes \cadenzaOff r2 |
+    }
+    \new CueVoice {
+      \stemUp e''1 | gs1 | a1 | e2 cs | a1 ~ | a2\glissando \cadenzaOn \hideNotes a,4 \unHideNotes \cadenzaOff s2 |
+    }
+  >>
+
+
+
+
+}
+
+vocalMelody = \relative c'' {
+  R1 |
+  r2 r4 a8 gs |
+
+  \bar "||"
+
+  fs4.^"chorus" e8 ~ e2 | r2 r4 a8 gs |
+  fs4. e8 ~ e4 cs ~ | cs4 r4 r4 a'8 gs |
+  fs4. e8 ~ e2 | r2 r4 a8 gs |
+  fs4. e8 ~ e4 cs ~ | cs4 r4 r4 a' |
+
+  b2. cs4 | cs a a8 b b4 ~ |
+  b1 | r4 a8 a a a a4 | \bar "||"
+
+  a4 a a8 a a a | a a a a a4 gs8 a ~ | a2 r2 | r4 a8 a a a a4 |
+  a4 a a8 a a a | <\tweak font-size #-3 fs cs'> q q q q4 <\tweak font-size #-3 e b'>8 q ~ | q2. r4 | r4 a8 a a a a b |
+
+  % pre-chorus
+  <\tweak font-size #-3 a d>4. q8 <\tweak font-size #-3 a cs>4. q8 |
+  <\tweak font-size #-3 gs b>4. q8 a4. a8 |
+  <\tweak font-size #-3 a d>4. q8 <\tweak font-size #-3 a cs>4. q8 |
+  <\tweak font-size #-3 gs b>4. q8 <\tweak font-size #-3 fs a>4 <\tweak font-size #-3 e a>8 q |
+
+  q4 q q q8 q ~ | q4 q8 q q4 <\tweak font-size #-3 e gs>8 <\tweak font-size #-3 fs a> ~ | q2 r8 a8 a e' |
+  e8 e cs4 b4 a4 ~ | a2 r2 | r2 \hideNotes r4 \unHideNotes r4 <\tweak font-size #-3 fs a>8 <\tweak font-size #-3 e gs> |
+
+  <\tweak font-size #-3 d fs \tweak font-size #-3 a>4.^"chorus" <\tweak font-size #-3 cs e \tweak font-size #-3 a>8 ~ q2 |
+  r2 r4 <\tweak font-size #-3 fs a>8 <\tweak font-size #-3 e gs> |
+  <\tweak font-size #-3 d fs \tweak font-size #-3 a>4. <\tweak font-size #-3 cs e \tweak font-size #-3 a>8 ~ q4 <\tweak font-size #-3 a cs \tweak font-size #-3 fs> ~ |
+  q4 r4 r4 <\tweak font-size #-3 fs' a>8 <\tweak font-size #-3 e gs> |
+  <\tweak font-size #-3 d fs \tweak font-size #-3 a>4. <\tweak font-size #-3 cs e \tweak font-size #-3 a >8 ~ q2 |
+  r2 r4 <\tweak font-size #-3 fs a>8 <\tweak font-size #-3 e gs> |
+  <\tweak font-size #-3 d fs \tweak font-size #-3 a>4. <\tweak font-size #-3 cs e \tweak font-size #-3 a>8 ~ q4 <\tweak font-size #-3 a cs \tweak font-size #-3 fs> ~ |
+  q4 r4 r4 a' |
+
+  b2. cs4 | cs a a8 b b4 ~ |
+  b1 | R1 | \bar "||"
+}
+
+allTheLyrics = \lyricmode {
+  % chorus
+  Call your girl -- friend. __
+  "(It's) time" you had the __ talk. __
+  Give your rea -- sons. __
+  Say it's not her __ fault. __
+  But you just met some -- bo -- dy new. __
+
+  % verse 1
+  Tell her not to get up -- set sec -- ond guess -- ing ev -- 'ry thing you've said and done. __
+  And then when she gets up -- set tell her how you ne -- ver meant to hurt no -- one. __
+
+  Then you tell her that the
+
+  % pre-chorus
+  on -- ly way her heart will mend
+  is when she learns to love a -- gain.
+  And it won't make sense right now __ but you're still her friend. __
+  And then you let her down eas -- y. __
+
+  % chorus 2
+  Call your girl -- friend. __
+  "(It's) time" you had the __ talk. __
+  Give your rea -- sons. __
+  Say it's not her __ fault. __
+  But you just met some -- bo -- dy new. __
+
+
+
+
+}
+
+accompanimentStaff = \new Staff \with { midiInstrument = "electric piano 2" midiMaximumVolume = #0.6 }{ \global \accompaniment }
+
+
+vox = \new Staff \with { midiInstrument = "voice oohs" midiMinimumVolume = #0.7 } {
+  <<
+    \new Voice = "vocalMelody" { \clef treble \global \vocalMelody }
+  >>
+}
+
+demLyrics = \new Lyrics \lyricsto "vocalMelody" {
+  <<
+    \new Lyrics {
+      \set associatedVoice = "vocalMelody"
+      \allTheLyrics
+    }
+  >>
+}
+
+
+chordExceptionMusic = {
+  <c e g b d'>1-\markup { "maj9" }
+  <c e g b fs'>1-\markup { "maj7" \sharp "11" }
+  <c ef f g bf>1-\markup { "m7sus4" }
+  <c ef gf bff>1-\markup { "°7" }
+  <c ef gf bf>1-\markup { \super { "ø7" } }
+  <c e g d'>1-\markup { "add9" }
+  <c ef g d'>1-\markup { "m(add9)" }
+  <c e fs as>1-\markup { \super { \sharp "11" \sharp "13" } }
+  <c g>1-\markup { "5" }
+  <c e g bf>1-\markup { "7" }
+  <c e g b>1-\markup { "maj7" }
+  <c ef g bf>1-\markup { "m7" }
+  <c f g>1-\markup { "sus4" }
+  <c d g>1-\markup { "sus2" }
+  <c e g bf df'>1-\markup { "7" \super { \flat "9" } }
+  <c e g f'>1-\markup { "add11" }
+}
+
+chordExceptions = #(append
+  (sequential-music-to-chord-exceptions chordExceptionMusic #t)
+  ignatzekExceptions
+)
+
+chordValues = \chordmode {
+  \global
+  \powerChords
+  \set chordNameExceptions = #chordExceptions
+  \set majorSevenSymbol = \markup "maj7"
+
+  d1 | q |
+
+  % chorus
+  \repeat unfold 3 { d1 | a | }
+  d2 a | fs1:m |
+
+  e2 fs:m | d a | e1 | q |
+
+  % verse
+  fs1:m | fs:m/e | a | a |
+  d | fs:m | e | e |
+
+  % pre-chorus
+  a | e | fs:m | d2 e |
+  a1 | e | fs:m | q2 fs:m/e |
+  d1 |
+  r1 r4 | % because of the cadenza above...
+
+  % chorus
+  \repeat unfold 3 { d1 | a | }
+  d2 a | fs1:m |
+
+  e2 fs:m | d a | e1 | q |
+
+}
+
+chordNames = \new ChordNames {
+  \set chordChanges = ##t
+  \set chordNameExceptions = #chordExceptions
+  \chordValues
+}
+
+\score {
+  <<
+    \chordNames
+    \vox
+    \demLyrics
+    \accompanimentStaff
+  >>
+  \layout {
+    \context {
+      \Staff \RemoveEmptyStaves
+      \override Glissando.minimum-length = #4
+      \override Glissando.springs-and-rods = #ly:spanner::set-spacing-rods
+      \override Glissando.thickness = #2
+      \override VerticalAxisGroup.remove-first = ##t
+    }
+  }
+}
+
+\score {
+  \unfoldRepeats {
+    <<
+      \transpose c c, \vox
+      \transpose c c, \accompanimentStaff
+    >>
+  }
+  \midi {}
+}