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

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