\version "1.6.12"
\paper{ papersize = "letter" }
\include "paper20.ly"

#(set-point-and-click! 'line-column)

\header {
  filename =    "rosabel.ly"
  title =       "The Rosabel Waltzes"
  composer =    "Edward J. Abraham"
  enteredby =   "KSW 2004/08/02"
  copyright =   "public domain"
}

%{
http://amicus.collectionscanada.ca/m5-bin/Main/ItemDisplay?l=0&l_ef_l=-1&id=43285.1491131&v=1&lvl=1&coll=17&rt=1&itm=11248666&rsn=S_WWWaaaCtDiCK&all=1&dt=AW+|edward|+AND+|abraham|&spi=-&rp=1&vo=1

  description
	Dedicated: To Miss Rosabel Morrison.

	Publisher:
		Walter Street
		29 Bleury & 2326 St. Catherine, Montreal

                              AMICUS No. 11248666
                              Monograph

        NAME(S): *Abraham, Edward J
                  W. Street
       TITLE(S):  The Rosabel waltzes [music] / composed 
                   for the pianoforte by Edward J. Abraham
      PUBLISHER:  Montreal (29 Bleury and 2326 St. 
                   Catherine) : W. Street ; [Montreal] 
                   (2135 Notre Dame St.) : M.A. Curran 
                   [distributor], [between 1888 and 1891]
    DESCRIPTION:  4 p. of music ; 37 cm.

          NOTES:  Title from caption.
                  Dedication: To Miss Rosabel Morrison.
                  On p. [1]:  Blue ink stamp for M.A. 
                   Curran.
        NUMBERS:  Canadiana:  905015304    

       SUBJECTS:  Piano music
                  Waltzes (Piano)
                  Piano, Musique de
                  Valses (Piano)
         COPIES:  Music,Cdn,1868-1949 - Copy 1: - Small 
                   tears; slightly soiled; yellowed; pencil 
                   inscription. - NO ILL 



               :  01348ccm  2200325 a 4500
%}

\include "english.ly"

barsByFive = {		%% number every 5th bar
     \property Score.BarNumber \override #'break-visibility =
       #end-of-line-invisible
     \property Score.barNumberVisibility = #(every-nth-bar-number-visible 5)
     \property Score.BarNumber \override #'molecule-callback =
       #(make-molecule-boxer 0.1 0.25 0.25 Text_item::brew_molecule)
     \property Score.BarNumber \override #'font-relative-size = #0
}

%%% Intro %%%

introGlobal = \notes {
	\time 6/8
	\key g \major
}

introTempo = \notes {
        \property Voice.TextScript \set #'font-style = #'large
        s8^"Allegro assai"
}
                
introDynamics = \notes {
	\property Voice.DynamicLineSpanner \override #'padding = #2.0
% 1
	s16\mf s16 s4 s4. |
% 2
	s8 \< s4 s4 \! s8 |
% 3
	s4. s4. |
% 4
	s8 \< s4 s4 \! s8 |
% 5
	s4. s4. |
% 6
	s4. s4. |
% 7
	s4. s4. |
% 8
	s4. s4. |
% 9
	s4. s4. |
% 10
	s8 \< s4 s4 \! s8 |
% 11
	s4. s4. |
% 12
	s4. s4. |
% 13
	s8 \< s4 s4 \! s8 |
% 14
	s8 \> s4 s4 \! s8 |
% 15 - 16
	s4. s4. | s4. s4. |
% 17 - 18
	s8 \< s4 s4. | s4. s4 \! s8 |
% 19 - 20
	s8 \< s4 s4. | s4. s4 \! s8 |
% 21 - 24 
	s2. | s2. | s2. | s2. |
}

