\version "2.19.15"

\header{
  title = "Sugar Cane"
  subtitle = "A Rag Time Two Step"
  composer = "Scott Joplin"

  % Composers recomendation:
  % Note: Do not play thies piece fast. It is never right
  % to play Ragtime fast. Composer.

  % This is feature misuse ("Not fast" is not musical piece :), but other
  % Lilypond files (mis)use it in the same way,...
  piece = "Slow March Tempo"

  mutopiatitle = "Sugar Cane"
  mutopiacomposer = "JoplinS"
  mutopiainstrument = "Piano"
  mutopiasource = "Reproduction of original edition (1908)"
  mutopiadate = "c. 1908"

  date = "C. 1908"
  style = "Jazz"
  license = "Public Domain"

  maintainer = "Daniel Škarda"
  maintainerEmail = "0rfelyus@ucw.cz"

% This file is maintained using GNU Arch (http://www.gnuarch.org):
%
%  Archive and version: 0rfelyus@hobitin.ucw.cz--2004-music/joplin-sugar-cane--main--1.0
%  ArchiveLocation:     http://www.ucw.cz/~0rfelyus/{archives}/0rfelyus@hobitin.ucw.cz--2004-music
% Changes:
%
%  Oct 21 2004
%
%   serious errors:
%	RH 17, 50: <f a> => <f a,> !!!!
%
%   accidentals - use ! to force all  accidentals which were present in original typeset
%	RH: 8, 46, 50, 60
%	LH: 74
%
%   slurs:
%	RH: 28
%
%   beams:
%	LH: 16, 75

 footer = "Mutopia-2015/01/17-467"
 copyright =  \markup { \override #'(baseline-skip . 0 ) \right-column { \sans \bold \with-url #"http://www.MutopiaProject.org" { \abs-fontsize #9  "Mutopia " \concat { \abs-fontsize #12 \with-color #white \char ##x01C0 \abs-fontsize #9 "Project " } } } \override #'(baseline-skip . 0 ) \center-column { \abs-fontsize #11.9 \with-color #grey \bold { \char ##x01C0 \char ##x01C0 } } \override #'(baseline-skip . 0 ) \column { \abs-fontsize #8 \sans \concat { " Typeset using " \with-url #"http://www.lilypond.org" "LilyPond" " by " \maintainer " " \char ##x2014 " " \footer } \concat { \concat { \abs-fontsize #8 \sans{ " Placed in the " \with-url #"http://creativecommons.org/licenses/publicdomain" "public domain" " by the typesetter " \char ##x2014 " free to distribute, modify, and perform" } } \abs-fontsize #13 \with-color #white \char ##x01C0 } } }
 tagline = ##f
}

\paper {
  top-margin = 6 \mm
  top-markup-spacing.basic-distance = #5         %-dist. from bottom of top margin to the first markup/title
  markup-system-spacing #'padding = #5
  markup-markup-spacing #'padding = #1.2
  markup-system-spacing.basic-distance = #6      %-dist. from header/title to first system
  top-system-spacing.basic-distance = #12        %-dist. from top margin to system in pages with no titles
  last-bottom-spacing.basic-distance = #11       %-pads music from copyright block
  bottom-margin = 10\mm

  % default vertical spacing values have been multiplied by 1.5, except where noted with **
  system-system-spacing = #'((basic-distance . 18) (minimum-distance . 12) (padding . 1.5))
  % defaults are 12, 8, and 1
  score-system-spacing = #'((basic-distance . 21) (minimum-distance . 12) (padding . 1.5))
  % defaults are 14, 8, and 1
  markup-system-spacing = #'((basic-distance . 7.5) (padding . 6))
  % defaults are 5 and 0.5**
  score-markup-spacing = #'((basic-distance . 18) (padding . 0.75))
  % defaults are 12 and 0.5
  markup-markup-spacing = #'((basic-distance . 1.5) (padding . 0.75))
  % defaults are 1 and 0.5
  top-system-spacing = #'((basic-distance . 1.5) (padding . 1.5))
  % defaults are 1 and 1
  top-markup-spacing = #'((basic-distance . 4) (padding 1.5))
  % defaults are none** and 1
  last-bottom-spacing = #'((basic-distance . 1.5) (padding . 5))
  % defaults are 1 and 1**
}


% --- Utilities ... --------------------------------------------------

% oBreak helps to break lines after same measures as in original score.
% For easier checking it is usefull to define it to \break, otherwise
% leave it empty
oBreak = {} %\break

startInvisible =  { \set Score.skipTypesetting = ##t }
endInvisible =  { \set Score.skipTypesetting = ##f }

noStem = { \once \override Stem.transparent = ##t }

% ---- Upper ... -----------------------------------------------------

upper = \relative c'' {
									% INTRO
  \clef treble
  \key bes \major
  \time 2/4
  \tempo 4 = 100

  \partial 8 r8								%0

  \repeat volta 2 {
    r16 d ( f, bes d f bes d ) |					%1
    f ( g f es c a g f ) |
    r \stemDown d ( f, bes d f bes d ) \stemNeutral |

    f ( g f es c a g f ) |						%4
    es,8 ges16 ( es d8 f ) |
    es ges16 ( es d8 f, ) |
    r16 g ( cis g' ) r g (cis g') |

    \oBreak

    r g ( cis e ) <g cis, g>8 [ r16 <f d bes f> ] ~ |			%8
    <f d bes f> <d bes> <g g,> bes, es <ges ges,>8 <f d bes f>16 ~ |
    <f d bes f> <d bes> <e e,> bes d <f f,>8  <f a,>16 ~ |
    <f a,> es! <f a,> c es <f a,>8 <bes d, bes>16 ~ |

    \oBreak

    <bes d, bes>8 <g, bes, g> <f bes, f> <e bes e,>16 <f d bes f> ~ |	%12
    <f d bes f> <d bes> <g g,> bes, es <ges ges,>8 <f d bes f>16 ~ |
    <f d bes f> <d bes> <e e,> bes d <f f,>8. |
  } \alternative {
    {
      r16 es ( <f a,> c es) <f a,>8 <bes d, bes>16 ~ |
      <bes d, bes>4 ~ <bes d, bes>8 r8 |
      \oBreak
    }
    {
      r16 es, ( <f a,> c ) es <f a,>8 <bes d, bes>16 ~ |			%17
      <bes d, bes>8 \noBeam f,^^ [ bes^^ gis^^ ] |
    }
  }

  \repeat volta 2 {
    a16 ( es' a g ) ~ g c, ( es c' ) |
    es, ( a es' d ~ d a c ) <a a'> |

    \oBreak

    <bes d bes'>8 <g bes d g> <f bes d f> <cis cis'>16 <d d'> ~ |	%21
    <d d'> <f f,> <fis fis,> <g g,> ~ <g g,> <d bes> <f f,>8 |
    <a es'a> <g es' g> <f es' f> <d d'>16 <es es'> ~ |
    <es es'> <f f,> <fis  fis,> <g g,> ~ <g g,> <es a,> <f f,>8 |

    \oBreak

    <bes d bes'>8 <g bes d g> <f bes d f> <cis cis'>16 <d d'> ~ |	%25
    <d d'> <f f,> <fis fis,> <g g,> ~ <g g,> <d bes> <f f,>8 |
    a,16 ( es' a g ) ~ g c, ( es c' ) |

    \oBreak

    es, ( a es' d ) ~ d a c <a a'> |					%28
    <bes d bes'>8 <g bes d g> <f bes d f> <cis cis'>16 <d d'> ~ |
    <d d'> <f f,> <fis fis,> <g g,> ~ <g g,> <d bes> <f f,>8 |
    d16 c8 bes16 ~ bes ( c bes8 ) |

    \oBreak

    d16 c8 bes16 ~ bes ( c bes8) |					%32
    bes16 c8 d16 ~ d16 ( g f8 ) |
  } \alternative {
    { <bes, e,> <c a es> <bes d,> gis^^ }
    { <bes e,> <c a es> <bes d,> r }
  }

  {
    r16 d ( f, bes d f bes d ) |					%36
    f ( g f es c a g f ) |
    r \stemDown d ( f, bes d f bes d ) \stemNeutral |
    f ( g f es c a g f ) |

    \oBreak

    es,8 ges16 ( es d8 f ) |						%40
    es ges16 ( es d8 f, ) |
    r16 g ( cis g' ) r g (cis g') |
    r g ( cis e ) <g cis, g>8 [ r16 <f d bes f> ] ~ |
    <f d bes f> <d bes> <g g,> bes, es <ges ges,>8 <f d bes f>16 ~ |

    \oBreak

    <f d bes f> <d bes> <e e,> bes d <f f,>8  <f a,>16 ~ |		%45
    <f a,> es! <f a,> c es <f a,>8 <bes d, bes>16 ~ |
    <bes d, bes>8 <g, bes, g> <f bes, f> <e bes e,>16 <f d bes f> ~ |
    <f d bes f> <d bes> <g g,> bes, es <ges ges,>8 <f d bes f>16 ~ |

    \oBreak

    <f d bes f> <d bes> <e e,> bes d <f f,>8. |				%49
    r16 es! <f a,> c  es <f a,>8 <bes d, bes>16 ~ |
    <bes d, bes>4 <bes d, bes>8 r |
  }

  \repeat volta 2 {
    \key es \major

    << { s8. \noStem as16 ~ as ( g f8 ) |
	 s8. \noStem as16 ~ as ( g f fis ) | } \\
       { <d bes'>8. <d as'>16 ~ d4 |
	 <d bes'>8. <d as'>16 ~ d4 } >>

    \oBreak

    << { g16 c g c g c g c |						%54 a
	 c (f, fis g) ~ \noStem g8 s8 |
	 s8. \noStem as16 ~ as ( g f8 ) |
	 s8. \noStem as16 ~ as ( g f fis ) |
	 g c g c g c g c } \\
       {								%b
	 es,8 [ ( d c d ) ] |
	 es8. es16 ~ <es g>8 <cis bes'> |
	 <d bes'>8. <d as'>16 ~ d4 |
	 <d bes'>8. <d as'>16 ~ d4 |
	 es8 [ ( d c d ) ]
       } >>

    \oBreak

    << { c'8. bes16 ~ \noStem bes8 s |					%59 a
	 s8. \noStem bes!16 ~ bes16 ( as g8 ) |
	 s8. \noStem bes16 ~ bes16 (as g c ) | } \\
       { es,16 f fis g ~ <g bes>8 <f b> |				%b
	 <e c'>8. <e bes'>16 ~ e4 |
	 <e c'>8. <e bes'>16 ~ e4 |
       } >>
    r16 c' <f, f'> as c <g g'>8 as16 |
    <f f'> as c <g g'> ~ <g g'> <as c> <f f'>8 |

    \oBreak

    <fis fis'> ( <es es'> <c c'> <a a'> ) |				%64
    <bes es g bes>8. ( es16 ) g ( <bes bes,>8. ) |
  } \alternative {
    {
      <bes, d f bes>8. ( d16 ) f <bes d, bes>8 <es, bes g>16 ~ |
      <es bes g>4. <cis bes'>8
    }
    {
      <bes d f bes>8. ( d16 ) f <bes d, bes>8 <es, bes g>16 ~ |
      <es bes g>4 ~ <es bes g>8 r
    }
  }
  \oBreak

  \repeat volta 2 {
    \key bes \major

    r 16 <es bes> <g g,> bes, es <g g,>8 <bes bes,>16 ~ |		%70
    <bes bes,> <g es> <c c,>8 <bes es, bes> <c es, c>16 <d bes f d> ~ |
    <d bes f d>8 <f, d bes f> <e e,>16 <f d bes f>8 <f d bes f>16 ~ |
    <f d bes f>4. <d f d'>8 |
    <c es c'> <f es a, f> <e e,>16 <f es a, f>8 <f es a, f>16 ~ |
    <f es a, f>4. <es g es'>8

    \oBreak

    <d f d'> <f d bes f> <e e,>16 <f d bes f>8 <f d bes f>16 ~ |	%76
    <f d bes f>2 |
    r16 <es bes> <g g,> bes, es <g g,>8 <bes bes,>16 ~ |
    <bes bes,> <g es> <c c,>8 <bes ges es bes> <c ges es c>16 <d bes f d> ~ |
    <d bes f d>8 <f, d bes f> <e e,>16 <f d bes f>8 <f d bes f>16 ~ |
    <f d bes f>4 <c f,> |

    \oBreak

    d16 c8 bes16 ~ bes ( c bes8 ) |					%82
    d16 c8 bes16 ~ bes ( c bes8 ) |
    bes16 c8 d16 ~ d ( g f8)
  } \alternative {
    { <bes, e,> <c a es> <bes d,> r | }
    { <bes e,> [ <c a es> ] <bes d,> \bar "|." }
  }
}

% --- Lower ... ------------------------------------------------------

lower = \relative c {
  \clef bass
  \key bes \major
  \time 2/4

  \partial 8 <f f,>8 |							%0
  \repeat volta 2 {
    <bes bes,> <d bes f> <f f,> <d d,> |				%1
    <c c,> <es a, f> <es a, f>  <f, f,> |
    <bes bes,> <d bes f> <f f,> <d d,> |

    <c c,> <es a, f> <es a, f> <f, f,> |				%4
    es ges16 ( es d8 f ) |
    es ges16 ( es d8 f, ) |
    e ( bes' e bes') |
    \clef treble

    e ( bes' ) e r |							%8
    <bes f d> <bes g es> <bes ges es> <bes ges es> |
    <bes f d> <bes g cis,> <bes f d> <bes f d> |
    <a f c> <a f c> <a f c> <a f c> |

    <bes f d> \clef bass <es, es,> <d d,> <cis cis,> |			%12
    <bes f d> <bes g es> <bes ges es> <bes ges es> |
    <bes f d> <bes g cis,> <bes f d> <d bes f> |
  } \alternative {
    {
      <c c,> <es a, f> <f, f,> <f a es'> |
      \stemDown <bes bes,> [ <d, d,> <g g,> <f f,> ] \stemNeutral |
    }
    {
      <c c'> <f a es'> <f f,> <f a es'> |				%17
      <bes bes,> r <d d,>-^ <b b,>-^ |
    }
  }

  \repeat volta 2 {
    <c c,> <f, a es'> <f f,> <f a es'> |
    <c c'> <f a es'> <f f,> <f a es'> |

    <bes bes,> <f bes d> <f f,> <f bes d> |				%21
    <bes bes,> <f bes d> <f f,> <f bes d> |
    <c c'> <f a es'> <f f,> <f a es'> |
    <c c'> <f a es'> <f f,> <f a es'> |

    <bes bes,> <f bes d> <f f,> <f bes d> |				%25
    <bes bes,> <f bes d> <f f,> <f bes d> |
    <c c'> <f a es'> <f f,> <f a es'> |

    <c c'> <f a es'> <f f,> <f a es'> |					%28
    <bes bes,> <f bes d> <f f,> <f bes d> |
    <bes bes,> <f bes d> <f f,> <f bes d> |
    <as bes d f> <as bes d f> <as bes d f> <as bes d f> |

    <g bes es> <g bes es> <ges bes es> <ges bes es> |			%32
    <f bes d> <f bes d> <f bes d> <f bes d> |
  } \alternative {
    { <g g,> <f f,> <bes bes,> <b b,>-^ | }
    { <g g,> <f f,> <bes bes,> <f f,> | }
  }

  {
    <bes bes,> <d bes f> <f f,> <d d,> |				%36
    <c c,> <es a, f> <es a, f>  <f, f,> |
    <bes bes,> <d bes f> <f f,> <d d,> |
    <c c,> <es a, f> <es a, f> <f, f,> |

    es ges16 ( es d8 f ) |						%40
    es ges16 ( es d8 f, ) |
    e ( bes' e bes') |
    \clef treble e ( bes' ) e r |
    <bes f d> <bes g es> <bes ges es> <bes ges es> |

    <bes f d> <bes g cis,> <bes f d> <bes f d> |			%45
    <a f c> <a f c> <a f c> <a f c> |
    <bes f d> \clef bass <es, es,> <d d,> <cis cis,> |
    <bes f d> <bes g es> <bes ges es> <bes ges es> |

    <bes f d> <bes g cis,> <bes f d> <d bes f> |			%49
    <c c,> <f, a es'> <f f,> <f a es'> |
    <bes bes,> f bes, r |
  }
  \repeat volta 2 {
    \key es \major

    <f' f,> <bes d as'> <bes, bes,> <bes' d as'> |
    <f f,> <bes d as'> <bes, bes,> <bes' d as'> |

    <es, es,> <bes' es g> <bes, bes,> <bes' es g> |			%54
    <es, es,> <bes' es g> <bes es g> <e, e,> |
    <f f,> <bes d as'> <bes, bes,> <bes' d as'> |
    <f f,> <bes d as'> <bes, bes,> <bes' d as'> |
    <es, es,> <bes' es g> <bes, bes,> <bes' es g> |

    <es, es,> <bes' es g> <es, es,> <des des,> |			%59
    <c c,> <bes' c e> <e, e,> <bes' c e> |
    <g g,> <bes c e> <c, c,> <bes' c e> |
    <f f,> <as c f> <as as,> <as c f> |
    <f f,> <as c f> <as as,> <as c f> |

    <a a,> ( [ <c c,> <es es,> <fis fis,> ] ) |				%64
    <g g,> ( [ <es es,> <bes bes,> <g g,> ] ) |
  } \alternative {
    {
      <f f,> <as bes d> \stemDown <bes, bes,> <as' bes d> \stemNeutral |
      <es es,> [ <g g,> <f f,> <e e,> ] |
    }
    {
      <f f,> <as bes d> \stemDown <bes, bes,> <as' bes d> \stemNeutral |
      <es es,> [ bes es, <bes' bes,>^^ ] |
    }
  }

  \repeat volta 2 {
    \key bes \major

    <es es,> <g bes es> \stemDown <bes, bes,> <g' bes es> \stemNeutral |	%70
    <es es,> <g bes es> <g g,> <ges ges,> |
    <f f,> <f bes d> <bes bes,> <f bes d> |
    <d d'> [ <f f,> <g g,> <gis gis,> ] |
    <a a,> <f a es'> <f f,> <f a es'!> |
    <c c'> [ <f f,> <g g,> <a a,> ] |

    <bes bes,> <f bes d> <f f,> <f bes d> |				%76
    <bes bes,> [ <as as,> <g g,> <f f,> ] |
    <es es,> <g bes es> \stemDown <bes, bes,> <g' bes es> \stemNeutral |
    <g g,> <g bes es> <es es,> <ges bes es> |
    bes, <f' bes d> d <f bes d> |
    <f f,> <f bes d> <f a es'>4 |

    <as bes d f>8 <as bes d f> <as bes d f> <as bes d f> |
    <g bes es> <g bes es> <ges bes es> <ges bes es> |
    <f bes d> <f bes d> <f bes d> <f bes d> |
    \stemDown
  } \alternative {
    { <g g,> [ <f f,> <bes bes,> <bes, bes,>-^ ] | }
    { <g g'> [ <f f'> ] <bes bes'> }
  }
}

% --- Dynamics ... ---------------------------------------------------

dynamics =  {
  \partial 8 s8
  \repeat volta 2 {
    s2 \mf |								%1
    \repeat unfold 13 { s2 | }
  } \alternative {
    { s2 | s2 | }
    { s2 | s2 | }
  }
  \repeat volta 2 {
    s2 \f |								%19
    \repeat unfold 11 { s2 | }
     s2 \mp |								%31
     s2 |
     s16 \< s8 s16 s16 s16 s8 \! |
  } \alternative {
    { s2 | }
    { s2 | }
  }
  s2 \mf |								%36
  \repeat unfold 15 { s2 | }
  \repeat volta 2 {
     s2 \mp |								%52
     \repeat unfold 13 { s2 | }
  } \alternative {
    { s2 | s2 | }
    { s2 | s2 | }
  }
  \repeat volta 2 {
    s2 \mf |								%70
    \repeat unfold 11 { s2 | }
    s2 \mp |								%82
    s2 |
    s16 \< s8 s16 s16 s16 s8 \! |
  } \alternative {
    { s2 | }
    { s4 s8 ^\markup { \vcenter \upright \right-align \sans "Fine." } }
  }
}

% --- Score - copy from piano-dynamics template ... ------------------

\score {
  \context PianoStaff <<
    \context Staff = "upper" \upper
    \context Dynamics = "dynamics" \dynamics
    \context Staff = "lower" \lower
  >>
  \layout { }
}

\score {
  \context PianoStaff <<
    \context Staff = "upper"      \applyMusic #unfold-repeats
      \upper
    \context Dynamics = "dynamics"      \applyMusic #unfold-repeats
      \dynamics
    \context Staff = "lower"      \applyMusic #unfold-repeats
      \lower
   >>

  \midi {
    \tempo 4 = 100
    \context {
      \type "Performer_group"
      \name Dynamics
      \consists "Dynamic_performer"
    }
    \context {
      \PianoStaff
      \accepts Dynamics
    }
  }
}

% arch-tag: Daniel Skarda Mon Jul 19 19:03:25 2004 (joplin - sugar cane)