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