introRight = \notes {
	\introGlobal
	\notes \relative c' {
% 1
		d8( g d g d )g |
% 2 
		\slurUp fs4.(~ < )d' fs, > \slurDown |
% 3
		d,8( g d g d )g |
% 4
		\slurUp fs4.(~ < )d' fs, > \slurDown |
% 5
		<d g,> <b4 d,> <a8 ef> |
% 6
% problems:		<g4. d>~ < { g8( fs )g } \\ cs,4. > |
		< { g4.~ g8( fs )g } \\ { d4. cs } > |
% 7
		< { b4.( a4 )e8 } \\ { < g2. cs, > } > |
% 8
		< b'4 fs d( > <a8 fs c> <fs4 c a> <d8 c )fs,> |
% 9
		d8( g d g d )g |
% 10 
		\slurUp fs4.(~ < )d' fs, > \slurDown |
% 11
		d,8( g d g d )g |
% 12
		\slurUp fs4.(~ < )d' fs, > \slurDown |
% 13
		< { d4. e4 e8 } \\ { g,4. gs } > |
% 14
		<fs4 d a> <d8 a fs> <a4 fs d> <g8 d b> |
% 15
		<fs4. d a> <e cs b g> |
% 16
		<d2 a fs> r4 |
% 17
		\repeat unfold 3 \notes { <a'8 fs c> }
		\repeat unfold 3 \notes { <gs8 f b,> } |
% 18
		<a4. fs c> <d a fs> |
% 19
		\repeat unfold 3 \notes { <g,8 d b> }
		\repeat unfold 3 \notes { <fs c a> } |
% 20
		<g4. d b> <d' b g d> |
% 21
		\repeat unfold 3 \notes { <fs,8 c a> }
		\repeat unfold 3 \notes { <e c g> } |
% 22 - 23
		\repeat unfold 2 \notes { <d4. c fs,> <e8 c g> a <e c g> } |
% 24
		<d\fermata c fs,> fs a c <e\fermata c a> <d\fermata c a> |
	}
}

introLeft = \notes {
	\introGlobal
	\clef F
	\notes \relative c' {
% 1
		g8( b g  b g )b |
% 2
		a4.( )c |
% 3
		g8( b g  b g )b |
% 4
		a4.( )c |
% 5
		b g4 fs8 |
% 6
		e2. |
% 7
		a, |
% 8
		d |
% 9
		g8( b g  b g )b |
% 10
		a4.( )c |
% 11
		g8( b g  b g )b |
% 12
		a4.( )c |
% 13
		b( b |
% 14
		)a2. |
% 15
		a,4. a |
% 16
		d,2 r4 |
% 17 - 23 
\repeat unfold 7 \notes {
		d8 d' d,  d' d, d' |
		}
% 24
		d,8\fermata [a'' c] e fs\fermata fs\fermata |
	}
}

%%% Waltz one

oneGlobal = \notes {
	\time 3/4
	\key g \major
	\notes {
	\repeat volta 2 { s2. * 16 }
	\repeat volta 2 { s2. * 12 }
		\alternative { {s2. * 4} {s2. * 4} }
	}
}

oneTempo = \notes {
        \property Voice.TextScript \set #'font-style = #'large
% 1 - 16
	\repeat volta 2 {
		s8^"Moderato" s8 s2 |
		s2. * 15 |
	}
% 17 - 28
	\repeat volta 2 {
		s2. * 12 |
	}
% 29 - 32
	\alternative {
		{ s2. * 4 }
		{ s2. * 4 }
	}
}

oneDynamics = \notes {
	\repeat volta 2 {
% 1
		s4\p s2 |
% 2 - 4
		s2. * 3 |
% 5 - 8
		s2 s4 \< | s2 \! s4  | s4 \> s4 \! s4 | s2. |
% 9 - 14
		s2. * 6 |
% 15 - 16
		s4 \> s2 | s4 \! s2 |
	}
% 17 - 28
	\repeat volta 2 {
		s4\ff s2 | s2. * 11 |
	}
% 29 - 32
	\alternative {
		{
			s2. * 4 |
		}
		{
			s4 \< s2 | s2 \! s4 | s4 \> s4. \! s8 | s2. |
		}
	}
}

