\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 {}
}