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

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