\version "2.2.3" \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 = "S. Joplin (1868-1917)" mutopiainstrument = "Piano" date = "C. 1908" style = "Jazz" copyright = "Public Domain" maintainer = "Daniel Skarda" 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 tagline = "\\parbox{\\hsize}{\\thefooter\\quad\\small\\noindent\\hspace{\\stretch{1}} " + "This music is part of the Mutopia project: \\hspace{\\stretch{1}} " + "\\texttt{http://www.MutopiaProject.org/}\\\\ " + "\\makebox[\\textwidth][c]{It has been typeset and placed in the public domain by " + "Daniel \v{S}karda" % \maintainer + ".} \\makebox[\\textwidth][c]{" + "Unrestricted modification and redistribution is permitted and encouraged---" + "copy this music and share it!}}" footer = "Mutopia-2004/10/21-467" lastupdated = "2004/Oct/21" % Changes: % % Oct 21 2004 % % serious errors: % RH 17, 50: => !!!! % % 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 } % --- 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 = \notes\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 ) \stemBoth | 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 ) 8 [ r16 ] ~ | %8 bes, es 8 16 ~ | bes d 8 16 ~ | es! c es 8 16 ~ | \oBreak 8 16 ~ | %12 bes, es 8 16 ~ | bes d 8. | } \alternative { { r16 es ( c es) 8 16 ~ | 4 ~ 8 r8 | \oBreak } { r16 es, ( c ) es 8 16 ~ | %17 8 \noBeam f,^^ [ bes^^ gis^^ ] | } } \repeat volta 2 { a16 ( es' a g ) ~ g c, ( es c' ) | es, ( a es' d ~ d a c ) | \oBreak 8 16 ~ | %21 ~ 8 | 16 ~ | ~ 8 | \oBreak 8 16 ~ | %25 ~ 8 | a,16 ( es' a g ) ~ g c, ( es c' ) | \oBreak es, ( a es' d ) ~ d a c | %28 8 16 ~ | ~ 8 | d16 c8 bes16 ~ bes ( c bes8 ) | \oBreak d16 c8 bes16 ~ bes ( c bes8) | %32 bes16 c8 d16 ~ d16 ( g f8 ) | } \alternative { { gis^^ } { 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 ) \stemBoth | 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 ) 8 [ r16 ] ~ | bes, es 8 16 ~ | \oBreak bes d 8 16 ~ | %45 es! c es 8 16 ~ | 8 16 ~ | bes, es 8 16 ~ | \oBreak bes d 8. | %49 r16 es! c es 8 16 ~ | 4 8 r | } \repeat volta 2 { \key es \major << { s8. \noStem as16 ~ as ( g f8 ) | s8. \noStem as16 ~ as ( g f fis ) | } \\ { 8. 16 ~ d4 | 8. 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 ~ 8 | 8. 16 ~ d4 | 8. 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 ~ 8 | %b 8. 16 ~ e4 | 8. 16 ~ e4 | } >> r16 c' as c 8 as16 | as c ~ 8 | \oBreak ( ) | %64 8. ( es16 ) g ( 8. ) | } \alternative { { 8. ( d16 ) f 8 16 ~ | 4. 8 } { 8. ( d16 ) f 8 16 ~ | 4 ~ 8 r } } \oBreak \repeat volta 2 { \key bes \major r 16 bes, es 8 16 ~ | %70 8 16 ~ | 8 16 8 16 ~ | 4. 8 | 16 8 16 ~ | 4. 8 \oBreak 16 8 16 ~ | %76 2 | r16 bes, es 8 16 ~ | 8 16 ~ | 8 16 8 16 ~ | 4 | \oBreak d16 c8 bes16 ~ bes ( c bes8 ) | %82 d16 c8 bes16 ~ bes ( c bes8 ) | bes16 c8 d16 ~ d ( g f8) } \alternative { { r | } { [ ] \bar "|." } } } % --- Lower ... ------------------------------------------------------ lower = \notes\relative c { \clef bass \key bes \major \time 2/4 \partial 8 8 | %0 \repeat volta 2 { | %1 | | | %4 es ges16 ( es d8 f ) | es ges16 ( es d8 f, ) | e ( bes' e bes') | \clef treble e ( bes' ) e r | %8 | | | \clef bass | %12 | | } \alternative { { | \stemDown [ ] \stemBoth | } { | %17 r -^ -^ | } } \repeat volta 2 { | | | %21 | | | | %25 | | | %28 | | | | %32 | } \alternative { { -^ | } { | } } { | %36 | | | es ges16 ( es d8 f ) | %40 es ges16 ( es d8 f, ) | e ( bes' e bes') | \clef treble e ( bes' ) e r | | | %45 | \clef bass | | | %49 | f bes, r | } \repeat volta 2 { \key es \major | | | %54 | | | | | %59 | | | | ( [ ] ) | %64 ( [ ] ) | } \alternative { { \stemDown \stemBoth | [ ] | } { \stemDown \stemBoth | [ bes es, ^^ ] | } } \repeat volta 2 { \key bes \major \stemDown \stemBoth | %70 | | [ ] | | [ ] | | %76 [ ] | \stemDown \stemBoth | | bes, d | 4 | 8 | | | \stemDown } \alternative { { [ -^ ] | } { [ ] } } } % --- Dynamics ... --------------------------------------------------- dynamics = \notes { \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 \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 >> \paper { \context { \type "Engraver_group_engraver" \name Dynamics \alias Voice % So that \cresc works, for example. \consists "Output_property_engraver" minimumVerticalExtent = #'(-1 . 1) \consists "Script_engraver" \consists "Dynamic_engraver" \consists "Text_engraver" \override TextScript #'font-size = #2 \override TextScript #'font-shape = #'italic \override DynamicText #'extra-offset = #'(0 . 2.5) \override Hairpin #'extra-offset = #'(0 . 2.5) \consists "Skip_event_swallow_translator" \consistsend "Axis_group_engraver" } \context { \PianoStaffContext \accepts Dynamics \override VerticalAlignment #'forced-distance = #7 } } } \score { \context PianoStaff << \context Staff = upper \apply #unfold-repeats \upper \context Dynamics = dynamics \apply #unfold-repeats \dynamics \context Staff = lower \apply #unfold-repeats \lower >> \midi { \tempo 4 = 100 \context { \type "Performer_group_performer" \name Dynamics \consists "Span_dynamic_performer" \consists "Dynamic_performer" } \context { \PianoStaffContext \accepts Dynamics } } } % arch-tag: Daniel Skarda Mon Jul 19 19:03:25 2004 (joplin - sugar cane)