2 % belongs together with -cello.ly and -viola.ly
3 % (who is going to make a -violin.ly?)
6 Well, there are still some scripts in this "urtext".
7 But merging melodic and scripts doen't work too well yet (see viola_scripts).
12 comma = "\\sethuge\\ \\ ,";
14 allemande_a = \melodic \relative c {
16 [a8 bes16()a] \onevoice
17 [g()f e()d][d()cis d()e][a,8 \d bes16()g] |
18 [f( a )d f,] [e8 cis']\voiceone[d8. e16]\onevoice[f g a bes!] |
20 \voiceone[c8 \n d16()es]\onevoice[d()c bes()a][c()bes a()g][d'8. f,16] |
21 [e( g )bes d][c()bes a()g]\n[bes()a g()f]
24 [b \n f( e )d][e \d cis'( d )cis]\voiceone[d8.( )e16]\onevoice
27 [d( c b )c][b( a gis)a][gis8-\prall fis16()e][e' c( a )g] |
28 \voiceone [e' a, f d] [d f d b]\onevoice
29 [gis( b e )gis] \d [b( d c )b] |
31 \n[c( a f )e][d( f e )d][gis8.-\trill()a16]\d[b d e,()d] |
33 [c( e a)d]\voiceone [b8.-\trill a16] a8 s4 s8 \onevoice |
35 [d,!16 gis( a b a gis fis )e] \voiceone [e8 f16()e]\onevoice
37 \voiceone[d8 e16()f]\onevoice\d[e()d c()b]
38 \voiceone[d'16()b c()a] \onevoice [e8 gis] |
39 [a,8. cis16][e g!( f! )e][f( a )d gis,] a8.
41 e16 \voiceone [e8. f16] \onevoice
42 \n[g!()e f()a]\n[cis,( d )e bes][a8.-\trill()g16] |
43 [f a'(f)d][g \n b,()cis a'][g(f e)d][fis d()es c(] |
45 [)bes g'(a, )g][fis a d c'][bes(fis)g bes][d()a bes()g] |
46 [es(d)es g][c()a bes()g]\d[d(c)d g]\n[bes()fis g()es] |
48 \n[c(bes)c bes'][a(c)es g,]\voiceone[fis8-\trill\d g16()a]\onevoice
50 [bes(d )g bes,][d,8 fis']\voiceone[g8. a16]\onevoice[bes d g, f] |
52 \voiceone[e8.-\trill()f16]\onevoice [g()e c()bes]
53 \n[a()f' g,()f][e g'( a )bes] |
55 % [bes( a g )f^\comma]
56 [bes( a g )f^"\\sethuge{\\ \\ '}"]
57 [a()e f()d][bes d(f)a][d()a bes()g] |
59 [a,(\n)g'(\n cis())d][e()g, a()e][f()d bes()d]\d[gis, f'(e)d] |
60 % \n[d( cis b )a^\comma][c(a)fis d'][c a( b )d]
61 \n[d( cis b )a^"\\sethuge\\ \\ ,"]
62 [c(a)fis d'][c a( b )d]
65 [cis(e g!)bes][e()a, bes()g][f()cis d()gis,][a8 cis!] |
67 \stemup [d,16 \stemboth d''(c!)a][bes!(g)e cis'][d a f d] d,8.
70 allemande_b = \melodic \relative c {
73 % <d'8 g' f'> s8 s2. |
76 <fis'8 a, d,> s8 s2. |
81 f!16 s16*3 b, s16*3 s2 |
83 s4 e [dis8 ~ dis32 e( fis gis][a b c d! c b c )a] |
86 <b8 gis,> s8 s4 <e,8 a,> s8 s4 |
96 allemande = \type Staff \melodic<