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

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