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

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