From: fred Date: Wed, 29 Jul 1998 21:07:30 +0000 (+0000) Subject: lilypond-1.0.1 X-Git-Tag: release/1.5.59~5865 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=4e21696992636375b771dffcf06d22af5d794082;p=lilypond.git 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 index 0000000000..100156c7d7 --- /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 | 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 + s s g s s a s s bes s s + s4.*4 + [g8 g g] [g g g] [g g g] + %72 + +} + +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 index 0000000000..00db06b77e --- /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 | + s8*3 | + s2.*2 + %5 +%disp +% a2 | + s16 a2 | + s8*3 | + s2. | + % 8 + s8*3 | + a4 r8 | + %10 + bes4 | + s2.*2 | + \d[f'8()es] es4. r8 | + d4 s2 | + %15 + s2. | + s8*3 | + s2.*4 | + %21 + bes4 g2 | + g4 s8 | + r r g, a4 | + s2. | + f'4 fis4. s8 | + gis4. s8 | +} + + +sarabande = \type Staff \melodic< + \$sarabande_a + \$sarabande_b +> +