\version "2.19.15"
\include "english.ly"
\header {
date = "189-?"
source = "Sydney: Nicholson & Co., (189-?)"
style = "Romantic"
instrument = ""
license = "Public Domain"
maintainer = "Stan Sanderson"
maintainerEmail = "physinfoman@ameritech.net"
title = "Alice, Where Art Thou."
subsubtitle = "Transcribed for the pianoforte by Joseph Ascher."
poet = ""
composer = "Joseph Ascher"
opus = "1829-1869"
% Piece abused into the tempo mark...
% easier to move it here than from its normal pace.
piece = \markup{\bold { \null \translate #'(13 . -1) "Moderato Capriccioso."}}
mutopiatitle = "Alice, Where Art Thou?"
mutopiainstrument = "Piano"
mutopiacomposer = "AscherJ"
mutopiasource = "Sydney: Nicholson & Co., (1890s)"
mutopiastyle = "Song"
mutopiadate = "1890s?"
mutopiaopus = " "
mutopiaarranger = "Transcribed for the pianoforte by Joseph Ascher"
moreInfo = "
This piece, an expansion of Ascher's popular \"Alice\" tune, is, I believe, typical of the repertory of the parlor performer. I suspect it exists on a piano roll somewhere.
The original is very dim; the transcription was as true as possible; corrections are welcome.
"
footer = "Mutopia-2015/01/16-449"
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
}
%%%%%
%%%%% This piece, an expansion of Ascher's popular "Alice" tune,
%%%%% is, I believe, typical of the repertory of the parlor performer.
%%%%% I suspect it exists on a piano roll somewhere.
%%%%% The original is very dim; the transcription was as true as
%%%%% possible; corrections are welcome.
%%%%% The limitations of Lilypond (especially with respect to slurs)
%%%%% are apparent; however, its strengths, even at the development
%%%%% stage, are amazing.
%%%%%
%#(set-global-staff-size 17)
#(set-global-staff-size 18)
\paper{
linewidth = 165 \mm
indent = 8 \mm
}
\paper {
top-margin = 8\mm %-minimum top-margin: 8mm
system-system-spacing = #'((basic-distance . 24) (minimum-distance . 16) (padding . 2))
score-system-spacing = #'((basic-distance . 16) (minimum-distance . 9) (padding . 1.2))
markup-system-spacing = #'((basic-distance . 8) (padding . 4)) % small because of piece markup
score-markup-spacing = #'((basic-distance . 18) (padding . 0.75))
markup-markup-spacing = #'((basic-distance . 1.5) (padding . 0.75))
top-system-spacing = #'((basic-distance . 12) (padding . 6))
top-markup-spacing = #'((basic-distance . 4) (padding 1.5))
last-bottom-spacing = #'((basic-distance . 6) (padding . 5))
ragged-bottom = ##f
ragged-last-bottom = ##f
bottom-margin = 10\mm
}
su = \stemUp
sd = \stemDown
sb = \stemNeutral
csu = \change Staff=upper
csl = \change Staff=lower
hslip = { \once\override NoteColumn.force-hshift=0.5 }
upper = \relative c'''' {
\time 3/4 \key df \major
\set subdivideBeams = ##t
\override DynamicTextSpanner.style = #'none
\omit TupletBracket
%% 1
\tupletSpan 16
\tuplet 3/2
{ \ottava #1
\su g'32[( df bf]_\markup {\italic "L.H."} \sd g[ f e]
\ottava #0
\su g[ df bf] \sd g[ f e]
\su g[ df bf] \sd g[ f e]
\su g[ df bf] \change Staff=lower \sd g[ f e]
\su g[ df bf]
\sd g[ f e] \su g'[ df bf]
\sd g[ f e]) } |
%% 2 - 4
s2.|
\set Score.baseMoment = #(ly:make-moment 1/8)
\change Staff= upper
bf''''4^^(\( bf8.\) af16 g32[_\markup {\italic "rit."} f e df c bf af g]) |
<<{g8 f ~ f2}\\{r4 8 r r4}>> | \break
%% 5 - 6
r4 \tupletSpan 16
\tuplet 3/2
{ \ottava #1
\su f'''32[( c af]_\markup \translate #(cons -3 -1){"" \italic "L.H."} \sd f[ df c]
\ottava #0
\su f[ c af] \sd f[ df c]
\su f[ c af] \sd f[ df c]
\su f[ c af] \change Staff=lower \sd f[ df c] |
\su f[ c af] \sd f[ df c]
\su f'[ c af] \sd f[ df c]
\su f'[ c af] \sd f[ df c]
\su f'[ c af] \sd f[ df c]
\su f'[ c af] \sd f[ df c]
\su f'[ c af] \sd f[ df c]) } |
%% 7 - 11
\change Staff=upper
s2 s32
\sd af''''16[(^^_\markup {"" \raise #-4.0 \italic "rit."}_\> g32 f ef d c]\! |
c8 b) r4^\markup {"" \raise #3 \italic "Agitato ed un poco piu mosso"}
\su 8.(_\mf_\< 16 |
8 )\! r4 \slurUp 8.(_\< 16 |
\sd 8 )\! r4 8.(_\markup {"" \raise #-2.5 \italic "cresc."} 16) |
\acciaccatura bf,8 4(^^_\markup {"" \raise #-3 \dynamic f \raise #-3 \italic "dim. e rall."}
~ 8.[ 16^^]
^^ ^^ ^^ ^^) |
%% 12 - 14 (page 2)
8[(^^_\> 8])\! r \su
8.(^\markup {"" \raise #1.5 \italic "dolce"}_\p 16 |
4\arpeggio \sd 4. ~ 8_\> |
8[ 8])\! \su
\ottava #1
f'''32[(_\markup {\italic "legg."} ef df bf g ef df bf
\ottava #0
g ef df bf g ef df bf]) | \sb
%% 15 - 17
\once \override Score.Hairpin.extra-offset = #'(0 . +1.5)
4(\arpeggio_\<_
\markup {\italic "poco a poco accellerando"}
\sd 4. ~ 8\! |
8[ 8]) \su
\ottava #1
f'''32[( ef df bf g ef df bf \ottava #0 g ef df bf g ef df bf]) |
4(\arpeggio_\markup {\italic "cresc."} \sd 4. 8\arpeggio |
%% 18 - 20
\sd 8[\arpeggio )] \su
\ottava #1
f'''32[( ef c a f ef c a \ottava #0 f ef c a f ef c a ]) |
\sd 4(_\f 4. 8 |
8[ )] \su
\ottava #1
g'''32[( f_\markup {\italic "rit."} d b g f d b
\ottava #0
g f d b g f d b ]) |
%% 21 - 22
\sd 8\arpeggio_\markup {\dynamic fff \italic "con fucco"} r
\tupletSpan 16
\tuplet 3/2
{ \ottava #1
\su e''32[( a g] \sd c,[ g e]
\ottava #0
\su e[ a g] \sd c,[ g e]
\su e[ a g] \sd c,[ g e]
\su e[ a g] \change Staff=lower \sd c,[ g e]) }
\change Staff = upper| s2. |
%% 23 - 25
r4^\markup {"" \raise #2 \italic "a tempo"} r8 \su 8[_\< 8]\! |
16([ bf')] \sd \arpeggio([ df')]
\arpeggio([ f')] \arpeggio([_\< bf')]
\arpeggio([ df')]
\ottava #1
\arpeggio([ f')]\! |
([ bf')] ([_\< df')]
\arpeggio([ f')] ([\!_\markup {\italic "rit."} f')]
([ f')] ([ f')] |
%% 26 - 27
ef32[(_\markup {\dynamic f \italic "brillante"} f g af c, df d ef af,
bf b c ef, f g af
\ottava #0
c, df! d ef af, bf! b c)] |
\su ef,[( f g af c, df d ef af, bf b c ef, f g af
c, df! d ef af, bf! b c]) |
%% 28 - 29
\change Staff = lower
ef,4^> 32[(^\markup {"" \raise #1 \italic "R.H."} 32])
\sd ef[(_\markup \translate #(cons -4.5 0){"" \raise #-1 \italic "L.H."}_\< ef,])
\su 32[( 32]) \sd ef[( ef,])
\change Staff = upper
\su 32[( 32]) \sd ef[( ef,])
\su 32[( 32]) \sd ef[( ef,])\! |
\ottava #1
\su 32[( 32])_\< \sd ef[( ef,])
\su 32[( 32]) \sd ef[( ef,])
\su 32[( 32]) \sd ef[( ef,])
\su 32[( 32]) \sd ef[( ef,])
\su 32[( 32]) \sd ef[( ef,])
\su 32[( 32]) \sd ef[( ef,])\! |
%% 30 - 31
ef'[( ef,] ef'[ ef,] ef'[ ef,] ef'[ ef,]
ef'[ ef,] ef'[ ef,] ef'[_\markup {\center-column {\italic " " "cresc." \italic "molto ritenuto"} } ef,] ef'[ ef,]
ef'[ ef,] e'[ e,] f'[ f,] g'[ g,] ) |
%%% following is a workaround due to bug preventing midi from
%%% timing properly with 16th notes (32nd notes would time o.k.)
\acciaccatura {af16*1/2[ c16*1/2 ef16*1/2]}
\once \override Staff.Beam.damping = #0
af32^^[( f ef c af f ef c
\ottava #0
af' f ef c af f ef c af' f ef c af f ef c]) |
%% 32 - 34
af'''[( f ef c af f ef c af' f ef c af f ef c af' f ef c
\change Staff = lower
\su af f ef c]) |
\change Staff = upper r4 r8 af''[_-^\markup {\italic "parlando"}
af_- af_-] |
\acciaccatura c8 \slurDown bf8( af4) af8[(_- af_- af_-]) |
%% 35 - 37
\acciaccatura c8 bf af4 af8[(_-_\< af_- af_-]) | \slurNeutral
\acciaccatura {af16[ c]} bf4(\! \omit TupletNumber
\tuplet 17/16 { \sd
bf32)[( af c ef af c ef gf bf^\markup {"" \raise #1.0 \smaller \italic "17"}
af gf ef c af gf ef c]) }|
bff2(_\markup {"" \raise #-3 \italic "rit." } ~ bff8[ af]) |
\revert TupletNumber.stencil
%% 38 - 42
\override Score.RehearsalMark.self-alignment-X = #left
\mark \markup {"" \raise #4.0 \bold \large "Andante con espress."}
\acciaccatura {af,16[_\markup {\dynamic p \italic "cantabile"} df f]} af4( df4. ef8 |
\acciaccatura {ef,16[ gf]} df'4 c2) |
\acciaccatura {df,16[ af']} bf4( \acciaccatura c8 bf[ a bf c] |
\acciaccatura {c,16[ f]} bf4 af) r8 af |
\acciaccatura {bf,16[ d]} af'4( f'4. \acciaccatura {f16[ af]} gf8 |
%% 43 - 48
\acciaccatura {gf,16[ bf]} f'4 ef4.) bf8( |
\acciaccatura {ef,16[ gf_\markup {"" \raise #-3 {\dynamic p \italic "rit."}} af]} df4
\acciaccatura {c16[ df]} c8[ bf c8. af16]) |
\acciaccatura {df,16[ f]_\markup {"" \raise #-3 \italic "a tempo"}} df'4 r r8 8 |
4\arpeggio(_\markup {\italic "armonioso"} 4.\arpeggio ~ 8 |
4\arpeggio ~ )_\< |
\arpeggio(\! 8 |
%% 49 - 56
4\arpeggio ~ ) r8 8( |
4\arpeggio \arpeggio
8\arpeggio[ \arpeggio]) |
4\arpeggio_\> 4.\arpeggio\!
8(\arpeggio_\p |
4\arpeggio 8[ \arpeggio_\markup {"" \raise #-1.5 \italic "rit."} \arpeggio
\arpeggio 8]\arpeggio |
4\arpeggio)_\markup {"" \raise #-2 \italic "a tempo"} r r8
%% last note measure 53 on -
<<{ s8 r4 r4 ^> ~ 2 4^> s4}\\
{f,8( df'4_\markup {"" \raise #-2 \italic "dolce"} c4.) f,8( c'4 bf)
r8 f ~ ^\markup {"" \raise #1 \italic "con dolore"}}>>
8[( 8]) |
%% 57 - 59
4 r8 |
<<{r4 r16 f'[( f' f] \ottava #1
f') \ottava #0 r r8}\\
{4 4. 8}>> |
<<{r4 r16 f'[( f' f] \ottava #1
f') \ottava #0 r r8}\\{4 4. r8}>>
%% 60 - 63
<<{gf'8[( f' ef, df' c, bf'])}\\{gf16[ gf'] f[ f,] ef[ ef']
df[ df,] c[ c'] bf[ bf,] }>> |
\set PianoStaff.connectArpeggios = ##t
8\arpeggio \ottava #1
8[ _\< 8]\! |
\set PianoStaff.connectArpeggios = ##f
<<{f'16[ f f f f f f f f f f f]}\\{af,4_> df4._> ef8_>}>> |
<<{gf16[ gf gf gf gf gf gf gf gf gf gf gf]}\\{df4_> c2_>}>> |
%% 64 - 66
<<{gf'16[ gf gf gf gf gf gf gf gf gf gf gf]}\\
{bf,4 \acciaccatura c8 bf[ a bf c]}>> |
<<{gf'16[ gf gf gf f f f f f f f f]}\\
{bf,4 af4. 8}>> | \ottava #0
\mergeDifferentlyDottedOn
<<{f'4( 4. d8)}\\{ 16[ r
ef r r 16]}>> |
%% 67 - 70
<<{d8[( ef] 4. ef8)}\\{
16[ ef bf, r r
16]}>> |
<<{ef'4 df8[^^ c^^ bf^^ af^^]}\\
{16[ r df c, bf,
16]}>> |
8^._\sfz s8 s4 s4 |
<<{bf4.( c8[ df ef])}\\
{16[_\mf r r
16]}>> |
%% 71 - 74
<<{af4.( bf8[ c df)]}\\{16[ r r
16]}>> |
8^.[_\f ^.]\arpeggio
\set PianoStaff.connectArpeggios = ##t
\arpeggio r\fermata
\set PianoStaff.connectArpeggios = ##f r ( |
^.)[ 8]\arpeggio
\set PianoStaff.connectArpeggios = ##t
\arpeggio
r r ( |
^.) \ottava #1
<<{\override Stem.details.beamed-lengths = #'(6.6 5.8 5.0)
af''8[( s f s df])}\\{af'16[ af' gf gf, f f' ef ef, df df']}>> |
\set PianoStaff.connectArpeggios = ##f
%% 75 - 78
%% 75 & 76
<<{c8.[( c16] bf8.[ bf16]) s8 s8 bf,[( gf' f' ef, df' c,])}
\\{c'16[ c, c c' bf bf, bf bf' bf,^> bf' bf bf,] ~
bf8[_\p gf'16 gf' f f, ef ef' df df, c c']}>> |
<<{bf8.[( bf16] af8.[ af16]) \ottava #0 s8 s8}\\
{bf16[ bf, bf bf' af af, af af' af,,^> af' af af,]}>> |
<<{bf4.^> c8[^\markup {\italic "cresc."} df ef]}\\
{\slurUp bf16[ bf'( bf bf' bf bf, c, c' df, df' ef, ef'])}>> |
%% 79 - 82
<<{af,,4.^> bf8[ c df]}\\
{af16[ \slurUp af'( af af' af af, bf, bf' c, c' df, df'])}>> |
8\arpeggio \ottava #1
af''16[( af, \ottava #0 af af, af af, \csl \su af, af, af af,]) |
\csu \sd 8\arpeggio \ottava #1
af'''16[( af, \ottava #0 af af, af af, \csl \su af, af, af af,]) |
\csu \sd 8\arpeggio \ottava #1
af'''16[( af, \ottava #0 af af, af af, \csl \su af, af, af af,]) |
%% 83 - 85
\slurUp
af''16[( \csu bf32
^\markup {\null \translate #'(0 . 1) \italic "leggiero"}
_\markup {\null \translate #'(0 . -3) \italic "marcato"}
c df ef f gf af bf c df ef f gf af bf c df ef
\ottava #1 f gf af bf] |
c[ df ef f gf ef c af gf ef c af \ottava #0
gf ef c af gf ef c af \csl gf ef c af]) |
bf'16[( \csu c32 df ef f gf af bf c df ef f gf af bf c df ef f
\ottava #1 gf af bf c] |
%% 86 - 88
df[ ef f ef df af f ef f ef df af \ottava #0
f ef df af f ef df af f ef df af]) |
\csl af'16[( bf32 d \csu f af bf d f af bf d \ottava #1
f af bf d f af af af af af af af] |
af[ gf ef bf af gf ef bf af' gf ef bf
\ottava #0 af gf ef bf af' gf ef bf af gf ef bf ]) |
%% 89 - 91
df[( ef f gf af bf c df ef f gf af bf c df ef \ottava #1
f gf g af a bf b c] |
df[ ef f ef df af f ef \ottava #0
df af f ef df af f ef df \csl af f ef df af f df]) |
\slurUp
af''16[( \csu bf32 c df ef f gf af bf c df ef f gf af bf c df ef
\ottava #1 f gf af bf] |
%% 92 - 94
c[ df ef f gf ef c af gf ef c af \ottava #0
gf ef c af gf ef c af \csl gf ef c af]) |
bf'16[( \csu c32 df ef f g a bf c df ef f g a bf c df ef f
\ottava #1 g a bf c] |
df[ ef f ef df af f ef f ef df af \ottava #0
f ef df af f ef df af f ef df af]) |
%% 95 - 97
\csl af'16[( bf32 d \csu f af bf d f af bf d \ottava #1
f af bf d f af af af af af af af] |
af[ gf gf f f ef ef df df c c bf bf af af gf gf f f ef ef df df c] |
\ottava #0
c[ bf bf af af gf gf f f ef ef df df c c bf bf af af gf gf f f ef]) |
%% 98 - 100
\csl df16^^[ \csu ef32( f gf af bf c df ef f gf af bf c df ef f gf
\ottava #1 af bf c df ef] |
f[ ef c a f ef c a \ottava #0 f ef c a f' ef c a f ef c a
\csl f a c f]) |
\csl c16[( \csu \ottava #1 f'''32 df bf f df bf \ottava #0
f' df bf f df bf f' df bf f df bf \csl f \csu bf df f]) |
%% 101 - 103
\csl f^^[( \csu gf g af a bf b c df d ef e f gf g af a bf b c df d ef e] |
f[ a c a f c a c f c a f c a f' c a f c a \csl f \csu a c f]) |
\csl s4 c32[( \hslip f, a c \csu f a c f a c \ottava #1 f a f' f, f' f,])
\ottava #0 |
%% 104 - 106
\csl s4 bf,,,32[( \hslip f bf df \csu f bf df f bf df \ottava #1 f bf
f' f, f' f,]) |
r \sd gf[( gf' gf,]) r f[( f' f,]) r ef[( ef' ef,]) r df[( df' df,])
r c[( c' c,]) r bf[( bf' bf,]) |
16\arpeggio[ \ottava #0
^.( ^. ^. ^. ^.
^.^. ^. ^. ^. ^.]) |
%% 107 - 108
\ottava #1
\tupletSpan 8
\tuplet 3/2 {
16[(^\markup {"" \raise #2.5 \italic "largamente"} )
( )
( )
( )
( )
( )] |
\omit TupletNumber
[
16] |
%% 109 - 110
[
^^
^^
^^
^^