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

   1 \header{
   2 filename =       "preludes-6.ly";
   3 title =  "6";
   4 opus = "BWV 940";
   5 % blz 11
   6 % Six Petits Pr'eludes
   7 % Collection Johann Peter Kellner
   8 % ca 1703 - 1707
   9 composer =       "Johann Sebastian Bach (1685-1750)";
  10 enteredby =      "jcn";
  11 copyright =      "public domain";
  12 }
  13
  14 one = \melodic{
  15         \octave c';
  16         \skip 4*4; |
  17         \stemup
  18         r4 d'2-5( cis'4-4 |
  19         \stemboth
  20         [)d'16-5\mf a'-4( g' f'] [e' f'-4 cis'-2 d'-1]
  21         [e'32-3 d' e'8 f'16] [d'8.-1 cis'16-3] |
  22         \stemup
  23         )cis'4\> ~ [cis'16 a \!d'8 ~] d'4 c'-5 |
  24         b2-4 ~ b4 a-5 ~ |
  25         [a16 a-5 \stemup g! f] g4-4\< ~ g f-3 ~ |
  26         [\!f16 a g f] [e16 g8.-5 ~] [g16 g-5 f-4 e-3] [d-1 f8.-4 ~] |
  27         [f16 f-3 e d] b4 a-5 g-5 |
  28         fis4-4 g r8\<-"rall." [g16-1( bes-2] \!e'4-5 |
  29         \!)d'1-5
  30         \bar "|.";
  31 }
  32
  33 two = \melodic{
  34         \octave c';
  35         r16\p [d'-5( c'-4 bes-3] [a-2 bes-3 f-1 g-2]
  36         [a32-3 g a8 bes16-1] [g8. f16-1] |
  37         \stemdown
  38         )f2 e2 |
  39         \translator Staff=bass \octave c; \stemup
  40         r4 a-1 bes-2 b-1 |
  41         \translator Staff=treble \octave c'; \stemdown
  42         r16 [b-3 a-1 g-2] [f8. f16-2] e2 ~ |
  43         e2 ~ e4 ~ [e16 e-2 f! d-1] |
  44         s4 [e32 d e8.~] e4 d4 ~ |
  45         d4. [cis16-2 d-1] cis4 d-1 ~ |
  46         d8 r r16 [e-2 f d] r16 [e-2 f d] r [d-1 e-3 cis] |
  47         r16 [e-3 d-1 c!-2] ['bes! d8.] s4 r16\> [bes-2 a-2 \!g-1] |
  48         fis1-2
  49 }
  50
  51 three = \melodic{
  52         \octave c;
  53         \stemup
  54         f2-1( e-2 |
  55         \stemboth;
  56         [)d16 d'( c' bes] [a-4 bes-2 f-5 g-4]
  57         [a32 g a8 bes16-2]
  58         [g8.-4 f16-5] |
  59         )f2-5 g4-4 gis |
  60         a2-2 ~ [a16 a-1( g f] [e-4 f-2 c-5 d] |
  61         [e32 d e8 f16] [d8.-4 c16-5] \stemboth )c4.-5 d8-4 |
  62         \stemdown
  63         e4 ~ [e16 f-2( e-3 d-4] [cis 'a 'b cis-3] [d-4 e-3 f-2 d-4] |
  64         \textstyle "finger";
  65         )'bes!2-"5\\_4" 'a ~ |
  66         'a 'a |
  67         'd cis-5 |
  68         a1-2
  69         \bar "|.";
  70 }
  71
  72 four = \melodic{
  73         \octave c;
  74         \stemdown;
  75         d2-3 cis-4 |
  76         \skip 4*12;
  77         \translator Staff=treble \octave c'; \stemup \property Voice.hshift = 1
  78         a4 gis-2 ~ [gis16 gis-3 fis e]
  79         \skip 4*1;
  80         \translator Staff=bass \octave c; \stemdown \property Voice.hshift = 0
  81         \stemup
  82         b2-1 a-1 |
  83         g a4. [gis16 a] |
  84         gis2 <[g8 cis> <f-3 d-1]> e4-2 |
  85         d4. [fis16-3 g-2] r16 bes8.-1 ~ bes4 |
  86         \stemdown
  87         d1-5
  88 }
  89
  90 global = \melodic{
  91         \meter 4/4;
  92         \key bes;
  93 }
  94
  95
  96 treble_staff = \type Staff = treble <
  97         \global
  98         \one
  99         \two
 100 >
 101
 102 bass_staff = \type Staff = bass <
 103 % bass = Staff <
 104         \clef "bass";
 105         \global
 106         \three
 107         \four
 108 >
 109
 110 grand_staff = \type Grand_staff <
 111         \treble_staff
 112         \bass_staff
 113 >
 114
 115 a4 = \paper{
 116         linewidth = 193.\mm;
 117 }
 118
 119 \score{
 120         % Allegretto
 121         \grand_staff
 122         \paper{ \a4 }
 123         \midi{ \tempo 4 = 40; }
 124 }
 125