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