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 % staffOne is right hand, staffTwo left hand
32 \type GrandStaff = staffAll <
33 \type Staff = staffOne <
34 \property Voice.pletvisibility = 0
41 [d''16 e'' f'' g''] [a'' a' cis'' a'] d''4. e''8 |
43 [f''16 d'' g'' e''] [a'' f'' e'' d''] [cis''8 a''] a''4^\prall |
45 [a''16 g'' f'' e''] [d'' c'' bes' a'] [bes'8 bes'] [g' bes'] |
47 [e'8 e'] [e' e'] f f'' f''4^\prall |
49 [f''16 e'' d'' c''] [bes' a' g' f'] [g'8 g'] [e' e'] |
51 [e'8 a] [a a] [d e] [f g] |
53 a16 s b s cis' s d' s e' s f' s g' s a' s |
55 b'16 s cis'' s d'' s e'' s [f'' d'' bes' g'] [e'' cis'' a' cis''] |
57 a''4 g''4^\prallmordent [f''16 d'' bes' g'] [e'' cis'' a' cis''] |
59 [f''16 d'' g'' e''] [a'' f'' e'' d''] [cis'' a' d'' b'] [e'' g' f'
62 [f'16 d' g' e'] [a' f' e' d'] [cis' a d' b] [e' cis' f' d'] |
64 [g'16 e' d' cis'] [f'8 g'^\prallmordent] [a'16 e' f' d'] [e' cis' d'
67 [cis'16 a b aes] cis'4 a,4^\prall^"\\textnatural" r |
69 [a'16 b' cis'' d''] [e'' cis'' f'' d''] e''4. a'8 |
71 [b'16 g' cis'' a'] [d'' b' e'' cis''] [fis'' d'' g'' e''] [a'' c''
74 [bes'16 g' c'' a'] [d'' bes' a' g'] [fis' d' g' e'] [a' c' bes a] |
76 g16 s a s bes s c' s d' s e' s f' s g' s |
78 [a'16 f' d' bes] [g' e' c' e'] c''4 bes'4^\prallmordent |
80 [c''8 f''] [bes' e''] [a'16 f' c'' a'] [f'' c'' a'' f''] |
82 [e''16 g'' c'' e''] [g'8 fis'] g'16 s g8 [g g,] |
84 [d8 d'] d'16 [d'' c'' b'] [c'' a' e'' c''] [a'' e'' c''' a''] |
86 [gis''16 b'' e'' aes''] [b' d'' cis'' b'] [cis''8 a'] [a' a'] |
88 f,8 a' [f' f'16 a'] [bes'8 g''] g''4^\prall |
90 [g''16 f'' e'' d''] [c'' bes' a'] s f,8 f' [f' f'] |
92 d,8 d' [f' d'16 f'] [g'8 e''] e''4^\prall |
94 [e''16 d'' cis'' b'] [a' g' f' e'] [f' d' g' e'] [a' f' bes' g'] |
96 [f'16 d' g' e'] [a' f' bes' g'] f' s g' s a' s bes' s |
98 [a'8 d''] [g' cis''] [f'16 d' bes g] [e' cis' a cis'] |
100 [a'8 d''] [g' e''] [f'16 d' g' e'] [a' f' b' g'] |
102 [cis''16 a' d'' e''] [f'' d'' e'' cis''] [d'' a' bes' g'] [a' f' g'
105 [f'16 d' e' cis'] d'4 d4^\prall r4 |
116 s1 s s s s s s s s s s s
129 d'16 s e' s f' s g' s s2 |
139 s1 s s s s s s s s s s s s s s s s s s
145 \type Staff = staffTwo <
146 \property Voice.pletvisibility = 0
150 \type Voice = vThree <
153 s2 [d'16 e' f' g'] [a' a cis' a] |
155 [d'8 e'] [f' g'] [a' a'] [a' a'] |
157 [a'8 a'] [a' f'] g g'' g''4^\prall |
159 [g''16 f'' e'' d''] [c'' bes' a' g'] [a'8 a'] [f' a'] |
161 [d'8 f'] [d' d'] e e'' e''4^\prall |
163 [e''16 d'' cis'' b'] [a' g' f' e'] [f' d' g' e'] [a' f' e' d'] |
165 [cis'16 a d' b] [e' cis' f' d'] [g' e' a' f'] [b' g' cis'' a'] |
167 [d''16 b' e'' cis''] [f'' d'' g'' e''] a''4 g''4^\prallmordent |
169 [f''16 d'' bes' g'] [e'' cis'' a' cis''] a''4 g''4^\prallmordent |
171 [d'8 e'] [f' g'] [a b] [cis' a] |
173 [d8 e] [f g] a16 s b s cis' s d' s |
175 e16 [g' f' e'] [d'8 bes] a,4 s8 f' |
177 [e'8 d'] [a16 e cis e] s2 |
179 s2 [a16 b cis' d'] [e' cis' f' d'] |
181 g'16 s a' s b' s cis'' s [d'8 e'] [fis' d'] |
183 [g8 a8] [bes c'] [d e] [fis d] |
185 [bes16 g c' a] [d' bes e' c'] [f' d' g' e'] [a' f' bes' g'] |
187 c''4 bes'4^\prallmordent [a'16 f' d' bes] [g' e' c' e'] |
189 [a'16 f' d' bes] [g' e' c' e'] f' s f8 [f f,] |
191 [c8 c'] [c'16 c'' bes' a'] [bes' g' d'' bes'] [g'' d'' bes'' g''] |
193 [f''16 a'' d'' f''] [a'8 gis'] a'16 s a8 [a a,] |
195 [e8 e,] [e, e,] a, a'' a''4^\prall^"\\textflat" |
197 [a''16 g'' f'' e''] [d'' c'' bes'] s g,8 bes' [bes' bes'] |
199 e,8 e' [g' e'16 g'] [a'8 f''] f''4^\prall |
201 [f''16 e'' d'' c''] [bes' a' g'] s e,8 g' [g' g'] |
203 a,8 a [e' a] d'16 s e' s f' s g' s |
205 s2 [d'16 d' e' e'] [f' f' g' g'] |
207 [f'16 d' bes g] [e' cis' a cis'] [a'8 d''] [g' e''] |
209 [f'16 d' bes g] [e' cis' a cis'] [d8 e] [f g] |
211 [a8 g] [a a,] d4 s8 bes' |
213 [a'8 g'] [f'16 a f a] s2 |
222 s1 s s s s s s s s s s s s s s s s
236 \type Voice = vFour <
239 d''16 s s4. a'16 s s4. |
246 g'16 s s4. d'16 s s4. |
247 s1 s s s s s s s s s s s
252 \paper{indent=0.0; \translator {\ScoreContext \consists
253 Bar_number_engraver;}}