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

   1 \header{
   2 filename =       "preludes-2.ly";
   3 title =  "2";
   4 composer =       "Johann Sebastian Bach (1685-1750)";
   5 enteredby =      "jcn";
   6 copyright =      "public domain";
   7 }
   8
   9 \include "paper20.ly"
  10
  11 one = \melodic{
  12         \octave c'';
  13         \textstyle "italic";
  14         r8\mf ['c-1( 'e-2 'g-4] ['e-2 'c-1 'bes-5 'g-3] |
  15         [)'a-4\< 'c-1( 'f-2 'a-4] ['f 'c c-5 'a-3] |
  16         [)'b-4 'g-1( 'b-2 d-4] ['b-2 'g f-5 \!d-3] |
  17         <
  18                 {\voiceone; )e2-4\f r4 e-5 }
  19                 {\voicetwo; <c2 'g> r4 <c 'g> }
  20         >
  21         \onevoice; |
  22         <
  23                  { \voiceone; d2-4 r4 d-4 }
  24                  { \voicetwo; <c2 'a> r4 <c 'a> }
  25         >
  26         \onevoice; |
  27         <
  28                  { \voiceone; d8 }
  29                  { \voicetwo; <'b8 'g> }
  30         >
  31         \onevoice;
  32         ['g8-1\mf( 'b-2 d-4]
  33         <
  34                 { \voiceone; )'b4 e-5 }
  35                 { \voicetwo; 'g4 'b }
  36         >
  37         \onevoice; |
  38         <
  39                 { \voiceone; c2 r4 < {c-5 ~ c8} {'a4 ~ 'a8} > }
  40                 { \voicetwo; c2 r4 'e4 ~ 'e8 }
  41         >
  42         \onevoice;
  43         ['d-1\p( 'fis-2 'a-4] ['fis-2 'd-1 c-5 'a-3] |
  44         [)'b-4\< 'g-1( 'b-2 d-4] [ 'b-2 'g-1 f!-5 d-3] |
  45         [)e-4 'g-1( c-2 e-4] [c-2 'g g-5 e-3] |
  46         [)fis-4 'a-1( c-2 fis-4] [c 'a a-5 \!fis-3] |
  47         <
  48                 { \voiceone; )g2-5\f }
  49                 { \voicetwo; <d2 'b> }
  50         >
  51         \onevoice;
  52         r4 b4-2( |
  53         [c8-1 e-2 g c'] [g-2 e-1 bes-4 g-2] |
  54         [)a16->-3 g-2 f-1 e-3] [d c 'b!-3 'a-2]
  55         ['b-3\< 'g-1 'a 'b] [c-1 d e \!f] |
  56         g4-5\ff
  57         <
  58                 { \voiceone; c2-5 'b4-4 }
  59                 { \voicetwo; 'g2-2 'd4-1 }
  60         >
  61         \onevoice;
  62         <
  63                 { \voiceone;  c1^5 }
  64                 { \voicetwo; 'e1_1}
  65         >
  66         \onevoice;
  67         \bar "|.";
  68 }
  69
  70 two = \melodic{
  71         \octave c;
  72         <
  73                 { \voiceone; c1 ~ | c ~ | c }
  74                 { \voicetwo; 'c1 ~ | 'c ~ | 'c }
  75         >
  76         \onevoice; |
  77         r8 [c-5( e-3 g-1] [e-3 c-5 c' e-4] |
  78         [)fis-3 d-5( fis-3 a-1] [fis-3 d-5 d' fis-4] |
  79         )g2-3 r4 g-2( |
  80         [)a8 'a-5( c-4 e-2] [c-4 'a-5 g e-3] |
  81         )fis2 r4 d-4 |
  82         g-\mordent-"(\\textsharp)" 'g4 g-\mordent 'g |
  83         % mordents in brackets...
  84         g-\mordent 'g g-\mordent 'g |
  85         g-\mordent 'g g-\mordent 'g |
  86         [g8 'g-5( 'b-4 d-2] ['b-4 'g-5 f!-1 d-3] |
  87         [)e-2 c-4 e-2 g-1] [e-3 c-5 c' e-4] |
  88         \textstyle "finger";
  89         f1^"3\\_1" ~ |
  90         [f8 d-3 e-2 c-4] g4-1 'g^"5\\_2" |
  91         <c1 'c1>
  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 Grandstaff <
 112         \treble_staff
 113         \bass_staff
 114 >
 115
 116 a4 = \paper{
 117         \paper_twenty
 118         linewidth= 195.\mm;
 119 }
 120
 121 \score{
 122         % Moderato
 123         \grand_staff
 124         \paper{ \a4 }
 125         \midi{ \tempo 4 = 100; }
 126 }
 127