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,[ 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
 131 %% todo: should insert grace slur here.
 132          c8[ b16  c)]
 133         \grace {
 134   \override Stem   #'stroke-style = #"grace"
 135    \longgrace c16 \endlonggrace
 136   \revert Stem #'stroke-style }
 137  b8[( a16  g)] g4 r2 |
 138         R1*3
 139         r2 r4  g'8[( e)]
 140         \mark "G"
 141          d[( c) g'( e)]  d[( c) a'( f)]
 142          e[( d)] d4 r  d8[ d]
 143         d4(~  d16[ e d  e)]  g8[( f) e d] |
 144         c4 r r2
 145         R1
 146         c1 ~
 147         c |
 148          c8[-. c-.] r c-.  cis[( d)] r\cresc d-. |
 149          dis[( e)] r e-.  e[( f)] r f-. |
 150         g4-.\f\endcresc  e-. c-. bes-. |
 151         g-.\ff e-. c-. r |
 152         a'2 ~  a8[_""_\markup { \bold \italic "sempre " \dynamic "f" }  b16 c]  d[( e d  e)]
 153
 154
 155         f4. ( d8)  f8[ ( d) f d]
 156          c[ (e]  g2) \grace {
 157   \override Stem   #'stroke-style = #"grace"
 158    \longgrace f16(  \endlonggrace
 159   \revert Stem #'stroke-style }
 160   e8[)( d16  c)]
 161
 162         << d1\trill _(
 163           { s2 \grace {
 164   \override Stem   #'stroke-style = #"grace"
 165     c16[ d]
 166   \revert Stem #'stroke-style }
 167  } >>
 168
 169          c4) r r2
 170         R1 |
 171         \mark "H"
 172         \times 2/3 {  c8[ b a ] } \times 2/3 {  g[ a b] }
 173           \times 2/3 {  c[ d e] } \times 2/3 {  f[ e d] } |
 174         \times 2/3 {  c[ b a ] } \times 2/3 {  g[ a b] }
 175           \times 2/3 {  c[ d e] } \times 2/3 {  f[ e d] }|
 176         c4 \times 2/3 {  r8  g'[( e)]} c4 \times 2/3 {  r8  e[ ( c)]} |
 177         g4 \times 2/3 {  r8  c8[( g)] } \times 2/3 {  e[ ( g) e-. ] } \times 2/3 {  c[ ( e) c-.] }|
 178         g4 r8 g'\f  a[ b c d]|
 179
 180         << d1_(\trill
 181           { s2 \grace {
 182   \override Stem   #'stroke-style = #"grace"
 183     c16[ d]
 184   \revert Stem #'stroke-style }
 185  }  >>
 186          c4) r r2
 187         R1*3
 188
 189         c4.^\fermata_"Cadenza ad lib." ( d8) d4.\trill^\fermata (  c16[  d)]
 190         c4 r r2
 191         R1*8
 192         r4  c8.[^"tutti"\f c16] c4 c
 193         c  c,8.[ c16] c4 c|
 194         c2 r2 \bar "|."
 195
 196 }
 197