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         ['d-1\p( 'fis-2 'a-4] ['fis-2 'd-1 c-5 'a-3] |
  43         [)'b-4\< 'g-1( 'b-2 d-4] [ 'b-2 'g-1 f!-5 d-3] |
  44         [)e-4 'g-1( c-2 e-4] [c-2 'g g-5 e-3] |
  45         [)fis-4 'a-1( c-2 fis-4] [c 'a a-5 \!fis-3] |
  46         \multi 2 <
  47                 { \stemup; )g2-5\f }
  48                 { \stemdown; <d2 'b> }
  49         >
  50         \stemboth;
  51         r4 b4-2( |
  52         [c8-1 e-2 g c'] [g-2 e-1 bes-4 g-2] |
  53         [)a16->-3 g-2 f-1 e-3] [d c 'b!-3 'a-2]
  54         ['b-3\< 'g-1 'a 'b] [c-1 d e \!f] |
  55         g4-5\ff
  56         \multi 2 <
  57                 { \stemup; c2-5 'b4-4 }
  58                 { \stemdown; 'g2-2 'd4-1 }
  59         >
  60         \stemboth;
  61         \multi 2 <
  62                 { \stemup;  c1^5 }
  63                 { \stemdown; 'e1_1}
  64         >
  65         \stemboth;
  66         \bar "|.";
  67 }
  68
  69 lh = \melodic{
  70         \octave c;
  71         \clef bass;
  72         \multi 2 <
  73                 { \stemup; c1 ~ c ~ c }
  74                 { \stemdown; 'c1 ~ 'c ~ 'c }
  75         >
  76         \stemboth; |
  77         r8 [c-5( e-3 g-1] [e-3 c-5 c' e-4] |
  78         [)fis-3 d-5( fis-3 a-1] [fis-3 d-5 d' fis-4] |
  79         )g2-3 r4 g-2( |
  80         [)a8 'a-5( c-4 e-2] [c-4 'a-5 g e-3] |
  81         )fis2 r4 d-4 |
  82         % [g32-1( fis-2 g8.-1] ) 'g4 g( )'g\mr |
  83
  84         % my edition has  mordents on every g here
  85         [g32-1( fis-2 g8.-1] ) 'g4 g( )'g |
  86         % 'g( )g\mr 'g( )g\mr |
  87         g( )'g g( )'g |
  88         g( )'g g( )'g |
  89         [g8 'g-5( 'b-4 d-2] ['b-4 'g-5 f!-1 d-3] |
  90         [)e-2 c-4 e-2 g-1] [e-3 c-5 c' e-4] |
  91         \textstyle "finger";
  92         f1^"3\\_1" ~ |
  93         [f8 d-3 e-2 c-4] g4-1 'g^"5\\_2" |
  94         <c1 'c1>
  95         \bar "|.";
  96 }
  97
  98 global  = \melodic{
  99         \meter 4/4;
 100 }
 101
 102 \score{
 103         % Moderato
 104         % it would be nice to shut-off fingering...
 105         \melodic \type Grandstaff <
 106                 <
 107                         \global
 108                         \rh
 109                 >
 110                 <
 111                         \global
 112                         \lh
 113                 >
 114         >
 115         \paper{
 116                 \paper_twenty
 117                 linewidth= 195.\mm;
 118         }
 119         \midi{
 120                 \tempo 4 = 90;
 121         }
 122 }