File:Elite Syncopations.pdf

\version "2.18.2"

\header {
  title = "Elite Syncopations"
  short-title = "Elite Syn."
  composer = "Scott Joplin"
  copyright = "MCMII 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 . 3.5)
    \column {
      "" % no dedication
      \override #'(baseline-skip . 7.5)
      \column {
        \fill-line {
          \huge \larger \larger \larger
          \concat { \uppercase-property #'header:title "." }
        }
        "" % no subtitle
        \fill-line {
          "" % no poet
          "" % no instrument
          \override #'(baseline-skip . 3) \bold \concat { "By " \uppercase-property #'header:composer "." \hspace #5 }
        }
      }
    }
  }
  evenFooterMarkup = \markup {
    \on-the-fly \second-page {
      \raise #0.5 \teeny \italic \fromproperty #'header:short-title
      \hspace #1
      \bold \line { 6 "—" \string-property #'header:page-count }
    }
    \on-the-fly \not-second-page \column {
      \teeny \italic \fromproperty #'header:short-title
      \bold \line { 6 "—" \string-property #'header:page-count }
    }
  }
  oddFooterMarkup = \markup {
    \on-the-fly \first-page \fill-line {
      \bold \line { 6 "—" \string-property #'header:page-count }
      \raise #0.5 \teeny \italic \concat { "Copyright " \fromproperty #'header:copyright "." }
      ""
    }
    \on-the-fly \not-first-page {
      \raise #0.5 \teeny \italic \fromproperty #'header:short-title
      \bold \line { 6 "—" \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 \with {
    instrumentName = \markup { \rotate #72 \override #'(font-size . -2.5) \bold "INTRODUCTION." \hspace #-3 } % not really an instrument name
  } <<
    \new Staff = "RH" {
      \clef "violin"
      \key f \major
      \time 2/4
      \relative c''' {
        % Intro
        \tweak padding #5.5 \tempo \markup { \hspace #2.5 "Not fast." }
        \voiceOne
        c16 a g f~ f a g f |
        g f d c~ c \oneVoice f, g a |
        c, g'8 f16 e8 g |
        <e g c> r16 c r d[ r e] | \bar ".|:-||" \break
        % Part A
        \repeat volta 2 {
          \stemDown
          r f d' <f,~ a-\tweak Tie.direction #UP ~ c~> q d' <dis, a' c>8 |
          r16 e d' <e, bes' c>~ q d' <e, bes' c>8 |
          \stemNeutral
          r16 <f a c>[ r <a c>] r <as ces>[ r <g bes>] |
          << { a c d f } \\ { f,8 as } >> <g c e> <bes e g> | \break
          <a f' a>16 gis' a c~ c a g f |
          g f d f~ f d c a |
          g g' f e d a8 b16 |
          c8 r <c e c'> r | \break
          \stemDown
          r16 f, d' <f,~ a-\tweak Tie.direction #UP ~ c~> q d' <dis, a' c>8 |
          r16 e d' <e, bes' c>~ q d' <e, bes' c>8 |
          \stemNeutral
          r16 <f a c>[ r <a c>] r <as ces>[ r <g bes>] |
          << { a c d f } \\ { f,8 as } >> <g c e> <bes e g> | \break
          <a f' a>16 gis' a c~ c a g f |
          g f d c~ c d a g |
          <b, f'> g' <b, f' a>8 <bes e g>16 q8 <bes c>16 |
        }
        \alternative {
          { <a f'>8 r16 c r d[ r e] | }
          { q8\noBeam c'16 c c8 c | \bar ".|:-||" \pageBreak }
        }
        % Part B
        \repeat volta 2 {
          e16 d c bes a bes8 g16 |
          f g a c,~ c a' g f |
          e f g c,~ c bes' a g |
          \stemDown f a d c~ \stemNeutral c8 c |
          e16 d c bes a bes8 e,16 | \break
          f e f a~ a a g f |
          e c' b a gis b8 e,16 |
          a8 r <e bes' c>4 |
          e'16 d c bes a bes8 g16 |
          f g a c,~ c a' g f | \break
          e f g c,~ c bes' a g |
          \stemDown f a d c~ \stemNeutral c8 c |
          <bes d>16 g'8 q16~ q g q8 |
          <a, c>16 f'8 q16~ q f q8 |
          bes,16 g d' c~ \stemDown c bes e,8 \stemNeutral | \break
        }
        \alternative {
          { \stemDown f c'16 c \stemNeutral c8 c_\markup { \right-align \tiny \italic \concat { "repeat 8" \lower #0.25 \combine \super "va" "--" } } | }
          { f, r16 c r d[ r e] | \bar "||" }
        }
        % Part A'
        \stemDown
        r f d' <f,~ a-\tweak Tie.direction #UP ~ c~> q d' <dis, a' c>8 |
        r16 e d' <e, bes' c>~ q d' <e, bes' c>8 |
        \stemNeutral
        r16 <f a c>[ r <a c>] r <as ces>[ r <g bes>] | \break
        << { a c d f } \\ { f,8 as } >> <g c e> <bes e g> |
        <a f' a>16 gis' a c~ c a g f |
        g f d f~ f d c a |
        g g' f e d a8 b16 |
        c8 r <c e c'> r | \pageBreak
        \stemDown
        r16 f, d' <f,~ a-\tweak Tie.direction #UP ~ c~> q d' <dis, a' c>8 |
        r16 e d' <e, bes' c>~ q d' <e, bes' c>8 |
        \stemNeutral
        r16 <f a c>[ r <a c>] r <as ces>[ r <g bes>] |
        << { a c d f } \\ { f,8 as } >> <g c e> <bes e g> | \break
        <a f' a>16 gis' a c~ c a g f |
        g f d c~ c d a g |
        <b, f'> g' <b, f' a>8 <bes e g>16 q8 <bes c>16 |
        <a f'>8 r <a' es' f>4 | \bar ".|:-||" \break
        \key bes \major
        % Part C
        \repeat volta 2 {
          <bes d>16 g' f es d c bes d |
          c bes g f~ f bes'8 g16 |
          f g f d bes c d <a c>~ |
          q4. f8 | \break
          d'16 g f es d es d c |
          \stemDown bes a g bes~ \stemNeutral bes d c bes |
          a d f a g f8 e16 |
          d8 r <a es'! f>4 | \break
          <bes d>16 g' f es d c bes d |
          c bes g f~ f bes'8 g16 |
          f g f d bes c d <a c>~ |
          q4. f8 | \pageBreak
          d'16 cis d es f e f fis |
          g fis g bes~ bes bes a g |
          f d' bes f g es c a |
        }
        \alternative {
          { bes8 e,16 f \stemDown g a bes c \stemNeutral | }
          { bes4. r16 <bes bes'>~ | \bar ".|:-||" \break }
        }
        % Part D
        \repeat volta 2 {
          q es <c c'> es g <bes, bes'>8 es16 |
          <c c'> es g <bes, bes'>~ q <c c'>8 <bes bes'>16 |
          <f f'> bes <g g'> bes d <f, f'>8 bes16 |
          <g g'> bes d <f, f'>~ q <g g'>8 bes16 | \break
          <f f'> a <g g'> a c <f, f'>8 a16 |
          <g g'> a c <f, f'>~ q <g g'>8 a16 |
          <f f'> bes <g g'> bes d <f, f'>8 bes16 |
          <g g'> bes d <f, f'>~ q q8 <bes bes'>16~ | \break
          q es <c c'> es g <bes, bes'>8 es16 |
          <c c'> es g <bes, bes'>~ q <c c'>8 <bes bes'>16 |
          <f f'> bes <g g'> bes d <f, f'>8 bes16 |
          <g g'> bes d <f, f'>~ q q8 <e des'>16~ | \break
          \once \omit Accidental q bes' q bes c q8 bes16 |
          \stemDown <f d'!> bes c <f, d'>~ \stemNeutral q q8 <f f'>16~ |
          q c' <g g'> c es <a, a'>8 <bes bes'>16~ |
        }
        \alternative {
          { q4 r8. q16\laissezVibrer | }
          { q4\repeatTie <bes d bes'>8 r | \bar "|." }
        }
      }
    }
    \new Staff = "LH" {
      \clef "bass"
      \key f \major
      \time 2/4
      \relative c'' {
        % Intro
        \RH \voiceTwo 
        c16 a g f~ f a g f |
        g f d c~ c \LH \oneVoice \stemDown f, g a \stemNeutral |
        c, g'8 f16 e8 g |
        c <c,, c'>[ <d d'> <e e'>] |
        % Part A
        \repeat volta 2 {
          <f f'>4. <fis fis'>8 |
          \stemDown <g g'>4. <gis gis'>8 \stemNeutral |
          <a a'> <es' es'> <d d'> <des des'> |
          <c c'> <b b'> \stemDown <bes bes'> <c, c'> \stemNeutral |
          f <a' c f> a, q |
          bes <bes' d f> a, <a' c f> |
          b, <g' b f'> g, q |
          <c' e> r \stemDown <c, c'> <c, c'> \stemNeutral |
          <f f'>4. <fis fis'>8 |
          \stemDown <g g'>4. <gis gis'>8 \stemNeutral |
          <a a'> <es' es'> <d d'> <des des'> |
          <c c'> <b b'> \stemDown <bes bes'> <c, c'> \stemNeutral |
          f <a' c f> a, q |
          bes <bes' d f> a, <a' c f> |
          <d,, d'> q <c c'> <e e'> |
        }
        \alternative {
          { <f f'> <c c'>[ <d d'> <e e'>] | }
          { <f f'> r r4 | }
        }
        % Part B
        \repeat volta 2 {
          g'8 <bes c e> c, q |
          f <a c> c, q |
          g' <bes c> c, q |
          f <a c> a <c f> |
          g <bes c e> e, <g bes cis> |
          d <f a d> d q |
          e <a c> e <gis d'> <a c> r <c, c'>4 |
          g'8 <bes c e> c, q |
          f <a c> c, q |
          g' <bes c> c, q |
          f <a c> c, q |
          bes <g' bes d> bes, q |
          c <a' c> c, q |
          c <bes' c e> c, <g' bes c> |
        }
        \alternative {
          { <f a c> r r4 | }
          { q8 <c, c'>[ <d d'> <e e'>] | }
        }
        % Part A'
        <f f'>4. <fis fis'>8 |
        \stemDown <g g'>4. <gis gis'>8 \stemNeutral |
        <a a'> <es' es'> <d d'> <des des'> |
        <c c'> <b b'> \stemDown <bes bes'> <c, c'> \stemNeutral |
        f <a' c f> a, q |
        bes <bes' d f> a, <a' c f> |
        b, <g' b f'> g, q |
        <c' e> r \stemDown <c, c'> <c, c'> \stemNeutral |
        <f f'>4. <fis fis'>8 |
        \stemDown <g g'>4. <gis gis'>8 \stemNeutral |
        <a a'> <es' es'> <d d'> <des des'> |
        <c c'> <b b'> \stemDown <bes bes'> <c, c'> \stemNeutral |
        f <a' c f> a, q |
        bes <bes' d f> a, <a' c f> |
        <d,, d'> q <c c'> <e e'> |
        <f f'> r q4 |
        \key bes \major
        % Part C
        \repeat volta 2 {
          bes8 <f' bes d> d q |
          es <g bes es> d <f bes d> |
          bes, q c <bes' c e> |
          <f a es'!> <f, f'> <g g'> <a a'> |
          <bes bes'> <f' bes d> d <fis c' d> |
          g <bes d> g q |
          a <d f> a <cis g'> |
          <d f> r <f,, f'>4 |
          \stemDown <bes, bes'>8 <f'' bes d> \stemNeutral d q |
          es <g bes es> d <f bes d> |
          bes, q c <bes' c e> |
          <f a es'!> <f, f'> <g g'> <a a'> |
          <bes bes'> <f' bes d> d q |
          es <g bes es> e <g bes cis> |
          f <bes d> f, <f' a es'> |
        }
        \alternative {
          { <bes d> r r4 | }
          { << d \\ { bes8 <bes,, bes'> } >> <c c'> <d d'> | }
        }
        % Part D
        \repeat volta 2 {
          <es es'> <g' bes es> q <d, d'> |
          <es es'> <f f'> \stemUp <g g'> <a a'> \stemNeutral |
          <bes bes'> <f' bes d> q <cis cis'> |
          <d d'> <f bes d> q <f, f'> |
          <c' c'> <f a es'> q <f, f'> |
          <c' c'> <f a es'> <c c'> <cis cis'> |
          <d d'> <f bes d> q <f, f'> |
          <bes bes'> <f' bes d> q <d, d'> |
          <es es'> <g' bes es> q <d, d'> |
          <es es'> <f f'> \stemUp <g g'> <a a'> \stemNeutral |
          <bes bes'> <f' bes d> f, q |
          bes q f q |
          <ges ges'> <des' des'> <bes bes'> <ges ges'> |
          <f f'> <d'! d'!> <bes bes'> <f f'> |
          <c' c'> <f a es'> <f, f'> <f' a es'> |
        }
        \alternative {
          { << d'4 \\ { bes8 <bes,, bes'> } >> <c c'> <d d'> | }
          { << d''4 \\ { bes8 <f, f'> } >> <bes, bes'> r | }
        }
      }
    }
  >>
}