2 From: bf250@freenet.carleton.ca (John Sankey)
3 To: hanwen@cs.uu.nl, jantien@xs4all.nl
4 Subject: the first Sonata
5 Date: Sat, 16 Jan 1999 20:50:07 -0500 (EST)
7 To give you an idea of what is involved in the Scarlatti project,
8 here is the Mudela for the first sonata of the 550, organized so I
9 can proofread the ps output against the original manuscripts. Lily
10 mutters about clashing note columns and spans, but puts everything
11 except note stems where they should be.
13 I've set it on a double staff to separate the parts enough so they
14 are readable without setting all the note stem directions manually.
15 Voices 1 & 3 are the chords, 2 & 4 the notes that can't be chorded
18 I have a program that does most of the enharmonic corrections to
19 mi2mu output properly. I'm mulling over how to insert beam brackets
20 (so I can correct the few it gets wrong) and set stem directions
21 (ditto) mostly automatically too, but that's not as easy.
23 Suggestions welcome as always
29 \header {title ="Domenico Scarlatti - Sonata K.1 L.366";
30 description="Allegro";}
31 % vOne is right hand outside part, vTwo r.h. inside part,
32 % vThree left hand outside, vFour l.h. inside.
34 \context Staff = staffOne <
35 \property Staff.nolines=11
39 \context Voice = vOne <
42 \stemup [d''16 e'' f'' g''] [a'' a' cis'' a'] d''4. e''8 |
44 [f''16 d'' g'' e''] [a'' f'' e'' d''] [cis''8 a''] a''4^\prall~
46 [a''16 g'' f'' e''] [d'' c'' bes' a'] bes'8 \stemdown bes' [g'
49 [e'8 e'] [e' e'] f \stemup f'' f''4^\prall~
51 [f''16 e'' d'' c''] [bes' a' g' f'] g'8 \stemdown g' [e' e'] |
53 [e'8 a] [a a] [d e] [f g] |
55 a16 s b s cis' s d' s e' s f' s g' s a' s |
57 b'16 s cis'' s d'' s e'' s [f'' d'' bes' g'] [e'' cis'' a' cis'']
60 \stemup a''4 g''4^\prallmordent \stemdown [f''16 d'' bes' g']
61 [e'' cis'' a' cis''] |
63 \stemup [f''16 d'' g'' e''] [a'' f'' e'' d''] [cis'' a' d'' b']
66 [f'16 d' g' e'] [a' f' e' d'] [cis' a d' b] [e' cis' f' d'] |
68 g'16 \stemdown [ e' d' cis'] \stemup f'8 [g'16^\prall f'32 g']
69 [a'16 e' f' d'] \stemdown [e' cis' d' b] |
71 [cis'16 a b aes] \stemup cis'4 a,4^\prall^"\\textnatural"
74 [a'16 b' cis'' d''] [e'' cis'' f'' d''] e''4. a'8 |
76 [b'16 g' cis'' a'] [d'' b' e'' cis''] [fis'' d'' g'' e''] [a''
79 [bes'16 g' c'' a'] [d'' bes' a' g'] [fis' d' g' e'] [a' c' bes a]
82 \stemdown g16 s a s bes s c' s d' s e' s f' s g' s |
84 [a'16 f' d' bes] [g' e' c' e'] \stemup c''4 bes'4^\prall |
86 [c''8 f''] [bes' e''] [a'16 f' c'' a'] [f'' c'' a'' f''] |
88 [e''16 g'' c'' e''] g'8 \stemdown fis' g'16 s g8 [g g,] |
90 [d8 d'] d'16 \stemup [d'' c'' b'] [c'' a' e'' c''] [a'' e'' c'''
93 [gis''16 b'' e'' aes''] [b' d'' cis'' b'] \stemdown [cis''8 a']
96 f,8 a' [f' f'16 a'] \stemup [bes'8 g''] g''4^\prall~ |
98 [g''16 f'' e'' d''] [c'' bes' a'] s \stemdown f,8 f' [f' f'] |
100 d,8 d' [f' d'16 f'] \stemup [g'8 e''] e''4^\prall~ |
102 [e''16 d'' cis'' b'] [a' g' f' e'] [f' d' g' e'] [a' f' bes' g']
105 \stemdown [f'16 d' g' e'] [a' f' bes' g'] \stemup f' s g' s a' s
108 [a'8 d''] [g' cis''] \stemdown [f'16 d' bes g] [e' cis' a cis'] |
110 \stemup [a'8 d''] [g' e''] [f'16 d' g' e'] [a' f' b' g'] |
112 [cis''16 a' d'' e''] [f'' d'' e'' cis''] [d'' a' bes' g']
113 \stemdown [a' f' g' e'] |
115 [f'16 d' e' cis'] d'4 \stemup d4^\prall r4^\fermata |
126 s1 s s s s s s s s s s s
139 \stemdown d'16 s e' s f' s g' s s2 |
145 \context Voice = vTwo <
148 \stemdown s2 d'16 s s4. |
149 s1 s s s s s s s s s s s s s s s s s s
158 \context Voice = vThree <
161 \stemdown s2 [d'16 e' f' g'] [a' a cis' a] |
163 [d'8 e'] [f' g'] [a' a'] [a' a'] |
165 [a'8 a'] [a' f'] g \stemup g'' g''4^\prall~
167 [g''16 f'' e'' d''] [c'' bes' a' g'] a'8 \stemdown a' [f' a'] |
169 [d'8 f'] [d' d'] e \stemup e'' e''4^\prall~
171 [e''16 d'' cis'' b'] [a' g' f' e'] [f' d' g' e'] [a' f' e' d'] |
173 [cis'16 a d' b] [e' cis' f' d'] [g' e' a' f'] [b' g' cis'' a'] |
175 [d''16 b' e'' cis''] [f'' d'' g'' e''] a''4 g''4^\prallmordent |
177 \stemdown [f''16 d'' bes' g'] [e'' cis'' a' cis''] \stemup a''4
180 \stemdown [d'8 e'] [f' g'] [a b] [cis' a] |
182 [d8 e] [f g] a16 s b s cis' s d' s |
184 e16 \stemup [g' f' e'] \stemdown [d'8 bes] a,4 s8 \stemup f' |
186 [e'8 d'] \stemdown [a16 e cis e] s2 |
188 s2 [a16 b cis' d'] [e' cis' f' d'] |
190 g'16 s a' s b' s cis'' s [d'8 e'] [fis' d'] |
192 [g8 a8] [bes c'] [d e] [fis d] |
194 \stemup [bes16 g c' a] [d' bes e' c'] [f' d' g' e'] [a' f' bes'
197 c''4 bes'4^\prall \stemdown [a'16 f' d' bes] [g' e' c' e'] |
199 [a'16 f' d' bes] [g' e' c' e'] f' s f8 [f f,] |
201 [c8 c'] c'16 \stemup [c'' bes' a'] [bes' g' d'' bes'] [g'' d''
204 [f''16 a'' d'' f''] a'8 \stemdown gis' a'16 s a8 [a a,] |
206 [e8 e,] [e, e,] a, \stemup a'' a''4^\prall^"\\textflat"~ |
208 [a''16 g'' f'' e''] [d'' c'' bes'] s \stemdown g,8 bes' [bes'
211 e,8 e' [g' e'16 g'] \stemup [a'8 f''] f''4^\prall~ |
213 [f''16 e'' d'' c''] [bes' a' g'] s \stemdown e,8 g' [g' g'] |
215 a,8 a [e' a] d'16 s e' s f' s g' s |
217 s2 [d'16 d' e' e'] [f' f' g' g'] |
219 [f'16 d' bes g] [e' cis' a cis'] \stemup [a'8 d''] [g' e''] |
221 \stemdown [f'16 d' bes g] [e' cis' a cis'] [d8 e] [f g] |
223 [a8 g] [a a,] d4 s8 \stemup bes' |
225 [a'8 g'] f'16 \stemdown [a f a] s2 |
234 s1 s s s s s s s s s s s s s s s s
247 \context Voice = vFour <
250 \stemdown d''16 s s4. a'16 s s4. |
257 g'16 s s4. d'16 s s4. |
266 \paper{barsize=50.0; \translator {\StaffContext \consists
267 Bar_number_engraver;}}