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

   1 \version "2.2.0"
   2 \include  "mozart-hrn3-defs.ly"
   3
   4 allegro =
   5         \notes
   6         \relative c'
   7 {
   8         \time 4/4
   9         \key c \major
  10         \partial 4
  11         r4
  12         |
  13         R1*4
  14         c'2^"Tutti" g
  15         c, r
  16         R1*1
  17         r8 g' g g  g g e c
  18         g'4 g, r2
  19         R1*18
  20         r2 r4^"Solo" g'4 |
  21         \mark "A"
  22         e'4. ( c8)  f[ (d c  b) ]
  23          b[( c)] g4 r8  g[ c e]
  24         g2.   g16[( f e  f)]
  25         dis4 ( e4) r8  c8[-. c-. c-.]
  26         c4.(  d16[ e]  f4  e)
  27         a,( d g, c)
  28         d-. d-. \grace {
  29   \override Stem  #'stroke-style = #"grace"
  30    e16(
  31   \revert Stem #'stroke-style }
  32  d8.[) c16 d8. e16]
  33         c4 r r2
  34         R1*3
  35         c,2 ~  c8[ e g c]
  36          c[  b ] b4 r2
  37          c,8[ ( e) g c]  e[( g) e c]
  38          c[( b)] b4 r2
  39         c4.( g8 e'4. c8)
  40          g'[( d) ] d4 r4 d
  41          d8[ ( c)] c4.(  d16[ e]  d8[  c)]
  42          c8[(\trill  b)] b4 r2 |
  43         d2( ~   d8[ e16 d]  c8[  b)] |
  44          b[( a)] a4 r8  a[ a a]
  45         a4( cis e  g)
  46         \grace {
  47   \override Stem  #'stroke-style = #"grace"
  48    \longgrace g16( \endlonggrace
  49   \revert Stem #'stroke-style }
  50
  51          fis8[)( e16  d)] d4-. r2 |
  52         \mark "B"
  53         R1*3
  54         r2 r4  d8[(_\markup { \italic \bold "con espressione" } b) ]
  55          a[(  g) d'(  b)]  a[(  g) e'(  c) ]
  56          b8[(  a)] a4 r4  a8[ a]
  57          a[( \< b c cis\!\> ]  d4  c\!)
  58          ais8[( b)] r8 \cresc b  b[( c)] r c
  59          cis[ ( d)] r4 r2
  60         \endcresc g,1\f ~ g2 ~  g8[ a16 b]  c[( d) e c]
  61         %% 64
  62         f4-. d-. b-. g-.
  63         R1
  64
  65         c,2\p e4 g c \cresc e g4. e8 |
  66         \endcresc d4.\f  e16[ fis]  g[ ( fis) e d]  c[( b) a g]
  67
  68         << a1(\trill
  69           { s2 \grace {
  70   \override Stem   #'stroke-style = #"grace"
  71     g16[ a]
  72   \revert Stem #'stroke-style }
  73  } >>
  74         \mark "C"
  75          g4) r r2
  76         R1*15
  77         \mark "D"
  78         bes2\mf d4 f
  79         g,2~  g8[ g' es c]|
  80         bes4(  a4.)  c8[( d  es)]
  81         cis4( d) r8  bes[ (c  d)]
  82         es2 ( d4) r
  83         es2 ( d4) r
  84          c8[( g' es  c)] bes4( c)
  85         c4.( cis8  d4) r
  86         R1*2
  87         es1~es1|
  88         e!
  89         d
  90         c
  91         c,
  92         e'
  93         e,
  94         c'2  b8[( a gis  a)]
  95          gis8[ e gis b ] e4 r |
  96         r8  e,[ a c] dis4 r
  97         r8  e,[ a c] dis4 r
  98         r8  e,[ g b] e4 r
  99         r8  fis,[ b dis] fis4 r
 100         r8  gis,[ b d] f4 r
 101         r8  g,[ b d_\ritenuto ] f4 r
 102         \mark  "E"
 103         R1*8
 104         r2 r8  g,[ g g]
 105         e'4.( c8)  f[( d c  b)]
 106          b[( c)] g4 r8  g[ c e] |
 107         g2.   g16[( f e  f)]
 108         dis4( e) r8  c[-. c-. c-.]
 109         c4.(  d16[ e] f4  e)
 110         a, ( d g,  c)
 111         d d
 112             \grace {
 113   \override Stem   #'stroke-style = #"grace"
 114    e8(
 115   \revert Stem #'stroke-style }
 116
 117            d8.[) c16 d8. e16]
 118         c4 r r2
 119         \mark "F"
 120         R1*3
 121         c,2~ c8[ e g c]
 122          c8[( b)] b4 r2
 123          c,8[ e g c ]  e[ ( g) e c]
 124          c[( b)] b4 r2
 125         c2 (bes  a)  a8[(b c  cis)]
 126         d2( ~  d8[ e16 d] \grace {
 127   \override Stem   #'stroke-style = #"grace"
 128    \longgrace d16( \endlonggrace
 129   \revert Stem #'stroke-style }
 130  c8[) b16  c)]
 131         \grace {
 132   \override Stem   #'stroke-style = #"grace"
 133    \longgrace c16 \endlonggrace
 134   \revert Stem #'stroke-style }
 135  b8[( a16  g)] g4 r2 |
 136         R1*3
 137         r2 r4  g'8[( e)]
 138         \mark "G"
 139          d[( c) g'( e)]  d[( c) a'( f)]
 140          e[( d)] d4 r  d8[ d]
 141         d4(~  d16[ e d  e)]  g8[( f) e d] |
 142         c4 r r2
 143         R1
 144         c1 ~
 145         c |
 146          c8[-. c-.] r c-.  cis[( d)] r\cresc d-. |
 147          dis[( e)] r e-.  e[( f)] r f-. |
 148         g4-.\f\endcresc  e-. c-. bes-. |
 149         g-.\ff e-. c-. r |
 150         a'2 ~  a8[_""_\markup { \bold \italic "sempre " \dynamic "f" }  b16 c]  d[( e d  e)]
 151
 152
 153         f4. ( d8)  f8[ ( d) f d]
 154          c[ (e]  g2) \grace {
 155   \override Stem   #'stroke-style = #"grace"
 156    \longgrace f16(  \endlonggrace
 157   \revert Stem #'stroke-style }
 158   e8[)( d16  c)]
 159
 160         << d1\trill (
 161           { s2 \grace {
 162   \override Stem   #'stroke-style = #"grace"
 163     c16[ d]
 164   \revert Stem #'stroke-style }
 165  } >>
 166
 167          c4) r r2
 168         R1 |
 169         \mark "H"
 170         \times 2/3 {  c8[ b a ] } \times 2/3 {  g[ a b] }
 171           \times 2/3 {  c[ d e] } \times 2/3 {  f[ e d] } |
 172         \times 2/3 {  c[ b a ] } \times 2/3 {  g[ a b] }
 173           \times 2/3 {  c[ d e] } \times 2/3 {  f[ e d] }|
 174         c4 \times 2/3 {  r8  g'[( e)]} c4 \times 2/3 {  r8  e[ ( c)]} |
 175         g4 \times 2/3 {  r8  c8[( g)] } \times 2/3 {  e[ ( g) e-. ] } \times 2/3 {  c[ ( e) c-.] }|
 176         g4 r8 g'\f  a[ b c d]|
 177
 178         << d1(\trill
 179           { s2 \grace {
 180   \override Stem   #'stroke-style = #"grace"
 181     c16[ d]
 182   \revert Stem #'stroke-style }
 183  }  >>
 184          c4) r r2
 185         R1*3
 186
 187         c4.^\fermata_"Cadenza ad lib." ( d8) d4.\trill^\fermata (  c16[  d)]
 188         c4 r r2
 189         R1*8
 190         r4  c8.[^"tutti"\f c16] c4 c
 191         c  c,8.[ c16] c4 c|
 192         c2 r2 \bar "|."
 193
 194 }
 195