\version "2.11.62"
% \include "definitions.ly"
\include "showlast.ly"

\header{
   composer          = \markup { \override #'(font-name . "Vera") { "Jonathan Kulp (1970-)" } }
   title             = \markup \left-align { \override #'(font-name . "Vera") { \fontsize #+3 "Tarantella" } }
   subtitle	     = \markup { \override #'(font-name . "Vera") { \fontsize #-2 "for Alexandre Dossin" } }
%   dedication	     = \markup { \fontsize #-2 "to Alexandre Dossin" } 
   copyright         = \markup { \override #'(font-name . "Vera") { \fontsize #-2 "© 2006 by Jonathan Kulp -- Creative Commons Attribution-Noncommercial-Share Alike 3.0" } }
}

\paper {
  print-page-number = ##t
  print-first-page-number = ##f
  print-first-page-header = ##f
  #(set-paper-size "letter")
}


global = {
    \set Staff.midiInstrument = "piano"
    \set Staff.instrumentName = "Piano"
     {
	\time 6/8
	%\override Score.MetronomeMark #'padding = #6.0
	%\tempo 4.=120	
     }
}

% ################# MACROS ########################


%********************************************************************&
%%% This is a macro that allows you to create octaves with a command &
%%% there's an example at the bottom.                                &
%********************************************************************&

#(define (octave-up m t)
  (let* ((octave (1- t))
        (new-note (ly:music-deep-copy m))
        (new-pitch (ly:make-pitch
          octave
          (ly:pitch-notename (ly:music-property m 'pitch))
          (ly:pitch-alteration (ly:music-property m 'pitch)))))
    (set! (ly:music-property new-note 'pitch) new-pitch)
    new-note))

#(define (octavize-chord elements t)
 (cond ((null? elements) elements)
       ((eq? (ly:music-property (car elements) 'name) 'NoteEvent)
         (cons (car elements)
               (cons (octave-up (car elements) t)
                     (octavize-chord (cdr elements) t))))
       (else (cons (car elements) (octavize-chord (cdr elements ) t)))))

#(define (octavize music t)
 (let* ((es (ly:music-property music 'elements))
        (e (ly:music-property music 'element))
        (name (ly:music-property music 'name)))
   (cond ((eq? name 'EventChord)
          (ly:music-set-property! music 'elements (octavize-chord es t)))
         ((pair? es)
          (for-each (lambda(x) (octavize x t)) es))
         ((ly:music? e)
          (octavize e))))
 music)

makeOctaves = #(define-music-function (parser location arg mus) (integer? ly:music?)
 (octavize mus arg))
 
% \relative { c d e \makeOctaves #-1 { f g c }} % this is an example of the macro in practice

%------------------------------END OF OCTAVES MACRO--------------------------------------%

%%*******************************%%
%% Main cross-staff beamed motto %%
%% of the piece.                 %%
%%*******************************%%

flutter = \relative c'' { 
	<e e'>16								% m. 1
		\change Staff = down <dis dis'> \change Staff = up <e e'> 	% m. 1
		\change Staff = down <dis dis'> \change Staff = up <e e'> 	% m. 1
		\change Staff = down <dis dis'> \change Staff = up <e e'>8 	% m. 1
		\change Staff = down <bes bes'> \change Staff = up <f f'>	% m. 1
	<e e'>16[ \change Staff = down <dis dis'> \change Staff = up <e e'> 	% m. 2
		\change Staff = down <dis dis'> \change Staff = up <e e'> 	% m. 2
		\change Staff = down <dis dis'>] \change Staff = up <e e'>8 	% m. 2
		\change Staff = down <bes bes'> \change Staff = up <f f'>	
	}

%***************************************************%
% This is the main left-hand ostinato for the piece %
%***************************************************%

ostinato = \relative c { e,8( b'-.) ais-. f'-. e-. ais,-. }

%**********************************************************%
% This tweak moves a dynamic marking slightly to the right %
% to avoid collision with the barline                      %
%**********************************************************%

nuj = \once \override DynamicText #'extra-offset = #'(+1.0 . -0.0)

%%*******************************%%*******************************%%***********%
%%%----END OF MACRO DEFINITIONS (MORE DEFINITIONS IN definitions.ly file-----%%%
%%*******************************%%*******************************%%***********%


%*****************************%
%%% NOTES FOR THE UPPER STAFF %
%*****************************%

up = \relative c'' {
	 \time 6/8
	 \override Score.MetronomeMark #'padding = #4.7
	 \tempo "Presto" 4.=120

	 
% insert notes for upper staff here
	\flutter		|	% m. 1-2
	es,2.-> ~ 		|	% m. 3
	es4. r4.		|	% m. 4
  \break
	r8 <dis' e>16( c16 <dis e>8) r8 <ais b>16( g16 <ais b>8) |	% m. 5
	r8 <ais' b>16( g16 <ais b>8) r8 <fis g>16( dis <fis g>8) |	% m. 6
	r8 <cis d>4 <ais b> <fis g>8 ~	|			% m. 7
	<fis g>8 f!16( e es d des8-.) c-. b-.	|		% m. 8
	<ais ais'>4.( <b b'>4.	|				% m. 9
	<f' f'>2 <e e'>4		|				% m. 10
	<b b'>8. <ais ais'>16 <b b'>8 <bes bes'>4 <a! a'!>8	|	% m. 11
	<aes aes'>4) aes''8 aes' aes, aes,	|			% m. 12
	<a! a'!>4.( <gis gis'>4 <a a'>8		|			% m. 13
	<dis dis'>2 <d d'>4			|			% m. 14
	<a a'>8. <gis gis'>16 <a a'>8 <gis gis'> <g g'> <fis fis'> |	% m. 15
	<f! f'!>4) es16( d des8 c b)		|			% m. 16
	ais16( ais' ais,8 ais'4 <b, b'>		|			% m. 17
	<f' f'>4. <e e'>			|			% m. 18
	<b b'>8. <ais ais'>16 <b b'>8 <bes bes'>4 <a! a'!>8 ~ 	|	% m. 19	
	<a a'>8 <aes aes'>) aes''16 aes aes'8 aes, aes,		|	% m. 20
	<a! a'!>4.( <gis gis'>4 <a a'>8		|			% m. 21
	<dis dis'>2 <d d'>4	|					% m. 22
	<a a'>8. <gis gis'>16 <a a'>8 <gis gis'> <g! g'!> <fis fis'> |	% m. 23
	<f! f'!>4) f'16 f f'8 f, f,	|				% m. 24
	r8 <b e>16( f <b e>8-.) r8 <bes e>16( f <bes e>8-.)	|	% m. 25
	r8 <b! e>16( f <b e> f <b e>8-.) f-. <bes e>-.		|	% m. 26
	r8 <b e>16( f <b e>8-.) r8 <bes e>16( f <bes e>8-.)	|	% m. 27
	r8 aes8 aes'16 aes aes'8 aes, aes,			|	% m. 28
	r8 <g! c des ges>-. <g c des ges>-. r8 <g? c des ges>-. r8 |	% m. 29
	r8 <g! c des ges>-. <g c des ges>-. <g c des ges>-.[ r8 <g c des ges>-.] % m. 30
	r8 <d! g! aes des>-. r8 <d g aes des>-.[ r8 <d g aes des>-.] |	% m. 31
	e8 bes'16 bes e8-. b'!-. f-. e'-.	|			% m. 32
	ais,8( ais, ais' b, b' b,		|			% m. 33
	dis'8[ dis,] d'[ d,] dis'[ dis,]	|			% m. 34
	b'8 b, ais'16 ais, b'8 bes <a, a'>	|			% m. 35
	aes8) aes'16 aes aes'8 aes,-. aes,-. aes'-.	|		% m. 36
	a!8[( a,!] gis'[ gis,] a'[ a,]		|			% m. 37
	d'8[ d,] es'[ es,] d'[ d,]		|			% m. 38
	a'8 a, gis'16 gis, g'8 g, <f f'>	|			% m. 39
	<e e'>) r8 r r4.			|			% m. 40
	r4. r4 ais'8(				|			% m. 41
	b4 ais8 b4 ais8				|			% m. 42
	a!4 gis8 a4 gis8			|			% m. 43
	g!4) r8 r4.				|			% m. 44
	g,8(_\markup { \italic "l.h." } d'-.) des-. 			% m. 45a
	aes'-._\markup { \italic "r.h." } g-. des'-. |			% m. 45b
	c4( b8 c4 b8				|			% m. 46
	bes4 a8 bes4 a8				|			% m. 47
	aes8) r8 r r4.				|			% m. 48
	aes,8(_\markup { \italic "l.h." } es'-.) d-. 			% m. 49a
		a'!-.^\markup { \italic "r.h." } aes-. d-. |		% m. 49b
	R2.					|			% m. 50
	a,8(_\markup { \italic "l.h." } e'-.) es-. 			% m. 51a
		bes'-.^\markup { \italic "r.h." } a-. dis-.	|	% m. 51b
	\flutter							% m. 52-53
	dis,,8( e dis d des c 				|	% m. 54
	b8 bes a aes g ges					|	% m. 55
	f8 b) a-. f'-. es-. b-.					|	% m. 56
	R2. 	| 	R2.	|	R2.	|	R2.	|	% m. 57-60
	a'4 a8 a4 a8						| 	% m. 61	
	a16( b cis4 ~ cis8 b a			|	% m. 62
	es'8 f es-.) es4( des8			|	% m. 63
	bes2) aes8( bes				|	% m. 64
	c2) bes8( c				|	% m. 65
	d2) c8( d				|	% m. 66
	e!8-> b e->) e->( b e->)		|	% m. 67
	es8( d des c b bes)			|	% m. 68
	<a a'>4 <a a'>8 <a a'>4 <b b'>8		|	% m. 69
	<cis cis'>4. ~ <cis cis'>8 <b b'> <a a'> |	% m. 70
	<e' e'>8. <f f'>16 <e e'>8 ~ <e e'> <d d'> <c c'> | % m. 71
	<bes bes'>2.				|	% m. 72
	g8( g' g, g4 a8				|	% m. 73
	bes4. bes4 a8				|	% m. 74
	c8 b! a g f es 				|	% m. 75
	d4.) d''8( c bes			|	% m. 76
	a8 a, a' a a, a'			|	% m. 77
	a4 a16 b c8 d e				|	% m. 78
	fis8 e d c b a				|	% m. 79
	g8 a g f e d				|	% m. 80
	c4. ~ c8) bes( c			|	% m. 81
	d4. ~ d8) c( d				|	% m. 82
	e8-> b) e-. e->( b) e-.			|	% m. 83
	f8( fis g gis a ais			|	% m. 84
	b4 ais8 b4 ais8)			|	% m. 85
	r8 b( c cis4 d8				|	% m. 86
	es4 d8 es4 d8)				|	% m. 87
	r8 cis r8 r <d, d'> <dis dis'>		|	% m. 88
	\flutter				|	% m. 89-90
  \break
	d,2. ~  |  d4. r4.			|	% m. 91-92
	e'8( b'-.) bes-. f'-. e-. b-.		|	% m. 93
	R2.					|	% m. 94
	bes4( c8 bes4 c8			|	% m. 95
	g'2 e4					|	% m. 96
	c8. bes16 c8 e4 a,!8			|	% m. 97
	aes2.)					|	% m. 98
	r8 a!4( gis a8				|	% m. 99
	e'4. dis				|	% m. 100
	cis8 b cis b bes a			|	% m. 101
	aes4) r16 c,( cis d dis e f fis	|	% m. 102
	<g, g'>8. <gis gis'> <g g'> <gis gis'> |	% m. 103
	<dis' dis'>4. <b b'>)			|	% m. 104
	<cis cis'>4( <d d'>8 <des des'>16. <cis cis'> <b b'> <bes bes'> |	% m. 105
	<a a'>8) f! fis'16 fis fis'8 fis,? fis, |	% m. 106
	<a a'>4.( <gis gis'>4 <a a'>8		|	% m. 107
	<dis dis'>4. ~ <dis dis'>8 <cis cis'>4  |	% m. 108
	<a a'>8.\< <aes aes'> <g g'>4 <ges ges'>8 |	% m. 109
	<f f'>4.) r4.				|	% m. 110
	gis8( dis') d-. a'( gis) r8		|	% m. 111
	ges8( f) r8 e( dis) r8		|		% m. 112
	r8 d!( cis d g aes		|		% m. 113
	des8 aes des d cis gis		|		% m. 114
	a16 gis g8 fis g) r8 f(		|  		% m. 115
	e4 a8 bes4 a8)			|		% m. 116
	r8 g!8( fis g c des		|		% m. 117
\ottava #1
	ges8 des ges g fis cis		|		% m. 118
	d16 cis c8 b c) r8 b(		|		% m. 119
	a4 d8 es4 d8			|		% m. 120
	cis8) c( b c f fis		|		% m. 121
	b8 fis b c b fis		|		% m. 122
	g16 fis f8 e f e) r8		|		% m. 123
	dis8-.[ r8 gis-.] a-.[ r8 g-.]	|		% m. 124
	fis8-.[ r8 b-.] c-.[ r8 b-.]	|		% m. 125
	c8-. r8 f-. ges-. r8 f-.	|		% m. 126
\ottava #0
	r4 fis,8-. g-.[ r8 fis-.]	|		% m. 127
	R2.	|	R2.	|			% m. 128-129
  \stemDown
	r4. ges,,8-.[_\markup { \italic "l.h." } r8 f-.] % m. 130
  \stemNeutral
	f'8-.[ r8 e-.] es-.[ r8 d-.]	|		% m. 131
	des8-.[ r8 c-.] b-.[ r8 bes-.]	|		% m. 132
	a4 a8 a4 a8			|		% m. 133
	a16( b cis4 ~ cis8 b a		|		% m. 134
	es'8 f es-.) es4( des8		|		% m. 135
	bes2) aes8( bes			|		% m. 136
	c2) bes8( c			|		% m. 137
	d2) c8( d)			|		% m. 138
	e!8->( b e-.) e->( b e)		|		% m. 139
	es8( d des c b bes)			|	% m. 140
	\makeOctaves #1 {a4 a8 a4 b8		|	% m. 141 octaves
	cis4. a8. cis?			|		% m. 142 octaves
	f4 e d8 c!			|		% m. 143 octaves
	bes2. }				|		% m. 144 octaves
	g8( g' g, g4 a8			|		% m. 145
	bes4. bes4 a8			|		% m. 146
	c8 b! a g f es			|		% m. 147
	d4.) d''8( c bes		|		% m. 148
	a8 a, a' a a, a'		|		% m. 149
	a16 b c4 d e8			|		% m. 150
	fis8 e d c b a 			|		% m. 151
	g8 a g f e d			|		% m. 152
	c4. ~ c8) bes( c		|		% m. 153
	d4. ~ d8) c( d			|		% m. 154
	e8-> b) e-. e->( b e)		|		% m. 155
	f8( fis g gis a ais		|		% m. 156
	b4 ais8 b4 ais8)		|		% m. 157
	r8 b8( c cis4 d8		|		% m. 158
	es4 d es8 d)			|		% m. 159
	r8 cis r r \makeOctaves #-1 { d8 dis }  |		% m. 160
	\flutter			|		% m. 161-162
  \break
	es,2.-> ~ 			|		% m. 163
	es4. r4.			|		% m. 164
	r8 <cis' d>4 <ais b> <fis g>8 ~	|	% m. 165
	<fis g>8 f!16( e es d des8-.) c-. b-.	|% m. 166
	ais8\( b ais b ais b 		|		% m. 167
	e8 f e es d des 		|		% m. 168
	c8 des c b bes a		|		% m. 169
	aes4\) aes'8 aes' aes, e	|		% m. 170
	a,!8( gis a gis? bes a		|		% m. 171
	es'8 d des c b bes		|		% m. 172
	ces8 bes a aes g ges		|		% m. 173
	f4) es16( d des8 c b)		|		% m. 174
	ais16 ais' ais,8 ais'4 <b, b'>	|		% m. 175
	\makeOctaves #1 {f'4. e 		|		% m. 176
	b8. ais16 b8 bes4 a8 ~ 		|		% m. 177
	a8 aes } aes''16 aes aes'8 aes, aes, |		% m. 178
	\makeOctaves #1 {a!4. gis4 a8	|		% m. 179
	dis2 d4				|		% m. 180
	a8. gis16 a8 aes g ges		|		% m. 181
	f4 } f'16 f f'8 f, f,		|		% m. 182
	r8 <b e>16( f <b e>8-.) r8 <bes e>16( f <bes e>8-.)	|	% m. 183
	r8 <b! e>16( f <b e> f <b e>8-.) f-. <bes e>-.		|	% m. 184
	r8 <b e>16( f <b e>8-.) r8 <bes e>16( f <bes e>8-.)	|	% m. 185
	r8 aes8 aes'16 aes aes'8 aes, aes,			|	% m. 186
	r8 <g! c des ges>-. <g c des ges>-. r8 <g? c des ges>-. r8 |	% m. 187
	r8 <g! c des ges>-. <g c des ges>-. <g c des ges>-.[ r8 <g c des ges>-.] % m. 188
	r8 <d! g! aes des>-. r8 <d g aes des>-.[ r8 <d g aes des>-.] |	% m. 189
	e8 bes'16 bes e8-. b'!-. f-. e'-.	|			% m. 190
	ais,8( ais, ais' b, b' b,		|			% m. 191
	dis'8[ dis,] d'[ d,] dis'[ dis,]	|			% m. 192
	b'8 b, ais'16 ais, b'8 bes <a, a'>	|			% m. 193
	aes8) aes'16 aes aes'8 aes,-. aes,-. aes'-.	|		% m. 194
	a!8[( a,!] gis'[ gis,] a'[ a,]		|			% m. 195
	d'8[ d,] es'[ es,] d'[ d,]		|			% m. 196
	a'8 a, gis'16 gis, g'8 g, <f f'>)	|			% m. 197
	<e e'>8-> b' <e, e'>-> <e e'>-> b' <e, e'>-> |			% m. 198
	<f f'>8->[ b] <f f'>8->[ b] <f f'>4->  |			% m. 199
	<e e'>8-> b' <e, e'>-> <e e'>-> b' <e, e'>-> |			% m. 200
	<f f'>8->[ b] <f f'>8->[ b] <f f'>8->[ b]  |			% m. 201
	g'8-.[ r8 f!-.] es-.[ r8 des-.]		|	% m. 202
	b8-.[ r8 a-.] g-.[ r8 f!-.]		|	% m. 203
	e8( b' ais f' e a,			|	% m. 204
	e'8 b' ais f' e \ottava #1 b')	|	% m. 205
	e-. \ottava #0 r8 r r4.	\bar "|."	% m. 206 end of piece
}
	
%%% NOTES FOR THE LOWER STAFF

down = \relative c {
  \clef treble
% insert notes for bass staff here
	\override DynamicLineSpanner #'staff-padding = #3	
	s2. s2. 			% mm. 1-2 spacers so upper voice can cross over to this staff

  \clef bass
	e,!8( b'-.) ais-. f'-. e?-. ais,-.	|	% m. 3
	e!8( b'-.) ais-. f'-. e?-. ais,-.	|	% m. 4
	\ostinato | \ostinato |				% m. 5-6
	\ostinato | 					% m. 7
	e8( b'-.) ais-. f'-. e?-. ais,-.	|	% m. 8
	\ostinato | \ostinato |				% m. 9-10
	e8( b'-.) ais-. f'-. e-. ais,?-.	|	% m. 11
	f8( c'-.) b-. fis'-. f!-. b,-.		|	% m. 12
	ges8( des'-.) c-. g'!-. ges-. c,-.	|	% m. 13
	ges8( des'-.) c-. g'!-. ges-. c,-.	|	% m. 14
	ges8( des'-.) c-. g'!-. ges-. c,-.	|	% m. 15
	e,8( b'-.) ais-. f'-. e?-. ais,-.	|	% m. 16
	\ostinato | \ostinato |				% m. 17-18
	e8( b'-.) ais-. f'-. e-. ais,?-.		% m. 19
	f8( c'-.) b-. fis'-. f!-. b,-.		|	% m. 20
	fis8( cis'-.) c-. g'?-. fis-. c-.	|	% m. 21
	fis,8( cis'-.) c-. g'-. fis-. c-.	|	% m. 22
	g8( d'-.) des-. aes'-. g-. d-.		|	% m. 23
	e,8( b'-.) ais-. f'16^( e es des c b) 	|	% m. 24
	<ais, ais'>4._\( <b b'>			|	% m. 25
	<f' f'>2 <e e'>4			|	% m. 26
	<b b'>8._( <ais ais'>16 <b b'>8_) <bes bes'>4 <a a'>8 |	% m. 27
	<aes aes'>2._\)				|	% m. 28
	<a! a'!>4.( <gis gis'>4 <a a'>8		|	% m. 29
	<dis dis'>2 <d d'>4			|	% m. 30
	<a a'>8. <gis gis'>16 <a? a'?>8 <gis gis'>16 <g g'> <fis fis'>8-.) <f f'>-.	% m. 31
	<e e'>8( b''-.) ais-. f'-. e-. a,-.	|	% m. 32
	\ostinato 	| 	\ostinato 	|	% m. 33-34
	e8( b'-.) ais-. f'-. e-. ais,?-.	|	% m. 35
	f8( c'-.) b-. ges'-. f-. b,-.		|	% m. 36
	fis8( cis'-.) c-. g'!-. fis-. c-.	|	% m. 37
	fis,8( cis'-.) c-. g'-. fis-. c-.	|	% m. 38	
	g8( d'-.) des-. aes'-. g-. d-.		|	% m. 39
	\ostinato				|	% m. 40
	e8( b'-.) ais-. f'-. e-. ais,(		|	% m. 41
	b4 ais8 b4 ais8				|	% m. 42
	a!4 gis8 a4 gis,8			|	% m. 43
	g!8 d'-.) des-. aes'-.^\markup { \italic "r.h." } g-. des'-.	| % m. 44
	R2.	|					% m. 45
	c4( b8 c4 b8				|	% m. 46
	bes4 a8 bes4) a,8			|	% m. 47
	aes8( es'-.) d-. a'!-.^\markup { \italic "r.h." } aes-. d-. |	% m. 48
	r4. r4 bes,8(				|	% m. 49
	a8 e'-.) es-. bes'-.^\markup { \italic "r.h." } a-. es'-. 	% m. 50
	R2.	\clef treble				% m. 51
   \override DynamicLineSpanner #'staff-padding = #3	
	s2. s2. 	\clef bass			% m. 52-53
	r4 dis,8( d-.)[ r8 c(]	|			% m. 54
	b8-.)[ r8 a(] aes-.)[ r8 ges(]	|		% m. 55
	f2. ~ 				|		% m. 56
	f8) b-. a-. f'-. es-. b-.	|		% m. 57
	r8 b( a) f'-. es-. b-.		|		% m. 58	
	f8( b-.) a-. f'-. es-. b-.	|		% m. 59
	r8 b( a) f'-. es-. b-.		|		% m. 60
	f8( b-.) a-. f'-. es-. b-.	|		% m. 61
	r8 b( a) f'-. es-. b-.		|		% m. 62
	f8( b-.) a-. f'-. es-. b-.	|		% m. 63
	fis8( c'-.) bes-. fis'-. e-. c-.|		% m. 64
	r8 a8( c e aes) r8		|		% m. 65
	r8 b,( d g b) r8		|		% m. 66
	r8 <e,, dis'>4-> <e dis'>4-> <e dis'>8->  |	% m. 67
	e'!8( ais) gis-. e'-. g,-. c,-.	|		% m. 68
	f,8( c' f c f c)		|		% m. 69
	f,8( c'? f c f c)		|		% m. 70
	f,8( c' f c f c)		|		% m. 71
	g8( d' g d g d)			|		% m. 72
	es,8( bes' es bes es bes)	|		% m. 73
	es,8( bes' es bes es bes)	|		% m. 74
	es,8( bes' es bes es bes)	|		% m. 75
	bes,8( f' bes ~ bes a g 	|		% m. 76
	f8( c' f c f c)			|		% m. 77
	f,8( c' f c f c)		|		% m. 78
	f,!8( c' f c f c)		|		% m. 79
	e,( b' e b e b)			|		% m. 80
	r8 a( c e ais) r8		|		% m. 81
	r8 b,( d g b) r8		|		% m. 82
	r8 <e,, dis'>4-> <e dis'>-> <e dis'>8-> |	% m. 83
	r8 <e' dis'>4-> <e dis'>-> <e dis'>8->	|	% m. 84
	b'4( ais8 b4 ais8)		|		% m. 85
	r8 b( c cis4 d8			|		% m. 86
	es4 d8 es4 d8)			|		% m. 87
	r8 cis r8 r4. \clef treble	|		% m. 88
 \override DynamicLineSpanner #'staff-padding = #3	
	s2. s2. 	\clef bass	|		% m. 89-90
	r8 b,-. ais-. f'-. e-. a,-.	|		% m. 91
	e8( b'-.) ais-. f'-. e-. a,-.	|		% m. 92
	R2.				|		% m. 93
	r8 b-. ais-. f'-. e-. a,-.	| \clef treble	% m. 94
	r8 b''-. ais-. f'-. e-. ais,-.	|		% m. 95	
	e-. b'-. ais-. f'-. e-. ais,-.	|		% m. 96
	e-. b'?-. ais-. f'-. e-. ais,!-. |		% m. 97
	r8 c-. b-. ges'-. f-. b,-.	|		% m. 98
	ges-. des'-. c-. g'-. ges-. c,-. |		% m. 99
	r8 des-. c-. g'-. ges-. c,-. |			% m. 100
	ges-. des'-. c-. g'-. ges-. c,-. |		% m. 101
	r8 b,!-. ais-. f'-. e-. a,-.	|		% m. 102
   \clef bass
	\ostinato			|		% m. 103
	\ostinato			|		% m. 104
	\ostinato			|		% m. 105
	fis,8( cis'-.) c-. fis-. f-. e-. |		% m. 106
	dis8-. d-. cis-. c-. b-. bes-.	|		% m. 107
	a-. es'-. des-. g-. f-. es-.	|		% m. 108
	ges,8( des'-.) c-. b-. bes-. a-. |		% m. 109
	gis8-. dis'-. d-. a'-. gis-. d-. |		% m. 110
	gis8-. r8 r r4.			|		% m. 111
	ges8( f) r8 e( dis) r8		|		% m. 112
	r8 d!( cis d g aes		|		% m. 113
	des8 aes des d cis gis		|		% m. 114
	a16 gis g8 fis g) r8 r8		| \clef treble	% m. 115
	r8 gis'8-. r8 r8 b!-. r8	| \clef bass	% m. 116
	r8 g,!( fis g c des 		| \clef treble	% m. 117
	ges8 des ges g fis cis		|		% m. 118
	d16 cis c8 b c) r8 r8		|		% m. 119
	r8 cis'-. r8 r8 e!-. r8 		| \clef bass	% m. 120
	cis,,8 c( b c f fis		|		% m. 121
	b8 fis b c b fis		|		% m. 122
	g16 fis f8 e f e) r8	\clef treble	|	% m. 123
	r8 g''-. r8 r bes-. r8		|		% m. 124
	r8 bes-. r8 r des-. r8		|		% m. 125
\ottava #1
	r8 e-. r8 r8 g!-. r8 \ottava #0 |	% m. 126
	r8 f,,-. r8 r8 aes-. r8  \clef bass	|	% m. 127
  \stemUp
	r8 <fis, b f'!>4->^\f <fis b f'!>4-><fis b f'!>8-> % m. 128
  \stemNeutral
	\nuj c,8-.[^\mp r8 f-.] ges-.[ r8 f-.] 	|	% m. 129
	ges'8-.[^\markup { \italic "r.h." } r8 f-.] r4.	% m. 130
  \clef treble
	r8 fis'-. r8 r8 e!-. r8			|	% m. 131
	r8 d!-. r8 r8 c-. r8 			|	% m. 132
  \clef bass
  	f,,8( b-.) a-. f'-. es-. b-.	|		% m. 133
	r8 b( a) f'-. es-. b-.		|		% m. 134
	f8( b-.) a-. f'-. es-. b-.	|		% m. 135
	fis8( c'-.) bes-. fis'-. e-. c-.|		% m. 136
	r8 a8( c e aes) r8		|		% m. 137
	r8 b,( d g b) r8		|		% m. 138
	r8 <e,, dis'>4-> <e dis'>4-> <e dis'>8->  |	% m. 139
	e'!8( ais) gis-. e'-. g,-. c,-.	|		% m. 140
	f,8( c' f c f c)		|		% m. 141
	f,8( c'? f c f c?)		|		% m. 142
	f,8( c' f c f c)		|		% m. 143
	g8( d' g d g d)			|		% m. 144
	es,8( bes' es bes es bes)	|		% m. 145
	es,8( bes' es bes es bes)	|		% m. 146
	es,8( bes' es bes es bes)	|		% m. 147
	bes,8( f' bes ~ bes a g		|		% m. 148
	f8( c' f c f c)			|		% m. 149
	f,8( c' f c f c)		|		% m. 150
	f,!8( c' f c f c)		|		% m. 151
	e,8( b' e b e b)		|		% m. 152
	r8 a8( c e aes) r8		|		% m. 153
	r8 b,( d g b) r8		|		% m. 154
	r8 <e,, dis'>4-> <e dis'>4-> <e dis'>8->  |	% m. 155
	r8 <e' dis'>4-> <e dis'>4-> <e dis'>8->  |	% m. 156
	b'!4( ais8 b4 ais8)		|		% m. 157
	r8 b8( c cis4 d8		|		% m. 158
	es4 d es8 d)			|		% m. 159
	r8 cis r r4.	\clef treble	|		% m. 160
   \override DynamicLineSpanner #'staff-padding = #3	
	s2. s2. 			% mm. 161-2 spacers so upper voice can cross over to this staff
   \clef bass
	e,,!8( b'-.) ais-. f'-. e?-. ais,-.	|	% m. 163
	r8 b-. ais-. f'-. e?-. ais,-.		|	% m. 164
	e'8( b'-.) ais-. f'-. e-. ais,-.	|	% m. 165
	\ostinato \ostinato			|	% m. 166-167
	e,8( b'-.) ais-. f'-. e?-. ais,-.	|	% m. 168
	\ostinato				|	% m. 169
	f8( c'-.) b-. ges'-. f!-. b,-.		|	% m. 170
	ges8( des'-.) c-. g'!-. ges-. c,-.	|	% m. 171
	ges8( des'-.) c-. g'!-. ges-. c,-.	|	% m. 172
	ges8( des'-.) c-. g'!-. ges-. c,-.	|	% m. 173
	e,8( b'-.) ais-. f'-. e?-. ais,-.	|	% m. 174
	\ostinato | \ostinato |				% m. 175-176
	e8( b'-.) ais-. f'-. e-. ais,?-. 	|	% m. 177
	f8( c'-.) b-. ges'-. f-. b,-.		|	% m. 178
	fis8( cis'-.) c-. g'-. fis-. c-.	|	% m. 179
	fis,8( cis'-.) c-. g'-. fis-. c-.	|	% m. 180
	g8( d'-.) des-. aes'-. g-. d-.		|	% m. 181
	e,8( b'-.) aes-. f'16( e es des c b)	|	% m. 182
	\makeOctaves #-1 {ais4.( b	|  f'2 e4 	|	% m. 183-184
	b8. ais16 b8 bes4 a8  	|  aes2.)	|	% m. 185-186
	a!4.( gis4 a8	|  dis2 d4		|	% m. 187-188
	a8. gis16 a8 gis16 g fis8-.) f-.	|	% m. 189
	e8( } b'!-.) ais-. f'-. e-. a,-.	|	% m. 190
	\ostinato 	| 	\ostinato 	|	% m. 191-192
	e8( b'-.) ais-. f'-. e-. ais,?-.	|	% m. 193
	f8( c'-.) b-. ges'-. f-. b,-.		|	% m. 194
	fis8( cis'-.) c-. g'!-. fis-. c-.	|	% m. 195
	fis,8( cis'-.) c-. g'-. fis-. c-.	|	% m. 196
	g8( d'-.) des-. aes'-. g-. d-.		|	% m. 197
	r8 <e, dis'>4 <e dis'>4 <e dis'>8	|	% m. 198
	r8 <b' a'>4 <b a'> <b a'>8		|	% m. 199
	r8 <e, dis'>4 <e dis'>4 <e dis'>8	|	% m. 200
	r8 <b a'>4 <b a'> <b a'>8 		|	% m. 201
  \clef treble
	r8 fis'''-. r8 r8 d-. r8 		|	% m. 202
  \clef bass
	r8 bes-. r8 r8 gis-. r8			|	% m. 203
	e,8( b' ais f' e a,			|	% m. 204
	e'8 b' ais f' e b)			|	% m. 205
	e,8-. r8 r  \ottava #-1 e,,-.  \ottava #0 r8 r	% m. 206 end of piece
}

dynamics = {
  s2.\ff | s2. | s2.\fp | s2.*3 | 	% mm. 1-6
  s2.\< | s4 s16 s16\! s4\> s8\! |	% mm. 7-8
  s2.\mp | s2.*6 |			% mm. 9-15
  s4.\< s4 s8\!  |			% m. 16
  s2.*7		|			% m. 17-23
  s4.\< s4 s16 s16\! | s2.\f		% m. 24-25
  s2.*15				% m. 26-40
  s4. s4 s8\mp  | s2.*2 | s2.\f		% m. 41-44
  s2. | % m. 45
  \nuj s2.\mp  | s2.   | s2.\f		% m. 46-48
  s2.*3	| \nuj s2.\ff | s2.  |		% m. 49-53
  s2.\> | s4. s4 s8\! 	|		% m. 54-55
  s2.\mp | s2.*8 | s2.\< | s4. s4 s8\!  % m. 56-66
  s2.\f  | s2.\> | \nuj s2.\mf		% m. 67-69
  s2.*11 | s2.\< | s2. | s4. s4 s8\! | \nuj s2.\f | \nuj s2.\p % m. 70-85
  s4.\< s4 s8\! | s2.\mp | s8 s4\mf s8 s4\< | \nuj s2.\ff  % m. 86-89
  s2.  | s2.\fp  | s2. | \nuj s2.\p | s8 s4\mp s4. | \nuj s2.\p | % m. 90-95
  s2.*6 | s2.\< |   % m. 96-102
\once \override DynamicText #'extra-offset = #'(+1.0 . -0.5)
  s2.\mf | s2.*5 | s4.\< s4 s8\! | s2.\f | % m. 103-110
  s2.   | s2.\mp | s8 s4\f s4. | s2.*2 | \nuj s2.\fp |  % m. 111-116
  s8 s4\f s4. | s2.*2 | \nuj s2.\p | s8 s4\f s4. |	   % m. 117-121
  s2.*2 | s2.\pp | s2.*3 | s8 s4 s4. | s2.    % m. 122-129
  s2.*7 | s2.\< | s4. s4 s8\! | s2.\f | s4.\> s4 s8\!| s2.	   % m. 130-141
  s2.*10 | s2.\> | \nuj s4.\mf s8 s4\< | s2.*2 | s4. s4 s8\! | s2.\fp % m. 142-157
  s8 s4\mp s4. | s2.*2 | \nuj s2.\ff | s2. | s2.\fp |   % m. 158-163
  s2. | s2.\< | s4 s16 s16\! s4.\> | s2.\! | s2.*6 |    % m. 164-173
  s4.\< s4 s8\! | s2.\mf | s2.*7 | s2.\ff | s2.*20    |    % m. 174-203
  s2.\> | s4. s4 s8\! | 		   % m. 204-205
\once \override DynamicText #'extra-spacing-width = #'(-0.8 . 0.0)
  s2.\p				   % m. 206
}

pedal = {
  % s2\sustainOn s\sustainOff
}

% \showLastLength = R2.*10  % to render only the last 10 bars, uncomment this line
			   % to render whole file, comment out previous line.



% ****** HERE'S WHERE IT ALL GOES TOGETHER ***************

\score {
  \new PianoStaff 
    <<
    \set PianoStaff.instrumentName = "Piano"
    \new Staff = "up" \up
    \new Dynamics = "dynamics" \dynamics
    \new Staff = "down" <<
      \clef bass
      \down
    >>
    \new Dynamics = "pedal" \pedal
  >>
  \layout {
    \context {
      \type "Engraver_group"
      \name Dynamics
      % So that \cresc works, for example.
      \alias Voice
      \consists "Output_property_engraver"
      
      \override VerticalAxisGroup #'minimum-Y-extent = #'(-1 . 1)
      \override DynamicLineSpanner #'Y-offset = #0
      pedalSustainStrings = #'("Ped." "*Ped." "*")
      pedalUnaCordaStrings = #'("una corda" "" "tre corde")
      
      \consists "Piano_pedal_engraver"
      \consists "Script_engraver"
      \consists "Dynamic_engraver"
      \consists "Text_engraver"
      
      \override TextScript #'font-size = #2
      \override TextScript #'font-shape = #'italic
      
      \consists "Skip_event_swallow_translator"
      
      \consists "Axis_group_engraver"
    }
    \context {
      \PianoStaff
      \accepts Dynamics
    }
  }
}
\score {
  \new PianoStaff \with {
    \override VerticalAlignment #'forced-distance = #10
  }
  <<
    \new Staff = "up" << \up \dynamics \pedal >>
    \new Staff = "down" << \down \dynamics \pedal >>
  >>
  \midi {}
}