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

   1 \header{
   2 filename =       "preludes-2.ly";
   3 title =  "2";
   4 composer =       "Johann Sebastian Bach (1685-1750)";
   5 enteredby =      "jcn";
   6 copyright =      "public domain";
   7 }
   8
   9 \include "paper20.ly"
  10
  11 rh = \melodic{
  12         \octave c'';
  13         \textstyle "italic";
  14         r8\mf ['c-1( 'e-2 'g-4] ['e-2 'c-1 'bes-5 'g-3] |
  15         [)'a-4\< 'c-1( 'f-2 'a-4] ['f 'c c-5 'a-3] |
  16         [)'b-4 'g-1( 'b-2 d-4] ['b-2 'g f-5 \!d-3] |
  17         \multi 2 <
  18                 {\stemup; )e2-4\f r4 e-5 }
  19                 {\stemdown; <c2 'g> r4 <c 'g> }
  20         >
  21         \stemboth; |
  22         \multi 2 <
  23                  { \stemup; d2-4 r4 d-4 }
  24                  { \stemdown; <c2 'a> r4 <c 'a> }
  25         >
  26         \stemboth; |
  27         \multi 2 <
  28                  { \stemup; d8 }
  29                  { \stemdown; <'b8 'g> }
  30         >
  31         \stemboth;
  32         ['g8-1\mf( 'b-2 d-4]
  33         \multi 2 <
  34                 { \stemup; )'b4 e-5 }
  35                 { \stemdown; 'g4 'b }
  36         >
  37         \stemboth; |
  38         \multi 2 <
  39                 { \stemup; c2 r4 < {c-5 ~ c8} {'a4 ~ 'a8} > }
  40                 { \stemdown; c2 r4 'e4 ~ 'e8 }
  41         >
  42         \stemboth;
  43         ['d-1\p( 'fis-2 'a-4] ['fis-2 'd-1 c-5 'a-3] |
  44         [)'b-4\< 'g-1( 'b-2 d-4] [ 'b-2 'g-1 f!-5 d-3] |
  45         [)e-4 'g-1( c-2 e-4] [c-2 'g g-5 e-3] |
  46         [)fis-4 'a-1( c-2 fis-4] [c 'a a-5 \!fis-3] |
  47         \multi 2 <
  48                 { \stemup; )g2-5\f }
  49                 { \stemdown; <d2 'b> }
  50         >
  51         \stemboth;
  52         r4 b4-2( |
  53         [c8-1 e-2 g c'] [g-2 e-1 bes-4 g-2] |
  54         [)a16->-3 g-2 f-1 e-3] [d c 'b!-3 'a-2]
  55         ['b-3\< 'g-1 'a 'b] [c-1 d e \!f] |
  56         g4-5\ff
  57         \multi 2 <
  58                 { \stemup; c2-5 'b4-4 }
  59                 { \stemdown; 'g2-2 'd4-1 }
  60         >
  61         \stemboth;
  62         \multi 2 <
  63                 { \stemup;  c1^5 }
  64                 { \stemdown; 'e1_1}
  65         >
  66         \stemboth;
  67         \bar "|.";
  68 }
  69
  70 lh = \melodic{
  71         \octave c;
  72         \clef bass;
  73         \multi 2 <
  74                 { \stemup; c1 ~ c ~ c }
  75                 { \stemdown; 'c1 ~ 'c ~ 'c }
  76         >
  77         \stemboth; |
  78         r8 [c-5( e-3 g-1] [e-3 c-5 c' e-4] |
  79         [)fis-3 d-5( fis-3 a-1] [fis-3 d-5 d' fis-4] |
  80         )g2-3 r4 g-2( |
  81         [)a8 'a-5( c-4 e-2] [c-4 'a-5 g e-3] |
  82         )fis2 r4 d-4 |
  83         % [g32-1( fis-2 g8.-1] ) 'g4 g( )'g\mr |
  84
  85         % my edition has  mordents on every g here
  86         [g32-1( fis-2 g8.-1] ) 'g4 g ~ 'g |
  87         % 'g( )g\mr 'g( )g\mr |
  88         g ~ 'g g ~ 'g |
  89         g ~ 'g g ~ 'g |
  90         [g8 'g-5( 'b-4 d-2] ['b-4 'g-5 f!-1 d-3] |
  91         [)e-2 c-4 e-2 g-1] [e-3 c-5 c' e-4] |
  92         \textstyle "finger";
  93         f1^"3\\_1" ~ |
  94         [f8 d-3 e-2 c-4] g4-1 'g^"5\\_2" |
  95         <c1 'c1>
  96         \bar "|.";
  97 }
  98
  99 global  = \melodic{
 100         \meter 4/4;
 101 }
 102
 103 \score{
 104         % Moderato
 105         % it would be nice to shut-off fingering...
 106         \melodic \type Grandstaff <
 107                 <
 108                         \global
 109                         \rh
 110                 >
 111                 <
 112                         \global
 113                         \lh
 114                 >
 115         >
 116         \paper{
 117                 \paper_twenty
 118                 linewidth= 195.\mm;
 119         }
 120         \midi{
 121                 \tempo 4 = 90;
 122         }
 123 }