]> git.donarmstrong.com Git - lilypond.git/blobdiff - mutopia/J.S.Bach/preludes-4.ly
release: 0.1.46
[lilypond.git] / mutopia / J.S.Bach / preludes-4.ly
index 6086842e714a45aec4cdedeb2eb3a82b53824e9e..9b54a623dce0c1ea3edf590b0269a512eacd9cd0 100644 (file)
@@ -33,12 +33,28 @@ one = \melodic{
        ['a-4_"dim." 'g-1 'a 'b] ['a-2 c-4 'b 'a]
        ['g-1 'fis-2 'g-3 'a] ['g-3 'b 'a 'g] |
        \stemup
-       )'fis4\p r16 [''b-1\< d-2 ''b~] <'g4-5 'e-3 ''b>
-       r16 ['cis-1 'e-2 \!cis] |  % cis wants ~
-
+       )'fis4\p 
+       \skip 4*7; |
+       d4.\mf cis8-"4\\_5" ~ cis 'b4-5 'a8-"4\\_5" ~ |
+       \textstyle "italic";
+       'a 'g4-5 'fis8-4 ~ ['fis16 'fis-4-"dim." 'e-3 'd-2] 
+       \textstyle "finger";
+       'e4-"3\\_5" ~ |
+       ['e16 'e-5 'd 'cis] 'd4-5 ~ ['d16 'd-5 'cis ''b] 'cis4-5 |
+       \stemboth
+       [''fis16-1\p ''a-2 'd-5\< 'c-4] [''b-1 'd-2 'g-5 'fis-4]
+       ['d-1 'b-5 'a 'g] ['fis-2 'e-1 'd-4 \!'c!-3] |
+       [''b-2 'd-1 'g 'a] ['fis32 'g 'fis16] ['e16-4 'd-3]
+       ['d8. 'e16~] ['e 'd8 'cis16] |
+       \stemup
+       r16 ['d-1\< 'fis 'd] ['g 'a 'b 'g-1] [c-3 'b c d] [c e d-4 \!c] |
+       'b4-5 'a ~ ['a8 'g-5 ~] ['g16 'fis8-4 'e'16-3] |
+       ['fis8-4 'e-5~] ['e 'd-5~] 'd4 'cis-4 |
+       'd2\p-"rall." ~ ['d16 ''a-2( ''b-3 'cis-4] )'d4-5 |
 }
 
 two = \melodic{
+       \octave c;
        \textstyle "finger";
 % ugh: koor
 %      \translator Staff=bass \octave c; \stemup
@@ -58,18 +74,53 @@ two = \melodic{
        e'4 d' ~ [d'16 d-1 cis'-2 g-1] cis'4-2 ~ |
        [c'8 a-3] d'4.-1 d'4-> cis'8-2 |
        \translator Staff=treble \octave c''; \stemdown
-       'd4 \skip 4*3; |
+       'd4 
+       \stemboth
+       r16 [''b-1\< d-2 ''b~] <'g4-5 'e-3 ''b>
+       r16 ['cis-1 'e-2 \!'cis~] |
+       <'a4-5 'f-3 'cis> r16 ['d-1 'fis-2 'd~] <'b4-5 'g-3 'd>
+       r16 ['fis-1 'a 'fis~] |
+       \stemdown
+       'fis4 'e 'd 'cis |
+       ''b ''a ''b4. ''b8 |
+       ''a4
+       \translator Staff=bass \octave c; \stemup
+       r16 [b-3 fis-1 a-2] g4-1 r16 [a-3 e-1 g-2] |
+       \skip 4*4; \skip 16*1;
+       \translator Staff=treble \octave c''; \stemdown
+       'd8.-1 ~ ['d8 'c] 'd4 [''a8 ''g] |
+       \translator Staff=bass \octave c; \stemup
+       [fis'8 c'-1] b4-1 <a
+       \translator Staff=treble \octave c''; \stemdown
+       ''a4.-2>
+       \stemdown
+       'a8~ |
+       ['a 'g-3~] ['g16 'e 'fis8~] ['fis16 'd8.~] ['d8. cis!16] |
+       \translator Staff=bass \octave c; \stemup
+%      <[d'8-2 a-1> <a~ g]> <a4 [fis16-2> e-1 fis-2 d-1]
+       \multi 2 <
+               { 
+                       [d'8-2 a~] a4 
+               }
+               { 
+                       \property Voice.hshift = 1 
+                       [a8-1 g] [fis16-2 e-1 fis-2 d-1]
+                       \property Voice.hshift = 0
+               }
+       >
+       [g-1 fis-2 g-1 a-2] [g-1 b-3 a-2 g-1 ~] |
+       [g g-1 fis-2 e-1] fis-2 ~ fis2
 }
 
 three = \melodic{
        \octave c;
        \stemdown;
        d4-3 c-4 'b e-3 |
-       a16 ['a-5\mf( c-3 'a-5] [d-2 e-1 fis-2 d-4]
+       a16 ['a-5\mf( cis-3 'a-5] [d-2 e-1 fis-2 d-4]
        [g-1 fis-3 g a] [g b a g] |
        )fis4 fis e a-4 |
-       d'16 \stemboth [d-5\f( fis-3 d-5] [a-2 b-1 c'-2 a-4]
-       [d'-1 c'-3 d' e'] [d'-4 fis'-2 e'-1 ) d'] |
+       d'16 \stemboth [d-5\f( fis-3 d-5] [a-2 b-1 cis'-2 a-4]
+       [d'-1 cis'-3 d' e'] [d'-4 fis'-2 e'-1 ) d'] |
        [cis'-3 b-4 cis'-3 d'-2] [c'-4 e'-2 d'-3 c'-4] 
        \stemdown b4-5 [cis'8-4 b-3(] |
        [a-4 )fis-5 b-2 a-3] [gis-4 e-5 a-3 g-4] |
@@ -77,10 +128,47 @@ three = \melodic{
        \stemboth
        r16 [d-4( fis-2 d-4] [)g8-.-1 'g-.-5]
        r16 [e-4( g-2 e-4] [)a8-. 'a-.-5] |
+       r16 [fis-4( a fis] [)b8-. 'b-.] r16 [g-4( b g] [)d'8-. d-.] |
+       r16 ['d16-5( 'fis-3 'd] ['a-2 'b-1 cis-2 'a-4] [d 'b-5 d-3 'b]
+       [fis-2 g a-2 fis-4] |
+       )fis16 ['g( 'b 'g] [d-2 e fis-2 d-4] [)g8-. 'g-.] r16 [cis-4( e cis] |
+       [)fis8-. 'fis-.] \stemdown r16 ['b-4( d 'b] [)e8-. 'e-.] 
+       r16 ['a-4 cis a] |
+       \stemboth
+       [d-1 e-3 fis-2 d-4] [g-1 fis-2 e-3 d-1] [cis!-3 'a-5 'b cis]
+       [d-2 e fis-2 d-4] |
+       [g8 e-3] \stemdown [a 'a] ['b8.-4 'g16-5] a4-4 |
+       [d8-5 a-2~] [a g-3~] [g g-3] fis4-4 |
+       \stemup
+       r16 [g-2 b-1 g-3] [b'8.-1 c'16-1] [b8.-2 bes16-3] [a8-1 g] |
+       \stemdown
+       r16 ['a-2 cis!-1 a-2] [d-1 e fis d] [e8-1 d-2] [e-1 'a-2] |
+       [d 'a-2~] ['a16 'a-2 'b cis-2] d2 |
+}
+
+four = \melodic{
+       \skip 4*36;
+       \octave c';
+       \stemup;
+       \property Voice.hshift = 1 
+       a2 fis |
+       d
+       \property Voice.hshift = 0 
+       \skip 4*11;
+       \translator Staff=bass \octave c; \stemup
+       a4 ~ [a16 d-2 g8-1] [fis e-1] |
+       \stemdown
+       d1 ~ | 
+       d ~ | 
+       'd ~
+       'd2 'd2
 }
 
 rh = \melodic{
-       \one
+       \multi 2 <
+               \one
+               \four
+       >
        \bar "|.";
 }
 
@@ -107,16 +195,24 @@ global  = \melodic{
                \type Staff=treble  < 
                        \global 
 % huh? try these iso directly!
-                       \lh
-%                      \one
-%                      \two
+%                      \lh
+                       \multi 2 <
+                               \one
+                               \four
+                       >
                >
                \type Staff=bass  < 
                        \global 
-                       \rh
+%                      \rh
 % or try \two having here, iso above!
 %                      \two
-%                      \three
+                       { 
+                               \clef "bass";
+                               \multi 2 < 
+                                       \two
+                                       \three
+                               >
+                       }
                >
        >
        \paper{