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

   1 \header{
   2 filename =       "preludes-4.ly";
   3 title =  "4";
   4 opus = "BWV 925";
   5 % piece = "\\numfont 4";
   6 piece = "4";
   7 % blz 8
   8 % Clavierb"uchlein f"ur W. Fr. Bach
   9 % Clav. W. Fr. Bach: 27-Praeludium ex d neutral
  10 % ca 1720
  11 composer =       "Johann Sebastian Bach (1685-1750)";
  12 enteredby =      "jcn";
  13 copyright =      "public domain";
  14 }
  15 \version "1.0.7";
  16
  17 one = \notes\relative c{
  18         \property Voice . textstyle =  "italic"
  19         r16\p_"legato"
  20         \property Voice . textstyle =  "finger"
  21         [d'-1( fis-3 d-1] [a'-2 b-3 cis-4 a-3]
  22         [d-3 cis-2 d-1 e-2] [d-1 fis-3 e-2 d-1] |
  23         \property Voice . textstyle =  "finger"
  24         \stemup
  25         )cis4-2 fis-5 ~ [fis8 fis-4] e4-3 ~ |
  26         e16\< \stemboth [a,16( cis a] [d-2 e fis d-1]
  27         [g-3 fis g a-4] [g-3 b a \!g] |
  28         \stemup
  29         )fis4-"2\\_3" [e8-2 a-5] <fis4-4 d-2> <gis-5 e-3> |
  30         %5
  31         <a4-5( e> <fis-4 d-2> <[)g!16-5 d> fis-2 g-3 a-4]
  32         \stemboth
  33         [g-3 b a g] |
  34         \property Voice . textstyle =  "italic"
  35         [fis_"dim." e fis-3 g] [fis-3 a-5 g fis]
  36         \property Voice . textstyle =  "finger"
  37         e4-"2\\_5" ~ e16 [e,( fis g ] |
  38         \property Voice . textstyle =  "italic"
  39         [a-4_"dim." g-1 a b] [a-2 c-4 b a]
  40         [g-1 fis-2 g-3 a] [g-3 b a g] |
  41         \stemup
  42         )fis4\p
  43         \skip 4*7; |
  44         %10
  45         \property Voice . textstyle =  "finger"
  46         d'4.\mf cis8-"4\\_5" ~ cis b4-5 a8-"4\\_5" ~ |
  47         \property Voice . textstyle =  "italic"
  48         a g4-5 fis8-4 ~ [fis16 fis-4-"dim." e-3 d-2]
  49         \property Voice . textstyle =  "finger"
  50         e4-"3\\_5" ~ |
  51         [e16 e-5 d cis] d4-5 ~ [d16 d-5 cis b] cis4-5 |
  52         \stemboth
  53         [fis,16-1\p a-2 d-5\< c-4] [b-1 d-2 g-5 fis-4]
  54         [d-1 b'-5 a g] [fis-2 e-1 d-4 \!c!-3] |
  55         [b-2 d-1 g a] [fis8-\prall e16-4 d-3]
  56         [d8. e16~] [e d8 cis16] |
  57         %15
  58         \stemup
  59         r16 [d-1\< fis d] [g a b g-1] [c-3 b c d] [c e d-4 \!c] |
  60         b4-5 a ~ [a8 g-5 ~] [g16 fis8-4 e16-3] |
  61         [fis8-4 e-5~] [e d-5~] d4 cis-4 |
  62         d2\p-"rall." ~ [d16 a-2( b-3 cis-4] )d4-5 |
  63         \bar "|.";
  64 }
  65
  66 two = \notes\relative c{
  67         \property Voice . textstyle =  "finger"
  68         fis4-1( e8-2 a4 a4 gis8-2 |
  69         ) a8
  70         \translator Staff=treble \stemdown
  71         a'4 a8 b4.-"2\\_1" cis8 ~ |
  72         cis8
  73         \translator Staff=bass \stemup
  74         a,8 ~ [a d] ~ d d4-> cis8 |
  75         d8
  76         \translator Staff=treble \stemdown
  77         d'4-> cis8-1 ~ cis b4-1 b8 |
  78         %5
  79         r8 a4 a8
  80         \translator Staff=bass \stemup
  81         [g8-1( fis-2] )e4-1 ~ |
  82         e4 d ~ [d16 d-1 cis-2 b-1] cis4-2 ~ |
  83         [cis8 a-3] d4.-1 d4^> cis8-2 |
  84         \translator Staff=treble \stemdown
  85         d4 \stemboth r16 [b-1\< d-2 b~] <g'4-5 e-3 b>
  86         r16 [cis,-1 e-2 \!cis~] |
  87         <a'4-5 fis-3 cis> r16 [d,-1 fis-2 d~] <b'4-5 g-3 d>
  88         r16 [fis-1 a fis~] |
  89         %10
  90         \stemdown
  91         fis4 e d cis |
  92         b a b4. b8 |
  93         a4
  94         \translator Staff=bass \stemup
  95         r16 [b-3 fis-1 a-2] g4-1 r16 [a-3 e-1 g-2] |
  96         \skip 1*1;
  97         s16
  98         \translator Staff=treble \stemdown
  99         d'8.-1 ~ [d8 c] d4 [a8 g] |
 100         %15
 101         \translator Staff=bass \stemup
 102         [fis'8 c-1] b4-1 \stemdown <a
 103         \translator Staff=treble \stemdown
 104         a'4.-2>
 105         \stemdown
 106         a'8~ |
 107         [a g-3~] [g16 e fis8~] [fis16 d8.~] [d8. cis!16] |
 108         \translator Staff=bass \stemup
 109         <
 110         %       { \voiceone  [d,8-2 a~] a4 }
 111                 { \voiceone  [d8-2 a~] a4 }
 112         %       { \voicethree  [a,8-1 g] [fis16-2 e-1 fis-2 d-1] }
 113                 { \voicethree  [a8-1 g] [fis16-2 e-1 fis-2 d-1] }
 114         >
 115         \voiceone
 116         [g-1 fis-2 g-1 a-2] [g-1 b-3 a-2 g-1 ~] |
 117         [g g-1 fis-2 e-1] fis4-2 ~ fis2
 118         \bar "|.";
 119 }
 120
 121 three = \notes\relative c{
 122 %       \stemdown
 123         d4-3 c-4 b e-3 |
 124         a16 [a,-5\mf( cis-3 a-5] [d-2 e-1 fis-2 d-4]
 125         [g-1 fis-3 g a] [g b a g] |
 126         )fis4 fis e a-4 |
 127         d16 \stemboth [d,-5\f( fis-3 d-5] [a'-2 b-1 cis-2 a-4]
 128         [d-1 cis-3 d e] [d-4 fis-2 e-1 ) d] |
 129         %5
 130         [cis-3 b-4 cis-3 d-2] [c-4 e-2 d-3 c-4]
 131         \stemdown b4-5 [cis8-4 b-3(] |
 132         [a-4 )fis-5 b-2 a-3] [gis-4 e-5 a-3 g-4] |
 133         fis4. d8-5 e4-5 a4-3 |
 134         \stemboth
 135         r16 [d,-4( fis-2 d-4] [)g8-.-1 g,-.-5]
 136         r16 [e'-4( g-2 e-4] [)a8-. a,-.-5] |
 137         r16 [fis'-4( a fis] [)b8-. b,-.] r16 [g'-4( b g] [)d'8-. d,-.] |
 138         %10
 139         r16 [d,16-5( fis-3 d] [a'-2 b-1 cis-2 a-4] [d b-5 d-3 b]
 140         [fis'-2 g a-2 fis-4] |
 141         )fis16 [g,( b g] [d'-2 e fis-2 d-4] [)g8-. g,-.] r16 [cis-4( e cis] |
 142         [)fis8-. fis,-.] \stemdown r16 [b-4( d b] [)e8-. e,-.]
 143         r16 [a-4 cis a] |
 144         \stemboth
 145         [d-1 e-3 fis-2 d-4] [g-1 fis-2 e-3 d-1] [cis!-3 a-5 b cis]
 146         [d-2 e fis-2 d-4] |
 147         [g8 e-3] \stemdown [a a,] [b8.-4 g16-5] a4-4 |
 148         %15
 149         [d8-5 a'-2~] [a g-3~] [g g-3] fis4-4 |
 150         \stemup
 151         r16 [g-2 b-1 g-3] [d'8.-1 c16-1] [b8.-2 bes16-3] [a8-1 g] |
 152         \stemdown
 153         r16 [a,-2 cis!-1 a'-2] [d,-1 e fis d] [e8-1 d-2] [e-1 a,-2] |
 154         [d a-2~] [a16 a-2 b cis-2] d2 |
 155 }
 156
 157 four = \notes\relative c{
 158         \skip 1*9;
 159 %       \stemup
 160 %       \property Voice.hshift = 1
 161         %10
 162         a''2 fis |
 163         d s |
 164 %       \property Voice.hshift = 0
 165         \skip 1*2; |
 166         s4
 167         \translator Staff=bass \stemup
 168         a4 ~ [a16 d,-2 g8-1] [fis e-1] |
 169         %15
 170         \stemdown
 171         d1 ~ |
 172         d ~ |
 173         d, ~
 174         d2 d2
 175 }
 176
 177 global  = \notes{
 178         \time 4/4;
 179         \key D;
 180 }
 181
 182 treble_staff = \type Staff = treble <
 183         \global
 184         { \voiceone \one }
 185         { \voicefour \four }
 186 >
 187
 188 bass_staff = \type Staff = bass <
 189 % bass = Staff <
 190         \clef "bass";
 191         \global
 192 %       { \voiceone \two }
 193         { \type Voice = bone \skip 1*0; \property Voice.ydirection = \up \two }
 194         { \voicetwo \three }
 195 >
 196
 197 grand_staff = \type GrandStaff <
 198         \treble_staff
 199         \bass_staff
 200 >
 201
 202 \score{
 203         % Allegretto
 204         \grand_staff
 205         \include "preludes-paper.ly";
 206         \midi{ \tempo 4 = 70; }
 207 }