File:Original Rags.pdf

\version "2.18.2"

\header {
  title = "Original Rags"
  composer = "Scott Joplin"
  arranger = "Chas. N. Daniels"
  copyright = "1899 by Carl Hoffman"
  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 {
      \override #'(baseline-skip . 6.5)
      \column {
        \fill-line {
          \huge \larger \larger
          \concat { \uppercase-property #'header:title "." }
        }
        \override #'(baseline-skip . 3.0)
        \fill-line {
          \center-column {
            \small "Picked by"
            \concat { { \uppercase-property #'header:composer } "." }
          }
          "" % no instrument
          \center-column {
            \small "Arranged by"
            \concat { { \uppercase-property #'header:arranger } "." }
          }
        }
        \vspace #0.5
      }
    }
  }
  evenFooterMarkup = \markup {
    \on-the-fly \not-first-page
    \concat \tiny { \fromproperty #'header:title ". " \string-property #'header:page-count }
  }
  oddFooterMarkup = \markup {
    \on-the-fly \first-page \small \fill-line { \italic \concat { "Copyright " \fromproperty #'header:copyright "." } }
    \on-the-fly \not-first-page \tiny \concat { \fromproperty #'header:title ". " \string-property #'header:page-count }
  }
  print-page-number = ##f
}

\layout {
  \context {
    \Score
    \omit BarNumber
  }
}

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

\score {
  \new PianoStaff <<
    \new Staff = "RH" {
      \clef "violin"
      \key g \major
      \time 2/4
      \relative c''' {
        % Intro
        <ais ais'>16 <b b'>8 <ais ais'> 16 <b b'>8 <ais ais'>16 <b b'> |
        <fis fis'> <g g'>8 <e e'>16~ q4 |
        <fis fis'>16 <g g'>8 <fis fis'>16 <g g'>8 <fis fis'>16 <g g'> |
        <cis, cis'> <d d'>8 <b b'>16~ q4 |
        \voiceOne <c e c'>16 q8 q16 <c es c'>8 q | \break
        \autoBeamOff <c d c'>8 \acciaccatura gis a \autoBeamOn d,4_> |
        <c e c'>16 q8 q16 <c es c'>8 q |
        <c d c'> \oneVoice r r16 d' g b |
        % Part A
        \repeat volta 2 {
          <d, d'> g b <d, d'>~ q b' q b |
          <d, d'> g b <d, d'>~ q b' q b | \break
          <e, e'> q8 <e g>16 <e a> <e g> <es a>8 |
          <d b'>4^> r16 d g b |
          <d, d'> g b <d, d'>~ q b' q b |
          <d, d'> g b <d, d'>~ q b' q b |
          <cis, b'>8 <cis a'>~ q <cis gis'>16 <cis a'> | \break
          <c! b'> <c a'>8 <c fis>16 <c e>8^> <c d>^> |
          <d d'>16 g b <d, d'>~ q b' q b |
          <d, d'> g b <d, d'>~ q b' q b |
          <e, e'> q8 <e g>16 <e a> <e g> <e a>8 |
          <dis b'>4 r8 <b b'> | \break
          <e e'>16 <d d'>8 <b b'>16 <c c'>8 <b b'> |
          q16 <a a'>8 <e e'>16 <b' b'>8 <a a'> |
          <b \tweak NoteHead.font-size #-3 d b'>16 <a \tweak NoteHead.font-size #-3 c a'>8 <b \tweak NoteHead.font-size #-3 d b'>16 <c \tweak NoteHead.font-size #-3 e c'> <b \tweak NoteHead.font-size #-3 d b'> <a \tweak NoteHead.font-size #-3 c a'>8 |
        }
        \alternative {
          { <g b g'> r r16 d' g b | }
          { q8 r \once \override Staff.OttavaBracket.minimum-length = #-1.25 \ottava #1 <g b d g>4^> \ottava #0 | \bar ".|:-||" \pageBreak }
        }
        % Part B
        \repeat volta 2 {
          <fis ais>16 <g b>8 <fis ais>16 <g b>8 <fis ais>16 <g b> |
          <dis fis> <e g>8 <c e>16~ q4 |
          <dis fis>16 <e g>8 <dis fis>16 <e g>8 <dis fis>16  <e g> |
          <ais, cis> <b d>8 <g b>16~ q4 |
          <ais cis>16 <b d>8 <ais cis>16 <b d>8 <ais cis>16 <b d> | \break
          <g b>8 b16 g~ g b g8 |
          <ais cis>16 <b d>8 <ais cis>16 <b d>8 <ais cis>16 <b d> |
          <g b>8 b16 g~ g b g8 |
          <fis' ais>16 <g b>8 <fis ais>16 <g b>8 <fis ais>16 <g b> |
          <dis fis> <e g>8 <c e>16~ q4 | \break
          <dis fis>16 <e g>8 <dis fis>16 <e g>8 <dis fis>16  <e g> |
          <ais, cis> <b d>8 <g b>16~ q4 |
          <e g a>16 q8 q16 <g ais e'>8 q |
          <g b d>16 g'8 e16 d b g8 |
          <\tweak NoteHead.font-size #-3 c, a'>16 <\tweak NoteHead.font-size #-3 d b'> <\tweak NoteHead.font-size #-3 e c'> <\tweak NoteHead.font-size #-3 d b'>~ q <\tweak NoteHead.font-size #-3 c a'>8 <\tweak NoteHead.font-size #-3 d b'>16 |
          <b g'>8 r <g' b d g>4^> | \break
        }
        % Part C
        \key c \major
        \repeat volta 2 {
          g'16 a g e f d8 e16 |
          f g a e f d8 e16 |
          c e g <c, e a>~ q4 |
          r16 c( e g a g e c) |
          b d f <b, d a'>~ q4 | \break
          r16 b( d f a f d b) |
          c e g <c, c'> <b dis b'>8 <a dis a'> |
          <g e' g> g16( a b c d e) |
          g16 a g e f d8 e16 |
          f g a e f d8 e16 | \break
          c e g <c, e a>~ q4 |
          r8 <c c'> <b b'> <bes bes'> |
          a16 cis e <a, a'> <bes bes'>8^> <a a'>^> |
          d16 f a <d, d'> <e e'>8 <d d'> |
          <c c'>16 e dis e <b f' a>8 <b f' g> |
          <e, g c> <g b d g> <c e g c>4^> | \pageBreak
        }
        \key g \major
        % Intro'
        \voiceOne <c e c'>16 q8 q16 <c es c'>8 q |
        \autoBeamOff <c d c'>8 \acciaccatura gis a \autoBeamOn d,4_> |
        <c e c'>16 q8 q16 <c es c'>8 q |
        <c d c'> \oneVoice r r16 d' g b | \break
        % Part A'
        <d, d'> g b <d, d'>~ q b' q b |
        <d, d'> g b <d, d'>~ q b' q b |
        <e, e'> q8 <e g>16 <e a> <e g> <es a>8 |
        <d b'>4 r16 d g b | \break
        <d, d'> g b <d, d'>~ q b' q b |
        <d, d'> g b <d, d'>~ q b' q b |
        <cis, b'>8 <cis a'>~ q <cis gis'>16 <cis a'> |
        <c! b'> <c a'>8 <c fis>16 <c e>8 <c d> | \break
        <d d'>16 g b <d, d'>~ q b' q b |
        <d, d'> g b <d, d'>~ q b' q b |
        <e, e'> q8 <e g>16 <e a> <e g> <e a>8 |
        <dis b'>4^> r8 <dis b'> | \break
        <e e'>16 <d d'>8 <b b'>16 <c c'>8 <b b'> |
        q16 <a a'>8 <e e'>16 <b' b'>8 <a a'> |
        <b \tweak NoteHead.font-size #-3 d b'>16 <a \tweak NoteHead.font-size #-3 c a'>8 <b \tweak NoteHead.font-size #-3 d b'>16 <c \tweak NoteHead.font-size #-3 e c'> <b \tweak NoteHead.font-size #-3 d b'> <a \tweak NoteHead.font-size #-3 c a'>8 |
        <g b g'>8 r <g' b d g>4^> | \bar ".|:-||" \break
        % Part D
        \key d \major
        \repeat volta 2 {
          <a, cis a'>8.^\markup { \italic "Brilliant." } b16 cis a' <a, cis g'>8^> |
          <a cis a'>8. b16 cis a' <a, cis g'>8^> |
          r <d a'>16 a r8 q16 a |
          r q[ r a] q8 a |
          <b dis b'>8. cis16 dis b' <b, dis a'>8^> | \pageBreak
          <b dis b'>8. cis16 dis b' <b, dis a'>8^> |
          r8 <e b'>16 b r8 q16 b |
          r q[ r b] q8 b |
          <cis g' cis>16 <bis bis'> <cis cis'> <e e'>~ q <cis cis'>8 <a a'>16 |
          r <b g' b>8 <ais ais'>16 <b g' b>4 | \break
          <b fis' b>16 <ais ais'> <b b'> <d d'>~ q <b b'>8 <fis fis'>16 |
          r <a fis' a>8 <gis gis'>16 <a fis' a>8 <a fis'> |
          <b e> <b fis'> <b g'>16 <b b'>8 <b g'>16 |
          <a fis'>8 <gis eis'>16 <a fis'> <b g'> <a fis'> <g e'>8 |
          <fis d'> a b16 a8 fis16 |
          d8 r \appoggiatura { a'16 b cis } d4 | \break
        }
        % Part E
        \key g \major
        \repeat volta 2 {
          ais16 <b d>8 fis16 <a c>8 ais16 <b d>~ |
          q fis <a! c> ais <b d>8 <a c> |
          ais16 <b d>8 d,16 <g b>8 ais16 <b d>~ |
          q( d, g a!) b( a g d) | \break
          r8 <fis fis'>~ q16 c' d q |
          r fis,( c' d fis d c a) |
          r8 <g b e>~ q16 b d e |
          r g,( b d e d b g) | \break
          ais16 <b d>8 fis16 <a c>8 ais16 <b d>~ |
          q fis <a! c> ais <b d>8 <a c> |
          ais16 <b d>8 d,16 <g b>8 ais16 <b d>~ |
          q( d, g a!) b( a g d) | \break
          e' es d des c b bes a |
          d des c b bes a as g |
          e g8 e16 d g b d |
          <cis, b'> e <c a'> d <b d g>8 r | \mark \markup { \fermata }
        }
      }
    }
    \new Dynamics {
      \override DynamicText.font-size = #-1
      % Intro
      s2\f |
      s2*2 |
      s2\< |
      s2\ff |
      s8 s8\> s4 |
      s2\p |
      s2 |
      % Part A
      s2\p |
      s2*4 |
      s4. s8\< |
      s4 s4\! |
      s4\f s4\> |
      s2\p |
      s2*2 |
      s8 s8\< s4 |
      s2\f |
      s2*4 |
      % Part B
      s2\ff |
      s2*10
      s16 s8 s16\< s4 |
      s2\f
      s2*3 |
      % Part C
      s2-\markup { \override #'(baseline-skip . 0.0) \left-column { \concat { "1st time " \dynamic p } \concat { "2d time " \dynamic f } } } | % "2d" sic!
      s2*15 |
      % Intro'
      s2\ff |
      s2 |
      s4\dim s4\> |
      s8 s8\! s4 |
      % Part A'
      s2\p |
      s2*4 |
      s4 s4\< |
      s2\f |
      s4 s4\> |
      s2\p |
      s2*2 |
      s4 s4\< |
      s2\f |
      s2*3 |
      % Part D
      s2\ff |
      s4. s8\< |
      s8 s8\! s4 |
      s4 s4\> |
      s2\! |
      s4 s4\< |
      s2\! |
      s2*9 |
      % Part E
      s2\ff |
      s2*14 |
      s4. s8-"Fine" |
    }
    \new Staff = "LH" {
      \clef "bass"
      \key g \major
      \relative c' {
        % Intro
        <ais ais'>16 <b b'>8 <ais ais'> 16 <b b'>8 <ais ais'>16 <b b'> |
        <fis fis'> <g g'>8 <e e'>16~ q4 |
        <fis fis'>16 <g g'>8 <fis fis'>16 <g g'>8 <fis fis'>16 <g g'> |
        <cis, cis'> <d d'>8 <b b'>16~ q4 |
        \RH \voiceTwo a''16 a8 a16 g8 g |
        \autoBeamOff fis \LH \once \stemUp \acciaccatura gis, a \autoBeamOn d,4^> |
        a'16 a8 a16 g8 g |
        fis <a, a'> \oneVoice <d, d'>4_> |
        % Part A
        \repeat volta 2 {
          g'8 <b d> d, q |
          g q d q |
          c <g' c e> c, <g' c es> |
          <g, g'> <g' b d> d r |
          g <b d> d, q |
          g q d q |
          e <g a cis> a, q |
          d16 fis8 a16 g8^> fis^> |
          g8 <b d> d, q |
          g q d q |
          c <g' c e> c, q |
          b <fis' a b> q4 |
          gis,8 <e' b' d> e, <e' gis d'> |
          a, <a' c e> a, <a' c es> |
          d, <g b d> <\tweak NoteHead.font-size #-3 d, d'>16 <\tweak NoteHead.font-size #-3 e e'> <\tweak NoteHead.font-size #-3 fis fis'>8 |
        }
        \alternative {
          { <g g'> r <d d'>4_> | }
          { <g g'>8 r <g, g'>4_> | }
        }
        % Part B
        \repeat volta 2 {
          R2 |
          c'8 <g' c e> c, q |
          c q c q |
          g' <b d> d, q |
          g q d q |
          g[^> fis^> e^> d]^> |
          g q d q |
          g[ fis e d] |
          g q d q |
          c <g' c e> c, q |
          c q c q |
          g' <b d> d, q |
          <c c'>4^> <cis cis'>^> |
          d8 <g b d> q4^> |
          <a, a'>^> <d, d'>_> |
          <g g'>8 r <g, g'>4_> |
        }
        % Part C
        \key c \major
        \repeat volta 2 {
          c'8 <g' c e> d <g b f'> |
          g, q d' q |
          c <g' c e> g, q |
          c q e q |
          d <g b f'> g, q |
          d' q g, q |
          c <g' c e> <fis c' dis> q |
          <g c e> r r4 |
          c,8 q d <g b f'> |
          g, q d' q |
          c <g' c e> g, q |
          c q q q |
          a <a' cis g'> a, q |
          d <a' d f> f <as c d> |
          g <c e> g, <g' b f'> |
          c, g <c, c'>4_> |
        }
        \key g \major
        % Intro'
        \RH \voiceTwo a'''16 a8 a16 g8 g |
        \autoBeamOff fis \LH \once \stemUp \acciaccatura gis, a \autoBeamOn d,4^> |
        a'16 a8 a16 g8 g |
        fis <a, a'> \oneVoice <d, d'>4_> |
        % Part A'
        g'8 <b d> d, q |
        g q d q |
        c <g' c e> c, <g' c es> |
        <g, g'> <g' b d> d r |
        g <b d> d, q |
        g q d q |
        e <g a cis> a, q |
        d16 fis8 a16 g8^> fis^> |
        g8 <b d> d, q |
        g q d q |
        c <g' c e> c, q |
        b <fis' a b> q4 |
        gis,8 <e' b' d> e, <e' gis d'> |
        a, <a' c e> a, <a' c es> |
        d, <g b d> <\tweak NoteHead.font-size #-3 d, d'>16 <\tweak NoteHead.font-size #-3 e e'> <\tweak NoteHead.font-size #-3 fis fis'>8 |
        <\tweak NoteHead.font-size #-3 g g'> r <g g'>4_> |
        % Part D
        \key d \major
        \repeat volta 2 {
          e'8 <g a cis> a, q |
          e' q a, q |
          <d d'>^> <e e'>^> <fis fis'>^> <e e'>^> |
          <d d'>^> <cis cis'>^> <b b'>^> <a a'>^> |
          b <fis' a b dis> dis <a' b dis> |
          b, q dis q |
          <e e'>^> <fis fis'>^> <g g'>^> <fis fis'>^> |
          <e e'>^> <d d'>^> <cis cis'>^> <b b'>^> |
          e <a cis g'> a, q |
          e' q a, q |
          d <a' d fis> a, q |
          d q a q |
          <g' g'> <fis fis'> <e e'> <g b e> |
          a, <a' d fis> a, <a' cis g'> |
          <d, d'> <a a'> <b b'>16 <a a'>8 <fis fis'>16 |
          <d d'>8 r \appoggiatura { a''16 b cis } d4 |
        }
        % Part E
        \key g \major
        \repeat volta 2 {
          \stemDown a,8 <d fis c'> d, q |
          a' q d, q |
          g <d' g b> d, q |
          g q d q |
          a'8 <d fis c'> d, q |
          a' q d, q |
          \stemNeutral g <d' g b> d, q |
          g q d q |
          \stemDown a'8 <d fis c'> d, q |
          a' q d, q |
          g <d' g b> d, q |
          g q d q |
          gis <e' b' d> a, <e' a c> |
          fis, <d' a' c> g, <d' g b> |
          c <e a c> d <g b d> |
          <a, a'> <d, d'> \once \stemUp <g g'> r |
        }
      }
    }
  >>
}