\version "2.13.10"
#(ly:set-option 'point-and-click #f)
\include "deutsch.ly"


%%%%%%%%%%  This provides joint rests 
%%%%%%%%%%  for the voices of the right hand in the realisation 
%%%%%%%%%%  of the figured bass
#(define (rest-score r)
  (let ((score 0)
        (yoff (ly:grob-property-data r 'Y-offset))
        (sp (ly:grob-property-data r 'staff-position)))
    (if (number? yoff)
        (set! score (+ score 2))
        (if (eq? yoff 'calculation-in-progress)
            (set! score (- score 3))))
    (and (number? sp)
         (<= 0 2 sp)
         (set! score (+ score 2))
         (set! score (- score (abs (- 1 sp)))))
    score))

#(define (merge-rests-on-positioning grob)
  (let* ((can-merge #f)
         (elts (ly:grob-object grob 'elements))
         (num-elts (and (ly:grob-array? elts)
                        (ly:grob-array-length elts)))
         (two-voice? (= num-elts 2)))
    (if two-voice?
        (let* ((v1-grob (ly:grob-array-ref elts 0))
               (v2-grob (ly:grob-array-ref elts 1))
               (v1-rest (ly:grob-object v1-grob 'rest))
               (v2-rest (ly:grob-object v2-grob 'rest)))
          (and
           (ly:grob? v1-rest)
           (ly:grob? v2-rest)              
           (let* ((v1-duration-log (ly:grob-property v1-rest 'duration-log))
                  (v2-duration-log (ly:grob-property v2-rest 'duration-log))
                  (v1-dot (ly:grob-object v1-rest 'dot))
                  (v2-dot (ly:grob-object v2-rest 'dot))
                  (v1-dot-count (and (ly:grob? v1-dot)
                                     (ly:grob-property v1-dot 'dot-count -1)))
                  (v2-dot-count (and (ly:grob? v2-dot)
                                     (ly:grob-property v2-dot 'dot-count -1))))
             (set! can-merge
                   (and 
                    (number? v1-duration-log)
                    (number? v2-duration-log)
                    (= v1-duration-log v2-duration-log)
                    (eq? v1-dot-count v2-dot-count)))
             (if can-merge
                 ;; keep the rest that looks best:
                 (let* ((keep-v1? (>= (rest-score v1-rest)
                                      (rest-score v2-rest)))
                        (rest-to-keep (if keep-v1? v1-rest v2-rest))
                        (dot-to-kill (if keep-v1? v2-dot v1-dot)))
                   ;; uncomment if you're curious of which rest was chosen:
                   ;;(ly:grob-set-property! v1-rest 'color green)
                   ;;(ly:grob-set-property! v2-rest 'color blue)
                   (ly:grob-suicide! (if keep-v1? v2-rest v1-rest))
                   (if (ly:grob? dot-to-kill)
                       (ly:grob-suicide! dot-to-kill))
                   (ly:grob-set-property! rest-to-keep 'direction 0)
                   (ly:rest::y-offset-callback rest-to-keep)))))))
    (if can-merge
        #t
        (ly:rest-collision::calc-positioning-done grob))))



%%%%%%%%%%%%%%       MAKROS        %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
tr = ^\markup { \bold {+}}
st = ^\staccatissimo

%  Unterbalken geändert: statt 3 * 2 16-tel nun 2 * 3 16-tel
qbeam = {
  \set subdivideBeams = ##t
  \set Staff.beatLength = #(ly:make-moment 3 16)
  \set Staff.beatLength = #(ly:make-moment 3 8)
}
% Unterbalken gemäß Standard
nbeam = {
  \set Staff.beatLength = #(ly:make-moment 1 8)
  \set subdivideBeams = ##f
}
% Linien im Generalbass ein und ausschalten
lj = \set useBassFigureExtenders = ##t
ln = \set useBassFigureExtenders = ##f

%%%%%%%%%%%%%       ENDE MAKRO     %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


\header {
  title = \markup
    {"Sonate F-Dur TWV 41:F 2"}
  subtitle = \markup 
    { "aus / from / de  \"Der getreue Musikmeister\" (1728 - 1729)"}
  subsubtitle = \markup
    {"für Altblockflöte und B.c. / pour flûte à bec alto et b.c / for treble recorder and b.c"}
  composer = \markup  \override #'(baseline-skip . 2) 
    {\center-column     { "Georg Philipp Telemann" 
                        \tiny "(1681 - 1767)" 
                        \tiny "Figured bass arrangement and"
                        \tiny "Published by Franz-Rudolf Kuhnen" } 
		    }
  copyright = \markup {  \tiny
    "© Copyright 2010 by Franz-Rudolf Kuhnen - http://noten.kuhnen-musik.de (Rev.: 08-20101126)"} 
}


\paper {
  myStaffSize = #18
  #(define fonts
    (make-pango-font-tree "Times New Roman"
                          "Arial"
                          "Luxi Mono"
                           (/ myStaffSize 18)))
  line-width = 18\cm
  ragged-last-bottom = ##f
}

#(set-default-paper-size "a4")
#(set-global-staff-size 16)


%===================      1, Movement      ==============================
%========================================================================

\score {
 
  \new Staff << 
    \relative c''{ 
      \set beamExceptions =
      #'((end . (( (1 . 8) . (2 2 2 2) )) ))

      
    \time 4/4
    \key f \major
    \repeat volta 2 {
    c'8[ f, f d'] c4 b16 a b c |
    a4 g16 f g a f8 c f a16 g |
    f4 c'16 b a g f8 c f a16 g |
    f8 g16 a b8 a a\tr g r4 |
    %     5
    g8 f16( e) a4 g16( f) e( f) d8 e |
    f8 e16( d) g4 f16( e) d( e) c8 d |
    e8 d16 c f8 e16 d g8 f16 e a8 g16 f |
    h16 g g g c g g g d' g, g  g e' g, g g |
    h g g g c g g g d'8 g, f'8 r |
    %     10    
    e8 d16 c d8 c16 h c8 h16 a g8 f |
    e16 f g a d, e f g c, d e f d e f g |
    e f g a d, e f g c,8 d16 e f g a h |
    c8[ g c g] c h16 a g8 f |
    e4 d\tr c r |
    }
    
    \repeat volta 2 {
      %       15
    g'8[ e e g] cis,4 b' |
    a8 g16 f g8 f16 e f8 d r4 |
    c'8[ a a c] fis,4 es' |
    d8 c16 b c8 b16 a b8 g r a |
    b16 g fis g d g fis g b8 g r a |
    %     20
    b16 g fis g d g fis g d'8[ g, g' g,] |
    b8 a16 g a8 g16 fis g8 f16 es d8 c |
    b[ g' a, fis'] g,4 r |
    g'4 f16 e f g e c d e f g a b |
    c4 b16 a b c a f e f g a b c |
%     25
    d4 c16 b c d b4 a16 g a b |
    g f g a f e f g e c c c f c c c |
    g' c, c c a' c, c c e c c c f c c c |
    g'8 c, b' r a g16 f g8 f16 e |
    f8 c f a16 g f4 c'16 b a g |
    f8 c f a16 g f8 g16 a b c d e |
    f8[ c f c] f e16 d c8 b |
    a4 g\tr f r |
    }
  }


 \new GrandStaff <<  
   \new Staff  \with {
      \override RestCollision #'positioning-done = #merge-rests-on-positioning
    }
<<

     \time 4/4
     \key f \major
      \new Voice = "first" \relative c''
      { \voiceOne  
      \set beamExceptions =
      #'((end . (( (1 . 8) . (2 2 2 2) )) ))
%         \overrideBeamSettings #'Score #'(4 . 4) #'end #'((8 . (2 2 2 2)))
        <a c>4 r8 <b d> <c f>4  b8 c |
        f8 c b b  a4 r8 a8 |
        c a <a f> <g e> a4 r8 c |
        c a <b g> <a f> <f a> <g e> <e g>4 |
%         5
        g4 <e a> a r8 a |
        f4 g g r8 h |
        g4 <d f> g f |
        g4 r h r |
        <h d> r h g8 h |
%         10
        c8 c a g g f g f |
        g4 g g h |
        c d c h  |
        c r c8 h c c |
        c4 h c r |

%%%%%%%     2. Teil   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%        15
        c4 c cis d |
        d cis d a8 f |
        a4 a a c |
        d a b d  |
        b r b d |
%         20
        b r d r8 c |
        d4 d b d8 c |
        b4 a b h |
        <g c> h c r |
        c8 a b g a4 r |
%         25
        f8 g g fis <g b>4 a8 a |
        <g d'>4 <g d'> c r |
        g r c r |
        e <c g> c8 c b g  |
        a4 r8 a c a c c |
%         30
        c4 r8 c c a b d |
        c4 r a8 b c b |
        a4 g f r |
      }
      
      \new Voice= "second" \relative c'
     { \voiceTwo 
      \set beamExceptions =
      #'((end . (( (1 . 8) . (2 2 2 2) )) ))
       f4 r8 f  f8 a <g e'>4|
       <a c>8 <a f> <d, g> <d g> <c f>4 r8 <c f>8 |
       <c f>4 c <c f> r8 <e g> |
       <c f>4 c c c |
%        5
       <c e>4 a8 cis <d f>4 r8 <a e'> |
       <a d>4 <g d'> <c e> r8 <d g> |
       <c e>4 c <g c> <a c> |
       <h d> r4 <d g> r4 |
       <g, d' g> r <d' g> <d d'> |
%        10
       <e g>8 <c g'> <d f> <h d> <g e'> <h d> <g c> <h d>|
       <c e>4 <g d'> <c e> <d g> |
       <e g> <d g> <e g> <d f> |
       <c g'> r <c g'>8 <d f> <c g'> <f a>|
       <e g>4 <d g> <e g> r |
       
%%%%%%%     2. Teil   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%        15
       <e g>4 <e g> <e a> <g b> |
       <d a'> <e a> <f a> <d d'> |
       <c g'> <es g> <d fis> <es g> |
       <d g> <c fis> <d g> <d a'> |
       <d g> r <d g> <d a'> |
%        20
       <d g> r <d g> r8 <es g> |
       <g b>4 <fis a> g <d g>8 <es g> |
       <d g>4 <d fis> <d g> <d g> |
       c8 e <d f>4 <e g> r |
       <c f> <b e> <c f> r |
%        25
       <d b'>4 <c a'> d8 c <c f> <c f>|
       d4 f <e g> r |
       <c e> r <c e g> r |
       <c e g c> <c>8 <e> <f a> <c f> <d g> <c e> |
       <c f>4 r8 <c f> <c f>4 <c f>8 <e g> |
%        30
       <f a>4 r8 <f a> <c f>4 <d f> |
       <c f>4 r <c f>8 <e g> <c f> <d f> |
       <c f>4 <c e> <a c> r |
     }
    >>


  
  
  \new Staff  \with { implicitBassFigures = #'(10) }\relative c  {         
  \override MultiMeasureRest #'expand-limit = 1
  \set beamExceptions =  #'((end . (( (1 . 8) . (2 2 2 2) )) ))
    
    \clef "bass"
    \time 4/4
    \key f \major
    
    \repeat volta 2 {
      f4 r8 b a[ f g c,] |
      f[ f,] b g a4 r8 c |
      a[ f] a c a4 r8 c' |
      a f e f c4 c8 d  |
%       5
      e4 cis8 a d4 r8 cis |
      d4 h8 g c4 r8 h |
      c4 d e f |
      g, r g' r |
      g, r g' h,8 g |
%   10
      c e f g c, d e d |
      c4 h c g |
      c h c d |
      e r e8 d e f |
      g4 g, c r |
    }  
    
    \repeat volta 2 {
      %     15
      c'4 b a8 a, g g' |
      f4 e d f8 d |
      es4 c d8[ d' c c,] |
      b4 a g8[ g' fis d] |
      g4 r g,8[ g' fis d] |
      %   20
      g4 r b r8 es |
      d4 d, es b8 c |
      d4 d, <g g'>4 f'16( e f g) |
      e8 c d g, c4 r |
      a'8 f g c, f4 r |
      %   25
      b8 g a d, g e f f, |
      b4 h c r |
      c r c r |
      c e8 c f[ a, b c] |
      a f r c' a f a c |
      %   30
      a f r c'' a f d' b |
      a4 r a,8[ g a b] |
      c4 c, f r |
    }
  }
  
  \new FiguredBass
  \with { implicitBassFigures = #'(10)}{
  \figuremode {
    \set figuredBassAlterationDirection = #RIGHT
    
    s2 <6>4 <6> |
    s \lj <6>8 <6>16 \ln s16 \lj <6>4. <6>8 \ln  |
    <6>4 <6>  <6>4.\lj <6>8 |\ln
    <6>4 <6 5> <6 4>8 <5 3> \lj <10>8 <10> \ln |
%     5 
    <6>4 <6>8 \lj <6> s4 s8 \ln <6> |
    s4 \lj <6>8 <6> s4 s8 <6>8 |
    s4 <7> <6> s |
    <_!>4 s <_!> s |
    <_!> s <_!> \lj <6 5>8 <6> |
%      10
    s8 \ln <6> <6> <_!> s <6!> <6> <6!> |
    s4 <6> s <_!>  |
    s4 <6> s <6!>  |
    <6> s <6>8 <6!> <6> s |
    <6 4>4 <5 _!> s s |
%      15
    s4 <4 2> <_+> <_-> |
    <6> <6\\> s <6> |
    <6 4 3> <6 5 _-> <_+> <_-> |
    <6> <6\\> s \lj <6>8 <6> \ln |
    s4 s s \lj <6>8 <6> \ln |
%      20
    s4 s <6> s8 <6> |
    <6 4>4 <5 _+> s <6>8 <_-> |
    <6 4>4 <6 _+> s <4! 2> |
    <6> \lj <6!>8 <6!> s4 s4 \ln |
    <6> <6> s s |
%      25
    s <7>8 <7 _+> s <6 5> s4 |
    <6> <6 5> s s |
    s1 |
    s4 <6 5> s8 <6> <6> s |
    <6> \lj <10> <10> <10> \ln <6>4 <6> |
%      30
    <6>8 \lj <10> <10> <10> \ln <6>4 <6> |
    <6>4 s <6>8 <6> <6> s |
    <6 4>4 <5 3> s s  |
   }
 }
 >> 
 >>

 \layout { indent = 0 }

 \header { 
   piece=   \markup {  \override #'(font-size . 3) \italic "Vivace"}
 }
} 

\pageTurn


%===================      2, Movement      ==============================
%========================================================================


\score {
 
  \new Staff << 
    \relative c''{ 
      
    \time 3/4
    \key f \major 
    \repeat volta 2 {
     a'4 \grace b8( a4.)\tr g8 |
     f8( e) d4 r |
     b'4 g e |
     cis2\tr r4 |
     d4 \grace d8( e4.) f8 |
     e4.\tr g8[ f e] |
     f g g4.\tr a8 |
     a2 r4
    }
    
    \repeat volta 2 {
      a8( b16 c) fis,4.(\tr g16 a) |
      d,4. es'8 d4 |
      c \grace b8( a4.\tr)  d8 |
      b4.\tr a8 g4 |
      \grace f16( e8)( f16 g) cis,4.(\tr d16 e) |
      a,4. e'8 f4 ~ |
      f8 g8 e4.\tr d8 |
      d2 r4 |
    } 

  }



 \new GrandStaff <<  
   \new Staff  \with {
      \override RestCollision #'positioning-done = #merge-rests-on-positioning
    }
<<
     \time 3/4
     \key f \major
      \new Voice = "first" \relative c''
      { \voiceOne
        a4 <e a> <e a> |
        a2. |
        b4 d b | 
        a a2 |
%         5
        d4 cis d |
        e cis e |
        d4 d2 |
        cis2 r4 |
%%%%%%%     2. Teil   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
        d c d |
%         10
        d c d |
        c a d |
        b4 b2 |
        g4 a2 |
        a4 a a |
%         15
        b a cis |
        d2 r4 |
      }
      
      \new Voice= "second" \relative c'
     { \voiceTwo
       <d f>4 a cis
       <d f>2. |
       <d g>2 <e g>4 |
       <cis e>4 <cis e>2 |
%        5
       <d a'>4 <e g> <f a> |
       <e a>2 <e a>4 |
       <f a>4 <d g>2 |
       <e a>2 r4 |
%%%%%%%     2. Teil   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
       <d a'>4 <fis a> <fis a> |
%        10
       <d g> <fis a> <d g> |
       <es g> <d fis> <fis a> |
       <d g>4 <d g>2 |
       <b e>4 <a e'>2
       <d f>4 <a e'> <d f> |
%        15
       <d g> <cis e> <e a> |
       <f a>2 r4 |
     }
    >>


 
  \new Staff \relative c  {         
  \override MultiMeasureRest #'expand-limit = 1
    
    \clef "bass"
    \time 3/4
    \key f \major
    
    \repeat volta 2 {
      d4 cis a |
      d4. c8[ b a] |
      g4 b g |
      a a' g |
      f e d |
      cis a cis |
      d b2 |
      a r4 |
    } 
  
    \repeat volta 2 {
      fis'4 a c |
      b a b |
      c d d, |
      g g, a |
      b a g |
      f cis' d |
      g a a, |
      d2 r4 |
    }
  }
  
  \new FiguredBass
  \with { implicitBassFigures = #'(10)}{
  \figuremode {
    \set figuredBassAlterationDirection = #RIGHT
     s4 <6> <_+> |
     s2. |
     s4 <6> <6> |
     <_+> \lj <10> <10> \ln |
%      5
     <6> <6\\> s |
     <6> s <6>
     s <6>2 |
     <_+>2. |
     
     <6>4 <6\\> <4+ 2> |
%      10
     <6> <6\\> <6> |
     <_-> <_+> s |
     s \lj <10> <10> \ln |
     <6 4> \lj <_+> <_+> \ln |
     <6> <6> s |
     s <_+> s |
     s2. |
   }
 }
 >> 
 >>

 \layout { indent = 0 }

 \header { 
   piece=   \markup {  \override #'(font-size . 3) \italic "Largo"}
 }
} 


%===================      3, Movement      ==============================
%========================================================================


\score {
 
  \new Staff << 
    \relative c''{ 
      
    \time 6/8
    \key f \major 
    \repeat volta 2 {
      \partial 8*1 c'8 |
      a( g) f d'4 f,8 |
      e8( d) c g'4 b,8 |
      a c f e g c |
      a f c f,4 g'8 |
%       5
      as8( g) as g( fis) g |
      fis4 d8 a'4 d,8 |
      b'8( a) b a( gis) a |
      gis4 e8 h'4 e,8  |
      c'8( h) c b( a) b |
%       10
      a( h) c g4 c8 |
      f,( a) c e,4 c'8 |
      d,( f) a a( g) f |
      f( e) d d( c) h |
      h4. f' |
%       15
      e8( d) c g4 h'8 |
      c g e c e g |
      e' g, e c e g |
      g' g, e c e g |
      << { \voiceOne  c'4  c,8  }
  \new Voice { \voiceTwo \stemNeutral c8[^( h) c]}
>> \oneVoice
         g4 h8 |
%       20
      c4. r8 r 
    }
    
    \repeat volta 2 {
      g8 |
      e( d) c c'4 a8 |
      fis( e) d d'4 g,8 |
      es' c a fis a d |
      b g d g,4 a'8 |
%       25
      b4 d,8 cis4 b'8 |
      \grace b8( a4.) \tr ~ a8( g8) a |
      b4 d,8 cis4 a'8 |
      \grace a8( g4.) \tr ~ g8( fis8) g|
      b8( a) g g( f) e |
%       30
      cis'4 a8 e'4 g,8 |
      f8( e) d a4 cis8 |
      d4. r8 r a' |
      d4 d,8 c'( h) c |
      h( c) d g,( a) h |
%       35
      c4 c,8 b'8( a) b |
      a( b) c f,( g) a |
      b( a) g a4. |
      g8( f) e f4. |
      h,8( d) f g,( g') f |
%       40
      e( d) c b'4. |
      a8( g) f c4 e8 |
      f c a f a c |
      a' c, a f a c |
      c' c, a f a c |
%       45
      f'4 f,8 c4 e8 |
      f4. r8 r
    }

  }



 \new GrandStaff <<  
   \new Staff  \with {
      \override RestCollision #'positioning-done = #merge-rests-on-positioning
    }
<<
     \time 6/8
     \key f \major
      \new Voice = "first" \relative c''
      { \voiceOne
        c8 |
        c4. d|
        c b |
        a g |
        a r8 r c |
%         5
        as4. c |
        a4. r8 r d |
        b4. d |
        h r8 r h |
        a4. b |
%         10
        a c |
        c c |
        d r |
        d r |
        h <g h> |
%         15
        c4 c8 h4 h8 |
        c4. r |
        <g c> r |
        e' r |
        c4 c8 h4 h8 |
        c4. r8 r  
%%%%%%%     2. Teil   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
        d8 |
        c4. c |
        d d |
        c a |
        b r8 r d |
%         25
        b4. a |
        a4.  <a d>4 <a d>8 |
        b4. a4 a8 |
        g4. b |
        b d |
%         30
        cis a |
        a4 b8 a4 a8 |
        a4. a |
        h c |
        h r8 r h |
%         35
        c4. b |
        a r8 r a |
        b4. c |
        c c |
        h d |
%         40
        c c |
        c4 d8 c4 c8 |
        c4. r |
        <a c> r |
        <c f> r |
        f4 d8 c4 c8 |
        a4. r8 r 
      }
      
      \new Voice= "second" \relative c'
     { \voiceTwo
       <c g'>8 |
       <f a>4. <f b> |
       <e g> <c g'> |
       <c f> <c e>  |
       <c f> r8 r <c g'> |
%        5
       <c f>4. <c g'> |
       <d fis> r8 r <d a'>|
       <d g>4. <d a'> |
       <e gis> r8 r <e gis> |
       <c e>4. <b e> |
%        10
       <c f> <c g'>|
       <d f> <e g> |
       <d a'> r |
       <f a> r |
       <d g> f |
%        15
       <e g>4 <f a>8 <d g>4 <d g>8 |
       <e g>4. r |
       <c e> r |
       <c' g> r |
       <e, a>4 <d fis>8 <d g >4 <d g>8 |
%        20
       <e g>4. r8 r
%%%%%%%     2. Teil   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
       <d g>8 |
       <e g>4. <e a> |
       <fis a> <d g> |
       <es g> <d fis> |
       <d g> r8 r <d a'> |
%        25
       <d g>4. <cis e> |
       <d f>4.  f8[ g d] |
       <d g>4. <cis e>4 <cis e>8|
       <b d>4. <d g> |
       <d g> <d g> |
%        30
       <e a> <e g> |
       <d f>4 <d g>8 <cis e>4 <cis e>8 |
       <d f>4. <d fis> |
       <d g> <c fis>|
       <d g> r8 r <d g> |
%        35
       <c g'>4. <c e> |
       <c f> r8 r <c f> |
       <d f>4. <f a> |
       <e g> <f a> |
       <d f> <d g> |
%        40
       <e g> <e g> |
       <f a>4 <f b>8 <e g>4 <e g>8 |
       <f a>4. r |
       <c f> r |
       <f a> r |
%        45
       <f c'>4 <f b>8 <e g>4 <e g>8 |
       <c f >4. r8 r 
     }
    >>
 
 
  \new Staff \relative c  {         
  \override MultiMeasureRest #'expand-limit = 1
    
    \clef "bass"
    \time 6/8
    \key f \major
  
  \repeat volta 2 {
    \partial 8*1 e8 |
    f4. b |
    c e, |
    f c |
    f, r8 r e' |
%     5
    f4. es |
    d r8 r fis |
    g4. f |
    e r8 r gis |
    a4. g |
%     10 
    f e |
    d c |
    f r |
    d4. r |
    g8( fis) g h,( d) g |
%     15
    c,4 f8 g4 g,8 |
    c4. r |
    c r |
    c r |
    e4 a8 g4 g,8 |
%     20
    c4. r8 r
  }  
  
  \repeat volta 2 {
    h8 |
    c4. a |
    d b! |
    c d |
    g, r8 r fis' |
%     25
    g4. a4 g8 |
    f8( e) f d( e) fis |
    g4. a4 a,8 |
    b( a) b b'( a) b |
    g4. b |
%     30
    a cis, |
    d4 g,8 a4 a'8 |
    d4 d,8 c'( h) c |
    h4. a |
    g r8 r f |
%     35
    e4. c |
    f r8 r es |
    d( c) b c( b) a |
    b( a) g a( g) f |
    d'4. h |
%     40
    c e8( d) c |
    f4 b8 c4 c,8 |
    f4. r |
    f r |
    f r |
%     45
    a,4 b8 c4 c,8 |
    f4. r8 r
  }
    
  }
  
  \new FiguredBass
  \with { implicitBassFigures = #'(10)}{
  \figuremode {
    \set figuredBassAlterationDirection = #RIGHT
     <6>8 |
     s4. s |
     s <6 5> |
     s s |
     s s4 <6>8 |
%      5
     <_->4. <6> |
     <_+> s4 <6>8 |
     s4. <6> |
     <_+> s8 s <6> |
     s4. <6 _-> |
%      10
     s <6> |
     <7> s |
     <6> s |
     s s |
     <_!> <6 5> |
%      15
     s s |
     s s |
     s s |
     s s |
     <6>4 <6\\>8 <_!>4. |
%      20
     s s4 
     
     <6>8 |
     s4. <5> |
     <_+> <6> |
     <_-> <_+> |
     s s4 <6>8 |
%      25
     s4. \lj <_+>4 <_+>8 \ln |
     <6>4. s4 <6>8 |
     s4. <_+> |
     <6> <6> |
     s <6> |
%      30
     <_+> <6 5> |
     s <_+> |
     s <4+ 2> |
     <6> <6\\> |
     <_!> s4 <4! 2>8 |
%      35
     <6>4. <7-> |
     s s4 <4 2>8 |
     <6>4. <6 4> |
     <4 2> <6> |
     <6!> <6> |
%      40
     s <6 5> |
     s s |
     s s |
     s s |
     s s |
%      45
     <6> s |
     s s4
   }
 }
 >> 
 >>

 \layout { indent = 0 }

 \header { 
   piece=   \markup {  \override #'(font-size . 3) \italic "Allegro"}
 }
} 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Revision - 06-20100207:
%  Blfl 3.Satz 2.Takt 4.Schlag: g' statt c'


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Revision - 07-20100223:
%  Generalbassaussetzung korrigiert in:
%       3. Satz,        T. 19, 1. Achtel: <d fis c'> statt <fis a c>
%                       T. 33, 2. punktiert Viertel:    fis statt f
%                               (Im Erstdruck steht eine einfache "6" als Ziffer, es muss aber doch eine erhöhte 6 sein!)
%                       T. 34, 2. punktierte Vierte.:   <c e b'> statt <es g b>
%                       T. 46, 1. statt 2. Umkehrung



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Revision - 08-20100226:
% 3. Satz, T. 24, 3. Achtel: d'' statt e''



%{
convert-ly (GNU LilyPond) 2.13.12
Processing `'... 
Applying conversion: 2.12.3, 2.13.0, 2.13.1, 2.13.4, 
%}