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

   1 \header{
   2 filename =       "preludes-5.ly";
   3 title =  "5";
   4 composer =       "Johann Sebastian Bach (1685-1750)";
   5 enteredby =      "jcn";
   6 copyright =      "public domain";
   7 }
   8
   9 \include "paper20.ly"
  10
  11 rh = \melodic{
  12         \octave c';
  13         \textstyle "italic";
  14         [d8-1\p a-5-"legato" f-3 d-1 a-5 f-3] |
  15         [d-1 a-5 f-3 d-1 a-5 f-3] |
  16         [d-1\< b-4 g-2 d-1 b-4 \!g-2] |
  17         [d-1 b-4 g-2 d-1 b-5 g-3] |
  18         [cis-1\mf g-4 e-2 cis-1 g-4 e-2] |
  19         [cis-1 b-5 g-4 e-2 a-5 g-4] |
  20         [f-3\< d-1 f-2 a-4 f-1 a-2] |
  21         [d'-5 a-1 d'-2 f'-4 d'-1 \!f'-2] |
  22         [b'\> f'-3 e' d' c'-3 b] |
  23         [a gis-3 fis e d'-5 \!b-2] |
  24         \multi 2 <
  25                 {
  26                         \stemup
  27 %                       c4\mr^"(\\textsharp)"\p r r |
  28 %                       c4\mr^"(\\textsharp)" r r
  29                         c4^"(\\textsharp)"\p r r |
  30                         c4^"(\\textsharp)" r r
  31                 }
  32                 {
  33                         \stemdown
  34                         a4 r r |
  35                         a4 r r
  36                 }
  37         > |
  38         [a'8\mf( es'-3\> d' c' bes!-3 a] |
  39         [g fis-3 e!-2 d-1 c'-4 \!a] |
  40         [)bes32(\p a bes16] [d'8-5 bes-3 g-1] )g'4 |
  41 %       r8 [d'-5( c bes a\pr g] |
  42         r8 [d'-5( c bes a g] |
  43         [)a-2 c'-4( a f] ) f'4 |
  44 %       r8 [c'-5 bes a g\tr f] |
  45         r8 [c'-5 bes a g f] |
  46         [g-2 bes-4 a g fis-1 e-2] |
  47         [f-3 d-1 f-2 a-3 d'-5 g-2] |
  48         \multi 2 <
  49                 {
  50                         \stemup
  51                         [cis'32-4 b cis'16 e'8-5-"poco cresc." cis-3 a e' cis]
  52                 }
  53                 {
  54                         \stemdown
  55                         a4
  56                 }
  57         >
  58         \stemboth
  59         [a8 e'-5 cis' a bes!-3 a] |
  60         [g e'-5 cis'-3 g e'-5 cis'-3] |
  61         [g-1 e'-5 cis' g a-3 g] |
  62         [f-"dim." d'-5 bes f d' bes] |
  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         [e-2\p g-4 fis-3 g-1 bes-4 g-2] |
  69         [es-1 bes-4 g-2 es bes g] |
  70         [cis-1 bes-4 g-2 cis bes g] |
  71         [cis-1 bes-4 g-2 cis-1 a-5 g-4] |
  72         [f-3 a f d a-5 f] |
  73         [d-1 a-5 f-3 d-1 cis-2 d-1] |
  74         [e-3\< g-5 e-3 'bes-1 g-5 e-3] |
  75         ['bes-1 g-5 e-3 \!cis-2 'a-1 g-5] |
  76         [f16-4\mf d-2 c-1 'bes-3] s4 s |
  77 % ugh
  78 %       s1 |
  79         s4 s4 s4 |
  80         s4 s16 [d16-1-"m.d." f-2 a-4] [d-2-"m.g." f a] \stemup d'-1 |
  81         [f' a'-4 f' d'] [f'-4 d' b d'-5] [gis-2 b a g] |
  82         <g'!4.-5\f e' a> a'8-5
  83         \multi 2 <
  84                 {
  85                         \stemup
  86                         f'4-4\> ~ | \![f'8 e'] [e'32-4 f' e'8. ~] [e'8 d'-3]
  87                 }
  88                 {
  89                         \stemdown
  90                         <d'4 a> r4 cis'-2
  91                 }
  92         > |
  93         \stemboth;
  94         [d'8-4 c'!-3 a-1 d'-4 bes-2 g-1] |
  95         [c'-5 a-3 fis-2 bes-4 g e ] |
  96         [a-5 fis-"dim. e rall." d g-5 e cis-2] |
  97         \multi 2 <
  98                 {
  99                         \stemup
 100                         <fis2-.-5\p 'a>
 101                 }
 102                 {
 103                         \stemdown
 104                         [d32( cis d8. ~] ) d2
 105                 }
 106         > |
 107         \bar "|.";
 108 }
 109
 110
 111 lh = \melodic{
 112         \clef "bass";
 113         \octave c;
 114         [d32( cis )d8.] r4 r |
 115         'd4 r r |
 116 %       d\mr r r |
 117         d r r |
 118         'd4 r r |
 119 %       d\mr r r |
 120         d r r |
 121         'd4 r r |
 122         [d8-2 'a-5 d-2 f-1 d-4 f-2] |
 123         [a-1 f-4 a-2 d'-1 a-2 d'-1] |
 124         gis4-3 r r |
 125         e-4( )gis-2 e |
 126         [a8-4 e'-1 c'-2 a-4 e'-1 c'-2 ] |
 127         fis4-5 r r
 128         d-4( ) fis d-5 |
 129 %       g\mr-"(\textsharp)" r r f!8 |
 130         g-"(\textsharp)" r r8 f! |
 131         [e32 f e8.] r4 r |
 132 %       f\pr r r8 e |
 133         f 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! 'b-4 |
 137         'a( )a a |
 138         'a( )a a |
 139         'a( )a a |
 140         'a( )a a |
 141         'b r r |
 142         'b-5( )b 'b |
 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         [g16-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 % ugh, whole rest has duration of one bar
 169 %       r1 |
 170         r4 r r |
 171 %{
 172         ugh, 'forget' the 8 below:
 173         [cis-3( e cis 'a] [d16-1 c 'b 'a] |
 174         and lily dumps koor
 175 lilypond: ../flower/include/varray.hh:116: struct Rhythmic_grouping *& Array<Rhythmic_grouping *>::elem(int) const: Assertion `i >=0&&i<size_' failed.
 176 Aborted (core dumped)
 177 %}
 178         [cis8-3( e cis 'a] [d16-1 c 'b 'a] |
 179         [)'g8 g a-2( g-3 a-1 'a] |
 180         )d4-3 d'-1 d |
 181         d r r |
 182         'd( )d 'd |
 183         'd2. |
 184         \bar "|.";
 185 }
 186
 187 global  = \melodic{
 188         \meter 3/4;
 189         \key bes;
 190 }
 191
 192 \score{
 193         % Moderato
 194         % it would be nice to shut-off fingering...
 195         \melodic \type Grandstaff <
 196                 <
 197                         \global
 198                         \rh
 199                 >
 200                 <
 201                         \global
 202                         \lh
 203                 >
 204         >
 205         \paper{
 206                 \paper_twenty
 207                 linewidth= 195.\mm;
 208         }
 209         \midi{
 210                 \tempo 4 = 90;
 211         }
 212 }