\version "2.18.2"

\header {
  title = "The Entertainer"
  short-title = "Entertainer"
  subtitle = "A Rag Time Two Step"
  dedication = "Dedicated to James Brown and his Mandolin Club."
  composer = "Scott Joplin"
  copyright = "1902 by John Stark & Son"
  tagline = ##f
  page-count = 4
}

% helper command to print title and composer in uppercase in the title while keeping them in regular case for the metadata
#(define-markup-command (uppercase-property layout props symbol) (symbol?)
  (let ((property (chain-assoc-get symbol props)))
   (interpret-markup layout props
    (string-upcase property))))
% helper command to get the page-count (number) as a string for the footer
#(define-markup-command (string-property layout props symbol) (symbol?)
  (let ((property (chain-assoc-get symbol props)))
   (interpret-markup layout props
    (number->string property))))
% helper command because the footer on pages 2 and 4 is different
#(define (book-second-page? layout props)
  (= (chain-assoc-get 'page:page-number props)
     2))
#(define (second-page layout props arg)
  (if (book-second-page? layout props)
      (interpret-markup layout props arg)
      empty-stencil))
#(define (not-second-page layout props arg)
  (if (not (book-second-page? layout props))
      (interpret-markup layout props arg)
      empty-stencil))

\paper {
  % based on the default value in ly/titling-init.ly
  bookTitleMarkup = \markup {
    \override #'(baseline-skip . 5.5)
    \column {
      \fill-line { \fromproperty #'header:dedication }
      \override #'(baseline-skip . 6.5)
      \column {
        \fill-line {
          \huge \larger \larger \larger
          \concat { \uppercase-property #'header:title "." }
        }
        \fill-line {
          \large \bold \italic
          \concat { \uppercase-property #'header:subtitle "." }
        }
        \fill-line {
          "" % no poet
          "" % no instrument
          \override #'(baseline-skip . 3) \bold \concat { "By " \uppercase-property #'header:composer "." \hspace #1 }
        }
      }
    }
  }
  evenFooterMarkup = \markup {
    \on-the-fly \second-page \fill-line {
      \tiny \concat { \fromproperty #'header:short-title ".  " \string-property #'header:page-count "." }
      \bold \line { 10 "—" \string-property #'header:page-count }
      ""
    }
    \on-the-fly \not-second-page \fill-line {
      \tiny \concat { \fromproperty #'header:short-title ".  " \string-property #'header:page-count "." }
      \bold \line { 10 "—" \string-property #'header:page-count \hspace #16 }
      ""
    }
  }
  oddFooterMarkup = \markup {
    \on-the-fly \first-page \fill-line {
      \bold \line { 10 "—" \string-property #'header:page-count }
      \raise #0.5 \tiny \concat { "Copyright " \fromproperty #'header:copyright "." }
      ""
    }
    \on-the-fly \not-first-page {
      \tiny \concat { \fromproperty #'header:short-title ".  " \string-property #'header:page-count "." }
      \bold \line { 10 "—" \string-property #'header:page-count }
    }
  }
  print-page-number = ##f
}

\layout {
  \context {
    \Score
    \omit BarNumber
    \override NonMusicalPaperColumn.line-break-permission = ##f
    \override NonMusicalPaperColumn.page-break-permission = ##f
  }
}

LH = { \change Staff = "LH" }
RH = { \change Staff = "RH" }

\score {
  \new PianoStaff <<
    \new Staff = "RH" {
      \clef "violin"
      \key c \major
      \time 2/4
      \relative c''' {
        % Intro
        \tweak padding #10 \tempo "INTRO:" % not really the tempo, but positioned like it
        \voiceOne
        d16^\markup { \italic "Not fast." } e c a~ a b g8 |
        \oneVoice
        d16 e c a~ a b g8 |
        \stemUp d16 e c \stemNeutral \LH \voiceOne a~ a b a as |
        g8 r \RH \oneVoice \stemDown <g' b d g>^^ d16 dis \stemNeutral | \bar ".|:-||" \break
        % Part A
        \repeat volta 2 {
          e c'8 e,16 c'8 e,16 c'~ |
          c4~ c16 <c e c'> <d f d'> <dis fis dis'> |
          <e g e'> <c e c'> <d f d'> <e g e'>~ q <b d b'> <d f d'>8 |
          <c e c'>4~ q8 d,16( dis) | \break
          e c'8 e,16 c'8 e,16 c'~ |
          c4~ c8 <a c a'>16 <g c g'> |
          <fis c' fis> <a a'> <c c'> <e e'>~ q <d d'> <c c'> <a a'> |
          <d f d'>4~ q8 d,16( dis) | \break
          e c'8 e,16 c'8 e,16 c'~ |
          c4~ c16 <c e c'> <d f d'> <dis fis dis'> |
          <e g e'> <c e c'> <d f d'> <e g e'>~ q <b d b'> <d f d'>8 |
          <c e c'>4~ q8 <c c'>16 <d d'> | \pageBreak
          <e e'> <c c'> <d d'> <e e'>~ q <c c'> <d d'> <c c'> |
          <e e'> <c c'> <d d'> <e e'>~ q <c c'> <d d'> <c c'> |
          <e g e'> <c e c'> <d f d'> <e g e'>~ q <b d b'> <d f d'>8 |
        }
        \alternative {
          { <c e c'>4~ q8 d,16 dis | }
          % TODO there is a small "3" above the bar line in the score, but it’s hard to implement (vertical ordering with the volta bracket, and the fact that we already have a mark at the same moment for the beginning of the next line), so skip it for now
          { q4~ q16 <e c' e> <f d' f> <fis dis' fis> | \bar ".|:-||" \break }
        }
        % Part B
        \repeat volta 2 {
          \tweak self-alignment-X #LEFT \mark \markup { \large \italic " Repeat 8va." }
          <g e' g>8 <a e' a>16 <g~ e'-\tweak Tie.direction #DOWN ~ g~> q <e c' e> <f d' f> <fis dis' fis> |
          <g e' g>8 <a e' a>16 <g~ e'-\tweak Tie.direction #DOWN ~ g~> q e' c g |
          a b c d e d c d |
          g, e' f g a g e f | \break
          <g, e' g>8 <a e' a>16 <g~ e'-\tweak Tie.direction #DOWN ~ g~> q <e c' e> <f d' f> <fis dis' fis> |
          <g e' g>8 <a e' a>16 <g~ e'-\tweak Tie.direction #DOWN ~ g~> q g' a ais |
          <d, g b> q8 <c fis b>16~ q a' <c, fis> d |
          <b g'>4~ q16 <e, c' e> <f d' f> <fis dis' fis> | \break
          <g e' g>8 <a e' a>16 <g~ e'-\tweak Tie.direction #DOWN ~ g~> q <e c' e> <f d' f> <fis dis' fis> |
          <g e' g>8 <a e' a>16 <g~ e'-\tweak Tie.direction #DOWN ~ g~> q e' c g |
          a b c d e d c d |
          c4~ c16 g fis g | \break
          c8 a16 c~ c a c a |
          g c e g~ g e c g |
          <fis a>8 <fis c'> <f e'>16 <f d'>8 <e c'>16~ |
        }
        \alternative {
          { q4~ q16 \ottava #1 \set Staff.ottavation = \markup { \small "8" } <e' c' e> <f d' f> <fis dis' fis> \ottava #0 | }
          { <e, c'>4~ q8\noBeam d16 dis | \bar "||" \pageBreak }
        }
        % Part A'
        e c'8 e,16 c'8 e,16 c'~ |
        c4~ c16 <c e c'> <d f d'> <dis fis dis'> |
        <e g e'> <c e c'> <d f d'> <e g e'>~ q <b d b'> <d f d'>8 |
        <c e c'>4~ q8 d,16( dis) | \break
        e c'8 e,16 c'8 e,16 c'~ |
        c4~ c8 <a c a'>16 <g c g'> |
        <fis c' fis> <a a'> <c c'> <e e'>~ q <d d'> <c c'> <a a'> |
        <d f d'>4~ q8 d,16( dis) |
        e c'8 e,16 c'8 e,16 c'~ | \break
        c4~ c16 <c e c'> <d f d'> <dis fis dis'> |
        <e g e'> <c e c'> <d f d'> <e g e'>~ q <b d b'> <d f d'>8 |
        <c e c'>4~ q8 <c c'>16 <d d'> |
        <e e'> <c c'> <d d'> <e e'>~ q <c c'> <d d'> <c c'> | \break
        <e e'> <c c'> <d d'> <e e'>~ q <c c'> <d d'> <c c'> |
        <e g e'> <c e c'> <d f d'> <e g e'>~ q <b d b'> <d f d'>8 |
        <c e c'>4 q8 r | \bar ".|:-||"
        % Part C
        \key f \major
        \repeat volta 2 {
          <f a>16 gis q8~ q <f a c> |
          << <f bes d>2 \\ { r8 bes,16 a bes c d8 } >> | \break
          <d f>16 e q8~ q <d f a> |
          << { <d g bes>4~ q8. g16 } \\ { r8 g,16 fis g a bes8 } >> |
          d8 g16 d~ d g d8 |
          c4 f |
          e16 gis b e~ e d b c | \break
          a4 bes! |
          <f a>16 gis q8~ q <f a c> |
          << <f bes d>2 \\ { r8 bes,16 a bes c d8 } >> |
          <d f>16 e q8~ q <d f a> |
          << { <d g bes>4~ q8. g16 } \\ { r8 g,16 fis g a bes8 } >> | \pageBreak
          d8 g16 d~ d g d8 |
          c4 <gis b f'>8. f'16 |
          % the first half of the next bar has one voice and the second half has two, but there’s a tie from the first half into the two voices in the second half – LilyPond doesn’t support that directly, so we notate the whole bar in two voices :/
          #(ly:expect-warning "ignoring too many clashing note columns")
          #(ly:expect-warning "ignoring too many clashing note columns")
          #(ly:expect-warning "ignoring too many clashing note columns")
          << { \oneVoice \omit Beam a c8 g16~ \voiceOne \undo \omit Beam g c, d e } \\ { \oneVoice <a, c> c8 \voiceTwo bes16~ bes8 bes } >> |
        }
        \alternative {
          { <a f'> b16( c d e f g) | }
          { q8 r <f a c f> r | \bar "||" \break }
        }
        \key c \major
        % Bridge
        \stemUp c a16 c~ c a c a \stemNeutral |
        g c e g~ g e c g |
        <fis a>8 <fis c'> <f e'>16 <f d'>8 <e c'>16~ |
        q4 <c' e g c>8 r | \bar ".|:-||" \break
        % Part D
        \repeat volta 2 {
          <d, f> <cis e>16 <d f>~ q <cis e> <d f>8 |
          r16 a' <f d'> a c d c a |
          <e g>8 <dis fis>16 <e g>~ q <dis fis> <e g>8 |
          r16 c' <g e'> c d e d c | \break
          <b d>8 <ais cis>16 <b d>~ q <ais cis> <b d>8 |
          r16 f' <b, a'> f' g a g f |
          <c c'> q q4 <c a'>8 |
          <c g'>\noBeam <e, g>16 q q8 q | \break
          <d f> <cis e>16 <d f>~ q <cis e> <d f>8 |
          r16 a' <f d'> a c d c a |
          <e g>8 <dis fis>16 <e g>~ q <dis fis> <e g>8 |
          r16 c' <g e'> c d e d c | \break
          a gis a <a g'>~ q <a f'>8 <a c>16 |
          <g e'> dis' e a~ a c g e |
          <fis, c'>8 q <f b e>16 <f b d>8 <e~ g-\tweak Tie.direction #UP ~ c~>16 |
        }
        \alternative {
          { q8 <e g>16 q q8 q | }
          { \once \override RepeatTieColumn.tie-configuration = #`((-6 . ,DOWN) (-2 . ,UP) (2 . ,UP)) <e g c>4\repeatTie <c' e g c>8 r | \bar "|." }
        }
      }
    }
    \new Dynamics {
      % Intro
      s2\f |
      s2*2 |
      s4. s8\> |
      % Part A
      s2\p |
      s4 s4\< |
      s2\f |
      s4 s4\> |
      s2\p |
      s4 s4\< |
      s2\f |
      s4 s4\> |
      s2\p |
      s4 s4\< |
      s2\f |
      s2*4 |
      s4 s4\> |
      s2\! |
      % Part B
      s2\f |
      s2*7 |
      s2\p |
      s2*2 |
      s4 s4\> |
      s2\p |
      s4\< s16 s16\! s8 |
      s2*2 |
      s4 s4\> |
      % Part A'
      s2\p |
      s4 s4-\tweak to-barline ##f \< |
      s2\f |
      s4 s4\> |
      s2\p |
      s4 s4\< |
      s2\f |
      s4 s4-\tweak to-barline ##f \> |
      s2\p |
      s4 s4\< |
      s2\f |
      s2*5 |
      % Part C
      s2\f |
      s2*12 |
      s4\< s4\fz\> |
      s2\f |
      s2*2 |
      % Bridge
      s2*4 |
      % Part D
      s2*17 |
    }
    \new Staff = "LH" {
      \clef "bass"
      \key c \major
      \time 2/4
      \relative c'' {
        % Intro
        \RH \voiceTwo 
        d16 e c a~ a b g8 |
        \LH \oneVoice
        d16 e c a~ a b g8 |
        d16 e c \voiceTwo a~ a b a as |
        g8 r \oneVoice \stemDown <g, g'>^^ <g'' b> \stemNeutral |
        % Part A
        \repeat volta 2 {
          c, <e g c> <g, g'> <g' bes c> |
          <f, f'> <a' c> <e, e'> <g' c> |
          g, <e' g c> g, <f' g b> |
          c <e g c> q <g b> |
          c, <e g c> <g, g'> <g' bes c> |
          <f, f'> <a' c> <e, e'> <es es'> |
          \stemDown <d d'> <d' fis a c> \stemNeutral d <fis a c> |
          <g b> <g, g'> <a a'> <b b'> |
          c <e g c> <g, g'> <g' bes c> |
          <f, f'> <a' c> <e, e'> <g' c> |
          g, <e' g c> g, <f' g b> |
          c <e g c> <g c e> r |
          <c, c'> <g' c e> <bes, bes'> <g' c e> |
          <a, a'> <a' c f> <as, as'> <as' c f> |
          <g, g'> <g' c e> g, <g' b> |
        }
        \alternative {
          { <c, g' c> <g g'> <a a'> <b b'> | }
          { <c g' c> <g g'> <c, c'> r | }
        }
        % Part B
        \repeat volta 2 {
          q <g'' c e> g, q |
          c q g q |
          f <a' c f> f <as c f> |
          e <g c e> g, q |
          c q g q |
          c q e es |
          d <g b d> d <a' c d> |
          <g b d> <f, f'>^^ <e e'>_^ <d d'>_^ |
          <c c'>^^ <g'' c e> g, q |
          c q g q |
          f <a' c f> f <as c f> |
          e <g c e> c, <bes' c e> |
          <f a c f> q <fis a c dis> q |
          <g c e> q q q |
          <d c'> <d a'> <g b> q |
        }
        \alternative {
          { <c, c'> <g g'>^^ <e e'>_^ <d d'>_^ | }
          { <c' c'> <g g'> <c, c'> r | }
        }
        % Part A'
        c' <e g c> <g, g'> <g' bes c> |
        <f, f'> <a' c> <e, e'> <g' c> |
        g, <e' g c> g, <f' g b> |
        c <e g c> q <g b> |
        c, <e g c> <g, g'> <g' bes c> |
        <f, f'> <a' c> <e, e'> <es es'> |
        \stemDown <d d'> <d' fis a c> \stemNeutral d <fis a c> |
        <g b> <g, g'> <a a'> <b b'> |
        c <e g c> <g, g'> <g' bes c> |
        <f, f'> <a' c> <e, e'> <g' c> |
        g, <e' g c> g, <f' g b> |
        c <e g c> <g c e> r |
        <c, c'> <g' c e> <bes, bes'> <g' c e> |
        <a, a'> <a' c f> <as, as'> <as' c f> |
        <g, g'> <g' c e> g, <g' b> |
        <c, g' c> <g g'> <c, c'> r |
        % Part C
        \key f \major
        \repeat volta 2 {
          f <a' c f> c, q |
          bes <bes' d f> f q |
          d, <a'' d f> a, q |
          g <bes' d> d, q |
          <bes bes'> <bes' d> \stemDown <g, g'> <gis gis'> \stemNeutral |
          <a a'> <a' c f> d, <a' d f> |
          e <b' d e> gis q |
          <a c e>4 << <g c e> \\ { g8 c, } >> |
          f, <a' c f> c, q |
          bes <bes' d f> f q |
          d, <a'' d f> a, q |
          g <bes' d> d, q |
          <bes bes'> <bes' d> \stemDown <g, g'> <gis gis'> \stemNeutral |
          <a a'>16 <f f'> <e e'> <d d'> <des des'>4 |
          <c c'>8 <a'' c f> \stemDown <c, c'> <c, c'> \stemNeutral |
        }
        \alternative {
          { <f f'> r r4 | }
          { q8 r <f, f'> r | }
        }
        \key c \major
        % Bridge
        <f'' a c f> q <fis a c dis> q |
        <g c e> q q q |
        <d c'> <d a'> <g b> q |
        <c, c'>4 <c, c'>8 r |
        % Part D
        \repeat volta 2 {
          \stemDown f <f' a> \stemNeutral a, q |
          \stemDown f q \stemNeutral a q |
          c <e g c> g, q |
          c q g q |
          g <f' g b> b, q |
          g q d' q |
          <dis fis c'> q4 q8 |
          <e g c> r r4 |
          \stemDown f,8 <f' a> \stemNeutral a, q |
          \stemDown f q \stemNeutral a q |
          c <e g c> g, q |
          c q g q |
          <f f'> <d d'> <e e'> <f f'> |
          <g g'> <g' c e> <fis c' dis> <g c e> |
          <a, a'> <d, d'> <g g'> <b b'> |
        }
        \alternative {
          { <c c'> r r4 | }
          { <c c'>8 <g g'> <c, c'> r | }
        }
      }
    }
  >>
}