input/mutopia/W.A.Mozart/mozart-hrn3-rondo.ily

   1 \version "2.11.61"
   2
   3 % \include "mozart-hrn3-defs.ily"
   4
   5 rondotheme =  \relative c' {
   6          c'8[ c c]  c[ c c]
   7         c4( cis8  d) r g,
   8          d'8[ d d]  d[ d d]
   9         d4( dis8  e) r c |
  10          c[( d) e]  f[ g a]
  11          g[ ( e) c] c4 d8
  12         e4( d8) e4( f8)
  13         e4.( d8) r r |
  14 }
  15
  16 lipbreaker =  \relative c'
  17 {
  18         r8  g'[-. g-.]  c[( e) g,-.]
  19          c[( e) g,-.]  c[( e) g,-.]
  20          c[ c, c]  c[ c c]
  21          c[ c c]  c[ c c]
  22 }
  23
  24 rightsixteenth = { \set stemLeftBeamCount =  1
  25   \set stemRightBeamCount =  2 }
  26 leftsixteenth = { \set stemLeftBeamCount =  2
  27   \set stemRightBeamCount =  1 }
  28 bothsixteenth = { \set stemLeftBeamCount =  2
  29   \set stemRightBeamCount =  2 }
  30
  31 rondo =         \relative c'
  32 {
  33         \partial 8
  34         \time 6/8
  35         \key c \major
  36
  37         g'8\p |
  38
  39         \rondotheme
  40
  41         R2.*13 |
  42         r8 r^\fermata d'  d[ e f]
  43          g[ ( e) c-.]  d[( e) d-.]
  44         c4 c8  d[ e f]
  45          g[( e) c-.]  d[( e) d-.]
  46         c4 r8 r4 r8 |
  47         R2.*7
  48         \mark  "A"
  49         c4.\p \grace {
  50   \override Stem   #'stroke-style = #"grace"
  51    e16(
  52   \revert Stem #'stroke-style }
  53   d8[) c d]
  54         c4 r8 r4 r8
  55         e4. \grace {
  56   \override Stem   #'stroke-style = #"grace"
  57    g16(
  58   \revert Stem #'stroke-style }
  59   f8[) e f]
  60         e4 r8 r4 r8
  61         g4. e4 c8
  62         g2.~
  63          g8[ a b]  c[ d e ]
  64         e4.( d8) r r
  65         R2.*4
  66         e2.~ |
  67          e8[ d c]  c[ b a]
  68         d2.~
  69          d8[ c b]  b[ a g]
  70         g'4( e8) b4( cis8)
  71         \mark "B"
  72         d4 r8 r4 r8
  73         R2.*3 |
  74         r8  d[-. d-.]  d[( g) d-.]
  75          d[( g) d-.]  d[ d d]
  76          d[( g)] r r4 r8
  77         R2.*1
  78         \lipbreaker
  79         c,,4 r8  c'[ d e]
  80         d4( g8)  c,[ d e]
  81         d4 r8 r4 r8
  82         R2. |
  83         r4 r8  c[-. d-. e-.]
  84         d4( g8)  c,[ d e]
  85          d[( g) fis]  e[ d c]
  86          b[ ( e) d]  c[ b a]
  87         \mark "C"
  88         g4 r8 r4 r8
  89         R2. |
  90         %
  91         r8  g[\f g]  g[(  b) b-.]
  92          b[( d) d-.]  d[( g) g-.]
  93         g2.~
  94          g8[ \> a g]  f[ e d]
  95         << \rondotheme
  96           { s8\!\p } >>
  97
  98         R2.*12
  99         r4 r8 r4 c8
 100         \mark "D"
 101         c4 f8 c4 a8
 102         a4.~a4 a8
 103         bes4 c8 d4 bes8
 104         g4. ~ g8 r r
 105         R2.*3
 106         r4 r8 r4 c8
 107         a4. c
 108         f ~  f8.[ \rightsixteenth e16(  \bothsixteenth d  c)]
 109         bes4 g8 e4 g8
 110         c,4. ~ c8 r r
 111         R2.*3|
 112         r4 r8 r4 c'8
 113         b4( c8) b4( c8)
 114         bes4. ~ bes4 g8
 115         a4 ( c8) f4 ( b,8)
 116         d4. ( c8) r r
 117         R2.*3|
 118         r4 r8 r4 c8
 119         b4( c8) b4( c8)
 120         bes4. ~ bes4 g8
 121         a4 c8  f[ ( d) b!]
 122         d4. ( c8) r r
 123         \mark "E"
 124         R2.*9  |
 125         \lipbreaker
 126         c,8[ c' c] c4.~
 127         c8[ c d]  e[ e fis]
 128         g4 r8 r4 r8
 129         R2.
 130         r8  g,[ g]  g[ g g] |
 131         es'4. ~  es8[ d c]
 132         b4 r8 r4 r8
 133         R2. |
 134         r8  g[ g]  g[ g g]
 135         es'4. ~  es8[ d c]
 136         \cresc b4.  c4. d4. e4.
 137         \mark "F"
 138         \endcresc
 139
 140         f2.\f ~ |
 141         f4 r8 r4 r8
 142         r8  g,[\> g]  g[ g g]
 143
 144         % Edition breitkopf says a-flat (silly!)
 145          fis[  g gis]
 146                   a[ bes b]\!
 147
 148         %% EB does the slur in the Rondo differently from the 1st adn 2nd time.
 149         %% why. Should check with MS.
 150         << \rondotheme
 151           { s8\p } >>
 152         R2.*7
 153         \mark "G"
 154         R2.*4
 155         c,4.\mf c4 c8
 156         c4. e4 c8
 157         g'4. g4 g8
 158         g4. g,4 g8
 159         c4 r8 r4 r8
 160         r4 r8 r4 g'8
 161          c[ ( e) g,-.]   c[ ( e) g,-.]
 162          c[ ( e) g,-.]   c[ ( e) g,-.]
 163         \mark "H"
 164         \cresc g'2.  bes,2.
 165         a4.  b16[ c d e f g]
 166         a4. f4 d8
 167         \endcresc c8[\f g' e]  c[ g e]
 168          c[ e' c]   g[ e c]
 169         g4 r8  g''8[ e c]
 170
 171
 172         << d2._(\trill
 173           { s2  \grace {
 174   \override Stem   #'stroke-style = #"grace"
 175      c16[ d]
 176   \revert Stem #'stroke-style }
 177  } >>
 178
 179
 180          c4) r8 r4 r8
 181         R2.*5
 182         r8 r8^\fermata d8\p  d[ e f]
 183          g[ ( e) c]  d[( e) d]
 184         \cresc  c[  c c]  d[ e f]
 185          g[( e) c]  d[( e) d]
 186         \endcresc c4\f  r8 r4 r8
 187         R2.*5
 188          c8[\f c, c]  c[ c c]
 189         c4 r8 c4 r8
 190
 191         %This is technically incorrect, since we started with an 8th
 192         % upstep, but both eulenburg and EB do this as well.
 193         c4 r8 r4 r8 \bar "|."
 194 }
 195