]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/mutopia/W.A.Mozart/mozart-hrn3-allegro.ly
* lily/rest.cc (polyphonic_offset_callback): new function. Do
[lilypond.git] / input / mutopia / W.A.Mozart / mozart-hrn3-allegro.ly
index 21b5eff19559fa85b47ef66c2d8dd6124877eda9..d8799725a3a2dd5c0feed0d2e7698c240eee3eb5 100644 (file)
@@ -1,4 +1,5 @@
-\version "1.7.18"
+#(ly:set-option 'old-relative)
+\version "2.1.22"
 \include  "mozart-hrn3-defs.ly"
 
 allegro =
@@ -14,63 +15,75 @@ allegro =
        c'2^"Tutti" g
        c, r
        R1*1
-       r8 [g' g g] [g g e c]
+       r8 g' g g  g g e c
        g'4 g, r2
        R1*18
        r2 r4^"Solo" g'4 |
        \mark "A"
-       e'4. () c8 [f (d c )b ]
-       [b()c] g4 r8 [g c e]
-       g2.  [g16( f e )f]
-       dis4 () e4 r8 [c8-. c-. c-.]
-       c4.( [d16 e]  f4 ) e
-       a,( d g,) c
-       d-. d-. \grace e16( [)d8. c16 d8. e16]
+       e'4. ( c8)  f[ (d c  b) ]
+        b[( c)] g4 r8  g[ c e]
+       g2.   g16[( f e  f)]
+       dis4 ( e4) r8  c8[-. c-. c-.]
+       c4.(  d16[ e]  f4  e)
+       a,( d g, c)
+       d-. d-. \grace {
+  \override Stem  #'stroke-style = #"grace"
+   e16( 
+  \revert Stem #'stroke-style }
+ d8.[) c16 d8. e16]
        c4 r r2
        R1*3
-       c,2 ~ [c8 e g c]
-       [c  b ] b4 r2
-       [c,8 () e g c] [e()g e c]
-       [c()b] b4 r2
-       c4.( g8 e'4.) c8
-       [g'()d ] d4 r4 d
-       [d8 () c] c4.( [d16 e] [d8 )c]
-       [c8(-\trill )b] b4 r2 |
-       d2( ~  [d8 e16 d] [c8 )b] |
-       [b()a] a4 r8 [a a a]
-       a4( cis e )g
-       \grace { \longgrace g16( \endlonggrace }
-       [ )fis8( e16 )d] d4-. r2 | 
+       c,2 ~  c8[ e g c]
+        c[  b ] b4 r2
+        c,8[ ( e) g c]  e[( g) e c]
+        c[( b)] b4 r2
+       c4.( g8 e'4. c8)
+        g'[( d) ] d4 r4 d
+        d8[ ( c)] c4.(  d16[ e]  d8[  c)]
+        c8[(\trill  b)] b4 r2 |
+       d2( ~   d8[ e16 d]  c8[  b)] |
+        b[( a)] a4 r8  a[ a a]
+       a4( cis e  g)
+       \grace {
+  \override Stem  #'stroke-style = #"grace"
+   \longgrace g16( \endlonggrace 
+  \revert Stem #'stroke-style }
+
+        fis8[)( e16  d)] d4-. r2 | 
        \mark "B"
        R1*3
-       r2 r4 [d8-(_\markup { \italic \bold "con espressione" } b-) ]
-       [a( )g d'( )b] [a( )g e'( )c ]
-       [b8( )a] a4 r4 [a8 a]
-       [a( \< b c \!cis\> ]  d4 \! )c
-       [ais8() b] r8 \cresc b [b()c] r c
-       [cis ()d] r4 r2
-       \endcresc g,1-\f ~ g2 ~ [g8 a16 b] [c()d e c]
+       r2 r4  d8[(_\markup { \italic \bold "con espressione" } b) ]
+        a[(  g) d'(  b)]  a[(  g) e'(  c) ]
+        b8[(  a)] a4 r4  a8[ a]
+        a[( \< b c cis\!\> ]  d4  c\!)
+        ais8[( b)] r8 \cresc b  b[( c)] r c
+        cis[ ( d)] r4 r2
+       \endcresc g,1\f ~ g2 ~  g8[ a16 b]  c[( d) e c]
        %% 64
        f4-. d-. b-. g-.
        R1
 
-       c,2-\p e4 g c \cresc e g4. e8 |
-       \endcresc d4.-\f [e16 fis] [g () fis e d] [c() b a g]
+       c,2\p e4 g c \cresc e g4. e8 |
+       \endcresc d4.\f  e16[ fis]  g[ ( fis) e d]  c[( b) a g]
 
-       < a1(-\trill
-         { s2 \grace{ [g16 a] } } >
+       << a1(\trill
+         { s2 \grace {
+  \override Stem   #'stroke-style = #"grace"
+    g16[ a] 
+  \revert Stem #'stroke-style }
+ } >>
        \mark "C"
-       )g4 r r2
+        g4) r r2
        R1*15
        \mark "D"
-       bes2-\mf d4 f
-       g,2~ [g8 g' es c]|
-       bes4( )a4. [c8( d )es]
-       cis4()d r8 [bes (c )d]
-       es2 () d4 r
-       es2 () d4 r
-       [c8( g' es )c] bes4()c
-       c4.( cis8 )d4 r
+       bes2\mf d4 f
+       g,2~  g8[ g' es c]|
+       bes4(  a4.)  c8[( d  es)]
+       cis4( d) r8  bes[ (c  d)]
+       es2 ( d4) r
+       es2 ( d4) r
+        c8[( g' es  c)] bes4( c)
+       c4.( cis8  d4) r
        R1*2
        es1~es1|
        e!
@@ -79,80 +92,104 @@ allegro =
        c,
        e'
        e,
-       c'2 [b8( a gis )a]
-       [gis8 e gis b ] e4 r |
-       r8 [e, a c] dis4 r
-       r8 [e, a c] dis4 r
-       r8 [e, g b] e4 r
-       r8 [fis, b dis] fis4 r
-       r8 [gis, b d] f4 r
-       r8 [g, b d_\ritenuto ] f4 r
+       c'2  b8[( a gis  a)]
+        gis8[ e gis b ] e4 r |
+       r8  e,[ a c] dis4 r
+       r8  e,[ a c] dis4 r
+       r8  e,[ g b] e4 r
+       r8  fis,[ b dis] fis4 r
+       r8  gis,[ b d] f4 r
+       r8  g,[ b d_\ritenuto ] f4 r
        \mark  "E"
        R1*8
-       r2 r8 [g, g g]
-       e'4.() c8 [f( d c )b]
-       [b()c] g4 r8 [g c e] |
-       g2.  [g16( f e )f]
-       dis4()e r8 [c-. c-. c-.]
-       c4.( [d16 e] f4 )e
-       a, ( d g, )c
+       r2 r8  g,[ g g]
+       e'4.( c8)  f[( d c  b)]
+        b[( c)] g4 r8  g[ c e] |
+       g2.   g16[( f e  f)]
+       dis4( e) r8  c[-. c-. c-.]
+       c4.(  d16[ e] f4  e)
+       a, ( d g,  c)
        d d 
-           \grace { e8( }
-          [)d8. c16 d8. e16] 
+           \grace {
+  \override Stem   #'stroke-style = #"grace"
+   e8( 
+  \revert Stem #'stroke-style }
+
+          d8.[) c16 d8. e16] 
        c4 r r2
        \mark "F"
        R1*3
-       c,2~[c8 e g c]
-       [c8()b] b4 r2
-       [c,8 e g c ] [e ()g e c]
-       [c()b] b4 r2
-       c2 (bes )a [a8(b c )cis]
-       d2( ~ [d8 e16 d] \grace { \longgrace d16( \endlonggrace } [)c8 b16 )c]
-       \grace { \longgrace c16 \endlonggrace }[ b8( a16 )g] g4 r2 |
+       c,2~ c8[ e g c]
+        c8[( b)] b4 r2
+        c,8[ e g c ]  e[ ( g) e c]
+        c[( b)] b4 r2
+       c2 (bes  a)  a8[(b c  cis)]
+       d2( ~  d8[ e16 d] \grace {
+  \override Stem   #'stroke-style = #"grace"
+   \longgrace d16( \endlonggrace 
+  \revert Stem #'stroke-style }
+ c8[) b16  c)]
+       \grace {
+  \override Stem   #'stroke-style = #"grace"
+   \longgrace c16 \endlonggrace 
+  \revert Stem #'stroke-style }
+ b8[( a16  g)] g4 r2 |
        R1*3
-       r2 r4 [g'8()e]
+       r2 r4  g'8[( e)]
        \mark "G"
-       [d()c g'()e] [d()c a'()f]
-       [e()d] d4 r [d8 d]
-       d4(~ [d16 e d )e] [g8() f e d] |
+        d[( c) g'( e)]  d[( c) a'( f)]
+        e[( d)] d4 r  d8[ d]
+       d4(~  d16[ e d  e)]  g8[( f) e d] |
        c4 r r2
        R1
        c1 ~
        c |
-       [c8-. c-.] r c-. [cis()d] r\cresc d-. |
-       [dis()e] r e-. [e()f] r f-. |
-       g4-.-\f\endcresc  e-. c-. bes-. |
-       g-.-\ff e-. c-. r |
-       a'2 ~ [a8_""_\markup { \bold \italic "sempre " \dynamic "f" }  b16 c] [d( e d )e]
+        c8[-. c-.] r c-.  cis[( d)] r\cresc d-. |
+        dis[( e)] r e-.  e[( f)] r f-. |
+       g4-.\f\endcresc  e-. c-. bes-. |
+       g-.\ff e-. c-. r |
+       a'2 ~  a8[_""_\markup { \bold \italic "sempre " \dynamic "f" }  b16 c]  d[( e d  e)]
 
        
-       f4. () d8 [f8 ()d f d]
-       [c (e] )g2 \grace  { \longgrace f16(  \endlonggrace }  [)e8( d16 )c]
+       f4. ( d8)  f8[ ( d) f d]
+        c[ (e]  g2) \grace {
+  \override Stem   #'stroke-style = #"grace"
+   \longgrace f16(  \endlonggrace 
+  \revert Stem #'stroke-style }
+  e8[)( d16  c)]
 
-       < d1-\trill (
-         { s2 \grace { [c16 d] } } >
+       << d1\trill (
+         { s2 \grace {
+  \override Stem   #'stroke-style = #"grace"
+    c16[ d] 
+  \revert Stem #'stroke-style }
+ } >>
        
-       ) c4 r r2
+        c4) r r2
        R1 |
        \mark "H"
-       \times 2/3 { [ c8 b a ] } \times 2/3 { [ g a b] }
-         \times 2/3 { [ c d e] } \times 2/3 { [ f e d] } |
-       \times 2/3 { [ c b a ] } \times 2/3 { [ g a b] }
-         \times 2/3 { [ c d e] } \times 2/3 { [ f e d] }|
-       c4 \times 2/3 {  r8 [g'()e]} c4 \times 2/3 {  r8 [e () c]} |
-       g4 \times 2/3 {  r8 [c8() g] } \times 2/3 { [ e ()g e-. ] } \times 2/3 { [c () e c-.] }|
-       g4 r8 g'-\f [a b c d]|
+       \times 2/3 {  c8[ b a ] } \times 2/3 {  g[ a b] }
+         \times 2/3 {  c[ d e] } \times 2/3 {  f[ e d] } |
+       \times 2/3 {  c[ b a ] } \times 2/3 {  g[ a b] }
+         \times 2/3 {  c[ d e] } \times 2/3 {  f[ e d] }|
+       c4 \times 2/3 {  r8  g'[( e)]} c4 \times 2/3 {  r8  e[ ( c)]} |
+       g4 \times 2/3 {  r8  c8[( g)] } \times 2/3 {  e[ ( g) e-. ] } \times 2/3 {  c[ ( e) c-.] }|
+       g4 r8 g'\f  a[ b c d]|
 
-       < d1(-\trill
-         { s2 \grace { [c16 d] } }  >
-       )c4 r r2
+       << d1(\trill
+         { s2 \grace {
+  \override Stem   #'stroke-style = #"grace"
+    c16[ d] 
+  \revert Stem #'stroke-style }
+ }  >>
+        c4) r r2
        R1*3
 
-       c4.^\fermata_"Cadenza ad lib." () d8 d4.-\trill^\fermata ( [c16 )d
+       c4.^\fermata_"Cadenza ad lib." ( d8) d4.\trill^\fermata (  c16[  d)
        c4 r r2
        R1*8
-       r4 [c8.^"tutti"-\f c16] c4 c
-       c [c,8. c16] c4 c|
+       r4  c8.[^"tutti"\f c16] c4 c
+       c  c,8.[ c16] c4 c|
        c2 r2 \bar "|."
        
 }
@@ -165,4 +202,4 @@ allegro =
        \header { piece = "allegro" opus = "" } 
        \midi{ \tempo 4=90 }
 }
-%% new-chords-done %%
+