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

   1 \header{
   2 filename =       "preludes-1.ly";
   3 title =  "DOUZE P\'ETITES PRELUDES";
   4 % tempo = "Moderato"
   5 composer =       "Johann Sebastian Bach (1685-1750)";
   6 enteredby =      "jcn";
   7 copyright =      "public domain";
   8 }
   9
  10 \include "paper20.ly"
  11
  12 rh = \melodic{
  13         \octave c'';
  14         \textstyle "italic";
  15         r16\p_"legato"\< ['g-1( c-3 )e-5] r ['g-1( c )e]
  16         r ['g( c )d] r ['b-1( d-2 \!)g-5] |
  17         r\mf ['a( d-2 ) g-5] r ['a(\< d )f-4]
  18         r ['a( d )e-3] r [c-1( e-2 \!)a-5] |
  19         r\f ['b e a-5] r ['b e-3 g-5]
  20         r [c-1 e-3 f-4] r ['g d-3 f-5] |
  21         r ['g-"poco a poco dim." d-4 e] r ['g c-2 e]
  22         r ['a-1 c-3 d-4] r ['e 'b-3 d-5] |
  23         r ['e 'b c-4] r ['e 'a-2 c]
  24         r ['f-1 'a-3 'bes-4] r ['c 'g-3 'bes-5] |
  25         r ['c 'g 'a-4] r ['c 'f-2 'a]
  26         r ['d 'f-2 'b-5] r ['e 'g-2 c-5] |
  27         r\p ['d 'g c-5] r ['d 'g 'b-4]
  28         r ['c 'g-3 'b-5] r ['c 'fis-2 'a-4] |
  29         r [''b 'd 'a-5] r [''b 'd 'g-4]
  30         r [''a 'c 'g-5] r [''a 'c 'f!-4] |
  31         % ugh, arpeggio
  32         \multi 2 <
  33                 { \stemup; 'f4 r s }
  34                 { \stemdown; <''g4 'd> r s }
  35         >
  36         \stemboth;
  37         % ugh beam across staffs, slur starts at lower staff
  38         r16 [''g-1( ''b 'd] |
  39         \stemup;
  40         )''b s4 ['g16-1( 'b-2 d] )'b s s s [f-2 g-3 b-5 f-2] |
  41         \stemboth;
  42         [e-1\f c'-5( g-3 f-2] [e-1 c'-5 g-3 e-2]
  43         [)d c'-5( f-3 e-2] [d-1 b-5 f-3 d-2] |
  44         [)c b-5( e-3 d-2] [c-1 a-5 e-3 c-2]
  45         [)'b-1 a-5( d-3 c-2] ['b-1 g-5 d-3 'b-2] |
  46         [)'a g-5 c-4 'b] ['a-"poco a poco dim." fis-5 c-2 'a-1]
  47         ['b-2 f d-4 c] ['b f d-4 'b-2] |
  48         ['g e c-3 'b] ['a e-5 c-3 'a-1]
  49         ['fis-2 d 'b-3 'a] ['g-1 d-5 'b-4 'g-2] |
  50         ['e c-5 'a-4 'g-3] ['fis-2 c-5 'a-4 'fis-2]
  51         ['d c-5 'b-4 'a] ['b-4 'g-2 d-5 'f-1] |
  52         ['g-4 'e-2 'f-1 d-5] [c-4 'b 'a 'g]
  53         [f-5 d-3 es-4 c-2] ['fis-1 es-4 d-3 c-2] |
  54         ['b-1 d-5 'b-3 'g-1] ['as-4-"cresc. e rall." 'f-2 'g-3 'd-1]
  55         ['es-2 'fis-3 'a-4 c-5]
  56         \multi 2 <
  57                 { \stemup; r [c8 'b16] }
  58                 { \stemdown; ['d8 'f-2] }
  59         >
  60         \stemboth; |
  61         <c1\mf 'g 'e>
  62         \bar "|.";
  63 }
  64
  65 lh = \melodic{
  66         \octave c;
  67         \clef bass;
  68         \textstyle "roman";
  69         c4-5 e-3 [g32-1 fis-2 g8.-1] 'g4 |
  70         d-5 f-3 [a32-1 gis a8.] 'a4 |
  71         % ugh grouping32: 4..4
  72         e-5 e'-1 a-4 [a32-3 b c' b] [c' b a b] |
  73         c'4 e-4 fis [a32-1 gis fis gis] [a gis fis gis] |
  74         a4 c-4 d [d32 e f e] [f e d e] |
  75         % ugh tril sign
  76         % f4-1 e d-3\tr c |
  77         f4-1 e d-3 c |
  78         % g( )'g g\pr-"(#)"( )'g |
  79         g ~ 'g g-"(\\textsharp)" ~ 'g |
  80         % g\pr-"(\\textsharp)" ~ 'g g\pr-"(\\textsharp)" ~ 'g |
  81         g-"(\\textsharp)" ~ 'g g-"(\\textsharp)" ~ 'g |
  82         % ugh, f should be at upper staff
  83         g r r16 ['g-5( 'b-4 d] )f-1 s s s |
  84         s [g-5( b-4 d'-2] )f'-1 s s s s \clef violin; [g'-4 b'-2 d''-1]
  85         s s s s \clef bass; |
  86         \multi 2 <
  87                 { \stemup; g1 ~ g ~ g ~ g ~ g ~ g ~ g }
  88                 { \stemdown; 'g1 ~ 'g ~ 'g ~ 'g ~ 'g ~ 'g ~ 'g }
  89         >
  90         <c1 'c>
  91         \bar "|.";
  92 }
  93
  94 global  = \melodic{
  95         \meter 4/4;
  96 }
  97
  98 \score{
  99         % Moderato
 100         % it would be nice to shut-off fingering...
 101         \melodic \type Grandstaff <
 102                 <
 103                         \global
 104                         \rh
 105                 >
 106                 <
 107                         \global
 108                         \lh
 109                 >
 110         >
 111         \paper{
 112                 \paper_twenty
 113                 linewidth= 195.\mm;
 114         }
 115         \midi{
 116                 \tempo 4 = 70;
 117         }
 118 }