% Updated to Lilypond 2.2.5 by Ruud van Silfhout
% convert-ly -> Lilypond 2.4.2 by Chris Sawer
% Last changed on 2/Jan/2005
\version "2.4.0"
#(ly:set-option 'old-relative)
% Measures to be fixed: 71
\header {
title = "PEACHERINE RAG."
composer = "by SCOTT JOPLIN."
mutopiatitle = "Peacherine Rag"
mutopiacomposer = "S. Joplin (1868-1917)"
mutopiainstrument = "Piano"
date = "C. 1901"
style = "Jazz"
copyright = "Public Domain"
filename = "peacherine.ly"
maintainer = "Antonio Palam\`a"
maintainerEmail = "palama@inwind.it"
maintainerWeb = ""
lastupdated = "2005/Jan/02"
footer = "Mutopia-2005/01/02-335"
tagline = "\\raisebox{10mm}{\\parbox{188mm}{\\quad\\small\\noindent " + \footer + " \\hspace{\\stretch{1}} This music is part of the Mutopia project: \\hspace{\\stretch{1}} \\texttt{http://www.MutopiaProject.org/}\\\\ \\makebox[188mm][c]{It has been typeset and placed in the public domain by " + \maintainer + ".} \\makebox[188mm][c]{Unrestricted modification and redistribution is permitted and encouraged---copy this music and share it!}}}"
}
top = \relative c'' {
\override TextScript #'padding = #2
\key ees \major
\time 2/4
\clef treble
% 1
\once \override TextScript #'extra-offset = #'(-3 . 2)
ees16[^\markup { \bold "Not too fast." } f g f]~ f8[ bes,] |
% 2
f'16[ g aes g]~ g8[ bes,] |
% 3
c16[ c8 b16] c16[ d ees8] |
% 4
bes!8 bes~ bes16[ g aes a] |
\repeat "volta" 2
{
% 5
\stemDown bes8[ ][] |
% 6
16[816]~16[ c bes g] |
% 7
8[][] |
% 8
\stemNeutral 16[816]~16[ bes f g] |
% 9
\stemDown aes8[ ][ ] |
% 10
aes16[ 8 16]~16[ bes d f ] |
% 11
8 4 8 |
% 12
%{
\context Voice
<<
{ % Problem: Top slur should be up, 2 bottom slurs should be down
\stemDown 4~16[ g aes a] |
}
\\
{
\stemUp r8 ees'16[ f] g r r8
}
>>
%}
<< % Provisional solution
{\stemDown \tieDown 4~16[ g aes a] }
\\
{\stemDown \tieUp bes'4 ~ bes4*1/4 s8.}
\\
{\stemUp r8 ees,16[ f]
\override NoteColumn #'force-hshift = #0.5
g16
r r8}
>>
|
% 13
\stemDown bes8[ ][] |
% 14
16[816]~16[ c bes g] |
% 15
848 |
% 16
\context Voice
<<
{
\stemDown 4. c8 |
}
\\
{
\stemUp r8 c'16[ d] ees r r8
}
>>
% 17
8[ ][] |
% 18
16[816]8[8] |
% 19
16[816]
\context Voice
<<
{\stemDown aes8}
\\
{\stemUp f'16[( ees)]}
>>
8
}
\alternative
{
% 20
{4~ 16[ g aes a] }
% 21
{4~ 8 r8 }
}
\key bes \major
\repeat "volta" 2
{
% 22
r8 [] |
% 23
r8 [] |
% 24
r8 [] |
% 25
16[ f e f]~ f[ g f8] |
% 26
r8 [] |
% 27
\context Voice
<<
{ % FIXME slurDown
\stemUp d'16[ c b c]~ c[ \slurDown f( f,8)] \slurNeutral |
}
\\
{
\stemDown 4. r8 |
}
>>
% 28
r8 < d[ bes' d>[] |
% 29
\context Voice
<<
{ % FIXME slurDown
\stemUp c'16[ bes a bes]~ bes[ \slurDown f'( f,8)] \slurNeutral |
}
\\
{
\stemDown 4. r8 |
}
>>
% 30
r8 [] |
% 31
r8 [] |
% 32
r [] |
% 33
16[ f e f]~ f[ d ees f] |
% 34
[]~[8 16] |
% 35
16[]~[8 bes16] |
% 36
16[ 8 16]
\context Voice
<<
{
\stemUp c'16[( bes)]]
}
\\
{
\stemDown 8
}
>>
8 |
}
\alternative
{
{
% 37
\stemUp 4~ 8 r8 |
}
{
% 38
44 \stemNeutral|
}
}
\key ees \major
% 39
\stemDown bes'8[ ][] |
% 40
16[8 16]~ 16[ c bes g] |
% 41
8[ ] [ ] |
% 42
\stemNeutral 16[8 16]~ 16[ bes f g] |
% 43
\stemDown aes8[ ][ ] |
% 44
aes16[ 8 16]~ 16[ bes d f ] |
% 45
8 4 8 |
% 46
%{
\context Voice
<<
{ % Problem: Top slur should be up, 2 bottom slurs should be down
\stemDown 4~16[ g aes a] |
}
\\
{
\stemUp r8 ees'16[ f] g r r8
}
>>
%}
<< % Provisional solution
{\stemDown \tieDown 4~16[ g aes a] }
\\
{\stemDown \tieUp bes'4 ~ bes4*1/4 s8.}
\\
{\stemUp r8 ees,16[ f]
\override NoteColumn #'force-hshift = #0.5
g16
r r8}
>> |
% 47
\stemDown bes8[ ][] |
% 48
16[816]~16[ c bes g] |
% 49
848 |
% 50
\context Voice
<<
{
\stemDown 4. c8 |
}
\\
{
\stemUp r8 c'16[ d] ees r r8
}
>>
% 51
8[ ][] |
% 52
16[816]8[8] |
% 53
16[816]
\context Voice
<<
{\stemDown aes8}
\\
{\stemUp f'16[( ees)]}
>>
8 |
% 54
48 r |
\key aes \major
\repeat "volta" 2
{
% 55
16[ c' aes] c[ 8 aes16] |
% 56
16[ a ]~[8 aes16] |
% 57
8[16]~[ bes' aes f] |
% 58
8[16]~[ bes' aes f] |
% 59
\context Voice
<<
{\stemDown ees8.[ f32( g)]}
\\
{\stemUp des'4}
>>
bes16[ 8 g16] |
% 60
\context Voice
<<
{\stemDown ees8.[ f32( g)]}
\\
{\stemUp des'4}
>>
bes16[ 8 f16] |
% 61
8[16]~[816] |
% 62
8[16]~8.[ aes32( c)] |
% 63
16[ c' aes] c[ 8 aes16] |
% 64
16[ a ]~[8 aes16] |
% 65
8[16]~[ bes' aes f] |
% 66
8[16]~[ bes' aes f] |
% 67
\context Voice
<<
{\stemDown ees8.[ f32( g)]}
\\
{\stemUp des'4}
>>
bes16[ 8 g16] |
% 68
ees16[ g f g] des'[ 816~ ]|
}
\alternative
{
{
% 69
2~ |
% 70
\set autoBeaming = ##f
8
\grace { \once \override Stem #'stroke-style = #"grace" f'8( }
ees8)
\grace { \once \override Stem #'stroke-style = #"grace" f,8( }
ees8)[ aes16 c] |
\set autoBeaming = ##t
}
{
% 71
2~ | % Problem: Chord shoud have 2 short left ties
% 72
8 r \stemDown 8[ ees] \stemNeutral |
}
}
\repeat "volta" 2
{
% 73
\stemDown g'16[ bes8 c16] des8[ g16 f] \stemNeutral |
% 74
84ees,8 |
% 75
aes16[ c8 des16] ees8[ aes16 f] |
% 76
848 |
% 77
16[816]~16[ aes' bes aes] |
% 78
8[]~16[] |
% 79
16[ g' c bes] aes[ d,8 bes'16] |
% 80
ees,8 r 8[ ees,] |
% 81
g16[ bes8 c16] des8[ g16 f] |
% 82
84ees,8 |
% 83
aes16[ c8 des16] ees8[ aes16 f] |
% 84
848 |
% 85
%16[816]~ % Problem: no tie is produced
%\context Voice
%<<
% {\stemDown b4}
% \\
% {\stemUp f'16[ aes( g f)]}
%>>
<<
{\stemDown \tieDown 16 8 b16 ~ b4 }
\\
{\stemDown \tieUp s8. f'4*1/4 ~ \stemUp f16 aes( g f)}
>>
|
% 86
8[]~16[ ees c bes] |
% 87
8[]16[8 ees16] |
}
\alternative
{
{
% 88
\stemDown 8[ ees'16 ees] ees8[ ees,] \stemNeutral |
}
{
% 89
48 r^\fermata |
}
}
}
bottom = \relative c {
\key ees \major
\time 2/4
\clef bass
% 1
ees16[ f g f]~ f8[ bes,] |
% 2
f'16[ g aes g]~ g8[ bes,] |
% 3
c16[ c8 b16] c16[ d ees8] |
% 4
bes!8 bes4 r8 |
\repeat "volta" 2
{
% 5
ees8[ ] bes,[ ] |
ees8[ ] bes,[ ] |
ees8[ ] bes,[ ] |
% 8
f8[ ] bes,[ ]
% 9
f8[ ] bes,[ ] |
% 10
f8[ ] bes,[ ] |
% 11
f8[