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

   1 \header{
   2 filename =       "preludes-2.ly";
   3 title =  "2";
   4 opus = "BWV 939";
   5 % blz 10
   6 %
   7 % Six Petits Pr'eludes
   8 % Collection Johann Peter Kellner
   9 % ca 1703 - 1707
  10 composer =       "Johann Sebastian Bach (1685-1750)";
  11 enteredby =      "jcn";
  12 copyright =      "public domain";
  13 }
  14
  15 \include "paper20.ly"
  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; <'b8 'g> }
  36         >
  37         \onevoice;
  38         ['g8-1\mf( 'b-2 d-4]
  39         <
  40                 { \voiceone; )'b4 e-5 }
  41                 { \voicetwo; 'g4 'b }
  42         >
  43         \onevoice; |
  44         <
  45                 { \voiceone; c2 r4 < {c-5 ~ c8} {'a4 ~ 'a8} > }
  46                 { \voicetwo; c2 r4 'e4 ~ 'e8 }
  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 'b4-4 }
  65                 { \voicetwo; 'g2-2 'd4-1 }
  66         >
  67         \onevoice;
  68         <
  69                 { \voiceone;  c1^5 }
  70                 { \voicetwo; 'e1_1}
  71         >
  72         \onevoice;
  73         \bar "|.";
  74 }
  75
  76 two = \melodic{
  77         \octave c;
  78         <
  79                 { \voiceone; c1 ~ | c ~ | c }
  80                 { \voicetwo; 'c1 ~ | '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)" 'g4 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 'c1>
  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 Grandstaff <
 118         \treble_staff
 119         \bass_staff
 120 >
 121
 122 a4 = \paper{
 123         \paper_twenty
 124         linewidth= 195.\mm;
 125 }
 126
 127 \score{
 128         % Moderato
 129         \grand_staff
 130         \paper{ \a4 }
 131         \midi{ \tempo 4 = 100; }
 132 }
 133