mutopia/J.S.Bach/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
  16 one = \melodic{
  17         \octave c'';
  18         \textstyle "italic";
  19         r16\p_"legato"
  20         \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         \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         <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         \textstyle "italic";
  34         [fis_"dim." e fis-3 g] [fis-3 a-5 g fis]
  35         \textstyle "finger";
  36         e4-"2\\_5" ~ e16 [e,( fis, g, ] |
  37         \textstyle "italic";
  38         [a,-4_"dim." g,-1 a, b,] [a,-2 c-4 b, a,]
  39         [g,-1 fis,-2 g,-3 a,] [g,-3 b, a, g,] |
  40         \stemup
  41         )fis,4\p
  42         \skip 4*7; |
  43         \textstyle "finger";
  44         d4.\mf cis8-"4\\_5" ~ cis b,4-5 a,8-"4\\_5" ~ |
  45         \textstyle "italic";
  46         a, g,4-5 fis,8-4 ~ [fis,16 fis,-4-"dim." e,-3 d,-2]
  47         \textstyle "finger";
  48         e,4-"3\\_5" ~ |
  49         [e,16 e,-5 d, cis,] d,4-5 ~ [d,16 d,-5 cis, b,,] cis,4-5 |
  50         \stemboth
  51         [fis,,16-1\p a,,-2 d,-5\< c,-4] [b,,-1 d,-2 g,-5 fis,-4]
  52         [d,-1 b,-5 a, g,] [fis,-2 e,-1 d,-4 \!c,!-3] |
  53         [b,,-2 d,-1 g, a,] [fis,8-\prall e,16-4 d,-3]
  54         [d,8. e,16~] [e, d,8 cis,16] |
  55         \stemup
  56         r16 [d,-1\< fis, d,] [g, a, b, g,-1] [c-3 b, c d] [c e d-4 \!c] |
  57         b,4-5 a, ~ [a,8 g,-5 ~] [g,16 fis,8-4 e,16-3] |
  58         [fis,8-4 e,-5~] [e, d,-5~] d,4 cis,-4 |
  59         d,2\p-"rall." ~ [d,16 a,,-2( b,,-3 cis,-4] )d,4-5 |
  60         \bar "|.";
  61 }
  62
  63 two = \melodic{
  64         \octave c;
  65         \textstyle "finger";
  66 % ugh: koor
  67 %       \translator Staff=bass \octave c; \stemup
  68 %       \stemup
  69         fis4-1( e8-2 a4 a4 gis8-2 |
  70         ) a8
  71         \translator Staff=treble \octave c''; \stemdown
  72         a,4 a,8 b,4.-"2\\_1" cis8 ~ |
  73         cis8
  74         \translator Staff=bass \octave c; \stemup
  75         a8 ~ [a d'] ~ d' d'4-> cis'8 |
  76         d'8
  77         \translator Staff=treble \octave c''; \stemdown
  78         d4-> cis8-1 ~ cis b,4-1 b,8 |
  79         r8 a,4 a,8
  80         \translator Staff=bass \octave c; \stemup
  81         [g'8-1( fis'-2] )e'4-1 ~ |
  82         e'4 d' ~ [d'16 d'-1 cis'-2 b-1] cis'4-2 ~ |
  83         [cis'8 a-3] d'4.-1 d'4^> cis'8-2 |
  84         \translator Staff=treble \octave c''; \stemdown
  85         d,4
  86         \stemboth
  87         r16 [b,,-1\< d,-2 b,,~] <g,4-5 e,-3 b,,>
  88         r16 [cis,-1 e,-2 \!cis,~] |
  89         <a,4-5 fis,-3 cis,> r16 [d,-1 fis,-2 d,~] <b,4-5 g,-3 d,>
  90         r16 [fis,-1 a, fis,~] |
  91         \stemdown
  92         fis,4 e, d, cis, |
  93         b,, a,, b,,4. b,,8 |
  94         a,,4
  95         \translator Staff=bass \octave c; \stemup
  96         r16 [b-3 fis-1 a-2] g4-1 r16 [a-3 e-1 g-2] |
  97         \skip 4*4; \skip 16*1;
  98         \translator Staff=treble \octave c''; \stemdown
  99         d,8.-1 ~ [d,8 c,] d,4 [a,,8 g,,] |
 100         \translator Staff=bass \octave c; \stemup
 101         [fis'8 c'-1] b4-1 \stemdown <a
 102         \translator Staff=treble \octave c''; \stemdown
 103         a,,4.-2>
 104         \stemdown
 105         a,8~ |
 106         [a, g,-3~] [g,16 e, fis,8~] [fis,16 d,8.~] [d,8. cis,!16] |
 107         \translator Staff=bass \octave c; \stemup
 108 %       <[d'8-2 a-1> <a~ g]> <a4 [fis16-2> e-1 fis-2 d-1]
 109         <
 110                 { \voiceone  [d'8-2 a~] a4 }
 111                 { \voicethree  [a8-1 g] [fis16-2 e-1 fis-2 d-1] }
 112         >
 113         \voiceone
 114         [g-1 fis-2 g-1 a-2] [g-1 b-3 a-2 g-1 ~] |
 115         [g g-1 fis-2 e-1] fis4-2 ~ fis2
 116         \bar "|.";
 117 }
 118
 119 three = \melodic{
 120         \octave c;
 121 %       \stemdown
 122         d4-3 c-4 b, e-3 |
 123         a16 [a,-5\mf( cis-3 a,-5] [d-2 e-1 fis-2 d-4]
 124         [g-1 fis-3 g a] [g b a g] |
 125         )fis4 fis e a-4 |
 126         d'16 \stemboth [d-5\f( fis-3 d-5] [a-2 b-1 cis'-2 a-4]
 127         [d'-1 cis'-3 d' e'] [d'-4 fis'-2 e'-1 ) d'] |
 128         [cis'-3 b-4 cis'-3 d'-2] [c'-4 e'-2 d'-3 c'-4]
 129         \stemdown b4-5 [cis'8-4 b-3(] |
 130         [a-4 )fis-5 b-2 a-3] [gis-4 e-5 a-3 g-4] |
 131         fis4. d8-5 e4-5 a4-3 |
 132         \stemboth
 133         r16 [d-4( fis-2 d-4] [)g8-.-1 g,-.-5]
 134         r16 [e-4( g-2 e-4] [)a8-. a,-.-5] |
 135         r16 [fis-4( a fis] [)b8-. b,-.] r16 [g-4( b g] [)d'8-. d-.] |
 136         r16 [d,16-5( fis,-3 d,] [a,-2 b,-1 cis-2 a,-4] [d b,-5 d-3 b,]
 137         [fis-2 g a-2 fis-4] |
 138         )fis16 [g,( b, g,] [d-2 e fis-2 d-4] [)g8-. g,-.] r16 [cis-4( e cis] |
 139         [)fis8-. fis,-.] \stemdown r16 [b,-4( d b,] [)e8-. e,-.]
 140         r16 [a,-4 cis a,] |
 141         \stemboth
 142         [d-1 e-3 fis-2 d-4] [g-1 fis-2 e-3 d-1] [cis!-3 a,-5 b, cis]
 143         [d-2 e fis-2 d-4] |
 144         [g8 e-3] \stemdown [a a,] [b,8.-4 g,16-5] a,4-4 |
 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 c'16-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~] [a,16 a,-2 b, cis-2] d2 |
 151 }
 152
 153 four = \melodic{
 154         \skip 4*36;
 155         \octave c';
 156 %       \stemup
 157 %       \property Voice.hshift = 1
 158         a2 fis |
 159         d
 160 %       \property Voice.hshift = 0
 161         \skip 4*11;
 162         \translator Staff=bass \octave c; \stemup
 163         a4 ~ [a16 d-2 g8-1] [fis e-1] |
 164         \stemdown
 165         d1 ~ |
 166         d ~ |
 167         d, ~
 168         d,2 d,2
 169 }
 170
 171 global  = \melodic{
 172         \meter 4/4;
 173         \key fis cis;
 174 }
 175
 176 treble_staff = \type Staff = treble <
 177         \global
 178         { \voiceone \one }
 179         { \voicefour \four }
 180 >
 181
 182 bass_staff = \type Staff = bass <
 183 % bass = Staff <
 184         \clef "bass";
 185         \global
 186 %       { \voiceone \two }
 187         { \type Voice = bone \skip 1*0; \property Voice.ydirection = \up \two }
 188         { \voicetwo \three }
 189 >
 190
 191 grand_staff = \type Grand_staff <
 192         \treble_staff
 193         \bass_staff
 194 >
 195
 196 widea4 = \paper{
 197         linewidth= 193.\mm;
 198 %       arithmetic_basicspace = 2.;
 199 %       arithmetic_multiplier = 6.\pt;
 200         arithmetic_basicspace = 3.;
 201         arithmetic_multiplier = 6.\pt;
 202 }
 203
 204 \score{
 205         % Allegretto
 206         \grand_staff
 207         \paper{ \widea4 }
 208         \midi{ \tempo 4 = 70; }
 209 }