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

   1 \header{
   2 filename =       "preludes-6.ly";
   3 title =  "6";
   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         \skip 4*4; |
  14         \stemup
  15         r4 d'2-5( cis'4-4 |
  16         \stemboth
  17         [)d'16-5\mf a'-4( g' f'] [e' f'-4 cis'-2 d'-1]
  18         [e'32-3 d' e'8 f'16] [d'8.-1 cis'16-3] |
  19         \stemup
  20         )cis'4\> ~ [cis'16 a \!d'8 ~] d'4 c'-5 |
  21         b2-4 ~ b4 a-5 ~ |
  22         [a16 a-5 \stemup g! f] g4-4\< ~ g f-3 ~ |
  23         [\!f16 a g f] [e16 g8.-5 ~] [g16 g-5 f-4 e-3] [d-1 f8.-4 ~] |
  24         [f16 f-3 e d] b4 a-5 g-5 |
  25         fis4-4 g r8\<-"rall." [g16-1( bes-2] \!e'4-5\> |
  26         \!)d'1-5
  27         \bar "|.";
  28 }
  29
  30 two = \melodic{
  31         \octave c';
  32         r16\p [d'-5( c'-4 bes-3] [a-2 bes-3 f-1 g-2]
  33         [a32-3 g a8 bes16-1] [g8. f16-1] |
  34         \stemdown
  35         )f2 e2 |
  36         \translator Staff=bass \octave c; \stemup
  37         r4 a-1 bes-2 b-1 |
  38         \translator Staff=treble \octave c'; \stemdown
  39         r16 [b-3 a-1 g-2] [f8. f16-2] e2 ~ |
  40         e2 ~ e4 ~ [e16 e-2 f! d-1] |
  41         s4 [e32 d e8.~] e4 d4 ~ |
  42         d4. [cis16-2 d-1] cis4 d-1 ~ |
  43         d8 r r16 [e-2 f d] r16 [e-2 f d] r [d-1 e-3 cis] |
  44         r16 [e-3 d-1 c!-2] ['bes! d8.] s4 r16 [bes-2 a-2 \!g-1] |
  45         fis1-2
  46 }
  47
  48 three = \melodic{
  49         \octave c;
  50         \stemup
  51         f2-1( e-2 |
  52         \stemboth;
  53         [)d16 d'( c' bes] [a-4 bes-2 f-5 g-4]
  54         [a32 g a8 bes16-2]
  55         [g8.-4 f16-5] |
  56         )f2-5 g4-4 gis |
  57         a2-2 ~ [a16 a-1( g f] [e-4 f-2 c-5 d] |
  58         [e32 d e8 f16] [d8.-4 c16-5] \stemboth )c4.-5 d8-4 |
  59         \stemdown
  60         e4 ~ [e16 f-2( e-3 d-4] [cis 'a 'b cis-3] [d-4 e-3 f-2 d-4] |
  61         \textstyle "finger";
  62         )'bes!2-"5\\_4" 'a ~ |
  63         'a 'a |
  64         'd cis-5 |
  65         a1-2
  66         \bar "|.";
  67 }
  68
  69 four = \melodic{
  70         \octave c;
  71         \stemdown;
  72         d2-3 cis-4 |
  73         \skip 4*12;
  74         \translator Staff=treble \octave c'; \stemup \property Voice.hshift = 1
  75         a4 gis-2 ~ [gis16 gis-3 fis e]
  76         \skip 4*1;
  77         \translator Staff=bass \octave c; \stemdown \property Voice.hshift = 0
  78         \stemup
  79         b2-1 a-1 |
  80         g a4. [gis16 a] |
  81         gis2 <[g8 cis> <f-3 d-1]> e4-2 |
  82         d4. [fis16-3 g-2] r16 b8.-1 ~ b4 |
  83         \stemdown
  84         d1-5
  85 }
  86
  87 rh = \melodic{
  88         \one
  89         \multi 2 <
  90                 \one
  91                 \two
  92         >
  93         \bar "|.";
  94 }
  95
  96
  97 lh = \melodic{
  98         \clef "bass";
  99         \multi 2 <
 100               \three
 101               \four
 102         >
 103         \bar "|.";
 104 }
 105
 106
 107 global  = \melodic{
 108         \meter 4/4;
 109         \key bes;
 110 }
 111
 112 \score{
 113         % Allegretto
 114         % it would be nice to shut-off fingering...
 115         \melodic \type Grandstaff <
 116                 \type Staff=treble  <
 117                         \global
 118 % huh? try these iso directly!
 119 %                       \lh
 120                         \multi 2 <
 121                                   \one
 122                                   \two
 123                         >
 124                 >
 125                 \type Staff=bass  <
 126                         \global
 127 %                       \rh
 128 % or try \two having here, iso above!
 129                         \clef "bass";
 130                         \multi 2 <
 131                                   \three
 132                                   \four
 133                         >
 134                 >
 135         >
 136         \paper{
 137                 \paper_twenty
 138                 linewidth= 195.\mm;
 139         }
 140         \midi{
 141                 \tempo 4 = 40;
 142         }
 143 }