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

   1 \header{
   2 filename =       "preludes-5.ly";
   3 % blz 2
   4 % Clavierb"uchlein f"ur W. Fr. Bach
   5 % Clav. W. Fr. Bach: 4-Praeludium 2
   6 % ca 1720
   7 composer =       "Johann Sebastian Bach (1685-1750)";
   8 enteredby =      "jcn";
   9 copyright =      "public domain";
  10 }
  11 \version "1.0.10";
  12
  13
  14 one = \notes\relative c{
  15         \property Voice . textstyle =  "italic"
  16         [d'8-1\p a'-5-"legato" f-3 d-1 a'-5 f-3] |
  17         [d-1 a'-5 f-3 d-1 a'-5 f-3] |
  18         [d-1\< bes'-4 g-2 d-1 bes'-4 \!g-2] |
  19         [d-1 bes'-4 g-2 d-1 bes'-5 g-3] |
  20         %5
  21         [cis,-1\mf g'-4 e-2 cis-1 g'-4 e-2] |
  22         [cis-1 bes'-5 g-4 e-2 a-5 g-4] |
  23         [f-3\< d-1 f-2 a-4 f-1 a-2] |
  24         [d-5 a-1 d-2 f-4 d-1 \!f-2] |
  25         [b\> f-3 e d c-3 b] |
  26         %10
  27         [a gis-3 fis e d'-5 \!b-2] |
  28         <
  29                 {
  30                         \voiceone
  31                         \property Voice . textstyle =  "roman"
  32                         c4-\mordent^"(\\textsharp)"\p r r |
  33                         c4-\mordent^"(\\textsharp)" r r
  34                         \property Voice . textstyle =  "italic"
  35                 }
  36                 { \voicetwo  a4 r r | a4 r r }
  37         > |
  38         \onevoice
  39         [a'8\mf( es-3\> d c bes!-3 a] |
  40         [g fis-3 e!-2 d-1 c'-4 \!a] |
  41         %15
  42         [)bes8-\mordent\p( d8-5 bes-3 g-1] )g'4 |
  43         r8 [d-5( c bes a-\prall g] |
  44         [)a-2 c-4( a f] ) f'4 |
  45         r8 [c-5 bes a g-\prall f] |
  46         [g-2 bes-4 a g f-1 e-2] |
  47         %20
  48         [f-3 d-1 f-2 a-3 d-5 g,-2] |
  49         <
  50                 {
  51                         \voiceone
  52                         % ... textnatural
  53                         [cis8-\prall e8-5-"poco cresc." cis-3 a e' cis]
  54                 }
  55                 { \voicetwo  a4 }
  56         >
  57         \onevoice
  58         [a8 e'-5 cis a bes!-3 a] |
  59         [g e'-5 cis-3 g e'-5 cis-3] |
  60         [g-1 e'-5 cis g a-3 g] |
  61         [f-"dim." d'-5 bes f d' bes] |
  62         %25
  63         [f d'-5 bes f d' bes] |
  64         [fis-2-"dim." c'-5 a-3 fis-2 c'-5 a-3] |
  65         [fis-2 c'-5 a-3 fis-2 c'-5 a-3] |
  66         [bes-4 g-1 fis-2 g-3 d-1 g-2] |
  67         [bes-4 g-2 d-1 bes'-5 g-3 d-1] |
  68         %30
  69         [e-2\p g-4 fis-3 g-1 bes-4 g-2] |
  70         [es-1 bes'-4 g-2 es bes' g] |
  71         [cis,-1 bes'-4 g-2 cis, bes' g] |
  72         [cis,-1 bes'-4 g-2 cis,-1 a'-5 g-4] |
  73         [f-3 a f d a'-5 f] |
  74         %35
  75         [d-1 a'-5 f-3 d-1 cis-2 d-1] |
  76         [e-3\< g-5 e-3 bes-1 g'-5 e-3] |
  77         [bes-1 g'-5 e-3 \!cis-2 a-1 g'-5] |
  78         [f16-4\mf d-2 c-1 bes-3] \stemup a-2 s16 s8 s4 |
  79 % ugh
  80 %       s1 |
  81         s4 s4 s4 |
  82         %40
  83         s4 s16 [d16-1-"m.d." f-2 a-4] \stemdown [d,-2-"m.g." f a] \stemup d-1 |
  84         \stemboth
  85         [f a-4 f d] [f-4 d b d-5] [gis-2 b a gis,] |
  86         <g'!4.-5\f e a,> a8-5
  87         <
  88                 {
  89                         \voiceone
  90                         f4-4\> ~ | \![f8 e] [e32-4 f e8. ~] [e8 d-3]
  91                 }
  92                 { \voicetwo  <d4 a> r4 cis-2 }
  93         > |
  94         \onevoice
  95         [d8-4 c!-3 a-1 d-4 bes-2 g-1] |
  96         %45
  97         [c-5 a-3 fis-2 bes-4 g e ] |
  98         [a-5 fis-"dim. e rall." d g-5 e cis-2] |
  99         <
 100                 { \voiceone  <fis2-.-5\p a,> }
 101                 { \voicetwo  [d32( cis d8. ~] ) d2 }
 102         > |
 103         \bar "|.";
 104 }
 105
 106
 107 two = \notes\relative c{
 108         \clef "bass";
 109 %       [d32( cis )d8.] r4 r |
 110         d4-\mordent r r |
 111         d,4 r r |
 112         d'-\mordent r r |
 113         d,4 r r |
 114         d'-\mordent r r |
 115 %       d r r |
 116         d,4 r r |
 117         [d'8-2 a-5 d-2 f-1 d-4 f-2] |
 118         [a-1 f-4 a-2 d-1 a-2 d-1] |
 119         gis,4-3 r r |
 120         e-4( )gis-2 e |
 121         [a8-4 e'-1 c-2 a-4 e'-1 c-2 ] |
 122         [g!-5 es'-1 c-1 g-5 es'-1 c-1 ] |
 123         fis,4-5 r r
 124         d-4( ) fis d-5 |
 125         \property Voice . textstyle =  "roman"
 126         g4-\mordent^"(\\textsharp)" r r8 f!8 |
 127         \property Voice . textstyle =  "italic"
 128         e4-\prall r r |
 129         f4-\mordent r r8 e |
 130         d4 r8 [f-1 e d] |
 131         [e-2 d-3 cis-4 e-1 d-2 cis-3] |
 132         d4-2( )c! bes-4 |
 133         a( )a' a, |
 134         a( )a' a, |
 135         a( )a' a, |
 136         a( )a' a, |
 137         bes r r |
 138         bes-5( )bes' bes, |
 139         a r r |
 140         a-2( )d-1 d, |
 141         g r r |
 142         g( )g' g, |
 143         g r r |
 144         g( )g' g, |
 145         a r r |
 146         a( )a' a, |
 147         a r r |
 148         a( )a' a, |
 149         cis, r r |
 150         cis( )cis' cis, |
 151         d-4 s16
 152         \stemdown
 153         [g'16-1-"m.g." f e] [f-2 a d,-3 f] |
 154         a,
 155         \stemup
 156         [d-5-"m.d." c bes] a
 157         \stemdown [g-2 f-"m.g." e] [d f-4 a-2 d-1] |
 158         \stemup
 159 %       [f-2\ped a]
 160         [f-2-"Ped." a]
 161         \stemdown
 162 %       [d-4-"m.g." f-"cresc."] a s s8 s4\dep |
 163         [d,-4-"m.g." f-"cresc."] a s s8 s4-"*" |
 164         \stemboth
 165 % ugh whole rest has duration of one bar
 166 %       r1 |
 167         r4 r r |
 168 %{
 169         ugh forget the 8 below:
 170         [cis-3( e cis a] [d16-1 c bes a] |
 171         and lily dumps koor
 172 lilypond: ../flower/include/varray.hh:116: struct Rhythmic_grouping *& Array<Rhythmic_grouping *>::elem(int) const: Assertion `i >=0&&i<size_ failed.
 173 Aborted (core dumped)
 174 %}
 175         [cis,8-3( e cis a] [d16-1 c bes a] |
 176         [)g8 g' a-2( g-3 a-1 a,] |
 177         )d4-3 d'-1 d, |
 178         d r r |
 179         d,( )d' d, |
 180         d2. |
 181         \bar "|.";
 182 }
 183
 184 global = \notes{
 185         \time 3/4;
 186         \key F;
 187 }
 188
 189 treble_staff = \type Staff = treble <
 190         \global
 191         \one
 192 >
 193
 194 bass_staff = \type Staff = bass <
 195 % bass = Staff <
 196         \clef "bass";
 197         \global
 198         \two
 199 >
 200
 201 grand_staff = \type GrandStaff <
 202         \treble_staff
 203         \bass_staff
 204 >
 205
 206 widea4 = \paper {
 207         \paper_twenty
 208 %       arithmetic_basicspace = 2.;
 209 %       arithmetic_multiplier = 6.\pt;
 210         arithmetic_basicspace = 2.;
 211         arithmetic_multiplier = 8.\pt;
 212         linewidth= 193.\mm;
 213 }
 214
 215 \score{
 216         % Moderato
 217         \grand_staff
 218         \paper{ \widea4 }
 219         \midi{ \tempo 4 = 90; }
 220         \header{
 221                 piece = "5";
 222                 opus = "BWV 926";
 223         }
 224 }
 225