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

   1 \version "2.11.61"
   2 \include  "mozart-hrn3-defs.ily"
   3
   4 allegro =
   5
   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,[ gis b ] e4 r
  98         r8  e,[ a c] dis4 r
  99         r8  e,[ g b] e4 r
 100         r8  fis,[ b dis] fis4 r
 101         r8  gis,[ b d] f4 r
 102         r8  g,[ b d_\ritenuto ] f4 r
 103         \mark  "E"
 104         R1*8
 105         r2 r8  g,[ g g]
 106         e'4.( c8)  f[( d c  b)]
 107          b[( c)] g4 r8  g[ c e] |
 108         g2.   g16[( f e  f)]
 109         dis4( e) r8  c[-. c-. c-.]
 110         c4.(  d16[ e] f4  e)
 111         a, ( d g,  c)
 112         d d
 113             \grace {
 114   \override Stem   #'stroke-style = #"grace"
 115    e8(
 116   \revert Stem #'stroke-style }
 117
 118            d8.[) c16 d8. e16]
 119         c4 r r2
 120         \mark "F"
 121         R1*3
 122         c,2~ c8[ e g c]
 123          c8[( b)] b4 r2
 124          c,8[ e g c ]  e[ ( g) e c]
 125          c[( b)] b4 r2
 126         c2 (bes  a)  a8[(b c  cis)]
 127         d2( ~  d8[ e16 d] \grace {
 128   \override Stem   #'stroke-style = #"grace"
 129    \longgrace d16( \endlonggrace
 130   \revert Stem #'stroke-style }
 131
 132 %% todo: should insert grace slur here.
 133          c8[ b16  c)]
 134         \grace {
 135   \override Stem   #'stroke-style = #"grace"
 136    \longgrace c16 \endlonggrace
 137   \revert Stem #'stroke-style }
 138  b8[( a16  g)] g4 r2 |
 139         R1*3
 140         r2 r4  g'8[( e)]
 141         \mark "G"
 142          d[( c) g'( e)]  d[( c) a'( f)]
 143          e[( d)] d4 r  d8[ d]
 144         d4(~  d16[ e d  e)]  g8[( f) e d] |
 145         c4 r r2
 146         R1
 147         c1 ~
 148         c |
 149          c8[-. c-.] r c-.  cis[( d)] r\cresc d-. |
 150          dis[( e)] r e-.  e[( f)] r f-. |
 151         g4-.\f\endcresc  e-. c-. bes-. |
 152         g-.\ff e-. c-. r |
 153         a'2 ~  a8[_""_\markup { \bold \italic "sempre " \dynamic "f" }  b16 c]  d[( e d  e)]
 154
 155
 156         f4. ( d8)  f8[ ( d) f d]
 157          c[ (e]  g2) \grace {
 158   \override Stem   #'stroke-style = #"grace"
 159    \longgrace f16(  \endlonggrace
 160   \revert Stem #'stroke-style }
 161   e8[)( d16  c)]
 162
 163         << d1\trill _(
 164           { s2 \grace {
 165   \override Stem   #'stroke-style = #"grace"
 166     c16[ d]
 167   \revert Stem #'stroke-style }
 168  } >>
 169
 170          c4) r r2
 171         R1 |
 172         \mark "H"
 173         \times 2/3 {  c8[ b a ] } \times 2/3 {  g[ a b] }
 174           \times 2/3 {  c[ d e] } \times 2/3 {  f[ e d] } |
 175         \times 2/3 {  c[ b a ] } \times 2/3 {  g[ a b] }
 176           \times 2/3 {  c[ d e] } \times 2/3 {  f[ e d] }|
 177         c4 \times 2/3 {  r8  g'[( e)]} c4 \times 2/3 {  r8  e[ ( c)]} |
 178         g4 \times 2/3 {  r8  c8[( g)] } \times 2/3 {  e[ ( g) e-. ] } \times 2/3 {  c[ ( e) c-.] }|
 179         g4 r8 g'\f  a[ b c d]|
 180
 181         << d1_(\trill
 182           { s2 \grace {
 183   \override Stem   #'stroke-style = #"grace"
 184     c16[ d]
 185   \revert Stem #'stroke-style }
 186  }  >>
 187          c4) r r2
 188         R1*3
 189
 190         c4.^\fermata_"Cadenza ad lib." ( d8) d4.\trill^\fermata (  c16[  d)]
 191         c4 r r2
 192         R1*8
 193         r4  c8.[^"tutti"\f c16] c4 c
 194         c  c,8.[ c16] c4 c|
 195         c2 r2 \bar "|."
 196
 197 }
 198