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