lilypond-1.0.1

diff --git a/mutopia/J.S.Bach/Solo-Cello-Suites/gigue-urtext.ly b/mutopia/J.S.Bach/Solo-Cello-Suites/gigue-urtext.ly
new file mode 100644 (file)
index 0000000..100156c
--- /dev/null
+++ b/mutopia/J.S.Bach/Solo-Cello-Suites/gigue-urtext.ly
@@ -0,0 +1,145 @@
+% gigue-urtext.ly
+% belongs together with -cello.ly and -alto.ly
+% (who is going to make a -violin.ly?)
+
+%{
+Well, there are still some scripts in this "urtext".
+But merging melodic and scripts doen't work too well yet (see alto_scripts).
+%}
+
+n = { \slurnormal }
+d = { \slurdotted }
+
+%
+% this must be redone a bit:
+% 
+% * slurs/ties in two different threads (like beams): urtext, and additionals
+% 
+
+% urg, Thread is gone, try Voice
+% gigue_notes = \type Thread = gigue \melodic \relative c {
+
+gigue_notes = \type Voice = gigue \melodic \relative c {
+       a'8 |
+       d,4 bes'8 | cis,4 g'8 | f16 e f g a8 |
+       d,4 d'8 | e,16(f)g8 bes | c,16(d)e8 c' | a16 g a bes c a |
+       %8
+       f4-\trill a8 | b,()g' cis, | d f16( c bes )a | g8()es' a, |
+       bes d16( a g )f | e!8()cis' bes' a g16( f e)d |
+       %15
+       %\voiceone e(f g e f)d \onevoice e8()a,\comma c''! |
+       \voiceone e(f g e f)d \onevoice e8()a,^"\\sethuge{\\ \\ '}" c'! |
+       \voiceone c16(d es c d)a bes8 r bes |
+       bes16(c d bes c)g a8 r a |
+       %21
+       b16()c d()b c()a | d()e f()d e()c | b()c d()b c()a | e'4 gis,8 |
+       a16()b c()a d()b  |
+       a()b c()a d()b |
+       %27
+       a()b c()a d()b |
+       a()b c()a d()b |
+       f'8 e16()d c()b \onevoice | 
+       e,, e''(d)c b()gis | a f(e)d e()cis | a4
+       %33
+       c'!8 |
+       f,4 d'8 | e,4 bes'8 | a16 g a bes c8 | f,4 a8 |
+       d,16(e)f d(c)b | g' a g f e d | 
+       %39
+       e(d)e f(g)e | c4 e8 | fis16(g)a c, bes a | 
+       bes(d)g bes, a g | fis(a)c es d c | bes(a)bes d g bes |
+       %45
+       as(g)as fis g es' | d,8 g fis | g16 es(d)c d()bes | g4 bes'8
+       % what about this?
+       \voiceone\stemdown e,!16(f)g e f d\onevoice
+       c(d e) c d bes | a(bes)c a bes g | f4 a'8
+       % what about this?
+       \voiceone\stemdown d,16(e)f d e c\onevoice bes(c)d bes c a 
+       g16(a)bes g a f | e4 g'8 
+       %57
+       a,16(b cis d)e g-. | f(g a cis )d f, | e(f g a)bes d,-. |
+       cis(d)e a, bes g 
+       \voiceone
+       d'()e f()d g()e |
+       %62
+       d()e f()d g()e |
+       d()e f()d g()e |
+       d()e f()d g()e |
+       \onevoice
+       cis bes'(a g f)e | f, a' g f e cis |
+       %67
+       d bes a g a f | d a' d e f d | 
+       \voiceone es()f g()es f()d | g()a bes()g a()f es()f g()es f()d |
+       %72
+       cis'4 \onevoice d16()c | bes(a g f e)d | cis(b a g f)e | d f a d f a |
+       d4
+}
+
+gigue_b = \melodic \relative c {
+       \voicetwo 
+       s8
+       s4.*14
+       a4. | s d | [d8 g, d'] | e4. | [f8 f, f'] |
+       %21
+       [d d d] [d d d] [d d d] |
+       % one could type r here...
+       d4 s8 | <e c> s s | d s s | e s s | f s s | gis s4 |
+       s4. s s4 
+       %33
+       s8
+       s4.*16
+       \stemup bes4 s8
+       s4. s s 
+       a8 s4 \stemdown
+       s4.*7
+       <a,8 f> s s g s s a s s bes s s
+       s4.*4
+       [g8 g g] [g g g] [g g g] 
+       %72
+       <g4 e'>
+}
+
+gb = \melodic { [s16 s s s s s] }
+
+% urg, Thread is gone, try Voice
+% gigue_beams = \type Thread = gigue \melodic{
+gigue_beams = \type Voice = gigue \melodic{
+       s8 |
+       s4. s4. \gb 
+       s4. \gb \gb \gb 
+       %8
+       s4. 
+       \gb \gb \gb \gb \gb
+       %14
+       \gb \gb \gb \gb s4.
+       %19
+       \gb s4. \gb \gb \gb
+       %24
+       s4.
+       \gb \gb \gb \gb \gb \gb \gb
+       s4 s8 
+       %33
+       s4. s4.
+       \gb s4. \gb \gb 
+       %39
+       \gb s4.
+       \gb \gb \gb \gb \gb \gb \gb
+       %48
+       s4. \gb \gb \gb 
+       s4. \gb \gb \gb s4.
+       \gb \gb \gb \gb \gb
+       \gb \gb \gb \gb \gb
+       \gb \gb \gb \gb \gb
+       s4 [s16 s]
+       \gb \gb \gb 
+}
+
+gigue_a = \type Voice \melodic<
+       \$gigue_notes
+       \$gigue_beams
+>
+
+gigue = \melodic<
+       \$gigue_a
+       \$gigue_b
+>
+

diff --git a/mutopia/J.S.Bach/Solo-Cello-Suites/sarabande-urtext.ly b/mutopia/J.S.Bach/Solo-Cello-Suites/sarabande-urtext.ly
new file mode 100644 (file)
index 0000000..00db06b
--- /dev/null
+++ b/mutopia/J.S.Bach/Solo-Cello-Suites/sarabande-urtext.ly
@@ -0,0 +1,94 @@
+% sarabande-urtext.ly
+% belongs together with -cello.ly and -alto.ly
+% (who is going to make a -violin.ly?)
+
+%{
+Well, there are still some scripts in this "urtext".
+But merging melodic and scripts doen't work too well yet (see alto_scripts).
+%}
+
+n = { \slurnormal }
+d = { \slurdotted }
+
+%
+% ugh, the non-shortened beamstems of voice in forced direction
+% look ugly here!
+sarabande_a = \melodic \relative c {
+       \voiceone \d[d8.()e16] e4.-\trill([d16 )e] |
+       f4. \onevoice [e8(d)c] |
+       [bes g']\n[f e16(f][g a bes)d,] |
+       cis4.-\trill\d[b8(a)g] |
+       % copy bar 1, half bar 2
+       \voiceone \d[d'8.()e16] f4.-\trill([d16 )e] |
+       %5
+       f4. \onevoice [d8(e)f] |
+       \n[g bes16()a][c()bes a()g][d'8 f,] |
+       \voiceone e4.-\trill \onevoice \d[d8(c)bes] |
+       %8
+       \voiceone \n[f' g16()a] a4. [g16()f] |
+       [g8 a16()bes]bes4. [c16()d]|
+       % 11
+       \onevoice \d [e,8()f][c, g'][f'()e] |
+       f4 f,2 |
+       \voiceone a'4 \d a4.-\trill()bes8 |
+       [c bes16()a] \onevoice [fis8.-\trill()es16][d8()c] |
+       [bes g'][a, fis'][es'()d] |
+       %16
+       \voiceone bes4.-\trill \onevoice [a8(g)f!] |
+       [e bes()a f'(g)a] |
+       [d, as()g es'(f)g]|
+       [cis, bes'][a g16()f][e!8 f16()d] |
+       [cis8 e16()a][a,8. g'16]\n[f8()e] |
+       %21
+       \voiceone [d e16()f]f4. [e16()d] |
+       [e8 f16()g]g4. [a16()bes] |
+       \d[a8 cis16()d][d,8 e16(f32)g][f8-\trill \n e16()d] |
+       d4 [d,16 a'( b cis][d e f )g] |
+       %25
+       [a(b c)b] c4. [b16()a] |
+       \d[b(cis d )cis] d4. \n[e16()f] |
+       \onevoice [d(cis)d f,] [a,8 e']\d[d'()cis] |
+       d4 d,,2 |
+}
+
+sarabande_b = \melodic \relative c {
+       \voicetwo
+% dispute
+%      d4 a2 |
+%      this avoids the clash bug
+       d8. s16 a2 |
+       <a4. d,> s8*3 |
+       s2.*2
+       %5
+%disp
+%      <a4 f> a2 |
+       <a8. f> s16 a2 |
+       <a4. d,> s8*3 |
+       s2. |
+       % 8
+       <g4. c,> s8*3  |
+       a4 <bes4. d> r8 |
+       %10
+       bes4 <g2 f'> |
+       s2.*2 |
+       \d[f'8()es] es4. r8 |
+       d4 s2 |
+       %15
+       s2. |
+       <d4. g,> s8*3  |
+       s2.*4 |
+       %21
+       bes4 g2  |
+       g4 <bes4. cis,> s8 |
+       <d8 a f> r r g, a4 |
+       s2. |
+       f'4 fis4. s8 |
+       <d4 g,> gis4. s8 |
+}
+
+
+sarabande = \type Staff \melodic<
+       \$sarabande_a
+       \$sarabande_b
+>
+