\header{ title = "Sun Flower Slow Drag" subtitle = "Rag Time Two Step" composer = "Scott Joplin and Scott Hayden" % This is feature misuse ("Not fast" is not musical piece :), but other % Lilypond files (mis)use it in the same way,... piece = "Not Fast" mutopiatitle = "Sun Flower Slow Drag" mutopiacomposer = "S. Joplin (1868-1917)" % ... and "Scott Hayden (1882-1915)" mutopiainstrument = "Piano" date = "C. 1901" 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-sun-flower-slow-drag--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-465" lastupdated = "2004/Oct/21" % Changes: % % Oct 21 2004 % % serious errors: % LH 18: => !!!! % % accidentals - use ! to force all accidentals which were present in original typeset % RH: 7, 8, 12, 15, 43, 44, 47, 50, 61, 69, 73, 90 % LH: 12, 19, 37, 47, 53, 57, 74, 91 % % decrescendo => crescendo (23) % % minor fixies: % beams (LH 22, L+R 39) % stem orientation (LH 35, 43, 47, 54, 67, 72) } % ---- Helpers ... --------------------------------------------------- mergeDiffHeads = { \override Staff.NoteCollision #'merge-differently-headed = ##t } startInvisible = { \set Score.skipTypesetting = ##t } endInvisible = { \set Score.skipTypesetting = ##f } #(ly:set-point-and-click 'line) % line breaks in original. Define to {} if you want to overide original line breaks. %oBreak = \break oBreak = {} % ---- Upper ... ----------------------------------------------------- upper = \notes \relative c'' { \clef treble \key bes \major \time 2/4 % INTRO { d16 f8 bes,16 d4 | g,16 a bes d, ~ d4 %1 es16 f g es d c8 f16 | f,8 -^[ -^ -^ ] } \oBreak \repeat volta 2 { \bar "|:" \stemDown 16 d f ~ 8 16 | %5 ~ d' bes f | g' g, ( gis a bes ) g'! g, e' | f f, d' ~ 8 16 | d f ~ 8 16 | %9 ~ d' bes f | c' b c d \stemUp c bes a g \stemBoth | f c' es! ~ 8 16 | d f ~ 8 16 | %13 ~ d' bes f | g' g, ( gis a bes ) g'! g, e' | ~ 8 16 | ~ d b g | \stemUp 8 | %18 } \alternative { { 2 ~ | 8 ^^ \stemDown -^ -^ } { \stemUp 2 ~ | 8 r8 r4 | } } \oBreak \repeat volta 2 { \bar "|:" \stemBoth r8 [ ] | %23 16 8 16 ~ f' es c | bes8 | 16 8 16 ~ d f | \oBreak 8 16 ~ 8 f'16 | %27 8 16 ~ 8 f16 | 16 bes d f 8 16 ~ | 2 | \oBreak r8 [ ] | %31 16 8 16 ~ f' es c | bes8 16 8 16 ~ bes d f | \oBreak 8 | %35 16 ~ d b g | \stemUp 8 | } \alternative { { 2 | } { 8 ^^ \stemBoth -^ [ -^ ] | \bar "||" } } \oBreak { %40 16 d f ~ 8 16 | ~ d bes f | g' g, ( gis a bes ) g'! g, e' | f f, d' ~ 8 16 | d f ~ 8 16 | \oBreak ~ d bes f | %45 c' b c d \stemUp c bes a g \stemBoth | f c' es! ~ 8 16 | d f ~ 8 16 | ~ d bes f | \oBreak g' g, ( gis a bes ) g'! g, e' | %50 ~ 8 16 | ~ d b g | \stemUp 8 | \oBreak 2 ~ | %54 8 r \stemBoth r | \bar "||" } { \key es \major \stemUp \mergeDiffHeads << { 16 8 16 ~ | 8 [ 16 bes ] 16 bes bes | } \\ { s2 | s8 as8 as8 as8 \noBeam | } >> \oBreak \stemDown 2 | %58 8 r8 r4 \stemBoth | } \repeat volta 2 { 8 16 ~ c' a f | \stemBoth 8 16 ~ f' d bes | ~ 8 16 | \oBreak ~ es g bes | %63 as, c ~ 8 16 | es, g ~ 8 16 | ~ 4. r8 | \oBreak \stemUp 8 16 ~ c a f | %68 \stemBoth 8 16 ~ f d bes | ~ 8 16 | ~ es g | \oBreak 4 8 | %72 16 ~ g e c | 8 | } \alternative { { 2 } { 4 8 | \bar "||" } } \oBreak \repeat volta 2 { 16 as bes ~ 8 as16 | %77 as bes ~ 8 16 | g, bes ~ 8 16 | 4 ~ 16 | \oBreak as, bes ~ 8 d,16 | %81 4 ~ 16 | g, bes ~ 8 es,16 | 4 8 | 16 as bes ~ 8 as16 | %85 as bes ~ 8 16 | g, bes ~ 8 16 | ~ es, g | 4 8 | %89 16 ~ g e c | 8 | } \alternative { { 4 8 | } { 4 8 r | \bar "|."} } } % ---- Lower ... ----------------------------------------------------- lower = \notes \relative c' { \clef bass \key bes \major \time 2/4 % INTRO d16 f8 bes,16 d4 | g,16 a bes d, ~ d4 %1 es16 f g es d c8 f16 | f,8 -^[ -^ -^ ] \repeat volta 2 { %5 \stemDown 8-^ f, | \stemBoth bes, d | | \stemDown -^ f, | %9 \stemBoth bes, d des | c c, | -^ -^ -^ | \stemDown -^ f, | %13 \stemBoth bes, d | | | g, | | %18 } \alternative { { \stemDown 16 ~ \stemUp | 8 -^ -^ -^ | } { \stemDown 8 16 ~ \stemUp | 8 \stemDown [ ] | } } \repeat volta 2 { \stemDown 8-^ f, | %23 c f, | bes, f, | bes, f, | c f, | %27 a, f, | bes, | | -^ f, | %31 c f, | bes, f, | bes, d \stemUp \stemDown | % 35 g, | | } \alternative { { | } { -^ \stemUp -^ [ -^ ] \stemDown | \bar "||" } } { -^ f, | %40 bes, d | | -^ \stemUp -^ -^ \stemDown | -^ f, | bes, d des | %45 c c, | -^ \stemUp -^ -^ \stemDown | -^ f, | bes, d | | %50 | f, | | 16 ~ \stemUp | %54 8 r r | } { \key es \major \stemUp | | \stemDown %58 16 | \stemUp 8 | } \repeat volta 2 { 4 | | \stemBoth 8 bes, | es, g, | %63 as, as, | es, | f | \stemUp 4 | %68 | \stemDown 8 bes, | es, | \stemUp 16 \stemDown | %72 8 c, | | } \alternative { { \stemUp \stemDown | } { \stemUp 4 \stemDown | } } \repeat volta 2 { \bar "|:" 8 bes, | %77 f bes, | es, bes, | es, bes, | f bes, | %81 d, bes, | es, bes, | es, \stemUp 4 | \stemDown 8 bes, | %85 f bes, | es, bes, | es, | 16 | %89 8 c, | | } \alternative { { \stemUp 4^^ | } { \stemDown 8 \stemUp r | } } } % --- Dynamics ... --------------------------------------------------- dynamics = \notes { \repeat unfold 4 { s2 | } \repeat volta 2 { \repeat unfold 14 { s2 | } } \alternative { { s2 | s2 | } { s2 | s8 s8 \< s8 s8 \! } %22 } \repeat volta 2 { s8 \> s8 \! s8 \f s8 | %23 \repeat unfold 6 { s2 | } s8 s8 \< s8 s8 \! | %28 s8 \> s8 \! s8 \f s8 | \repeat unfold 6 { s2 | } } \alternative { { s8 s8 \< s8 s8 \! | } %38 { s2 } } \repeat unfold 16 { s2 | } \repeat unfold 3 { s2 | } s8 \> s8 s8 s8 \! | %59 \repeat volta 2 { s8 \p s8 s4 | \repeat unfold 14 { s2 | } } \alternative { { s2 } { s4 s8 \< s8 \! | } } \repeat volta 2 { s8 \f s8 s8 s8 | \repeat unfold 14 { s2 | } } \alternative { { s2 | } { s2 | } } } % ---- Score ... ----------------------------------------------------- \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 = 72 \context { \type "Performer_group_performer" \name Dynamics \consists "Span_dynamic_performer" \consists "Dynamic_performer" } \context { \PianoStaffContext \accepts Dynamics } } } % arch-tag: Daniel Skarda Sun Jul 18 12:51:02 2004 (Sun Flower Slow Drag)