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