oneRight = \notes {
% 1 - 4
	\notes \relative c' {
		\repeat volta 2 {
			\repeat unfold 2 \notes { d8( e g e g )e | fs2. | }
% 5 - 8
			d4( g b | e d )b | d c gs | b8( a )fs4 e |
% 9 - 12
			\repeat unfold 2 \notes { d8( e g e g )e | fs2. | }
% 13 - 16
        \property Voice.TupletBracket \override #'direction = #1
			d4 g b | e( d )g,
				| \times 2/3 {b8( c )b} a4 d, | g2 r4 |
		}
		\repeat volta 2 {
% 17
			<g'4-> e c g> r8 <g e c g> <g4 e c g> |
% 18
			<a e c a> r8 <a ef c a> <a4 ef c a> |
% 19
			<b g d b> r8 <d b g d> <d4 b g d>~ |
% 20
			<d b g d> <g,2 d b g> |
% 21
			<a4 fs c a> r8 <d a fs d> <d4 a fs d>~ |
% 22
			<d a fs d> <a2 fs d c> |
% 23
			<b4 g d b> r8 <d8 b g d> <d4 b g d>~ |
% 24
			<d2. b g d> |
% 25
			<g,4 e c g> r8 <g e c g> <g4 e c g> |
% 26
			<a e c a> r8 <a ef c a> <a4 ef c a> |
% 27
			<b g d b> r8 <d b g d> <d4 b g d>~ |
% 28
			<d b g d> <g,2-> d b g> |

		}
		\alternative {
		{
% 29
			<fs4. d a> a8 a4 |
% 30
			<e4-> cs g> a8 a4. |
% 31 
			<d,2. a fs>~ |
% 32
			<d2 a fs> r4 |
		}
		{
% 29
			<e4. cs g> <e8 cs g> <e4 cs g> |
% 30
			<fs4. c a> <fs8 c a> <fs4 c a> |
% 31
			<g8 b, g> d b g d b |
% 32
			g2. |
		}
		}
	}
}

