release: 0.1.47

[lilypond.git] / mutopia / J.S.Bach / preludes-5.ly

diff --git a/mutopia/J.S.Bach/preludes-5.ly b/mutopia/J.S.Bach/preludes-5.ly
index aee8b4c4a56c68cac716758ddf739b033b596ba9..b0812f72b1813e60f774eb6d435d5c40c986e19e 100644 (file)
--- a/mutopia/J.S.Bach/preludes-5.ly
+++ b/mutopia/J.S.Bach/preludes-5.ly
@@ -24,10 +24,10 @@ rh = \melodic{
        \multi 2 < 
                {
                        \stemup
-%                      c4\mr^"(\\textsharp)"\p r r |
-%                      c4\mr^"(\\textsharp)" r r
-                       c4^"(\\textsharp)"\p r r |
-                       c4^"(\\textsharp)" r r
+%                      c'4\mr^"(\\textsharp)"\p r r |
+%                      c'4\mr^"(\\textsharp)" r r
+                       c'4^"(\\textsharp)"\p r r |
+                       c'4^"(\\textsharp)" r r
                }
                {
                        \stemdown
@@ -35,6 +35,7 @@ rh = \melodic{
                        a4 r r
                }
        > |
+       \stemboth;
        [a'8\mf( es'-3\> d' c' bes!-3 a] |
        [g fis-3 e!-2 d-1 c'-4 \!a] |
        [)bes32(\p a bes16] [d'8-5 bes-3 g-1] )g'4 |
@@ -43,12 +44,12 @@ rh = \melodic{
        [)a-2 c'-4( a f] ) f'4 |
 %      r8 [c'-5 bes a g\tr f] |
        r8 [c'-5 bes a g f] |
-       [g-2 bes-4 a g fis-1 e-2] |
+       [g-2 bes-4 a g f-1 e-2] |
        [f-3 d-1 f-2 a-3 d'-5 g-2] |
        \multi 2 < 
                {
                        \stemup
-                       [cis'32-4 b cis'16 e'8-5-"poco cresc." cis-3 a e' cis]
+                       [cis'32-4 b cis'16 e'8-5-"poco cresc." cis'-3 a e' cis']
                }
                {
                        \stemdown
@@ -73,11 +74,12 @@ rh = \melodic{
        [d-1 a-5 f-3 d-1 cis-2 d-1] |
        [e-3\< g-5 e-3 'bes-1 g-5 e-3] |
        ['bes-1 g-5 e-3 \!cis-2 'a-1 g-5] |
-       [f16-4\mf d-2 c-1 'bes-3] s4 s |
+       [f16-4\mf d-2 c-1 'bes-3] /stemup 'a-2 s16 s8 s4 |
 % ugh
 %      s1 |
        s4 s4 s4 |
-       s4 s16 [d16-1-"m.d." f-2 a-4] [d-2-"m.g." f a] \stemup d'-1 |
+       s4 s16 [d16-1-"m.d." f-2 a-4] \stemdown [d-2-"m.g." f a] \stemup d'-1 |
+       \stemboth
        [f' a'-4 f' d'] [f'-4 d' b d'-5] [gis-2 b a g] |
        <g'!4.-5\f e' a> a'8-5 
        \multi 2 <
@@ -124,32 +126,33 @@ lh = \melodic{
        gis4-3 r r |
        e-4( )gis-2 e |
        [a8-4 e'-1 c'-2 a-4 e'-1 c'-2 ] |
+       [g!-5 es'-1 c'-1 g-5 es'-1 c'-1 ] |
        fis4-5 r r 
        d-4( ) fis d-5 |
-%      g\mr-"(\textsharp)" r r f!8 |
-       g-"(\textsharp)" r r8 f! |
+%      g\mr-"(\\textsharp)" r r f!8 |
+       g-"(\\textsharp)" r r8 f! |
        [e32 f e8.] r4 r |
 %      f\pr r r8 e |
        f r r8 e |
        d4 r8 [f-1 e d] |
        [e-2 d-3 cis-4 e-1 d-2 cis-3] |
-       d4-2( )c! 'b-4 |
-       'a( )a a |
-       'a( )a a |
-       'a( )a a |
-       'a( )a a |
-       'b r r |
-       'b-5( )b 'b |
+       d4-2( )c! 'bes-4 |
+       'a( )a 'a |
+       'a( )a 'a |
+       'a( )a 'a |
+       'a( )a 'a |
+       'bes r r |
+       'bes-5( )bes 'bes |
        'a r r |
        'a-2( )d-1 'd |
        'g r r |
-       'g( )g g |
+       'g( )g 'g |
        'g r r |
-       'g( )g g |
+       'g( )g 'g |
        'a r r |
-       'a( )a a |
+       'a( )a 'a |
        'a r r |
-       'a( )a a |
+       'a( )a 'a |
        'cis r r |
        'cis( )cis 'cis |
        'd-4 s16
@@ -165,6 +168,7 @@ lh = \melodic{
        \stemdown
 %      [d-4-"m.g." f-"cresc."] a s s8 s4\dep |
        [d-4-"m.g." f-"cresc."] a s s8 s4-"*" |
+       \stemboth
 % ugh, whole rest has duration of one bar
 %      r1 |
        r4 r r |
@@ -205,6 +209,10 @@ global  = \melodic{
        \paper{
                \paper_twenty
                linewidth= 195.\mm;
+%              arithmetic_basicspace = 2.;
+%              arithmetic_multiplier = 6.\pt;
+               arithmetic_basicspace = 2.;
+               arithmetic_multiplier = 8.\pt;
        }
        \midi{
                \tempo 4 = 90;