File:The Easy Winners.pdf

\version "2.19.29"

\header {
  title = "The Easy Winners"
  short-title = "Winners"
  subtitle = "A Rag Time Two Step"
  composer = "Scott Joplin"
  copyright = "MCMI by Scott Joplin"
  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))))

\paper {
  % based on the default value in ly/titling-init.ly
  bookTitleMarkup = \markup {
    \override #'(baseline-skip . 3.5)
    \column {
      \fill-line { \fromproperty #'header:dedication }
      \override #'(baseline-skip . 7)
      \column {
        \fill-line {
          \huge \larger \larger \larger
          \concat { “ \uppercase-property #'header:title ” }
        }
        \fill-line {
          \large \italic \bold \concat { \uppercase-property #'header:subtitle "." }
        }
        \fill-line {
          "" % no poet
          "" % no instrument
          \override #'(baseline-skip . 3) \bold \concat { "By " \uppercase-property #'header:composer "." \hspace #4 }
        }
      }
    }
  }
  evenFooterMarkup = \markup {
    \on-the-fly \not-first-page \column {
      " "
      \small \concat { \fromproperty #'header:short-title ". " \string-property #'header:page-count "." }
    }
  }
  oddFooterMarkup = \markup {
    \on-the-fly \first-page \column {
      \fill-line {
        ""
        \column {
          \small \concat { "Copyright " \fromproperty #'header:copyright "." }
          " "
        }
        ""
      }
    }
    \on-the-fly \not-first-page \column {
      " "
      \small \concat { \fromproperty #'header:short-title "." }
    }
  }
  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 <<
    \accidentalStyle piano
    \new Staff = "RH" {
      \clef "violin"
      \key as \major
      \time 2/4
      \tweak RehearsalMark.self-alignment-X #LEFT
      \tweak RehearsalMark.X-offset #2
      \tweak RehearsalMark.Y-offset #9
      \mark \markup { \small \bold \italic "Introduction." }
      \tweak padding #3 \tempo \markup { \italic "Not fast." }
      \relative es' {
        % Intro
        es8 c'~ c16 bes as g |
        f es8 des16 c8 bes16 as |
        g(as bes c des es f g |
        as8) r r4 \bar ".|:-||" \break
        % Part A
        % the score has double slurs, but the extra slurs are within the beams instead of outside where LilyPond usually places them,
        % so we add the second slur within the chorded notes (named using the \=X construct) instead of simply setting doubleSlurs
        \repeat volta 2 {
          <as c>8 q4 <c es>8 |
          <b\=2_( f'>16( <c\=2) es>8) <b\=2_( f'>16( <c\=2) es>) <b\=2_( f'>( <c\=2) es>8) |
          <e\=2_( bes'>16( <f\=2) as>8) <e\=2_( bes'>16( <f\=2) as>) <e\=2_( bes'>( <f\=2) as>) <c es>~ |
          << { \voiceTwo q2 } \new Voice { \voiceOne r8 \once \slurDown es,16( f g as bes b) } >> | \break \oneVoice
          <as c>8 q4 <c es>8 |
          <b\=2_( f'>16( <c\=2) es>8) <b\=2_( f'>16( <c\=2) es>) q q8 |
          << { \voiceOne es16 \once \omit Accidental bes8 es16 d es f8 } \new Voice { \voiceTwo r16 g,8. as8\noBeam as } >> | \oneVoice
          <g es'>4~ \stemDown q16 es g des' \stemNeutral | \break
          <as c>8 q4 <c es>8 |
          <b\=2_( f'>16( <c\=2) es>8) <b\=2_( f'>16( <c\=2) es>) <b\=2_( f'>( <c\=2) es>8) |
          <e\=2_( bes'>16( <f\=2) as>8) <e\=2_( bes'>16( <f\=2) as>) q <f g bes> <e! g c>~ |
          << { \voiceOne <e g c~>4 c'8 g16 as } \new Voice { \voiceTwo r16 c, e g c8 r } >> | \oneVoice \pageBreak
          <e,\=2_( bes'>16( <f\=2) as>8) <e\=2_( bes'>16( <f\=2) as>16) <e\=2_( bes'>( <f\=2) as>) <c es>~ |
          q <des f> <c es> <bes des> <as c> <c es>8 q16 |
          <a\=2_( es'>( <bes\=2) des>8) <a\=2_( es'>16( <bes\=2) des>) <des, g c> <des g bes>8 |
        }
        \alternative {
          { <c \single \omit Accidental as'>4~ q8 r | }
          { q4 <as' c es as>8 es16 e | \bar ".|:-||" \break }
        }
        % Part B
        \repeat volta 2 {
          f fis g <g bes>~ q es' des bes |
          f fis g <g c>~ q bes f g |
          as es f g as a bes b |
          c b c <c f>~ q es bes c | \break
          des bes'8 c,16 des bes'8 c,16 |
          des bes'8 as16 g f es des |
          c as'8 b,16 c as'8 b,16 |
          c as'8 f16 es c \once \omit Accidental bes as | \break
          g gis a <a f'>~ q es' c a |
          g gis a <a f'>~ q <c es> <a f'> <c es> |
          \once \stemDown <bes des> <a c> <bes des> f~ f a! bes des |
          f c des bes~ bes f des bes | \break
          b^1 d^2 f^3 as^4 b^5 b8^5 b16^1~ |
          \voiceOne b d^2 f^3 as^4 \once \override Fingering.add-stem-support = ##t b8^5 r |
          c16 as es c~ \oneVoice c as c, es |
        }
        \alternative {
          { <des es g bes> q8 <c~ es-\tweak Tie.direction #UP ~ as~>16 q8 es16 e | }
          { <des \single \omit Accidental es g bes> q8 <c~ es-\tweak Tie.direction #UP ~ as~>16 q8 es | \bar ".|:-||" \pageBreak }
        }
        % Part A'
        <as c>8 q4 <c es>8 |
        <b\=2_( f'>16( <c\=2) es>8) <b\=2_( f'>16( <c\=2) es>) <b\=2_( f'>( <c\=2) es>8) |
        <e\=2_( bes'>16( <f\=2) as>8) <e\=2_( bes'>16( <f\=2) as>) <e\=2_( bes'>( <f\=2) as>) <c es>~ |
        << { \voiceTwo q2 } \new Voice { \voiceOne r8 \once \slurDown es,16( f g as bes b) } >> | \oneVoice
        <as c>8 q4 <c es>8 | \break
        <b\=2_( f'>16( <c\=2) es>8) <b\=2_( f'>16( <c\=2) es>) q q8 |
        << { \voiceOne es16 \once \omit Accidental bes8 es16 d es f8 } \new Voice { \voiceTwo r16 g,8. as8 as } >> | \oneVoice
        <g es'>4~ \stemDown q16 es g des' \stemNeutral |
        <as c>8 q4 <c es>8 |
        <b\=2_( f'>16( <c\=2) es>8) <b\=2_( f'>16( <c\=2) es>) <b\=2_( f'>( <c\=2) es>8) | \break
        <e\=2_( bes'>16( <f\=2) as>8) <e\=2_( bes'>16( <f\=2) as>) q <f g bes> <e! g c>~ |
        << { \voiceOne <e g c~>4 c'8 g16 as } \new Voice { \voiceTwo r16 c,( e g c8) r } >> | \oneVoice
        <e,\=2_( bes'>16( <f\=2) as>8) <e\=2_( bes'>16( <f\=2) as>16) <e\=2_( bes'>( <f\=2) as>) <c es>~ |
        q <des f> <c es> <bes des> <as c> <c es>8 q16 |
        <a\=2_( es'>( <bes\=2) des>8) <a\=2_( es'>16( <bes\=2) des>) <des, g c> <des g bes>8 | \break
        <c \single \omit Accidental as'>4 <as' c es as>8 r | \bar "||"
        \key des \major
        % Bridge
        des des~ des16 as des es |
        \voiceOne
        f8 f~ f16 as, des f |
        <c ges' as> <es ges c>8 <c-\tweak Tie.direction #DOWN ~ ges'-\tweak Tie.direction #DOWN ~ bes~>16 q <c ges' as> <ges as c>8 |
        \oneVoice
        <f as des> r r as16 a | \bar ".|:-||" \break
        % Part C
        \repeat volta 2 {
          bes ges'8 es16 a, ges'8 es16 |
          as, des f bes~ bes as f des |
          c as' es c bes c8 as16 |
          des des f as des bes as f | \break
          bes, ges'8 es16 a, ges'8 es16 |
          as, des f bes~ bes as f des |
          es f es des c des8 bes16 |
          as8 <b f'>16( <c es>) <c as'>8^^ <as ces> | \pageBreak
          << { bes16 ges'8 es16 a, ges'8 es16 } \\ { bes4 a } >> |
          r16 as des f bes as f des |
          c as' es c bes c8 as16 |
          r des f as << { des bes as f } \\ { f8 ces } >> |
          << { bes16 ges'8 es16 a, ges'8 es16 } \\ { bes4 a } >> | \break
          r16 as des f bes as f as, |
        }
        \alternative {
          {
            \mergeDifferentlyDottedOn
            <<
              {
                \voiceOne
                g <bes des>8. ges16 <c es>8 des16~ |
                \once \hideNotes des8 s8
              }
              \new Voice {
                \voiceTwo
                g,4 ges8. f16~ |
                <f des'>8 f'16 des
              }
            >>
            \oneVoice
            es f as, a |
          }
          {
            \mergeDifferentlyDottedOn
            <<
              {
                \voiceOne
                g <bes des>8. ges16 <c es>8 des16~ |
                \tieNeutral <f, des'>4~
              }
              \new Voice {
                \voiceTwo
                g4 ges8. f16~ |
                \once \hideNotes f4
              }
            >>
            \oneVoice
            q16 <as as'> <bes bes'> <b b'> | \bar ".|:-||" \break
          }
        }
        % Part D
        \repeat volta 2 {
          <c ges' c>8 <as as'>16 <bes~ ges'-\tweak Tie.direction #DOWN ~ bes~> q4 |
          <c ges' c>8 <as as'>16 <bes~ ges'-\tweak Tie.direction #DOWN ~ bes~> q16 <as as'> <bes bes'> <c c'> |
          <des f des'>8 <as f' as>16 <bes~ f'-\tweak Tie.direction #DOWN ~ bes~>16 q4 |
          <des f des'>8 <as f' as>16 <bes~ f'-\tweak Tie.direction #DOWN ~ bes~>16 q4 | \break
          r8 bes'16 <c, ges' as>~ q4 |
          r8 bes'16 <c, ges' as>~ q4 |
          r8 bes'16 <des, f as>16~ q4 |
          r8 bes'16 <des, f as>16~ q <as as'> <bes bes'> <b b'> |
          <c ges' c>8 <as as'>16 <\single \omit Accidental bes~ ges'-\tweak Tie.direction #DOWN ~ \single \omit Accidental bes~> q4 | \break
          <c ges' c>8 <as as'>16 <bes~ ges'-\tweak Tie.direction #DOWN ~ bes~> q16 <as as'> <bes bes'> <c c'> |
          <des f des'>8 <as f' as>16 <bes f' bes>16~ q4 |
          r16 des f as << {
            \voiceOne
            des bes as f |
            bes, ges'8 es16 a, ges'8 es16 | \break
          } \new Voice {
            \voiceTwo
            f8 ces |
            bes4 a |
          } >>
          \oneVoice
          r16 as des f bes as f as, |
        }
        \alternative {
          {
            \mergeDifferentlyDottedOn
            <<
              {
                \voiceOne
                g <bes des>8. ges16 <c es>8 des16~ |
                \tieNeutral <f, des'>4~
              }
              \new Voice {
                \voiceTwo
                g4 ges8. f16~ |
                \once \hideNotes f4
              }
            >>
            \oneVoice
            q16 <as as'> <bes bes'> <b b'> |
          }
          {
            \mergeDifferentlyDottedOn
            \set Score.voltaSpannerDuration = #(ly:make-moment 2/4)
            <<
              {
                \voiceOne
                g <\single \omit Accidental bes des>8. ges16 <c es>8 des16~ |
                \tieNeutral <f, des'>4
              }
              \new Voice {
                \voiceTwo
                g4 ges8. \once \omit Accidental f16~ |
                \once \hideNotes f4
              }
            >>
            \oneVoice
            <des' f as des>8 r | \bar "|." \mark \markup { \small \fermata }
          }
        }
      }
    }
    \new Staff = "LH" {
      \clef "bass"
      \key as \major
      \relative es {
        % Intro
        es8 c'~ c16 bes as g |
        f es8 des16 c8 bes16 as |
        es4 \stemDown es'16 des c bes \stemNeutral |
        as8 <es' as c> es, q |
        % Part A
        \repeat volta 2 {
          as q es q |
          as q es q |
          des <f' as des> des, q |
          as' <es' as c> es, q |
          as q es q |
          as q a <fis' a es'> |
          bes, <g' bes es> bes, <bes' d> |
          <es, es'> <des! des'!> <c c'> <bes bes'> |
          <as as'> <es' as c> es, q |
          as q es q |
          des <f' as des> <des des'> q |
          <c c'> <g g'> <c, c'> r |
          <des des'> <f' as des> <des, des'> <f' as des> |
          <as, as'> <es' as c> <as, as'> <es' as c> |
          <es, es'> <es' g des'> <es, es'> q |
        }
        \alternative {
          { << { es'4~ es8 r } \\ { as, es f g } >> }
          { \stemDown <as as'> <es es'> \stemNeutral <as, as'> r }
        }
        % Part B
        \repeat volta 2 {
          <es' es'> <es' bes' des> <g, g'> <es' g des'> |
          <bes bes'> <es g bes des> <bes bes'> <b b'> |
          <c c'> <es as c> <es, es'> <es' \single \omit Accidental as c> |
          <as, as'> <es' as c> <es, es'> <es' as c> |
          <bes bes'> <es g des'> <es, es'> <es' g des'> |
          <bes bes'> <es g des'> <es, es'> <g g'> |
          <as as'> <es' as c> <es, es'> <es' as c> |
          <as, as'> <es' as c> <es, es'> <es' as c> |
          <f, f'> <f' a es'> <a, a'> <f' a es'> |
          <c c'> <f a es'> <f, f'> <f' a es'> |
          bes, <f' bes des> des q |
          bes <f' bes> <des f bes>4 |
          d16^5 f^4 as^3 b^2 d^1 d8^1 d16^5~ |
          \voiceTwo d \RH \override Fingering.add-stem-support = ##f f_4 as_3 \once \override Fingering.staff-padding = #'() b_2 d!8_1 \revert Fingering.add-stem-support r |
          <as es'> \LH \oneVoice r r4 |
        }
        \alternative {
          { <es,, es'>8 q <as as'> r | }
          { <es es'> q <as as'> r | }
        }
        % Part A'
        as <es' as c> es, q |
        as q es q |
        des <f' as des> des, q |
        as' <es' as c> es, q |
        as q es q |
        as q a <fis' a es'> |
        bes, <g' bes es> bes, <bes' d> |
        <es, es'> <des! des'!> <c c'> <bes bes'> |
        <as as'> <es' as c> es, q |
        as q es q |
        des <f' as des> <des des'> q |
        <c c'> <g g'> <c, c'> r |
        <des des'> <f' as des> <des, des'> <f' as des> |
        <as, as'> <es' as c> <as, as'> <es' as c> |
        <es, es'> <es' g des'> <es, es'> q |
        \stemDown <as as'> <es es'> \stemNeutral <as, as'> r |
        \key des \major
        % Bridge
        des'' des~ des16 as des es |
        \RH \voiceTwo
        f8 f~ f16 as, des f |
        as4 \LH <as,, as'>8 <as as'> |
        \oneVoice
        <des, des'> q <es es'> <f f'> |
        % Part C
        \repeat volta 2 {
          <ges ges'> <bes' des ges> <es, es'> <e e'> |
          <f f'> <as des f> <des, des'> <as' des f> |
          <as, as'> <as' c ges'> <es es'> <e e'> |
          <f f'> <des des'> <as as'> <f f'> |
          <ges ges'> <bes' des ges> <es, es'> <e e'> |
          <f f'> <as des f> <des, des'> <as' des f> |
          <bes, bes'> <des' es g> <es,, es'> <des'' es g> |
          <as c es> d,16( es) as,8^^ <f' \single \omit Accidental des'> |
          <ges, ges'> <bes' des ges> <es, es'> <e e'> |
          <f f'> <as des f> <des, des'> <as' des f> |
          <as, as'> <as' c ges'> <es es'> <e e'> |
          <f f'> <des des'> <as as'> <f f'> |
          <ges ges'> <bes bes'> <es es'> <ges ges'> |
          <f f'> <des des'> <as as'> <des des'> |
        }
        \alternative {
          {
            <bes bes'> <es, es'> <as, as'>4 |
            \stemUp <des des'>8 <des' des'> \stemNeutral <as as'> <f f'> |
          }
          {
            <bes bes'> <es, es'> <as, as'>4 |
            <des des'>8 as' des, r |
          }
        }
        % Part D
        \repeat volta 2 {
          <es' es'> <as c ges'> <as, as'> <as' c ges'> |
          <es, es'> <as' c ges'> <es, es'>16 <as as'> <g g'> <ges ges'> |
          <f f'>8 <as' des f> <des, des'> <as' des f> |
          <as, as'> <as' des f> <des, des'> <d d'> |
          <es es'> <as c ges'> <as, as'> <as' c ges'> |
          <c, c'> <as' c ges'> <as, as'> <as' c ges'> |
          <des, des'> <as' des f> <as, as'> <as' des f> |
          <des, des'> <as' des f> <f f'> <fes fes'> |
          <es es'> <as c ges'> <as, as'> <as' c ges'> |
          <es, es'> <as' c ges'> <es, es'>16 <as as'> <g g'> <ges ges'> |
          <f f'>8 <as' des f> <des, des'> <as' des f> |
          <f f'> <des des'> <as as'> <f f'> |
          <ges ges'> <bes bes'> <es es'> <ges ges'> |
          <f f'> <des des'> <as as'> <des des'> |
        }
        \alternative {
          {
            <bes bes'> <es, es'> <as, as'>4 |
            <des des'>8 <as' as'> <f' f'> <fes fes'> |
          }
          {
            <bes, bes'> <es, es'> <as, as'>4 |
            <des des'>8 as' des, r |
          }
        }
      }
    }
  >>
}