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

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