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