  \relative { 
    \time 4/4
    \key d \minor
    \cbDivide
    \set Staff.midiInstrument = "violin"
    \repeat volta 2 {   % This sets up the whole first section to be repeated.
    <d a' f' d'>4.->^\markup { \hspace #0 \raise #2 \bold {Allegro energico}}\ff\arpeggio 
    a''8-> <g,, g' d' bf'>4.->\arpeggio \startTrillSpan
% this isn't working:  	\once \override Voice.Script #'Y-offset = #1
% It was supposed to move the accent mark so it could be above the note.
    a''16(\stopTrillSpan g) |
% measure 2 **********************************************************************************	
    \stemDown <a,, e' cs' a'>16\arpeggio( g'') <f a,>--( <e g,>--) \stemNeutral <d, a' f'>--
    cs'!\>[( d)] gs,[( a]) bf[( a]) d,[( e]) f[( g f])\! |
% measure 3 **********************************************************************************	
    << { <e cs>_(\p a,)\< <b d>_. <cs e>_. <d f>_( a) <cs e>_. <d f>_. <e g>_( a,) cs_. e_.
    g( bf)\! a-. g-. } \\ { s4*3 s8 cs,!16-. r } >>
% measure 4***********************************************************************************	

% ********************************************************************************************
% line 2 *************************************************************************************
% ********************************************************************************************

<< { g'( e) f-.( a-.) d( f) e-.( d-.) } \\ { d,='8 r <bf f'>-- g'16-.( f-.) } >>
<a,= f' d'>4^(\>\arpeggio\startTrillSpan \grace { cs'=''16[\stopTrillSpan d]) }
<a,= e' cs'>8-.\arpeggio\p\! r16 a''=''16-.\ff 
% measure 5***********************************************************************************	
    <d,,=' a' f' d'>4.->\arpeggio 
    a''8-> <g,, g' d' bf'>4.->\arpeggio \startTrillSpan
    a''16(\stopTrillSpan g) |
% measure 6***********************************************************************************	
\stemDown <a,,= e' cs' a'>^(\arpeggio g'')\> f=''--( e--) 
\stemNeutral <d,=' a' f'>-- e'=''([\p d\< c]) b( d f) a-.
gs( f! e) d-.
% measure 7***********************************************************************************	

% ********************************************************************************************
% line 3 *************************************************************************************
% ********************************************************************************************

cs( e g) c!-. bf!( a g) e-. f( a d) cs-. d( e f) a-.\! |
% measure 8***********************************************************************************	
a8-. <bf bf, d,, g,>4->\sf\arpeggio g='''16(\ff-- ef--) \beamEight \times 2/3 { d([ f ef) } 
bf16*2/3( c a)] bf([\> f g) d( ef g]) |

% ********************************************************************************************
% line 4 *************************************************************************************
% ********************************************************************************************

% measure 9***********************************************************************************	

\beamFour
\times 2/2 { bf16-- cs,\!\<( } d f) a,-- c( bf) a( g) c( bf) f( e) c'( bf) d,\!(
% measure 10**********************************************************************************	
cs)\ff bf!( a
\textSpannerUp
\override TextSpanner #'edge-text = #(cons (markup #:italic "rit." ) "")
bf\startTextSpan a) bf( c bf a) bf(\> c bf a8.) gs16--\!\stopTextSpan

% ********************************************************************************************
% line 5 *************************************************************************************
% ********************************************************************************************

% measure 11**********************************************************************************	

<< { a8.(\p^\markup { \italic "a tempo" }  c16) 
       f8.( g16) g8( a) r a-- | 
% measure 12**********************************************************************************	
       d,='8.( e16) f8( fs) g([ a)] bf-- r16 d, |
% measure 13**********************************************************************************	
       e8.( g16) f8.( a16) d,='4.-- e8-- |
    }
    \\
    { s8_\markup { \italic \smaller \smaller \hspace #-3 \raise #-5 "espress." }
      s\< a,=8.( c16) c8( f\!) s8 c |
% measure 12**********************************************************************************	
        bf4 a8( c) bf([\> d)] g--\!\noBeam s16 d\< |
% measure 13**********************************************************************************	
	c8.( bf16)\! a8.( c16) c8( bf16 a bf8)\> g--\!
     }
>>

% ********************************************************************************************
% line 6 *************************************************************************************
% ********************************************************************************************

% measure 14  ********************************************************************************	

a=4( a')
<<
  { 
    r8 a16-. \pp a-. bf8-- bf16-. bf-. |
    d=''( cs) b-. cs-. cs( d) e-. d-. a( bf) c-. d-. c( bf) a-. g-. | % can't stop here - cresc.
    f( e) d-. e-. g( f) e-. f-. a( g) fs-. g-. bf( a) gs-. a-. |
    a8.( fs''16) s4 % Moving the melody to the other voice here, to end the cresc.
  }
  \\
  {
    r8. a,,='16-. a( g)
	\textSpannerDown
	\override TextSpanner #'edge-text = #(cons (markup #:italic "poco a poco crescendo " ) "" )
	\once \override TextSpanner #'staff-padding = #6
    f-.\startTextSpan g-. |
	e8 d16-.
	e-. f8 g16-.
	f-.  fs8 e!16-.
	fs-.  g8 d16-. bf-. |
	c8 b16-. cs-.
	d8  cs16-. d-. bf8 a16-. bf-. c8 b16-.
	c-.  |
	<c ef>8 r fs''='''8^(\stopTextSpan g16) <bf=''' bf, d,, g,>16^>\sf\arpeggio
   }
>>
c,='''16(\f e!) <g bf,>-. <bf d,>-. 
<bf d,>(_\markup { \italic { sempre - - } } <a c,>) <a c,>-.
<f a,>-.

% ********************************************************************************************
% line 8 *************************************************************************************
% ********************************************************************************************

% measure 18 *********************************************************************************
	\textSpannerDown
	\override TextSpanner #'edge-text = #(cons (markup #:italic "crescendo " ) "" )
	\once \override TextSpanner #'staff-padding = #4
bf,=''16(\startTextSpan d) <f a,>-. <a c,>-. <a c,>( <g bf,>) <g bf,>-. <e g,>-. 
<g bf,>( <f a,>) <f a,>-. <d f,>-. <f a,>( <e g,>) <e g,>-. <cs e,>-.
% measure 19 *********************************************************************************	
	<cs e,>( <d f,>) <e,='' cs>( <f d>) <cs a>( <d bf>) 
	<a cs,>( <bf d,>) <fs a,>(^\markup { \italic rit. } <g bf,>) 
<a c,>-- <g bf,>--\stopTextSpan <bf d,>(\ff\> <a c,>) <a c,>-- <g bf,>--\!

% ********************************************************************************************
% line 9 (bottom) ****************************************************************************
% ********************************************************************************************

% measure 20 *********************************************************************************
<<
  {
    f!='4--^\markup { \italic { a tempo } } f16( e f g) a4-- a16( c! bf c) |
    <bf=' g>16( <d e,>) <d f,!>( <f a,>) <f a,>( <a cs,>) <f d>( <d' f,>)
  }
  \\
  {
    a,,=16(\p\< b cs d) d8.( e16) f( d e f) fs4-- |
    s4 s8. s16\!
  }
>>

% mid-measure ********************************************************************************	
<d=' g,>->(\sf <fs''=''' a,>)\< <g bf,>( <a c,!>) <fs a,>( <g bf,>) <a, c,!>(\! <bf d,>)\ff

% ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
% ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
% ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
% ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
% ++++++++++++++++++++++++++ page 2 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
% ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
% ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
% ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
% ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

% measure 22 *********************************************************************************	
gs,,=32-.(\pp\< f'-. d'-. b'-.) b-.( d,-. f,-. gs,-.) a=(-. f'-. d'-. a'-.) a-.( d,-. f,-. a,-.)
bf!=(-. f'-. d'-. d'='''-.) d(-. d,-. f,-. bf,-.) b-.( af'-. f'-. d'-.) d-.( f,-. af,-. b,)\!

% ********************************************************************************************
% line 2 *************************************************************************************
% ********************************************************************************************

% measure 23 *********************************************************************************
c8-.\sf f16([\f\< e]) <a f>( <c e,> <a f>) <f'='' a,>-. <c a>( <d bf> <c a>) <a' c,>-.
<a f>( <c a>) <c a>(-- <f=''' a,>)--\!
% measure 24 *********************************************************************************	
df,,='32(-.->\ff bf'-. g'-. f'-.) f-.( g,-. bf,-. df,)-. c(-. a'-. f'-. c'-.)
c(-. f,-. a,-. c,-.) bf8-.->\noBeam <g bf'=' f' df'>->\arpeggio <c=' f a>[--\> <bf e>]--\!
% measure 25 *********************************************************************************	

% ********************************************************************************************
% line 3 *************************************************************************************
% ********************************************************************************************

<<
  {
    ef'=''8.-- d32( c) d16( c bf) <a fs>-- 
  }
  \\
  {
    <a,= f'>8\p\< r <bf f'>\! r16 s
  }
>>
<bf'=' g>16( <a f> <g e!> <f d>)
<<
  {
    % moves the 8th note farther over so it looks like grace note:
    e='4*7/8( \cbSmaller f8*1/4) \cbNormal |
  }
  \\
  {
    d='8(\> c16 bf)\! |
  }
>>

} % This is the 'close-bracket' for the \repeat command at the beginning of the score.

% measure 26 *********************************************************************************	

\alternative {
  {  % start of 1st ending
  <<
    {
      f'='4 d8.( e16) f4
    }
    \\
    {
      a,=4 \p bf\> a\!
    }
  >>
  a'='16(\< \times 6/9 { b32 cs d e f g a b cs)\! } |
  }  % end of 1st ending
  {  % start of 2nd ending. Only include the part we want the '2-bracket' over.
    <<
      {
        f,,='4 d8.( e16) f4~ f16 g32( \< af bf c d e\!) |
      }
      \\
      {
	a,,=4\p bf8.( g16) af4 s4 |
      }
    >>
  }  % end of 2nd ending.
}    % end of the 2 alternatives


% ********************************************************************************************
% line 4 *************************************************************************************
% ********************************************************************************************

% measure 28 *********************************************************************************
<<
  {
    f''=''4.-> g8-> 
	\override TrillSpanner #'extra-offset = #'(0 . 1)
	ef4.->\startTrillSpan d16(\stopTrillSpan c) |
	\revert TrillSpanner #'extra-offset
  }
  \\
  {
    <b=' d, g,>4 \sf r <g=' c,> r |
  }
>>

% measure 29 *********************************************************************************	

<<
  {
    ef'8-- d16( c) bf--
  }
  \\
  {
    <a,= fs'>8\> r <g= g'>16\!\p
  }
>>
cs='16(\< d) fs!( g) a( bf) cs( d) fs( g) a( |
% measure 30 *********************************************************************************	
bf) fs( g) a( bf) d( fs) g( bf8)\!\sf a16( \f gs) a8.-- g16-- |


% ********************************************************************************************
% line 5 *************************************************************************************
% ********************************************************************************************

% measure 31 *********************************************************************************
<f=''' a, d,,='>8-- e16(\< \p d)
\beamEight
\times 2/3 { cs='''16([ d a }
 bf16*2/3 a g)]
 f([ e f
 d a bf)]
 a([ e f
 d bf a=)] \! |
\beamFour
% measure 32 *********************************************************************************	
gs=8.->\ff( <f'=' d' b'>16) a,=8.( <f'=' d' a'>16) c='8.( <a'=' fs' d'>16) 
bf,!8.( <g'! d' d'>16) |

% ********************************************************************************************
% line 6 *************************************************************************************
% ********************************************************************************************

% measure 33 *********************************************************************************
\beamEight
a,=16([ b32 cs\< d e f! gs)] a([ bf! b cs! d e f gs)] a([ bf b cs d e f gs] \! \beamFour 
a16)-.\ffz  a,=''(\<^\markup { \italic rit. } cs e\!) |
% measure 34 *********************************************************************************	
a='''16-- 
\once \override TextScript #'extra-offset = #'(0 . 1)
fs([^\markup { \italic {a tempo } } g) <e g,>]( <f! a,>)\> <cs e,>( <d f,>)
<a cs,>( <bf d,>) <a c,>( <g bf,>) <f a,>( <e g,>) <d f,>( <a f>-- <f d>--)\! |

% ********************************************************************************************
% line 7 *************************************************************************************
% ********************************************************************************************

% measure 35 *********************************************************************************
<bf,= f' d'>8.(\p\<-\markup { \hspace #0 \raise #-3 \italic espress. } 
<g' ef'>16) <bf, ef c'>8.( <f' d'>16)\!\>
<bf, d bf'>8--\! 
% Thirds:
<c e>16([\< <d fs>)] <e g>( <fs a>) <g bf>( <a c>)\! |
% measure 36 *********************************************************************************	
<<
  {
    <bf=' d>8.( <c ef>16) <a c>8.( <bf d>16) <g bf>8--
  }
  \\
  {
    g,=8 r g\> r g\!
  }
>>
% Thirds:
<c e!>16([\< <d fs>)] <e g>( <fs a>) <g bf>( <a c>)\! |
% measure 37 *********************************************************************************	
<ef=' d' g>8[(\f c']) <d, a' f'>[( <bf'=' d>]) <c, bf' ef>--[\> <a' c>32( d ef16)] <bf,= f' d'>8--\!
bf16([_\markup { \italic più \dynamic f } a)] |

% ********************************************************************************************
% line 8 *************************************************************************************
% ********************************************************************************************

% measure 38 *********************************************************************************
g32( e' cs' a' bf cs, e, g,) gs( f' d' as' b d, f, gs,)
a( f' d' a a' d, f, a,) d='( a' f' a, d' f, a, d,) |
% measure 39 *********************************************************************************	
f='32( d' a' a, f''=''' a, d, f,) a( f' d' a, a'' d, f, a,=')

% ********************************************************************************************
% line 9 *************************************************************************************
% ********************************************************************************************

% measure 39.5 ******************************************************************************
\beamEight \times 2/3 { bf!16([ \ff fs g) } d16*2/3( ef bf)] \beamFour
\afterGrace a4-- { \cbNoDivide b32[(\< cs d e f g a b cs d e f g a b cs)] \! \cbDivide } |
% measure 40 *********************************************************************************	
    <d,,=' a' f' d'>4.->_\markup { \hspace #0 \raise #-3 \italic {con tutta forza}}
    a''8-> \once \override TrillSpanner #'extra-offset = #'(0 . 1)
    \stemDown <g,, g' d' bf'>4.^>\startTrillSpan \stemNeutral
    a''16(\stopTrillSpan g) |
% measure 41 *********************************************************************************	
\stemDown <a,,= e' cs' a'>16^( g'') <f a,>--( <e g,>--) <d,=' a' f'>-- \stemNeutral 
cs'=''\>[( d)] gs,([ a)]
bf[( a)] d,[( e)] f([ g\prall f)]\! |

% ********************************************************************************************
% line 10 ************************************************************************************
% ********************************************************************************************

% measure 42 *********************************************************************************
<e=' cs>16( \p a,) \< <b d>-. <cs e>-. <d f>( a) <cs e>-. <d f>-. <e g>( a,) cs-. e-. \!
g( bf)
<<
  {
    a='16-. g-.
  }
  \\
  {
    cs,!='16 r
  }
>>
|
% measure 43 *********************************************************************************	
<<
  { g'='16( e) f-.( a-.) <d='' f,>( <f a,>) <e g,>--( <d f,>--)
    \once \override TrillSpanner #'extra-offset = #'(1 . 1)
  \afterGrace <d f,>4( \startTrillSpan { cs=''16[ \stopTrillSpan d]) } <cs e,>8--
  }
  \\
  { d,='8 r bf r a4 \> a8 \p \!
  }
>>
r16 a''=''16-> \ff |
% measure 44 *********************************************************************************	
    <d,,=' a' f' d'>4.->
    <a'' fs>8->
    <<
      { \stemDown 
        \once \override TrillSpanner #'extra-offset = #'(0 . 1)
        <bf='' g d, g,>4.->^\startTrillSpan <a f>16(\stopTrillSpan <g e>) \stemNeutral | }
      \\
      { \once \override Voice.TrillSpanner #'extra-offset = #'(2 . -3.5) %move trillspanner
	s8 \startTrillSpan s \stopTrillSpan s4
      }
    >>
% ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
% ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
% ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
% ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
% ++++++++++++++++++++++++++ page 3 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
% ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
% ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
% ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
% ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

% measure 45 *********************************************************************************
\stemDown <a='' cs, e, a,>16( <g='' bf,>) <f a,>--( <e cs>--)
\stemNeutral <f d>( \> e) d--( c--) \!
\once \override DynamicText #'extra-offset = #'(0 . -1)
\beamEight \times 2/3 { b([ \p d, \< b' } d16*2/3 f a)] gs([ a f e f d)] |
% measure 46 *********************************************************************************
cs=''([ a e' g a c!)] bf([ e, a g a e)] f([ e g a b cs)] d([ a e' f g a)] \! |
% measure 47 *********************************************************************************
a='''8->\noBeam <bf bf, d,, g,>4-> \ff \times 2/3 { g16( f ef) } 
d32[( f ef_\markup { \italic { non dimin. } } d bf ef d c]) bf[( c bf a g f ef g]) |
% measure 48 *********************************************************************************
\times 2/2 { bf16--[ cs,( } \times 2/3 { d16 e f)] } a,16*2/3([ c a bf a gs)]
g16*2/3([ c a bf g f)] e([ c' a bf e, d)]
% measure 49 *********************************************************************************
cs='16*2/3([_\markup { \italic sempre \dynamic ff } e bf a
\textSpannerUp
\override TextSpanner #'edge-text = #'("rit. " . "")
c \startTextSpan bf)] \beamFour a16( bf c bf) a16( \< cs e gs a) \! gs( \> a g) \! \stopTextSpan |
% measure 50 *********************************************************************************
\bar "||" \key d \major 
fs8.(^\markup { \italic { a tempo } } \p \< a16) <d='' fs,>8.( <e a,>16) \! 
<e a,>8( <fs d>) r <fs a,>-- |
% measure 51 *********************************************************************************
<< { b,='8.( cs16) } \\ { g='4 } >> <d'='' fs,>8( <ds a>)\> <e g,>[( <fs b,>]) <g e>--\noBeam \!
r16 b,='-- \<
% measure 52 *********************************************************************************
<cs a>8.( <e g,>16) <d fs,>8.( \! <fs a,>16)
<<
  { b,='4. cs8-- | }
  \\
  { a='8( g16 fs g8) e | }
>>
% measure 53 *********************************************************************************
<d'='' fs,>8--[ \> <a e>(] <fs d>)\noBeam \!
<<
  {
    a='16-. a-. bf8 bf16-. bf-. bf8 bf16-. bf-. |
% measure 54 (upper voice) *******************************************************************
    d16( cs!) b!-. cs-. e( d) cs-. d-. fs( e) ds-. e-. g( fs) es-. fs-. |
% measure 55 (upper voice - start) ***********************************************************
    a( g!) fs-. g-.
\stemDown
<g='' b,>16( <b d,>) <b d,>-. <e g,>-. a,!=''( cs) e-. <g b,>-. <g b,>(
<fs=''' a,>) <fs a,>-. <d fs,>-. |
% measure 56 (upper voice) *******************************************************************
g,=''16( b) d-.
<fs=''' a,>-. <fs=''' a,>( <e g,>) <e g,>-. <cs e,>-. <e g,>( <d fs,>)
<d fs,>-. <b d,>-. <d fs,>( <cs e,>) <cs e,>-. <as cs,>-. |
\stemNeutral
  }
  \\
  {
	\once \override DynamicText #'extra-offset = #'(1 . -3)
    s16 \pp a,='-. a( g) fs!-. g-. a( g) fs-. g-. |
% measure 54 (lower voice) *******************************************************************
\textSpannerDown
\override TextSpanner #'edge-text = #'("poco a poco crescendo" . "")
e8\startTextSpan d16 e fs8 e16 fs g8 fs16 g a8 gs16 a |
% measure 55 (lower voice) *******************************************************************
b8 as16 b 
\override NoteHead #'transparent = ##t
\override Stem #'transparent = ##t
\override Beam #'transparent = ##t
fs4*3 |
% measure 56 (lower voice) *******************************************************************	
e4*3 e16*3 e16\stopTextSpan
\override NoteHead #'transparent = ##f
\override Stem #'transparent = ##f
\override Beam #'transparent = ##f
   }
>>
% measure 57 *********************************************************************************
<as'='' cs,>16( \ff <b d,>) <cs,='' as>( <d b>) <as fs>( <g b>) <fs as,>( <g b,>)
<g b,>( <fs a,>) <fs a,>-. <a fs>-. <a fs>( \< <d d,>) <d fs,>-. <fs a,>-. \! |

% ********************************************************************************************
% line 7 *************************************************************************************
% ********************************************************************************************

% measure 58 *********************************************************************************
\slurUp
<fs='' as, d, g,>8.^-( \ff <g b,>16^-) \afterGrace <cs, e, a,!>4( \startTrillSpan 
{ cs16[ \stopTrillSpan d]) } <d d, bf>8.( f'16) <f a, d,, g,>8.( <e g,>16) |
\slurNeutral
% measure 59 *********************************************************************************
<e=''' g,>16( <d f,>) <a f>-. <f d>-. <d f,>-. <a f>( <f d>) d-.
\stemDown \beamEight a32([ f' d' a' bf a g f)] \stemNeutral e([ d cs! bf a g f! e)] \beamFour |
\bar "||" \key d \minor
% measure 60 *********************************************************************************
d8->(_\markup { \italic { con tutta forza } } <d''=''' f, a,>16) f,,='32( e)
d8->( <d''=''' f, a,>16) d,,='32( c) 
bf8->( <d''=''' d, f,>16) bf,,=32( a)
\beamEight \times 2/3 { g16([ a c) } \times 2/3 { bf( d f)] } \beamFour |
% measure 61 *********************************************************************************
<e=' gs,>8.( <b' b'>16) <e,=' a,>8.( <c' c'>16) <g!=' bf,!>8.( <cs='' cs'>16)
<f,=' bf,>8.( <d'='' d'>16) |
% measure 62 *********************************************************************************
\beamEight
g,,=8->[~ g32 \< a( bf d] \times 2/3 { ef[ fs g } \times 2/3 { a bf! d \! } ef16) gs,,=(]
a32[ \< b cs d e f g gs)] \times 8/11 { a32[( b cs d e f g gs a b cs]) \! } |
\beamFour
% measure 63 *********************************************************************************
    <d,,=' a' f' d'>4.-> \fff
    <a'' fs>8->
    <<
      { \once \override Voice.TrillSpanner #'extra-offset = #'(0 . 1.2) %move trillspanner
        \stemDown <bf='' g d, g,>4.^>^\startTrillSpan <a f>16(\stopTrillSpan <g e>) \stemNeutral | }
      \\
      { \once \override Voice.TrillSpanner #'extra-offset = #'(1.5 . -3.5) %move trillspanner
	s8. \startTrillSpan s16 \stopTrillSpan s4
      }
    >>
% measure 64 *********************************************************************************
\stemDown <a='' cs, e, a,>16( <g='' bf,>) <f a,>--( <e g,>--)
\stemNeutral <f a, d,>--[ <cs e,>( <d f,>)] 
<<
  {
    \slurDown gs,='( a) bf( a) \slurNeutral f-- 
    \slurUp 
    % adjust the slur; look up bezier curves on WikiPedia for details
    % Last # pair is the height of the curve; #s are (horiz . vert)
    % First 2 #s are the starting and ending points.
    %\once \override Voice.Slur #'control-points = #'((0 . 0) (4 . 4) (0 . 8))
    % OK, can't get that to work; we'll just have to accept the default slur!
    \afterGrace e4( \startTrillSpan { d16[ \stopTrillSpan e]) } \slurNeutral |
  }
  \\
  {
    s16*4 d='16 cs4 |
  }
>>
% measure 65 *********************************************************************************
<fs=' a,>8[(_\markup { \hspace #0 \raise #-4 \italic { sempre con tutta forza } } 
<g g,>16]) <bf bf'>-> cs,='8.( d16)
<<
  { f4 e8.-- d16-- | d1 \fermata \bar "|." }
  \\
  { a=8.( b16) cs8.-- d16-- | d1 \fermata }
>>

}
