mutopia/J.S.Bach/preludes-4.ly

   1 \header{
   2 filename =       "preludes-4.ly";
   3 title =  "4";
   4 composer =       "Johann Sebastian Bach (1685-1750)";
   5 enteredby =      "jcn";
   6 copyright =      "public domain";
   7 }
   8
   9 \include "paper20.ly"
  10
  11 one = \melodic{
  12         \octave c'';
  13         \textstyle "italic";
  14         r16\p_"legato"
  15         \textstyle "finger";
  16         ['d-1( 'fis-3 'd-1] ['a-2 'b-3 cis-4 'a-3]
  17         [d-3 cis-2 d-1 e-2] [d-1 fis-3 e-2 d-1] |
  18         \textstyle "finger";
  19         \stemup;
  20         )cis4-2 fis-5 ~ [fis8 fis-4] e4-3 ~ |
  21         e16\< \stemboth ['a16( cis 'a] [d-2 e fis d-1]
  22         [g-3 fis g a-4] [a-3 b a \!g] |
  23         \stemup
  24         )fis4-"2\\_3" [e8-2 a-5] <fis4-4 d-2> <gis-5 e-3> |
  25         <a4-5( e> <fis-4 d-2> <[)g!16-5 d> fis-2 g-3 a-4]
  26         \stemboth
  27         [g-3 b a g] |
  28         \textstyle "italic";
  29         [fis_"dim." e fis-3 g] [fis-3 a-5 g fis]
  30         \textstyle "finger";
  31         e4-"2\\_5" ~ e16 ['e( 'fis 'g ] |
  32         \textstyle "italic";
  33         ['a-4_"dim." 'g-1 'a 'b] ['a-2 c-4 'b 'a]
  34         ['g-1 'fis-2 'g-3 'a] ['g-3 'b 'a 'g] |
  35         \stemup
  36         )'fis4\p
  37         \skip 4*7; |
  38         d4.\mf cis8-"4\\_5" ~ cis 'b4-5 'a8-"4\\_5" ~ |
  39         \textstyle "italic";
  40         'a 'g4-5 'fis8-4 ~ ['fis16 'fis-4-"dim." 'e-3 'd-2]
  41         \textstyle "finger";
  42         'e4-"3\\_5" ~ |
  43         ['e16 'e-5 'd 'cis] 'd4-5 ~ ['d16 'd-5 'cis ''b] 'cis4-5 |
  44         \stemboth
  45         [''fis16-1\p ''a-2 'd-5\< 'c-4] [''b-1 'd-2 'g-5 'fis-4]
  46         ['d-1 'b-5 'a 'g] ['fis-2 'e-1 'd-4 \!'c!-3] |
  47         [''b-2 'd-1 'g 'a] ['fis32 'g 'fis16] ['e16-4 'd-3]
  48         ['d8. 'e16~] ['e 'd8 'cis16] |
  49         \stemup
  50         r16 ['d-1\< 'fis 'd] ['g 'a 'b 'g-1] [c-3 'b c d] [c e d-4 \!c] |
  51         'b4-5 'a ~ ['a8 'g-5 ~] ['g16 'fis8-4 'e'16-3] |
  52         ['fis8-4 'e-5~] ['e 'd-5~] 'd4 'cis-4 |
  53         'd2\p-"rall." ~ ['d16 ''a-2( ''b-3 'cis-4] )'d4-5 |
  54 }
  55
  56 two = \melodic{
  57         \octave c;
  58         \textstyle "finger";
  59 % ugh: koor
  60 %       \translator Staff=bass \octave c; \stemup
  61         fis4-1( e8-2 a4 a4 gis8-2 |
  62         ) a8
  63         \translator Staff=treble \octave c''; \stemdown
  64         'a4 'a8 'b4.-"2\\_1" cis8 ~ |
  65         cis8
  66         \translator Staff=bass \octave c; \stemup
  67         a8 ~ [a d'] ~ d' d'4-> c'8 |
  68         d'8
  69         \translator Staff=treble \octave c''; \stemdown
  70         d4-> cis8-1 ~ cis 'b4-1 'b8 |
  71         r8 'a4 'a8
  72         \translator Staff=bass \octave c; \stemup
  73         [g'8-1( fis'-2] )e'4-1 ~ |
  74         e'4 d' ~ [d'16 d-1 cis'-2 g-1] cis'4-2 ~ |
  75         [c'8 a-3] d'4.-1 d'4-> cis'8-2 |
  76         \translator Staff=treble \octave c''; \stemdown
  77         'd4
  78         \stemboth
  79         r16 [''b-1\< d-2 ''b~] <'g4-5 'e-3 ''b>
  80         r16 ['cis-1 'e-2 \!'cis~] |
  81         <'a4-5 'f-3 'cis> r16 ['d-1 'fis-2 'd~] <'b4-5 'g-3 'd>
  82         r16 ['fis-1 'a 'fis~] |
  83         \stemdown
  84         'fis4 'e 'd 'cis |
  85         ''b ''a ''b4. ''b8 |
  86         ''a4
  87         \translator Staff=bass \octave c; \stemup
  88         r16 [b-3 fis-1 a-2] g4-1 r16 [a-3 e-1 g-2] |
  89         \skip 4*4; \skip 16*1;
  90         \translator Staff=treble \octave c''; \stemdown
  91         'd8.-1 ~ ['d8 'c] 'd4 [''a8 ''g] |
  92         \translator Staff=bass \octave c; \stemup
  93         [fis'8 c'-1] b4-1 <a
  94         \translator Staff=treble \octave c''; \stemdown
  95         ''a4.-2>
  96         \stemdown
  97         'a8~ |
  98         ['a 'g-3~] ['g16 'e 'fis8~] ['fis16 'd8.~] ['d8. cis!16] |
  99         \translator Staff=bass \octave c; \stemup
 100 %       <[d'8-2 a-1> <a~ g]> <a4 [fis16-2> e-1 fis-2 d-1]
 101         \multi 2 <
 102                 {
 103                         [d'8-2 a~] a4
 104                 }
 105                 {
 106                         \property Voice.hshift = 1
 107                         [a8-1 g] [fis16-2 e-1 fis-2 d-1]
 108                         \property Voice.hshift = 0
 109                 }
 110         >
 111         [g-1 fis-2 g-1 a-2] [g-1 b-3 a-2 g-1 ~] |
 112         [g g-1 fis-2 e-1] fis-2 ~ fis2
 113 }
 114
 115 three = \melodic{
 116         \octave c;
 117         \stemdown;
 118         d4-3 c-4 'b e-3 |
 119         a16 ['a-5\mf( cis-3 'a-5] [d-2 e-1 fis-2 d-4]
 120         [g-1 fis-3 g a] [g b a g] |
 121         )fis4 fis e a-4 |
 122         d'16 \stemboth [d-5\f( fis-3 d-5] [a-2 b-1 cis'-2 a-4]
 123         [d'-1 cis'-3 d' e'] [d'-4 fis'-2 e'-1 ) d'] |
 124         [cis'-3 b-4 cis'-3 d'-2] [c'-4 e'-2 d'-3 c'-4]
 125         \stemdown b4-5 [cis'8-4 b-3(] |
 126         [a-4 )fis-5 b-2 a-3] [gis-4 e-5 a-3 g-4] |
 127         fis4. d8-5 e4-5 a4-3 |
 128         \stemboth
 129         r16 [d-4( fis-2 d-4] [)g8-.-1 'g-.-5]
 130         r16 [e-4( g-2 e-4] [)a8-. 'a-.-5] |
 131         r16 [fis-4( a fis] [)b8-. 'b-.] r16 [g-4( b g] [)d'8-. d-.] |
 132         r16 ['d16-5( 'fis-3 'd] ['a-2 'b-1 cis-2 'a-4] [d 'b-5 d-3 'b]
 133         [fis-2 g a-2 fis-4] |
 134         )fis16 ['g( 'b 'g] [d-2 e fis-2 d-4] [)g8-. 'g-.] r16 [cis-4( e cis] |
 135         [)fis8-. 'fis-.] \stemdown r16 ['b-4( d 'b] [)e8-. 'e-.]
 136         r16 ['a-4 cis a] |
 137         \stemboth
 138         [d-1 e-3 fis-2 d-4] [g-1 fis-2 e-3 d-1] [cis!-3 'a-5 'b cis]
 139         [d-2 e fis-2 d-4] |
 140         [g8 e-3] \stemdown [a 'a] ['b8.-4 'g16-5] a4-4 |
 141         [d8-5 a-2~] [a g-3~] [g g-3] fis4-4 |
 142         \stemup
 143         r16 [g-2 b-1 g-3] [b'8.-1 c'16-1] [b8.-2 bes16-3] [a8-1 g] |
 144         \stemdown
 145         r16 ['a-2 cis!-1 a-2] [d-1 e fis d] [e8-1 d-2] [e-1 'a-2] |
 146         [d 'a-2~] ['a16 'a-2 'b cis-2] d2 |
 147 }
 148
 149 four = \melodic{
 150         \skip 4*36;
 151         \octave c';
 152         \stemup;
 153         \property Voice.hshift = 1
 154         a2 fis |
 155         d
 156         \property Voice.hshift = 0
 157         \skip 4*11;
 158         \translator Staff=bass \octave c; \stemup
 159         a4 ~ [a16 d-2 g8-1] [fis e-1] |
 160         \stemdown
 161         d1 ~ |
 162         d ~ |
 163         'd ~
 164         'd2 'd2
 165 }
 166
 167 rh = \melodic{
 168         \multi 2 <
 169                 \one
 170                 \four
 171         >
 172         \bar "|.";
 173 }
 174
 175
 176 lh = \melodic{
 177         \clef "bass";
 178         \multi 2 <
 179                 \two
 180                 \three
 181         >
 182         \bar "|.";
 183 }
 184
 185
 186 global  = \melodic{
 187         \meter 4/4;
 188         \key fis cis;
 189 }
 190
 191 \score{
 192         % Allegretto
 193         % it would be nice to shut-off fingering...
 194         \melodic \type Grandstaff <
 195                 \type Staff=treble  <
 196                         \global
 197 % huh? try these iso directly!
 198 %                       \lh
 199                         \multi 2 <
 200                                 \one
 201                                 \four
 202                         >
 203                 >
 204                 \type Staff=bass  <
 205                         \global
 206 %                       \rh
 207 % or try \two having here, iso above!
 208 %                       \two
 209                         {
 210                                 \clef "bass";
 211                                 \multi 2 <
 212                                         \two
 213                                         \three
 214                                 >
 215                         }
 216                 >
 217         >
 218         \paper{
 219                 \paper_twenty
 220                 linewidth= 195.\mm;
 221         }
 222         \midi{
 223                 \tempo 4 = 110;
 224         }
 225 }