mutopia/D.Scarlatti/sonata-k1-l366.ly

   1         %{
   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)
   6
   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.
  12
  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
  16 because of duration.
  17
  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.
  22
  23 Suggestions welcome as always
  24 John
  25
  26 %}
  27
  28 \score {
  29 \header {title ="Domenico Scarlatti - Sonata K.1 L.366";}
  30 % staffOne is right hand, staffTwo left hand
  31 \notes {
  32 \type GrandStaff = staffAll <
  33 \type Staff = staffOne <
  34 \property Voice.pletvisibility = 0
  35 \keysignature bes;
  36 \time 4/4;
  37 \clef treble;
  38 \type Voice = vOne <
  39 {
  40 % 1
  41 [d''16 e'' f'' g''] [a'' a' cis'' a'] d''4. e''8 |
  42 % 2
  43 [f''16 d'' g'' e''] [a'' f'' e'' d''] [cis''8 a''] a''4^\prall |
  44 % 3
  45 [a''16 g'' f'' e''] [d'' c'' bes' a'] [bes'8 bes'] [g' bes'] |
  46 % 4
  47 [e'8 e'] [e' e'] f f'' f''4^\prall |
  48 % 5
  49 [f''16 e'' d'' c''] [bes' a' g' f'] [g'8 g'] [e' e'] |
  50 % 6
  51 [e'8 a] [a a] [d e] [f g] |
  52 % 7
  53 a16 s b s cis' s d' s e' s f' s g' s a' s |
  54 % 8
  55 b'16 s cis'' s d'' s e'' s [f'' d'' bes' g'] [e'' cis'' a' cis''] |
  56 % 9
  57 a''4 g''4^\prallmordent [f''16 d'' bes' g'] [e'' cis'' a' cis''] |
  58 % 10
  59 [f''16 d'' g'' e''] [a'' f'' e'' d''] [cis'' a' d'' b'] [e'' g' f'
  60 e'] |
  61 % 11
  62 [f'16 d' g' e'] [a' f' e' d'] [cis' a d' b] [e' cis' f' d'] |
  63 % 12
  64 [g'16 e' d' cis'] [f'8 g'^\prallmordent] [a'16 e' f' d'] [e' cis' d'
  65 b] |
  66 % 13
  67 [cis'16 a b aes] cis'4 a,4^\prall^"\\textnatural" r |
  68 % 14
  69 [a'16 b' cis'' d''] [e'' cis'' f'' d''] e''4. a'8 |
  70 % 15
  71 [b'16 g' cis'' a'] [d'' b' e'' cis''] [fis'' d'' g'' e''] [a'' c''
  72 bes' a'] |
  73 % 16
  74 [bes'16 g' c'' a'] [d'' bes' a' g'] [fis' d' g' e'] [a' c' bes a] |
  75 % 17
  76 g16 s a s bes s c' s d' s e' s f' s g' s |
  77 % 18
  78 [a'16 f' d' bes] [g' e' c' e'] c''4 bes'4^\prallmordent |
  79 % 19
  80 [c''8 f''] [bes' e''] [a'16 f' c'' a'] [f'' c'' a'' f''] |
  81 % 20
  82 [e''16 g'' c'' e''] [g'8 fis'] g'16 s g8 [g g,] |
  83 % 21
  84 [d8 d'] d'16 [d'' c'' b'] [c'' a' e'' c''] [a'' e'' c''' a''] |
  85 % 22
  86 [gis''16 b'' e'' aes''] [b' d'' cis'' b'] [cis''8 a'] [a' a'] |
  87 % 23
  88 f,8 a' [f' f'16 a'] [bes'8 g''] g''4^\prall |
  89 % 24
  90 [g''16 f'' e'' d''] [c'' bes' a'] s f,8 f' [f' f'] |
  91 % 25
  92 d,8 d' [f' d'16 f'] [g'8 e''] e''4^\prall |
  93 % 26
  94 [e''16 d'' cis'' b'] [a' g' f' e'] [f' d' g' e'] [a' f' bes' g'] |
  95 % 27
  96 [f'16 d' g' e'] [a' f' bes' g'] f' s g' s a' s bes' s |
  97 % 28
  98 [a'8 d''] [g' cis''] [f'16 d' bes g] [e' cis' a cis'] |
  99 % 29
 100 [a'8 d''] [g' e''] [f'16 d' g' e'] [a' f' b' g'] |
 101 % 30
 102 [cis''16 a' d'' e''] [f'' d'' e'' cis''] [d'' a' bes' g'] [a' f' g'
 103 e'] |
 104 % 31
 105 [f'16 d' e' cis'] d'4 d4^\prall r4 |
 106 } {
 107 s1 s
 108 % 3
 109 s2 s8 g' bes' g' |
 110 % 4
 111 g'8 g' g' s s2 |
 112 % 5
 113 s2 s8 e' g' g' |
 114 % 6
 115 a8 e' e' s s2 |
 116 s1 s s s s s s s s s s s
 117 % 19
 118 s8 a'' s g'' s2 |
 119 s1 s s
 120 % 23
 121 s8 f' a' s s2 |
 122 % 24
 123 s2 s8 a' a' a' |
 124 % 25
 125 s8 f' d' s s2 |
 126 % 26
 127 s2 d''4 s |
 128 % 27
 129 d'16 s e' s f' s g' s s2 |
 130 % 28
 131 s8 f'' s e'' s2 |
 132 % 29
 133 s8 f'' s cis''
 134 } >
 135 \type Voice = vTwo <
 136 {s1 s s s s
 137 %6
 138 s2 d'16 s s4. |
 139 s1 s s s s s s s s s s s s s s s s s s
 140 %26
 141 s2 d''4 s |
 142 %27
 143 s2 d''4}
 144 >>
 145 \type Staff = staffTwo <
 146 \property Voice.pletvisibility = 0
 147 \keysignature bes;
 148 \time 4/4;
 149 \clef treble;
 150 \type Voice = vThree <
 151 {
 152 % 1
 153 s2 [d'16 e' f' g'] [a' a cis' a] |
 154 % 2
 155 [d'8 e'] [f' g'] [a' a'] [a' a'] |
 156 % 3
 157 [a'8 a'] [a' f'] g g'' g''4^\prall |
 158 % 4
 159 [g''16 f'' e'' d''] [c'' bes' a' g'] [a'8 a'] [f' a'] |
 160 % 5
 161 [d'8 f'] [d' d'] e e'' e''4^\prall |
 162 % 6
 163 [e''16 d'' cis'' b'] [a' g' f' e'] [f' d' g' e'] [a' f' e' d'] |
 164 % 7
 165 [cis'16 a d' b] [e' cis' f' d'] [g' e' a' f'] [b' g' cis'' a'] |
 166 % 8
 167 [d''16 b' e'' cis''] [f'' d'' g'' e''] a''4 g''4^\prallmordent |
 168 % 9
 169 [f''16 d'' bes' g'] [e'' cis'' a' cis''] a''4 g''4^\prallmordent |
 170 % 10
 171 [d'8 e'] [f' g'] [a b] [cis' a] |
 172 % 11
 173 [d8 e] [f g] a16 s b s cis' s d' s |
 174 % 12
 175 e16 [g' f' e'] [d'8 bes] a,4 s8 f' |
 176 % 13
 177 [e'8 d'] [a16 e cis e] s2 |
 178 % 14
 179 s2 [a16 b cis' d'] [e' cis' f' d'] |
 180 % 15
 181 g'16 s a' s b' s cis'' s [d'8 e'] [fis' d'] |
 182 % 16
 183 [g8 a8] [bes c'] [d e] [fis d] |
 184 % 17
 185 [bes16 g c' a] [d' bes e' c'] [f' d' g' e'] [a' f' bes' g'] |
 186 % 18
 187 c''4 bes'4^\prallmordent [a'16 f' d' bes] [g' e' c' e'] |
 188 % 19
 189 [a'16 f' d' bes] [g' e' c' e'] f' s f8 [f f,] |
 190 % 20
 191 [c8 c'] [c'16 c'' bes' a'] [bes' g' d'' bes'] [g'' d'' bes'' g''] |
 192 % 21
 193 [f''16 a'' d'' f''] [a'8 gis'] a'16 s a8 [a a,] |
 194 % 22
 195 [e8 e,] [e, e,] a, a'' a''4^\prall^"\\textflat" |
 196 % 23
 197 [a''16 g'' f'' e''] [d'' c'' bes'] s g,8 bes' [bes' bes'] |
 198 % 24
 199 e,8 e' [g' e'16 g'] [a'8 f''] f''4^\prall |
 200 % 25
 201 [f''16 e'' d'' c''] [bes' a' g'] s e,8 g' [g' g'] |
 202 % 26
 203 a,8 a [e' a] d'16 s e' s f' s g' s |
 204 % 27
 205 s2 [d'16 d' e' e'] [f' f' g' g'] |
 206 % 28
 207 [f'16 d' bes g] [e' cis' a cis'] [a'8 d''] [g' e''] |
 208 % 29
 209 [f'16 d' bes g] [e' cis' a cis'] [d8 e] [f g] |
 210 % 30
 211 [a8 g] [a a,] d4 s8 bes' |
 212 % 31
 213 [a'8 g'] [f'16 a f a] s2 |
 214 } {
 215 s1 s
 216 % 3
 217 f'8 f' f' s s2 |
 218 % 4
 219 s2 s8 f' a' f' |
 220 % 5
 221 f'8 d' f' s s2 |
 222 s1 s s s s s s s s s s s s s s s s
 223 % 23
 224 s2 s8 g' g' g' |
 225 % 24
 226 s8 g' e' s s2 |
 227 % 25
 228 s2 s8 e' e' e' |
 229 % 26
 230 s8 e' a s s2 |
 231 % 27
 232 d''4 s s2 |
 233 % 28
 234 s2 s8 f'' s cis'' |
 235 } >
 236 \type Voice = vFour <
 237 {s1 s s s s s s s s
 238 %10
 239 d''16 s s4. a'16 s s4. |
 240 %11
 241 d'16 s s4. s2 |
 242 s1 s s
 243 %15
 244 s2 d''16 s s4. |
 245 %16
 246 g'16 s s4. d'16 s s4. |
 247 s1 s s s s s s s s s s s
 248 %29
 249 s2 d'16}
 250 >>
 251 >}
 252 \paper{indent=0.0; \translator {\ScoreContext \consists
 253 Bar_number_engraver;}}
 254 }
 255
 256