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

   1 \header{
   2 filename =       "preludes-1.ly";
   3 % mmm
   4 title =  "DOUZE PETITES PR\'ELUDES";
   5 opus = "BWV 924";
   6 % blz 1
   7 % Clavierb"uchlein f"ur W. Fr. Bach
   8 % Clav. W. Fr. Bach: 2-Praeambulum I
   9 % ca 1720
  10 composer =       "Johann Sebastian Bach (1685-1750)";
  11 enteredby =      "jcn";
  12 copyright =      "public domain";
  13 }
  14
  15 one = \melodic{
  16         \octave c'';
  17         \textstyle "italic";
  18         r16\p_"legato"\< ['g-1( c-3 )e-5] r ['g-1( c )e]
  19         r ['g( c )d] r ['b-1( d-2 \!)g-5] |
  20         r\mf ['a( d-2 ) g-5] r ['a(\< d )f-4]
  21         r ['a( d )e-3] r [c-1( e-2 \!)a-5] |
  22         r\f ['b e a-5] r ['b e-3 g-5]
  23         r [c-1 e-3 f-4] r ['g d-3 f-5] |
  24         r ['g-"poco a poco dim." d-4 e] r ['g c-2 e]
  25         r ['a-1 c-3 d-4] r ['e 'b-3 d-5] |
  26         r ['e 'b c-4] r ['e 'a-2 c]
  27         r ['f-1 'a-3 'bes-4] r ['c 'g-3 'bes-5] |
  28         r ['c 'g 'a-4] r ['c 'f-2 'a]
  29         r ['d 'f-2 'b-5] r ['e 'g-2 c-5] |
  30         r\p ['d 'g c-5] r ['d 'g 'b-4]
  31         r ['c 'g-3 'b-5] r ['c 'fis-2 'a-4] |
  32         r [''b 'd 'a-5] r [''b 'd 'g-4]
  33         r [''a 'c 'g-5] r [''a 'c 'f!-4] |
  34         % ugh, arpeggio
  35         <
  36                 { \voiceone; 'f4 r s }
  37                 { \voicetwo; <''g4 'd> r s }
  38         >
  39         \onevoice;
  40         % ugh beam across staffs, slur starts at lower staff
  41         r16 [''g-1( ''b 'd] |
  42         \voiceone;
  43         )''b s4 ['g16-1( 'b-2 d] )'b s s s [f-2 g-3 b-5 f-2] |
  44         \onevoice;
  45         [e-1\f c'-5( g-3 f-2] [e-1 c'-5 g-3 e-2]
  46         [)d c'-5( f-3 e-2] [d-1 b-5 f-3 d-2] |
  47         [)c b-5( e-3 d-2] [c-1 a-5 e-3 c-2]
  48         [)'b-1 a-5( d-3 c-2] ['b-1 g-5 d-3 'b-2] |
  49         [)'a g-5 c-4 'b] ['a-"poco a poco dim." fis-5 c-2 'a-1]
  50         ['b-2 f d-4 c] ['b f d-4 'b-2] |
  51         ['g e c-3 'b] ['a e-5 c-3 'a-1]
  52         ['fis-2 d 'b-3 'a] ['g-1 d-5 'b-4 'g-2] |
  53         ['e c-5 'a-4 'g-3] ['fis-2 c-5 'a-4 'fis-2]
  54         ['d c-5 'b-4 'a] ['b-4 'g-2 d-5 'f-1] |
  55         ['g-4 'e-2 'f-1 d-5] [c-4 'b 'a 'g]
  56         [f-5 d-3 es-4 c-2] ['fis-1 es-4 d-3 c-2] |
  57         ['b-1 d-5 'b-3 'g-1] ['as-4-"cresc. e rall." 'f-2 'g-3 'd-1]
  58         ['es-2 'fis-3 'a-4 c-5]
  59         <
  60                 { \voiceone; r [c8 'b16] }
  61                 { \voicetwo; ['d8 'f-2] }
  62         >
  63         \onevoice; |
  64         <c1\mf 'g 'e>
  65         \bar "|.";
  66 }
  67
  68 two = \melodic{
  69         \octave c;
  70         \textstyle "roman";
  71         c4-5 e-3 g-\mordent^"(\\textsharp)" 'g4 |
  72         d-\mordent-5 f-3 a-\mordent^"(\\textsharp)" 'a4 |
  73         e-5 e'-\mordent-1 a-4 b-\upprall |
  74         c'4 e-4 fis gis-\downprall |
  75         a4 c-4 d e-\upprall |
  76         f4-1 e d-3-\prall c |
  77         g-\mordent^"(\\textsharp)" 'g g-\mordent 'g |
  78         g-\mordent 'g g-\mordent 'g |
  79         % ugh, f should be at upper staff
  80         g-\mordent r r16 ['g-5( 'b-4 d] )f-1 s s s |
  81 %       s [g-5( b-4 d'-2] )f'-1 s s s s \clef violin; [g'-4 b'-2 d''-1]
  82         % huh, can't violin anymore (see BUGS)
  83         s [g-5( b-4 d'-2] )f'-1 s s s s [g'-4 b'-2 d''-1]
  84         s s s s \clef bass; |
  85         <
  86                 { \voiceone; g1 ~ g ~ g ~ g ~ g ~ g ~ g }
  87                 { \voicetwo; 'g1 ~ 'g ~ 'g ~ 'g ~ 'g ~ 'g ~ 'g }
  88         >
  89         <c1 'c>
  90         \bar "|.";
  91 }
  92
  93 global  = \melodic{
  94         \meter 4/4;
  95 }
  96
  97 treble_staff = \type Staff = treble <
  98         \global
  99         \one
 100 >
 101
 102 bass_staff = \type Staff = bass <
 103 % bass = Staff <
 104         \clef "bass";
 105         \global
 106         \two
 107 >
 108
 109 grand_staff = \type Grand_staff <
 110         \treble_staff
 111         \bass_staff
 112 >
 113
 114 a4 = \paper{
 115         linewidth= 193.\mm;
 116 }
 117
 118 \score{
 119         % Moderato
 120         \grand_staff
 121         \paper{ \a4 }
 122         \midi{ \tempo 4 = 80; }
 123 }