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

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