mutopia/J.S.Bach/Cembalo-Partitas/Partita_I_Sinfonia.ly

   1 \header {
   2   filename =    "";
   3   title =       "Partita II";
   4   description = "6 Partite per il clavicembalo, Partita II (c-minor)";
   5   opus =        "BWV 826";
   6   source =      "Editio Musica Budapest (Urtext)";
   7   composer =    "Johann Sebastian Bach (1685-1750)";
   8   enteredby =   "Tom Cato Amundsen";
   9   copyright =   "Public Domain";
  10 }
  11
  12 \version "1.0.1";
  13 \include "a4.ly";
  14 global = \melodic {
  15         \time 4/4;
  16         \key es;
  17         \skip 1*7;
  18         \bar "||";
  19         \skip 1*22;
  20         \time 3/4;
  21         \skip 2.*62;
  22         \bar "|.";
  23 }
  24
  25 hoyreOpp = \melodic \relative c''  {
  26         \stemup
  27         es4 r16 [es d. es32] f4 r16 [f16 f. g32] |
  28         [as8. as16] [as16 g32 f g16. d32] es4 r16 [g g. as32] |
  29 %3
  30         bes4 r16 [bes,16 bes. c32] [des8. des16]
  31         \type Staff <
  32                 { \stemup e4 }
  33                 { \stemup \property Voice.hshift = 1 [des16 c32 bes c16. g32] }
  34         >
  35 %4
  36         f4 \stemboth r16 [f g. as32] \stemup d,4 r16 [d g. es32] |
  37         c4 ~ [c32 es des c des16. f32] [b,16. c32 b16. c32] d4 ~ |
  38         d2 ~ [d16. g,32 a16. b32] [c16. <b32 g> <c16. a> <d32 b]> |
  39         <[es8. c> <es16 c]>
  40         \type Staff <
  41                 { \stemup fis4 }
  42                 { \stemup \property Voice.hshift = 1 [es16 d32 c d16. a32] }
  43         > g2
  44 }
  45
  46 hoyreNed = \melodic \relative c'' {
  47         \clef violin;
  48         \stemdown
  49         <c4 g> r16 [c b. c32] d4 r16 [d d. es32] |
  50         [f8. f16] f8 r <c4 g> r16 [es16 es. f32] |
  51         <c4 g' > r16 [g16 g16. as32] [bes8. bes16] bes8 r |
  52         <c4 as> r16 s16*3 r16 [f, f. g32] g4 |
  53 %5
  54         r16 [es es. f32] f4 [g16. a32 g16. a32] b4 ~ |
  55         [b8. d,16] [f8. as16] [g16. f32 es16. d32] [es16. d32 es16. f32] |
  56         g4 <c8 a> r <d2 b>
  57 }
  58
  59 venstreOpp = \melodic \relative c' {
  60         \clef bass;
  61         \stemup
  62         <c4 g es> r <b as f d> r |
  63         r <b f d> <c g es> r |
  64         <c g e> r r <c g> |
  65         <c as f> r r16 <[as d,><as. d,><g32 d]> <g4 d> |
  66 %5
  67         r16 <[g c,><g. c,><f32 c]>
  68 %{      \type Voice <
  69                 {f4() f}
  70                 {c4 d}
  71         >
  72 %}
  73         <f4-"ikke bue c-d" ~ c><f  d> r16 [f f. g32] |
  74         [as8. as16]~ [as g32 f g16 d] <es4 c> r |
  75         r <a es c> <g2 d>
  76 }
  77
  78 venstreNed = \melodic{ \relative c{
  79         \stemdown
  80         c4 r c r | r c c r | c r r c | c r r16 [c c. bes32] bes4 |
  81         r16 [bes bes. as32] as4 g r16 [d' d. es32] |
  82         \type Staff <
  83                 { \stemdown \property Voice.hshift = 1 [f8. f16] [b,8. b16] g4 r | }
  84                 { \stemdown r4 g}
  85         >
  86         r g g2
  87 }}
  88
  89 andanteEn = \melodic \relative c''{
  90         [g16 c32 d es8~] [es16 d32 c es d c b] [c16 g as f] [g c g f] |
  91         [es16 c'32 d es d c16] [g' c, as' c,] [b c d b] g16 r16 r8 |
  92 %10
  93         \stemup [g'32 f es d c16 bes~] [bes des8 c16]
  94         [as'32 g f e f8~] [f32 g as g f es d es] |
  95         [f es d c bes16 as~] [as c8 bes16]
  96         [g'32 f es d es8~] [es32 f g f es d c b]
  97 %12
  98         \stemboth
  99         [c bes as g f16 es'~] [es d32 c es d c b]
 100         [c d es f g16 c,~] [c b32 c d c b c] |
 101         [as'32 g f e f16 des~] [des c32 des es des c des]
 102         [g f es d es16 c~] [c b32 c d c b c]
 103 %14
 104         [f c b a b16 d] [f32 bes, as g as16 c]
 105         [f32 as, g f g8~] [g32 f' g as g16 f] |
 106         [g16 b,8 c16~] [c16 bes32 as g f es d] [es g f es f es d es] [d8 c] |
 107 %16
 108         r8 g'~ [g32 as g f g16 as] [bes16 d es8~] [es32 bes es f g16 es] |
 109         [des16 c f8~] [f32 c f g as16 f] [es c d8~] [d32 f g as bes as g as] |
 110 %18
 111         [bes32 as g16~] [g32 f e16~] [e32 d c16~] [c32 g' as bes]
 112         [as g f16~] [f32 es des16~] [des32 c bes16] [bes32 f' g as] |
 113 %19
 114         [g f e f bes f e f] [as f e f g f e f] f4~ [f32 es d es f d es f] |
 115         [bes,32 d f g as8~] [as32 g f as g f es d]
 116         [es bes es f g8~] [g32 f es g f es d c] |
 117 %21
 118         [c'32( a g )fis es16 d~] [d32 g a bes cis,16 d] ~
 119         [d32 fis g a c, es d c] [fis d e fis g a bes c] |
 120 %22
 121         [bes32 a g fis ~ fis16 g~] [g d8 es16~]
 122         [es16 b8 c16~] [c32 bes as g as16 c]
 123 %23
 124         [fis,32 es' d c bes'16. a32] [g8( )fis16.-\prall g32] g4~
 125         [g32 f g as g f es d ] |
 126         [f32 es d c g'8~] [g32 es f g f es d c] [es d c bes g'8~]
 127         [g32 d es f es d c bes] |
 128 %25
 129         [d c bes a g'8~] [g32 c, d es d c bes a] [c bes a g g'8~]
 130         [g32 bes, c d c bes a g] |
 131         as4~ [as32 as g as bes as g as] es'4~ [es32 c b c d c b c] |
 132         [fis16 es8 d16] [g16 d8 c16] [a'16 c,8 bes16~] [bes32 d c bes g' bes, a g]
 133 %28
 134         [bes'8-\fermata~ bes32 a g f] [g bes a g fis e d c] [bes d c es d g fis e]
 135         [d c bes a bes d bes g] |
 136         r16 [e'32 fis fis16.-\prall \[2/3 e64 fis g\]1/1 ]
 137         \type Staff <
 138                 {       \stemup
 139                         [bes,32 a g fis g32 bes16.~] [bes16 c32 bes a bes c a] [fis8. g16] }
 140                 {       \stemdown s8 g8 ~ g4 d}
 141    >
 142 }
 143 andanteTo = \melodic \relative c{
 144 %8
 145         \clef "bass";
 146         [c8 c'] [f, g] [es c] [es g] |
 147         [c as] [es f] [g g,]
 148         \stemdown \translator Staff = treble r16 [f''16 es d] |
 149 %10
 150         [es8 g] [e c] [f as] [f c] | [d f] [d bes] [es g] [es c] |
 151         \stemboth \translator Staff = bass
 152         [as c] [f as,] [g c] [es g,] | [f as] [g f] [es g] [f es] |
 153 %14
 154         [d f] [as c,] [b d] [g d] |
 155         [es as,] [f g] c,4~ [c16 d32 es f g a b] |
 156         [c8 c'] [bes as] [g bes] [g es] |
 157         [as c] [as f] [bes as] [g f] |
 158         [e g] [c e,] [f as] [f des] |
 159         [bes g] [c c,] [f16 g32 as bes c d e] [f8 es] |
 160         [d f] [d bes] [g' bes] [es, g] |
 161         [a, fis'] [g g,] [d' a'] [c d,] |
 162 %22
 163         [g a] [bes b] [c d] [es c] |
 164         [a g] [d' d,] [g a] [b g] |
 165         [c es] [c a] [bes d] [bes g] |
 166         [a c] [a fis] [g bes] [g es] |
 167 %26
 168         [c16 d32 es f g as bes] [c16 c, c'8~] [c32 c, d es f g as bes][c16 c, c'8~]|
 169         [c c,] [bes bes'] [fis d] [g es] |
 170         \type Staff <
 171                 {       \stemup <g4 e> r <d'2 bes g> |
 172                         cis4~ [cis8. cis16] [d8 c16 bes]
 173                         \type Staff <
 174                                 { \stemup [a bes c8] }
 175                                 { \stemdown a4 } >
 176                 | }
 177                 {       \slurdown \stemdown cis,4 r d2( | )d1 \slurboth }
 178         >
 179 }
 180
 181 allegroEn = \melodic \relative c''{
 182 %30
 183         [g8 g16 a] [b8 c d es] |
 184         [f16 es d es] [f8 g as d,] |
 185         [f b, d g,] [g'16 f es d] |
 186         es8 c'4 [bes16 as] [g f es d] |
 187         c4~ [c16 d e f] [g as bes g] |
 188         [e8 des'~] [des16 g, as bes] [as g f e] |
 189         [f g as8~] [as16 g f es] [d c d f] |
 190 %37
 191         [es f g8~] [g16 f es d] [c b c es] |
 192         [d as' d, c] [d es f g] [ f es d c] |
 193         [b g' f es] [d f d c] [b d b a] |
 194         [g a b c] [d c b c] [d es f d] |
 195         [b c d es] [f as g f] [es d c b] |
 196         [c d es c] [a8 c] [f, es'] |
 197 %43
 198         [bes16 c d bes] [g8 bes] [es, d'] |
 199         [a16 bes c a] [fis8 a] [d, c'] |
 200         [g16 a b g] [es g d g] [cis, bes' a g] |
 201         [fis e d e] [fis8 g a bes] |
 202         [c16 bes a bes] [c8 d] [es a,] |
 203         [c fis,] [a d,] [d'16 c bes a]
 204 %49
 205         [bes a g a] [bes8 c d es] |
 206         [f16 es d c] [bes f' c bes] [as f' bes, as] |
 207         [g16 f es f] [g8 a b c] |
 208         [d16 c b a] [g d' as g] [f d' g, f] |
 209         [es c' g f] [es f g as] [g c g f] |
 210         [es c' g f] [es f g as] [g c g f]
 211 %55
 212         [e bes' g f] [e f g as] [g bes g f] |
 213         [e bes' g f] [e g bes des] [c bes as g]|
 214         [as f' c bes] \stemup [as bes c des] [ c f c bes] |
 215         [as f' c bes] \stemboth [as bes c des] [c f c bes] |
 216         [a es' c bes] \stemup [a bes c des] [c es c bes] |
 217         [a es' c bes] \stemboth [a c es ges] [f es des c] |
 218 %61
 219         [des8 bes c des es des] |
 220         [c as bes c des c] [bes as bes g as bes] |
 221         [e,16 d c d] [e8 f g as] |
 222         [bes16 as g as] [bes8 c] [des g,] |
 223         [bes e,] [g c,] [c'16 bes as g]
 224 %67
 225         [as g f8~] [f16 as g f] [es d c bes] |
 226         [g' f es8~] [es16 g f es] [d c b c] |
 227         [f es d8~] [d16 f es d] [c b a g] |
 228         [es' f g8~] [g f16 es] [d a' b c] |
 229         [d c b c] [d g f es] [d c b a] |
 230         g4~ [g16 a b c] [d es f d]
 231 %73
 232         [b8 as'~] [as16 d, es f] [es d c b] |
 233         c4~ [c16 g' des c] [bes es bes as] |
 234         [g as bes c] [des8 bes] g'4~ |
 235         [g8 c,16 bes] [as f' bes, as] [g des' g, f] |
 236         [e f g as] [bes8 g] [e'.-\prallprall d32 e] |
 237 %78
 238         [f8 f,16 g] [as8 bes c d] |
 239         [es16 d c d] [es8 f g as] |
 240         [b,16 g' d c] \stemup [b c d es] [d g d c] |
 241         [b g' d c] [b c d es] [d g d c] |
 242         [b f' d c] [b c d es] [d f d c] |
 243         [b f' d c] [b d f as] [g f es d] |
 244 %84
 245         [es f g es] [c g' f es] [d c bes as] |
 246         \stemboth [g as bes8~] [bes16 c bes as] [g f e d] |
 247         [c g' c, bes] [c d e f] [es g c, bes] |
 248         [c g' f e] [f c f g] [as bes c d] | [es d c d] [es8 f16 g] [as8 des,] |
 249         [f b,] [d g,] [g'16 f es d] |
 250         \type Staff <
 251                 { \stemup [es8. c16] c4 ~ [b8.-\prall c16] | c2-\fermata }
 252                 { \stemdown r8 r16 <a16 es> <g2 d> | <g es> }
 253         >
 254 }
 255 allegroTo = \melodic \relative c'{
 256         \clef bass;
 257 %30
 258         \type Staff <
 259                 { \stemup <b8 g> r r4 r }
 260                 { \stemdown g,8 r8 r4 r }
 261         >
 262         r2. | r2. |
 263         \clef treble; r8 [c16 d] [es8 f] [g as] |
 264         [bes16 as g as][bes8 c] [des g,]
 265         [bes e,][g c,][c'16 bes as g] | [as8 f g as][bes as] |
 266         [g es f g as g] | [f es f d es f] | [g g,16 a] [b8 c] [d es] |
 267         [f16 es d es][f8 g][as d,] |
 268         [f b,][d g,][g'16 f es d] | \clef bass;
 269         [es d c8~][c16 es d c][bes a g f] |
 270 %43
 271         [d' c bes8~][bes16 d c bes][a g fis g] |
 272         [c bes a8~][a16 c bes a][g fis e d] | [bes'8 d][g, bes][e, cis'] |
 273         [d8 d,~][d c16 bes][a g fis e] | d4~ [d16 e fis g][a bes c a]
 274 %48
 275         [fis8 es'~][es16 a, bes c][bes a g fis] |
 276         g4 r16 [g' as bes][as g f es] | [d8 f][d bes][c d] |
 277         [es es,] r16 [es' f g][f es d c] | [b8 d][b g][a b] |
 278         [c c,] r16 [d''16 es f][es8 d] | [c c,] r16 [as' bes c][bes8 as] |
 279         [g c,] r16 [d' e f][e8 d] | [c c,] r16 [d e f][e8 c]
 280 %57
 281         [f f,] \stemdown \translator Staff = treble r16 [g'' as bes][as8 g] |
 282         [f  \stemboth \translator Staff = bass f,] r16 [des'16 es f][es8 des] |
 283         [c f,] \stemdown \translator Staff = treble r16 [g' a bes][a8 g] |
 284         [f \stemdown \translator Staff = bass f,] \stemboth r16 [g a bes][a8 f] |
 285         [bes16 c des8~][des16 c bes as][g f g bes] |
 286 %62
 287         [as bes c8~][c16 bes as g][f e f as] |
 288         [g des' g, f][g as bes c][bes as g f] |
 289         [c'8 bes16 as][g c bes as][g f e d] |
 290         c4~ [c16 d e f][g as bes g] |
 291         [e8 des'~][des16 g, as bes][as g f e] |
 292 %67
 293         [f g as f][d8 f][bes, as'] |
 294         [es16 f g es][c8 es][as, g'] |
 295         [d16 es f d][b8 d][g, f'] |
 296         [c16 d es c][as c g c][fis, es' d c] |
 297         [b a g a][b8 c d es] |
 298         [f16 es d es][f8 g as d,] |
 299 %73
 300         [f b,][d g,][g'16 f es d] |
 301         [es d c d][es8 f g as] |
 302         [bes16 as g f][es bes' f es][des bes' es, des] |
 303         [c bes as bes][c8 d e f] |
 304         [g16 f e d][c g' des c][bes g' c, bes] |
 305         [as f' as, g][f c' des g,][a es' f b,]
 306 %79
 307         [c f es d][c g' as d,][es b' c f,] |
 308         [g8 g,] \stemdown \translator Staff = treble r16 [a'' b c][b8 a] |
 309         [g \translator Staff = bass g,] \translator Staff = treble
 310                 r16 [es' f g][f8 es] |
 311         [d \stemboth \translator Staff = bass g,] r16 [a b c][b8 a] |
 312         [g8 g,] \stemdown \translator Staff = treble r8 [g''16 f][es d c b] |
 313         [c8 \stemboth \translator Staff = bass c,16 d][es8 f g as] |
 314         [bes16 as g as][bes8 c des g,] |
 315 %86
 316         [bes e,][g c,][c'16 bes as g] | as4~ [as16 bes as g][f g as f] |
 317         [g f es d][c bes as g][f f' e f] | [as f e f][b, f' es d][es g c, es] |
 318         [fis,8. fis'16] g4 g, | c,2-\fermata
 319 }
 320 a4 = \paper{
 321 %       linewidth= 80.\mm;
 322         Staff = \translator {
 323                 \type "Engraver_group_engraver";
 324                 defaultclef = violin;
 325                 \consists "Bar_engraver";
 326                 \consists "Clef_engraver";
 327                 \consists "Key_engraver";
 328 %               \consists "Meter_engraver";
 329                 \consists "Local_key_engraver";
 330                 \consists "Staff_sym_engraver";
 331                 \consists "Collision_engraver";
 332                 \consists "Rest_collision_engraver";
 333                 \consists "Bar_column_engraver";
 334                 \consists "Bar_number_engraver";
 335                 \consists "Separating_line_group_engraver";
 336 %               \consists "Line_group_engraver";
 337                 \accepts "Voice";
 338                 \accepts "Staff";
 339                 \accepts "GrandStaff";
 340         }
 341 }
 342 \score {
 343      \type GrandStaff <
 344       \type Staff = treble <
 345         \global
 346         { \hoyreOpp \andanteEn \allegroEn }
 347         \hoyreNed
 348       >
 349       \type Staff = bass <
 350         \global
 351         { \venstreOpp \andanteTo \allegroTo }
 352         \venstreNed
 353       >
 354     >
 355
 356   \paper {
 357 %       \a4
 358 %    gourlay_maxmeasures =5.;
 359 %    castingalgorithm = \Wordwrap;
 360
 361   }
 362 }
 363
 364 % EOF