oneLeft = \notes {
	\clef F
	\notes \relative c {
	\repeat volta 2 {
% 1 - 4
		\repeat unfold 2 \notes {
			g4 <b' g d> <b g d> | a, <c' fs, d> <c fs, d> |
		}
% 5 - 8
		g, <b' g d> <b g d> | b,, <b'' g d> <b g d> |
		a, <c' fs, d> <c fs, d> | d,, <c'' fs, d> <c fs, d> |
% 9 - 12
		\repeat unfold 2 \notes {
			g,4 <b' g d> <b g d> | a, <c' fs, d> <c fs, d> |
		}
% 13 - 16
		g, <b' g d> <b g d> | d,, <b'' g d> <b g d> |
		d,, <c'' fs, d> <c fs, d> | <b g> g, r |
	}
	\repeat volta 2 {
% 17 - 18
		\repeat unfold 2 { <c c,> r8 <c c,> <c4 c,> } |
% 19 - 20
		\repeat unfold 2 { d,4 <b'' g d> <b g d> } |
% 21 - 22
		\repeat unfold 2 { d,, <c'' a fs d> <c a fs d> } |
% 23 - 24
		\repeat unfold 2 { g, <b' g d> <b g d> } |
% 25 - 26
		\repeat unfold 2 { <c, c,> r8 <c c,> <c4 c,> } |
% 27 - 28
		\repeat unfold 2 { d,4 <b'' g d> <b g d> } |
	}
	\alternative {
		{
% 29 - 32	%%% warning: Too many clashing notecolumns.  Ignoring them.

			<a2. fs d a> | <a e cs a> |
			<d4 d,> <a a,> <fs fs,> |
			<d2 d,> r4 |
		}
		{
% 29 - 32
			<a2. a,> | <d, d,> | <g4 g,> d b | g2. |
		}
	}
	}
}

%%% Waltz two

twoGlobal = \notes {
	\time 3/4
	\key c \major
% 1 - 16
	\repeat volta 2 {
		s2. * 12 |
	}
	\alternative {
		{
			s2. * 4 |
		}
		{
			s2. * 4 |
		}
	}
	\bar "|." %%%  \break
	\key f \major
% 17 - 48
	s2. * 16 |
	s2. * 16 |
}

twoTempo = \notes {
        \property Voice.TextScript \set #'font-style = #'large
% 1 - 16
	\repeat volta 2 {
		s2. * 12 |
	}
	\alternative {
		{
			s2. * 4 |
		}
		{
			s2. * 4 |
		}
	}
% 17 - 48
	s4^"Legato tempo." s2 |
	s2. * 15 |
	s2. * 16 |
}

twoDynamics = \notes {
	\repeat volta 2 {
% 1
		s2. |
% 2
		s4\mf s2 |
% 3 - 12
		s2. * 10 |
	}
% 13 - 16
	\alternative {
		{
			s2. * 2 |
			s4\cresc s2 |
			s2 \endcresc s4 |
		}
		{
			s2. * 4 |
		}
	}
% 17 - 40
	s2. * 24 |
% 41 - 48
	s4\f s2 |
	s2. * 7 |
}

twoRight = \notes {
	\notes \relative c'' {
	\repeat volta 2 {
% 1
		e8-._" "_"stacc. brillante." a-. g-. e-. c-. a-. |
% 2
		b2. |
% 3
		f'8-. a-. g-. f-. d-. b-. |
% 4
		a2. |
% 5
		g8-. fs-. g-. c-. b-. a-. |
% 6
		b4 <a' f b,> <a f b,> |
% 7
		g,8-. fs-. g-. f'-. e-. d-. |
% 8
		c4 <a' e c> <a e c> |
% 9
		e8-. a-. g-. e-. c-. a-. |
% 10
		b2. |
% 11
		f'8-. a-. g-. f-. d-. b-. |
% 12
		a2. |
	}
% 13 - 16
	\alternative {
		{
			g8-.( gs-. a-. c-. b-. )a-. |
			b4 <b'-> g e b> r |
			b, <b'-> fs ds b> r |	% f-natural ?
			r <e\fermata g, e> r |
		}
		{
			g8-.( fs-. g-. c-. b-. )c-. |
			a4 <d2 a> |
			b4 <g'2 d b> |
			<c g e c> r4 |
		}
	}
% 17 - 20
	c,2.( | )f2 c4 | e2.( | )d2. |
% 21 - 24
	a4( c d | e f )d | e2.~ | e2. |
% 25 - 28
	e2.( | )g2( )d4 | f2.( | )e2. |
% 29 - 32
	g,4( a bf | d f )e | a,2. ~ | a2 r4 |
% 33 - 36
	c2.( | )f2 c4 | e2.( | )d2. |
% 37 - 40
	a4( c d | e f )d | g2.~ | g2. |
% 41 - 44
	gf2.( | df2 )gf4 | f( c' a | f d )c |
% 45 - 46
	<d4. b f> <d8 b f> <d4 b f> | <e4. bf g> <e8 bf g> <e4 bf g> |
% 47 - 48
	<f2. c a>~ | <f4 c a> r4 r4 |
	}
}

twoLeft = \notes {
	\clef F
	\notes \relative c {
	\repeat volta 2 {
% 1
		r2. |
% 2
		d4 <f' b, g> <f b, g> |
% 3
		g,, <f'' b, g> <f b, g> |
% 4
		c, <e' c g> <e c g> |
% 5
		g,, <e'' c g> <e c g> |
% 6
		d, <f' b, g> <f b, g> |
% 7
		g,, <f'' b, g> <f b, g> |
% 8
		c, <e' c g> <e c g> |
% 9
		r2. |
% 10
		d,4 <f' b, g> <f b, g> |
% 11
		g,, <f'' b, g> <f b, g> |
% 12
		c, <e' c g> <e c g> |
	}
% 13 - 16
	\alternative {
		{
			c, <e' c g> <e c g> |
			b, <g''-> e b> r |
			<b,, b,> <fs''-> ds b> r |	% f-natural?
			<e,, e,> <g''\fermata e b> r |
		}
		{
			c, <e' c g> <e c g> |
			f,, <f''2 d a> |
			g,,4 <f''2 b, g> |
			<c, c,> r4 |
		}
	}
% 17 - 22
	\repeat unfold 3 { f,,4 <a' f c> <a f c> | 
		c,, <a'' f c> <a f c> } |
% 23 - 28
	\repeat unfold 3 { g, <bf' e, c> <bf e, c> |
		c,, <bf'' e, c> <bf e, c> } |
% 29 - 32
	c,, <e' c> <e c> | c, <bf'' e, c> <bf e, c> |
		f, <f' c> <f c> | c, <f' c> <f c> |
% 33 - 36
	\repeat unfold 2 { f, <a' f c> <a f c> | c,, <a'' f c> <a f c> } |
% 37 - 38
	f, <a' f c> <a f c> | a, <a' f c> <a f c> |
% 39 - 40
	\repeat unfold 2 { bf, <bf' g d> <bf g d> } |
% 41 - 42
	\repeat unfold 6 { <bf gf df bf> } |
% 43 - 44
	<a2. f c>~ | <a2 f c> r4 |
% 45 - 46
	g,4. g8 g4 | <c4. c,> <c8 c,> <c4 c,> |
% 47 - 48
	f, c' a | f r r |
	}
}

%%% Waltz three

%{
	In the "printed edition, the alternate repeats in the
	Andante maestoso section are different
	lengths (3 bars first time, 4 bars second time), this is probably
	a printing mistake?
%}

threeGlobal = \notes {
	\time 3/4
	\key c \major
% 1 - 32
	s2. * 32 |
	\bar "|."  %%% \break
	\key f \major
% 33 - 45
	\repeat volta 2 {
		s2. * 12
	}
% 45 - 48
	\alternative {
		{
			s2. * 4
		}
% 49 - 52
		{
			s2. * 4
		}
	}
}

threeTempo = \notes {
        \property Voice.TextScript \set #'font-style = #'large
	\property Voice.TextSpanner \set #'type = #'dashed-line
	\property Voice.TextSpanner \set #'edge-height = #'(0 . 0)
	\property Voice.TextSpanner \set #'edge-text = #'("rallentando." . ".")
% 1 - 26
	s2. * 26 |
% 27 - 31
	s4 %{ \spanrequest\start "text" %} s2 |
	s2. * 3 |
	s2 s4 %{ \spanrequest\stop "text" %} |
% 32
	s2. |
% 33 - 44
	\repeat volta 2 {
		s4^"Andante maestoso." s2 |
		s2. * 11 |
	}
% 45 - 48
	\alternative {
		{
			s2. * 4
		}
% 49 - 52
		{
			s2. * 4
		}
	}
}

threeDynamics = \notes {
% 1 - 32
	s2. |
% 2
	s4 \cresc s2 |
% 3
	s2. \endcresc |
% 4 - 6
	s2. * 3
% 7
	s4 \cresc s2 |
% 8
	s4 \endcresc s2 |
% 9
	s8 \> s2 \! s8 |
% 10
	s2. |
% 11
	s8 \< s8 s2 |
% 12
	s2. |
% 13
	s2 \! s4 |
% 14 - 15
	s2. * 2 |
% 16
	s4 \< s4 \! s4 |
% 17
	s2. |
% 18
	s4 \cresc s2 |
% 19
	s2 \endcresc s4 |
% 20
	s2. |
% 21
	s8 \> s8 \! s2 |
% 22
	s2. |
% 23
	s4 \cresc s2 |
% 24
	\endcresc s4 s2 |
% 25
	s4 s2 \> |
% 26
	s4 \! s2 |
% 27 - 31
	s2. * 5 |
% 32
	s4\mf s2 |
% 33 - 44
	\repeat volta 2 {
		s2. * 3 |
		\cresc s4 s2 |
		s2 \endcresc s4 |
		s2. |
		\cresc s4 s2 |
		s2 \endcresc s4 |
		s2. * 4
	}
% 45 - 48
	\alternative {
		{
			s2. *2 |
			s4\<  s2 |
			s2 \!s4 |
		}
% 49 - 52
		{
			s4\dim s2 |
			s2. * 2 |
			s2 \enddim s4 |
		}
	}
}

threeFirstEight = \notes \relative c'' { % the first eight bars, repeated at 17
% 1 - 2
	\repeat unfold 2 {
		<a'8( e> g )c,2 |
	}
% 3
	<a'8( f> g )b,2 |
% 4
	<g''2.-^ b, g> |
% 5 - 6
	\repeat unfold 2 {
		<a,8( f> g )b,2 |
	}
% 7
	<a'8( e> g )c,2 |
% 8
	<g''2.-^ c, g> |
}

threeRight = \notes {
  \notes \relative c'' {
% 1 - 8
	\threeFirstEight
% 9 - 10
	\repeat unfold 2 {
		<a,8( e> g )c,2 |
	}
% 11
	<a'8( e> g )b,2 |
% 12
	<e'2.-^ g, e> |
% 13
	<c8( e,> b )b,2 |
% 14
	<c'8( fs,> b )b,2 |
% 15
	\times 2/3 { e8( f )e } [ ds8( e b )g ] |
% 16
	e4( f )fs |
% 17 - 24
	\threeFirstEight
% 25 - 26
	\repeat unfold 2 {
		<d8( bf> c )e,2 |
	}
% 27
	<d'8( a> c )f,2 |
% 28
	<d'8( af> c )f,2 |
% 29
	<d'8( g,> c )e,2 |
% 30
	<a8( f> g )b,2 |
% 31
	\times 2/3 { c8 d c } [ b8 c g e ] |
% 32
	c2. |
	\repeat volta 2 {
% 33 - 36
		<
	{ <a'2. a,> | \slurDown <a4 a,(> <g g,> <a )a,> \slurUp
		| <a2.( a,> | <)bf bf,> | } \\ 
	{ r4 <f c> <f c> | s2. | r4 <d c> <d c> | r4 <e c> <e c> | }
		>
% 37 - 40
		< 
	{ <bf2. bf,> | \slurDown <bf4 bf,(> <a a,> <bf )bf,> \slurUp 
		| <b2.( b,> | <)c2 c,> r4 | } \\
	{ r4 <e, c> <e c> | s2. | r4 <f d> <f d> | r <a f> <a f> | }
		>
% 41 - 44
		<
	{ <d2. d,> | \slurDown fs,4( g )a \slurUp | bf2. | d,4 e f | } \\
	{ r4 <c' a> <c a> | s2. | r4 <g d> <g d> | s2. | }
		>
	}
% 45 - 48
	\alternative {
		{
			< { g2. } \\
			  { r4 <b, g> <b g> }
			> |
			<b,4 g> <c g> <d g,> |
			<e c> <e c> <f c> |
			<g c,> <a c,> <bf! e, c> |
		}
% 49 - 52
		{
			<
	{ g2. | e | f ~ | <f2 c a f> r4 | } \\
	{ r4 <d b g> <d b g> | r <c bf e,> <c bf e,>
		| r <c a f> <c a f> | s2. |}
			>
		}
	}
  }
}

threeLeft = \notes {
        \property Voice.TextScript \set #'font-style = #'large
	\property Voice.TextSpanner \set #'type = #'dashed-line
	\property Voice.TextSpanner \set #'edge-height = #'(0 . 0)
	\property Voice.TextSpanner \set #'edge-text = #'("rallentando." . ".")
  \clef F
  \notes \relative c {
% 1
	c4^" "^"molto stacc." <e' c g> <e c g> |
% 2
	e, <e' c g> <e c g> |
% 3 - 6
	\repeat unfold 2 {
		d, <f' b, g> <f b, g> | g,, <f'' b, g> <f b, g> |
	}
% 7 - 10
	\repeat unfold 2 {
		c, <e' c g> <e c g> | e, <e' c g> <e c g> |
	}
% 11 - 13
	\repeat unfold 3 {
		b, <g'' e b> <g e b> |
	}
% 14
	b,, <a'' ds, b> <a ds, b> |
% 15
	e b g |
% 16
	e( f )fs |
% 17
	c <e' c g> <e c g> |
% 18
	e, <e' c g> <e c g> |
% 19 - 22
	\repeat unfold 2 {
		d, <f' b, g> <f b, g> | g,, <f'' b, g> <f b, g> |
	}
% 23
	c, <e' c g> <e c g> |
% 24
	e, <e' c g> <e c g> |
% 25
	c, <e' c bf g> <e c bf g> | 	% b-natural?
% 26
	e, <e' c bf g> <e c bf g> |
% 27
	f,\spanrequest\start "text"  <f' c a> <f c a> |
% 28
	f, <d' c af> <d c af> |
% 29
	g, <g' e c> <g e c> |
% 30
	g, <f' d b> <f d b> |
% 31
	<e c> g, e \spanrequest\stop "text" |
% 32
	c2. |
	\repeat volta 2 {
% 33
		<f2. f,> |
% 34
		<f4( f,> <e e,> <)f f,> |
% 35
		<fs2. fs,> |
% 36
		<g g,> |
% 37
		<g g,> |
% 38
		\slurDown <g4( g,> <fs fs,> <)g g,> |
% 39
		<gs2.( gs,> |
% 40
		<)a a,> |
% 41
		<fs fs,> |
% 42
		\slurUp d4( e )fs |
% 43
		g2. |
% 44
		bf4 a g |
	}
% 45 - 48
	\alternative {
		{
			d2. |
			g,4 a b |		% b-flat?
			c c d |
			e f g |
		}
% 49 - 52
		{
			\slurDown d2.( |
			)c |
			f,4( c' )a |
			f2 r4 |
		}
	}
  }
}

%%% Coda

codaGlobal = \notes {
	\time 3/4
	\key c \major
	s2. * 16 | \bar "|."
	\key g \major
	s2 .* 4 | % \bar "|."
	\repeat volta 2 {
		s2. * 16 |
	}
	s2. * 12 |
}

codaTempo = \notes {
        \property Voice.TextScript \set #'font-style = #'large
	s2. * 16 |
	s2 .* 4 |
	\repeat volta 2 {
		s2. * 16 |
	}
	s8^"Andante." s8 s2 |
	s2. * 3 |
	s8^"Presto." s8 s2 |
	s2. * 7 |
}

codaDynamics = \notes {
% 1 - 16
	s2. * 16 |
% 17 - 20
	s4 \< s2 | s2. | s2. | \! s4 s2 |
	\repeat volta 2 {
% 21 
		s2. * 3 |
% 24 - 26
		s4\< s2 | s2. | s4 \! s2 | 
% 27 - 30
		s4\> s4 s8 \! s8 | s2. * 3 |
% 31 - 34
		s2 s8 s8\< | s2 s8 \! s8 | s2. * 2|
% 35 - 36
		s8\> s8 s2 | s4 \! s2 |
	}
% 37 - 40
	s8\mf s8 s2 | s2. * 3 |
% 41 - 45
	s8\ff s8 \cresc s2 | s2. * 4 |
% 46 - 47
	s2 \endcresc s4 | s2. |
% 48
	s8\ff s8 s2 |
}

codaRight = \notes {
  \notes \relative c'' {
% 1
	e8-.( a-. g-. e-. c-. )a-. |
% 2
	b2. |
% 3
	f'8-.( a-. g-. f-. d-. )b-. |
% 4
	a2. |
% 5
	g8-.( fs-. g-. c-. b-. )a-. |
% 6
	b4 <a' f b,> <a f b,> |
% 7
	g,8-.( fs-. g-. f'-. e-. )d-. |
% 8
	c4 <a' e c> <a e c> |
% 9
	e8-.( a-. g-. e-. c-. )a-. |
% 10
	b2. |
% 11
	f'8-.( a-. g-. f-. d-. )b-. |
% 12
	a2. |
% 13
	g8-.( fs-. g-. c-. b-. )c-. |
% 14
	a4 <d2-> a> |
% 15
	b4 <g'2-> d b> |
% 16
	<c g e c> r4 |
% 17
	<d,2 fs, d> <d4 g, d> |
	<d2 a d,> <d4 b d,> |
	<d2. c fs, d> |
	<d'\arpeggio fs, d> |
	\repeat volta 2 {
% 21 - 24
		\repeat unfold 2 \notes { d,,8( e g e g )e | fs2. | }
% 25 - 28
		d4( g b | e d )b | d( c )gs | b8( a )fs4 e |
% 29 - 32
		\repeat unfold 2 \notes { d8( e g e g )e | fs2. | }
% 33 - 36
        \property Voice.TupletBracket \override #'direction = #1
		d4 g b | e d g,
			| \times 2/3 {b8( c )b} a4 d, | g2 r4 |
	}
% 37
	d8( e g e g )e |
% 38
	d2. |
% 39
	g,8( b e d b )a |
% 40
	g2. |
% 41
	<d''4-> a fs d> r r |
% 42
	<g-> d b g> r r |
% 43
	<d'-> a fs d> r r |
% 44
	<g-> d b g> r r |
% 45 - 46
	\grace <b,8( g d b> <)b2. g d b> ~ | <b2 g d b> r4 |
	
% 47 - 48
	\grace <g8( d b g> <)g2. d b g> ~ | <g2 d b g> r4 |
  }
}

codaLeft = \notes {
  \clef F
  \notes \relative c {
% 1
	r2. |
% 2
	d4 <f' b, g> <f b, g> |
% 3
	g,, <f'' b, g> <f b, g> |
% 4
	c, <e' c g> <e c g> |
% 5
	g,, <e'' c g> <e c g> |
% 6
	d, <f' b, g> <f b, g> |
% 7
	g,, <f'' b, g> <f b, g> |
% 8
	c, <e' c g> <e c g> |
% 9
	r2. |
% 10
	d,4 <f' b, g> <f b, g> |
% 11
	g,, <f'' b, g> <f b, g> |
% 12
	c, <e' c g> <e c g> |
% 13 - 16
	c, <e' c g> <e c g> |
	f,, <f''2 d a> |
	g,,4 <f''2 b, g> |
	<c, c,> r4 |
% 17
	<c'2 d,> <c4 e,> |
	<c2 fs,> <b4 g> |
	<c2. a> \clef G |
	<c'\arpeggio a d,> \clef F |
	\repeat volta 2 {
% 21 - 24
		\repeat unfold 2 \notes {
			g,,4 <b' g d> <b g d> | a, <c' fs, d> <c fs, d> |
		}
% 25 - 28
		g, <b' g d> <b g d> | b,, <b'' g d> <b g d> |
		a, <c' fs, d> <c fs, d> | d,, <c'' fs, d> <c fs, d> |
% 29 - 32
		\repeat unfold 2 \notes {
			g,4 <b' g d> <b g d> | a, <c' fs, d> <c fs, d> |
		}
% 33 - 36
		g, <b' g d> <b g d> | d,, <b'' g d> <b g d> |
		d,, <c'' fs, d> <c fs, d> | <b g> g, r |
	}
% 37
	d'8( e g e g )e |
% 38
	d2. |
% 39
	g,8( b e d b )a |
% 40
	g2. |
% 41
	<d'4-> d,> r r |
% 42
	<g-> g,> r r |
% 43
	<d-> d,> r r |
% 44
	<g,-> g,> r r |
% 45 - 46
	\grace <g'8( g,> <)g2. g,> ~ | <g2 g,> r4 |
% 47 - 48
	<g,2. g,> ~ | <g2 g,> r4 |	% no grace?
  }
}

%%% Intro
\score{
    \context PianoStaff <
    \barsByFive
    \property PianoStaff.instrument = #"INTRO.  "
    \pianoAccidentals
      \context Staff = treble {
	\property Voice.DynamicLineSpanner \override #'padding = #3.0
        \property Score.midiInstrument = "acoustic grand"
	< \introTempo \introDynamics \introRight > \bar "|."
	}
      \context Staff = bass { 
	< \introLeft > \bar "|."
	}
    > 

  \paper {
  }

  \midi {
	\tempo 4=144 
  }
}

%%% Waltz one
\score{
    \context PianoStaff <
    \barsByFive
    \property PianoStaff.instrument = #"1.  "
    \property Score.midiInstrument = "acoustic grand"
    \pianoAccidentals
      \context Staff = treble {
	\property Voice.DynamicLineSpanner \override #'padding = #2.0
	< \oneGlobal \oneTempo \oneDynamics \oneRight > \bar "|."
	}
      \context Staff = bass { 
	< \oneGlobal \oneLeft > \bar "|."
	}
    > 

  \paper {
  }

  \midi {
	\tempo 4=120
  }
}

%%% Waltz two
\score{
    \context PianoStaff <
    \barsByFive
    \property PianoStaff.instrument = #"2.  "
    \property Score.midiInstrument = "acoustic grand"
    \pianoAccidentals
      \context Staff = treble {
	\property Voice.DynamicLineSpanner \override #'padding = #2.0
	< \twoGlobal \twoTempo \twoDynamics \twoRight > \bar "|."
	}
      \context Staff = bass { 
	< \twoGlobal \twoLeft > \bar "|."
	}
    > 

  \paper {
  }

  \midi {
	\tempo 4=144
  }
}

%%% Waltz three
\score{
    \context PianoStaff <
    \barsByFive
    \property PianoStaff.instrument = #"3.  "
    \property Score.midiInstrument = "acoustic grand"
    \pianoAccidentals
      \context Staff = treble {
	\property Voice.DynamicLineSpanner \override #'padding = #2.0
	< \threeGlobal \threeTempo \threeDynamics \threeRight >
	\bar "|."
	}
      \context Staff = bass { 
	< \threeGlobal \threeLeft > \bar "|."
	}
    > 

  \paper {
  }

  \midi {
	\tempo 4=120
  }
}

%%% Coda
\score{
    \context PianoStaff <
    \barsByFive
    \property PianoStaff.instrument = #"CODA.  "
    \property Score.midiInstrument = "acoustic grand"
    \pianoAccidentals
      \context Staff = treble {
	\property Voice.DynamicLineSpanner \override #'padding = #2.0
	< \codaGlobal \codaTempo \codaDynamics \codaRight >
	\bar "|."
	}
      \context Staff = bass { 
	< \codaGlobal \codaLeft > \bar "|."
	}
    > 

  \paper {
  }

  \midi {
	\tempo 4=144
  }
}