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

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