mutopia/J.S.Bach/Solo-Cello-Suites/gigue-urtext.ly

   1 % gigue-urtext.ly
   2 % belongs together with -cello.ly and -alto.ly
   3 % (who is going to make a -violin.ly?)
   4
   5 %{
   6 Well, there are still some scripts in this "urtext".
   7 But merging melodic and scripts doen't work too well yet (see alto_scripts).
   8 %}
   9
  10 n = { \slurnormal }
  11 d = { \slurdotted }
  12
  13 %
  14 % this must be redone a bit:
  15 %
  16 % * slurs/ties in two different threads (like beams): urtext, and additionals
  17 %
  18
  19 % urg, Thread is gone, try Voice
  20 % gigue_notes = \type Thread = gigue \melodic \relative c {
  21
  22 gigue_notes = \type Voice = gigue \melodic \relative c {
  23         a'8 |
  24         d,4 bes'8 | cis,4 g'8 | f16 e f g a8 |
  25         d,4 d'8 | e,16(f)g8 bes | c,16(d)e8 c' | a16 g a bes c a |
  26         %8
  27         f4-\trill a8 | b,()g' cis, | d f16( c bes )a | g8()es' a, |
  28         bes d16( a g )f | e!8()cis' bes' a g16( f e)d |
  29         %15
  30         %\voiceone e(f g e f)d \onevoice e8()a,\comma c''! |
  31         \voiceone e(f g e f)d \onevoice e8()a,^"\\sethuge{\\ \\ '}" c'! |
  32         \voiceone c16(d es c d)a bes8 r bes |
  33         bes16(c d bes c)g a8 r a |
  34         %21
  35         b16()c d()b c()a | d()e f()d e()c | b()c d()b c()a | e'4 gis,8 |
  36         a16()b c()a d()b  |
  37         a()b c()a d()b |
  38         %27
  39         a()b c()a d()b |
  40         a()b c()a d()b |
  41         f'8 e16()d c()b \onevoice |
  42         e,, e''(d)c b()gis | a f(e)d e()cis | a4
  43         %33
  44         c'!8 |
  45         f,4 d'8 | e,4 bes'8 | a16 g a bes c8 | f,4 a8 |
  46         d,16(e)f d(c)b | g' a g f e d |
  47         %39
  48         e(d)e f(g)e | c4 e8 | fis16(g)a c, bes a |
  49         bes(d)g bes, a g | fis(a)c es d c | bes(a)bes d g bes |
  50         %45
  51         as(g)as fis g es' | d,8 g fis | g16 es(d)c d()bes | g4 bes'8
  52         % what about this?
  53         \voiceone\stemdown e,!16(f)g e f d\onevoice
  54         c(d e) c d bes | a(bes)c a bes g | f4 a'8
  55         % what about this?
  56         \voiceone\stemdown d,16(e)f d e c\onevoice bes(c)d bes c a
  57         g16(a)bes g a f | e4 g'8
  58         %57
  59         a,16(b cis d)e g-. | f(g a cis )d f, | e(f g a)bes d,-. |
  60         cis(d)e a, bes g
  61         \voiceone
  62         d'()e f()d g()e |
  63         %62
  64         d()e f()d g()e |
  65         d()e f()d g()e |
  66         d()e f()d g()e |
  67         \onevoice
  68         cis bes'(a g f)e | f, a' g f e cis |
  69         %67
  70         d bes a g a f | d a' d e f d |
  71         \voiceone es()f g()es f()d | g()a bes()g a()f es()f g()es f()d |
  72         %72
  73         cis'4 \onevoice d16()c | bes(a g f e)d | cis(b a g f)e | d f a d f a |
  74         d4
  75 }
  76
  77 gigue_b = \melodic \relative c {
  78         \voicetwo
  79         s8
  80         s4.*14
  81         a4. | s d | [d8 g, d'] | e4. | [f8 f, f'] |
  82         %21
  83         [d d d] [d d d] [d d d] |
  84         % one could type r here...
  85         d4 s8 | <e c> s s | d s s | e s s | f s s | gis s4 |
  86         s4. s s4
  87         %33
  88         s8
  89         s4.*16
  90         \stemup bes4 s8
  91         s4. s s
  92         a8 s4 \stemdown
  93         s4.*7
  94         <a,8 f> s s g s s a s s bes s s
  95         s4.*4
  96         [g8 g g] [g g g] [g g g]
  97         %72
  98         <g4 e'>
  99 }
 100
 101 gb = \melodic { [s16 s s s s s] }
 102
 103 % urg, Thread is gone, try Voice
 104 % gigue_beams = \type Thread = gigue \melodic{
 105 gigue_beams = \type Voice = gigue \melodic{
 106         s8 |
 107         s4. s4. \gb
 108         s4. \gb \gb \gb
 109         %8
 110         s4.
 111         \gb \gb \gb \gb \gb
 112         %14
 113         \gb \gb \gb \gb s4.
 114         %19
 115         \gb s4. \gb \gb \gb
 116         %24
 117         s4.
 118         \gb \gb \gb \gb \gb \gb \gb
 119         s4 s8
 120         %33
 121         s4. s4.
 122         \gb s4. \gb \gb
 123         %39
 124         \gb s4.
 125         \gb \gb \gb \gb \gb \gb \gb
 126         %48
 127         s4. \gb \gb \gb
 128         s4. \gb \gb \gb s4.
 129         \gb \gb \gb \gb \gb
 130         \gb \gb \gb \gb \gb
 131         \gb \gb \gb \gb \gb
 132         s4 [s16 s]
 133         \gb \gb \gb
 134 }
 135
 136 gigue_a = \type Voice \melodic<
 137         \$gigue_notes
 138         \$gigue_beams
 139 >
 140
 141 gigue = \melodic<
 142         \$gigue_a
 143         \$gigue_b
 144 >
 145