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

   1 \header{
   2 filename =       "preludes-2.ly";
   3 title =  "2";
   4 opus = "BWV 939";
   5 % urg?? piece = "\\numfont 2";
   6 piece = "2";
   7 % blz 10
   8 %
   9 % Six Petits Pr'eludes
  10 % Collection Johann Peter Kellner
  11 % ca 1703 - 1707
  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         r8\mf [c,-1( e,-2 g,-4] [e,-2 c,-1 bes,-5 g,-3] |
  21         [)a,-4\< c,-1( f,-2 a,-4] [f, c, c-5 a,-3] |
  22         [)b,-4 g,-1( b,-2 d-4] [b,-2 g, f-5 \!d-3] |
  23         <
  24                 {\voiceone  )e2-4\f r4 e-5 }
  25                 {\voicetwo  <c2 g,> r4 <c g,> }
  26         >
  27         \onevoice  |
  28         <
  29                  { \voiceone  d2-4 r4 d-4 }
  30                  { \voicetwo  <c2 a,> r4 <c a,> }
  31         >
  32         \onevoice  |
  33         <
  34                  { \voiceone  d8 }
  35                  { \voicetwo  <b,8 g,> }
  36         >
  37         \onevoice
  38         [g,8-1\mf( b,-2 d-4]
  39         <
  40                 { \voiceone  )b,4 e-5 }
  41                 { \voicetwo  g,4 b, }
  42         >
  43         \onevoice  |
  44         <
  45                 { \voiceone  c2 r4 < {c-5 ~ c8} {a,4 ~ a,8} > }
  46                 { \voicetwo  c2 r4 e,4 ~ e,8 }
  47         >
  48         \onevoice
  49         [d,-1\p( fis,-2 a,-4] [fis,-2 d,-1 c-5 a,-3] |
  50         [)b,-4\< g,-1( b,-2 d-4] [ b,-2 g,-1 f!-5 d-3] |
  51         [)e-4 g,-1( c-2 e-4] [c-2 g, g-5 e-3] |
  52         [)fis-4 a,-1( c-2 fis-4] [c a, a-5 \!fis-3] |
  53         <
  54                 { \voiceone  )g2-5\f }
  55                 { \voicetwo  <d2 b,> }
  56         >
  57         \onevoice
  58         r4 b4-2( |
  59         [c8-1 e-2 g c'] [g-2 e-1 bes-4 g-2] |
  60         [)a16->-3 g-2 f-1 e-3] [d c b,!-3 a,-2]
  61         [b,-3\< g,-1 a, b,] [c-1 d e \!f] |
  62         g4-5\ff
  63         <
  64                 { \voiceone  c2-5 b,4-4 }
  65                 { \voicetwo  g,2-2 d,4-1 }
  66         >
  67         \onevoice
  68         <
  69                 { \voiceone   c1^5 }
  70                 { \voicetwo  e,1_1}
  71         >
  72         \onevoice
  73         \bar "|.";
  74 }
  75
  76 two = \melodic{
  77         \octave c;
  78         <
  79                 { \voiceone  c1 ~ | c ~ | c }
  80                 { \voicetwo  c,1 ~ | c, ~ | c, }
  81         >
  82         \onevoice  |
  83         r8 [c-5( e-3 g-1] [e-3 c-5 c' e-4] |
  84         [)fis-3 d-5( fis-3 a-1] [fis-3 d-5 d' fis-4] |
  85         )g2-3 r4 g-2( |
  86         [)a8 a,-5( c-4 e-2] [c-4 a,-5 g e-3] |
  87         )fis2 r4 d-4 |
  88         g-\mordent-"(\\textsharp)" g,4 g-\mordent g, |
  89         % mordents in brackets...
  90         g-\mordent g, g-\mordent g, |
  91         g-\mordent g, g-\mordent g, |
  92         [g8 g,-5( b,-4 d-2] [b,-4 g,-5 f!-1 d-3] |
  93         [)e-2 c-4 e-2 g-1] [e-3 c-5 c' e-4] |
  94         \textstyle "finger";
  95         f1^"3\\_1" ~ |
  96         [f8 d-3 e-2 c-4] g4-1 g,^"5\\_2" |
  97         <c1 c,1>
  98         \bar "|.";
  99 }
 100
 101 global  = \melodic{
 102         \meter 4/4;
 103 }
 104
 105 treble_staff = \type Staff = treble <
 106         \global
 107         \one
 108 >
 109
 110 bass_staff = \type Staff = bass <
 111 % bass = Staff <
 112         \clef "bass";
 113         \global
 114         \two
 115 >
 116
 117 grand_staff = \type Grand_staff <
 118         \treble_staff
 119         \bass_staff
 120 >
 121
 122 a4 = \paper{
 123         linewidth= 193.\mm;
 124 }
 125
 126 \score{
 127         % Moderato
 128         \grand_staff
 129         \paper{ \a4 }
 130         \midi{ \tempo 4 = 100; }
 131 }
 132