From: fred Date: Tue, 26 Mar 2002 23:01:37 +0000 (+0000) Subject: lilypond-1.3.2 X-Git-Tag: release/1.5.59~1744 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=57340d8088f9dd43b8c21db8a4cf27985f88be23;p=lilypond.git lilypond-1.3.2 --- diff --git a/lily/bar-req-collect-engraver.cc b/lily/bar-req-collect-engraver.cc deleted file mode 100644 index 2eafaed254..0000000000 --- a/lily/bar-req-collect-engraver.cc +++ /dev/null @@ -1,11 +0,0 @@ -/* - bar-req-collect-engraver.cc -- implement Bar_req_collect_engraver - - source file of the GNU LilyPond music typesetter - - (c) 1999 Han-Wen Nienhuys - - */ - -#include "command-request.hh" - diff --git a/lily/chord-tremolo.cc b/lily/chord-tremolo.cc deleted file mode 100644 index fe743fad40..0000000000 --- a/lily/chord-tremolo.cc +++ /dev/null @@ -1,60 +0,0 @@ -/* - abbreviation-beam.cc -- implement Chord_tremolo - - source file of the GNU LilyPond music typesetter - - (c) 1997--1999 Han-Wen Nienhuys - Jan Nieuwenhuizen -*/ - -#include "paper-column.hh" -#include "array.hh" -#include "proto.hh" -#include "chord-tremolo.hh" -#include "misc.hh" -#include "debug.hh" - -#include "molecule.hh" -#include "leastsquares.hh" -#include "stem.hh" -#include "paper-def.hh" -#include "lookup.hh" -#include "stem-info.hh" - - - - -Chord_tremolo::Chord_tremolo () - : Beam () -{ -} - -Molecule* -Chord_tremolo::do_brew_molecule_p () const -{ - return Beam::do_brew_molecule_p (); -} - -void -Chord_tremolo::do_print () const -{ -#ifndef NPRINT - Beam::do_print (); - Spanner::do_print (); -#endif -} - -/* - beams to go with one stem. - */ -Molecule -Chord_tremolo::stem_beams (Stem *here, Stem *next, Stem *prev) const -{ - /* - todo - - shorter beams (not reaching outer "stems") - for [:16 c4 c4] and [:16 c1 c1] - - centered beam on [:16 c1 c1] heads, rather than "stems" - */ - return Beam::stem_beams (here, next, prev); -} diff --git a/lily/font-size-engraver.cc b/lily/font-size-engraver.cc deleted file mode 100644 index 4f706b34bf..0000000000 --- a/lily/font-size-engraver.cc +++ /dev/null @@ -1,45 +0,0 @@ -/* - font-size-grav.cc -- implement Font_size_engraver - - source file of the GNU LilyPond music typesetter - - (c) 1998--1999 Han-Wen Nienhuys - - */ - -#include "font-size-engraver.hh" -#include "score-element.hh" -#include "lily-guile.hh" - -Font_size_engraver::Font_size_engraver () -{ - size_ = SCM_EOL; -} - -void -Font_size_engraver::do_process_requests () -{ - SCM s (get_property ("fontSize", 0)); - - if (gh_number_p(s)) - { - size_ = gh_scm2int (s); - } - else - { - size_ = SCM_EOL; - } -} - -void -Font_size_engraver::acknowledge_element (Score_element_info e) -{ - if (size_ != SCM_EOL - && e.elem_l_->get_elt_property (fontsize_scm_sym) == SCM_BOOL_F) - { - e.elem_l_->set_elt_property (fontsize_scm_sym, size_); - } -} - -ADD_THIS_TRANSLATOR (Font_size_engraver); - diff --git a/lily/include/ly-symbols.hh b/lily/include/ly-symbols.hh deleted file mode 100644 index 0e3f1cf746..0000000000 --- a/lily/include/ly-symbols.hh +++ /dev/null @@ -1,90 +0,0 @@ -/* - ly-symbols.hh -- declare SCM symbols. - - source file of the GNU LilyPond music typesetter - - (c) 1999 Han-Wen Nienhuys - - */ - -#ifndef LY_SYMBOLS_HH -#define LY_SYMBOLS_HH - -#include "lily-guile.hh" - -#ifndef DECLARE_LY_SYMBOL -#define DECLARE_LY_SYMBOL(a) extern SCM a ## _scm_sym -#endif - -DECLARE_LY_SYMBOL(alt_symbol); -DECLARE_LY_SYMBOL(at_line_start); -DECLARE_LY_SYMBOL(auto_interstaff_knee_gap); -DECLARE_LY_SYMBOL(auto_knee_gap); -DECLARE_LY_SYMBOL(bar_size); -DECLARE_LY_SYMBOL(beam); -DECLARE_LY_SYMBOL(beam_thickness); -DECLARE_LY_SYMBOL(beam_dir); -DECLARE_LY_SYMBOL(beam_gap); -DECLARE_LY_SYMBOL(bracket); -DECLARE_LY_SYMBOL(break_helper_only); -DECLARE_LY_SYMBOL(break_priority); -DECLARE_LY_SYMBOL(breakable); -DECLARE_LY_SYMBOL(char); -DECLARE_LY_SYMBOL(change); -DECLARE_LY_SYMBOL(contains_grace); -DECLARE_LY_SYMBOL(damping); -DECLARE_LY_SYMBOL(dashed); -DECLARE_LY_SYMBOL(dangling); -DECLARE_LY_SYMBOL(extremal); -DECLARE_LY_SYMBOL(extra_space); -DECLARE_LY_SYMBOL(dir_forced); -DECLARE_LY_SYMBOL(dir_list); -DECLARE_LY_SYMBOL(extender_height); -DECLARE_LY_SYMBOL(hyphen_thickness); -DECLARE_LY_SYMBOL(hyphen_height); -DECLARE_LY_SYMBOL(hyphen_minimum_length); -DECLARE_LY_SYMBOL(filledbox); -DECLARE_LY_SYMBOL(fontsize); -DECLARE_LY_SYMBOL(force_hshift); -DECLARE_LY_SYMBOL(grace); -DECLARE_LY_SYMBOL(header); -DECLARE_LY_SYMBOL(horizontal_shift); -DECLARE_LY_SYMBOL(interbeam); -DECLARE_LY_SYMBOL(interbeam4); -DECLARE_LY_SYMBOL(interline); -DECLARE_LY_SYMBOL(length); -DECLARE_LY_SYMBOL(linewidth); -DECLARE_LY_SYMBOL(minimum_space); -DECLARE_LY_SYMBOL(molecule); -DECLARE_LY_SYMBOL(notewidth); -DECLARE_LY_SYMBOL(non_default); -DECLARE_LY_SYMBOL(non_rhythmic); -DECLARE_LY_SYMBOL(no_staff_support); -DECLARE_LY_SYMBOL(no_stem_extend); -DECLARE_LY_SYMBOL(octave_dir); -DECLARE_LY_SYMBOL(origin); -DECLARE_LY_SYMBOL(output); -DECLARE_LY_SYMBOL(padding); -DECLARE_LY_SYMBOL(penalty); -DECLARE_LY_SYMBOL(pianobrace); -DECLARE_LY_SYMBOL(placebox); -DECLARE_LY_SYMBOL(rulesym); -DECLARE_LY_SYMBOL(rulethickness); -DECLARE_LY_SYMBOL(script_priority); -DECLARE_LY_SYMBOL(staffheight); -DECLARE_LY_SYMBOL(stretch_distance); -DECLARE_LY_SYMBOL(style); -DECLARE_LY_SYMBOL(text); -DECLARE_LY_SYMBOL(transparent); -DECLARE_LY_SYMBOL(tuplet); -DECLARE_LY_SYMBOL(tuplet_thick); -DECLARE_LY_SYMBOL(tuplet_visibility); -DECLARE_LY_SYMBOL(visibility_lambda); -DECLARE_LY_SYMBOL(volta); -DECLARE_LY_SYMBOL(void); -DECLARE_LY_SYMBOL(volta_thick); - - - -#endif /* LY_SYMBOLS_HH */ - diff --git a/lily/ly-symbols.cc b/lily/ly-symbols.cc deleted file mode 100644 index 93edfce560..0000000000 --- a/lily/ly-symbols.cc +++ /dev/null @@ -1,32 +0,0 @@ -/* - ly-symbols.cc -- implement scheme symbols - - source file of the GNU LilyPond music typesetter - - (c) 1999 Han-Wen Nienhuys - - */ -#include "lily-guile.hh" - -/* - storage - */ -#undef LY_SYMBOLS_HH -#define extern -#include "ly-symbols.hh" - -#undef DECLARE_LY_SYMBOL -#undef LY_SYMBOLS_HH -#define DECLARE_LY_SYMBOL(a) a ## _scm_sym = ly_symbol (#a); scm_permanent_object(a ## _scm_sym) - -/* - initialisations. - */ -void -init_symbols () -{ -#include "ly-symbols.hh" -} - - -ADD_SCM_INIT_FUNC(lysyms, init_symbols); diff --git a/mutopia/D.Scarlatti/GNUmakefile b/mutopia/D.Scarlatti/GNUmakefile deleted file mode 100644 index cd768eeb70..0000000000 --- a/mutopia/D.Scarlatti/GNUmakefile +++ /dev/null @@ -1,10 +0,0 @@ -# - -depth = ../.. - -examples=sonata-k3-l378 -LOCALSTEPMAKE_TEMPLATES=mutopia - -include $(depth)/make/stepmake.make - - diff --git a/mutopia/D.Scarlatti/progress.ly b/mutopia/D.Scarlatti/progress.ly deleted file mode 100644 index 1518aa6e8d..0000000000 --- a/mutopia/D.Scarlatti/progress.ly +++ /dev/null @@ -1,810 +0,0 @@ - %{ -Here are the first four sonatas with barring, stem directions -etc., laid out so that two note shapes can be used when that is -ready. (Freenet will chop some of the code lines - I've got it -as one Mudela line per bar.) As you will quickly see, K.4 raises -some notation and collision problems. I've used the modern -tied-notes syntax you prefer, instead of the way Scarlatti wrote -it (bar1.jpeg). Scarlatti had a point, didn't he! (150 years -later, Longo agreed - bar1 is from his edition.) - -Harpsichord music is written much closer than organ (or piano) -music because harpsichords rely on the transfer of energy from -one string directly to other harmonically-related strings to -build power and maintain sound. That only happens when the -strings are close to each other on the soundboard. In fact, that -is one of the ways of judging what instrument a keyboard piece -was written for - organ pipes don't talk to each other, organ -sound is always fighting for clarity, and close harmonies sound -thick, so good organ music is much more widely spaced. K.4 is -typical of mainstream harpsichord music. - -I'll work on the musical aspects of the notation - Lily can be -told to do it one way as easily as the other. (I really -appreciate that.) But, would you give some thought to the best -way of dealing with 'multi-voice' collisions? In the long term, -particularly if you go ahead with automating beaming, you will -need a general anti-collision system. But, for the next 6 months -or so, to keep the Scarlatti project going, might it be faster -to provide for setting the stem length of individual notes? Or -some other similar workaround? - -Oh yes - when the middle note of a chord is trilled, Scarlatti -wrote the praller directly in front of the note, whether the -note was on a line or a space. And, he wrote most of the K.3 -fermatae on top of a bar line to indicate that a sound gap was -wanted, not that the prior note be extended in length. - -John - ----------------------------------------------------- -%} - ----------------------------------------------------- - -\score { - \header {title="Domenico Scarlatti - Sonata K.3 L.378"; - description="Presto";} - % vOne is right hand outside part, vTwo r.h. inside part, - % vThree left hand outside, vFour l.h. inside. - \notes { - \context Staff=staffOne < - \property Staff.nolines=11 - \property Voice.pletvisibility=0 - \time 2/2; - \clef alto; - \context Voice=vOne <{ -% 1 -\stemup s1 -% 2 -s4 [e'16 d' c' b] a4 s | -% 3 -s4 a' e' c'' | -% 4 -b'4 a'2 gis'4 | -% 5 -s4 c'' a' e'' | -% 6 -d''4 c''2 b'4 | -% 7 -s4 c'' g' f'' | -% 8 -e''4 d''2 cis''4 | -% 9 -s4 d'' a' g'' | -% 10 -fis''4 e''2 dis''4 | -% 11 -[e''8 d''] c''2 b'4~b' -% 12 -a'2 g'4~g' -% 13 -fis'2 e'4~e' -% 14 -d'2 c'4~c' -% 15 -b2 a4 | -% 16 -s4 c' dis' fis' | -% 17 -a'4 c'' dis'' fis'' | -% 18 -a''4 c'''2 [b''8 a''] | -% 19 -g''4 f'' e'' d''^\fermata | -s1 s -% 22 -\stemdown s4 a, b, cis | -% 23 -d4 e f2 | -% 24 -\stemup f4 aes b d' | -% 25 -f'4 aes' b' d'' | -% 26 -f''4 aes''2 [g''8 f''] | -% 27 -ees''4 d'' c'' d'' | -% 28 -g'4 b' c'' \stemdown f | -% 29 -e4 e'2 \stemup d''4 | -% 30 -e'4 b' c'' \stemdown b, | -% 31 -a,4 a \stemup c'' d'' | -% 32 -a4 b c' d' | -% 33 -e'4 f' g' a' | -% 34 -b'4 [a'8 g'] g''4 c'' | -% 35 -c''4~[c''16 b' c'' d''] d''4.^\prall c''8 | -% 36 -c''4 c''' b'' bes'' -% 37 -a'' aes''2 g''4~g'' -% 38 -f''2 dis''4~dis'' -% 39 -d''2 c''4~c'' -% 40 -b'4 c'' d'' | -% 41 -e'4 f' g' a' | -% 42 -b'4 [a'8 g'] g''4 c'' | -% 43 -c''4~[c''16 b' c'' d''] d''4.^\prall c''8 | -% 44 -c''4 [g''16 f'' e'' d''] c''4 s | -% 45 -s4 [g16 f e d] c4 s | -% 46 -s4 c'' g' a' | -% 47 -e''4 c'' d'' b' | -% 48 -e'2. s4 | -% 49 -s4 [g'16 f' e' d'] c'4 s | -% 50 -s4 c'' g' ees''~ees'' -% 51 -d''2 c''4 | -% 52 -bes'4 s2 [d'16 c' bes a] | -% 53 -g4 s2 g''4 | -% 54 -g''4 d'' f'' e'' | -% 55 -d''4 [a''16 g'' f'' e''] d''4 s | -% 56 -s4 [a16 g f e] d4 s | -% 57 -s4 d'' a' f'' | -% 58 -f'' e''4 bes'2 | -% 59 -cis''4 s2. | -% 60 -\stemdown s4 a' gis' g' | -% 61 -fis'4 f' e'2 | -% 62 -dis'4 d' cis' c' | -% 63 -b4 bes a2 | -% 64 -gis4 g fis f | -% 65 -\stemup s4 e gis b | -% 66 -d'4 f' gis' b' | -% 67 -d''4 f''2 e''8 d'' | -% 68 -c''4 b' a' g'^\fermata | -s1 s -% 71 -\stemdown s4 d e fis | -% 72 -g4 a bes2 | -% 73 -\stemup e'4 g' bes' e'' | -% 74 -bes''2. [a''8 gis''] | -% 75 -a''4 g''2 [f''8 e''] | -% 76 -f''4 e''2 [d''8 cis''] | -% 77 -d''4 c''2 [b'8 a'] | -% 78 -gis'4 gis'' a'' \stemdown d | -% 79 -c4 c'2 \stemup b''4 | -% 80 -c''4 gis'' a'' \stemdown g, | -% 81 -f,4 f2 \stemup b''4 | -% 82 -f'4 gis' a' b' | -% 83 -c''4 d'' e'' f'' | -% 84 -gis'4 [a'8 b'] e'4 d'' | -% 85 -c''4 d'' b'2 | -% 86 -a'4 a'' gis'' g'' | -% 87 -fis''4 f''2 e''4~e'' -% 88 -d''2 c''4~c'' -% 89 -b'2 a'4~a' -% 90 -gis'4 a' d'' | -% 91 -a'2 gis' | -% 92 -a'4 s2 [e'16 d' c' b] | -% 93 -a4 s2 d''4 | -% 94 -c''2 gis' | -% 95 -a'2. s4 | -} { -s1 s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s -s s s s s s s s s s s s s -% 46 -s2. f''4 | -% 47 -g'2 f' | -% 48 -c''2. s4 | -s1 s -% 51 -g'2 fis' | -s1 -% 53 -s2. bes'4 | -% 54 -a'4 f'' d'' cis'' | -% 55 -f''4 s2. | -s1 s -% 58 -bes'2 e''4 d'' | -% 59 -a'4 s2. | -s1 s s s s s s s s s s s s s s s s s s s s s s s s -% 85 -a'2 gis' | -s1 s s s s -% 91 -e'2 b' | -s1 -% 93 -s2. a'4 | -% 94 -a'2 b' -} { -s1 s s s s s s s s s s s s s s s s s s s s s s s s s s s s s -s1 s s s s s s s s s s s s s s s s s s s s s s s s s s s s s -s1 s s s s s s s s s s s s s s s s s s s s s s s s s s s s s -% 91 -c''4 d''4 s2 | -s1 -% 93 -s2. f'4 | -% 94 -e'2 e'2 - }> - \context Voice=vTwo < - { - %- right hand unchorded notes - - }> - \context Voice=vThree <{ -% 1 -\stemdown s2. [e''16 d'' c'' b'] | -% 2 -a'4 s2 [e16 d c b,] | -% 3 -a,4 s2 a4 | -% 4 -e4 c' b2 | -% 5 -a4 s2 c'4 | -% 6 -g4 e' d'2 | -% 7 -c'4 s2 d'4 | -% 8 -a4 f' e'2 | -% 9 -d'4 s2 e'4 | -% 10 -b4 g' fis'2 | -% 11 -e'2 dis'4 d' | -% 12 -cis'4 c' b2 | -% 13 -bes4 a gis g | -% 14 -fis4 f e2 | -% 15 -dis4 d cis c | -% 16 -b,2 s | -s1 -% 18 -s4 b, cis dis | -% 19 -e4 f g2 | -% 20 -\stemup g4 bes cis' e' | -% 21 -g'4 bes' cis'' e'' | -% 22 -g''4 bes''2 [a''8 g''] | -% 23 -f''4 e'' d'' c''^\fermata | -s1 s -% 26 -\stemdown s4 g, a, b, | -% 27 -c4 d dis f | -% 28 -g4 g'2 \stemup d''4 | -% 29 -g'4 b' c'' \stemdown d | -% 30 -c4 c'2 \stemup d''4 | -% 31 -c'4 b'2 \stemdown g,4 | -% 32 -f,4 f e d | -% 33 -c4 d e f | -% 34 -g,4 g e f | -% 35 -g4 f g g, | -% 36 -c2 s -% 37 -s4 c'' b' bes' | -% 38 -a'4 gis' g'2 | -% 39 -fis'4 f' e' dis' | -% 40 -d4 d' c' b | -% 41 -c4 d e f | -% 42 -g,4 g e f | -% 43 -g4 f g g, | -% 44 -c2 s4 [g'16 f' e' d'] | -% 45 -c'4 s2 [g,16 f, e, d,] | -% 46 -c,4 c s f | -% 47 -g2 g, | -% 48 -c2. [g''16 f'' e'' d''] | -% 49 -c''4 s2 [g16 f e d] | -% 50 -c4 s2 c'4 | -% 51 -d'2 d | -% 52 -g4 [d''16 c'' bes' a'] g'4 s2 -% 53 -[d16 c bes, a,] g,4 g | -% 54 -a2 a, | -% 55 -d2 s4 [a'16 g' f' e'] | -% 56 -d'4 s2 [a,16 g, f, e,] | -% 57 -d,4 s2 d'4 | -% 58 -g2 g, | -% 59 -a,4 \stemup a'' gis'' g'' | -% 60 -fis''4 f''2 e''4~e'' -% 61 -d''2 c''4~c'' -% 62 -b'2 a'4~a' -% 63 -g'2 f'4~f' -% 64 -e'2 d'4 | -% 65 -\stemdown e,2^\fermata s | -s1 -% 67 -s4 e fis gis | -% 68 -a4 b c'2 | -% 69 -\stemup fis4 a c' ees' | -% 70 -fis'4 a' c'' ees'' | -% 71 -c'''2. [bes''8 a''] | -% 72 -bes''4 a'' g'' f'' | -s1 -% 74 -\stemdown s4 c d e | -% 75 -f2 e | -% 76 -d2 c | -% 77 -b,2 a, | -% 78 -e4 e'2 \stemup b''4 | -% 79 -e''4 gis'' a'' \stemdown b, | -% 80 -a,4 a2 \stemup b''4 | -% 81 -a'4 gis'' a'' \stemdown e, | -% 82 -d,4 d' c' b | -% 83 -a4 b c' d' | -% 84 -e4 d' c' d' | -% 85 -e'4 d' e' e | -% 86 -a2 s | -% 87 -s4 a' gis' g' | -% 88 -fis'4 f' e'2 | -% 89 -dis'4 d' cis' c' | -% 90 -d'2 c'4 d | -% 91 -e4 d e e, | -% 92 -a,4 [e''16 d'' c'' b'] a'4 s2 -% 93 -[e16 d c b,] a,4 d | -% 94 -e2 e, | -% 95 -a,2. -} { -s1 s s s s s s s s s s s s s s s s s s s s s s s s s s s s s -s1 s s s s s s s s s s s s s s s s s s s s s s s s s s s s s -s1 s s s s s s s s s s s s s s s s s s s s s s s s s s s s -% 90 -b2 a4 - } > - \context Voice=vFour < - { - %- left hand unchorded notes - - } - >>} - \paper{barsize=50.0; \translator {\StaffContext \consists -Bar_number_engraver;}} -} - ----------------------------------------------------- - -\score { - \header {title="Domenico Scarlatti - Sonata K.4 L.390"; - description="Allegro";} - % vOne is right hand outside part, vTwo r.h. inside part, - % vThree left hand outside, vFour l.h. inside. - \notes { - \context Staff=staffOne < - \property Staff.nolines=11 - \keysignature bes; - \time 4/4; - \clef alto; - \context Voice=vOne < -{ -% 1 -\stemup \skip 4..*15/7; g'16 | -% 2 -[g'16 bes' a' c''] [bes' d'' c'' ees''] d''4. g''8 | -% 3 -[fis''8 g''] [a'' c''] [bes' c''] [d'' g'] | -% 4 -[fis'8 g'] [a' c'] [bes c'] [d' g'] | -% 5 -[fis'8 g'] a' \stemdown d [g bes,] [c d] | -% 6 -[g,8 g8.] s16 \stemup ees'8 [f' a'] [bes'16 ees'' d'' c''] | -% 7 -[d''8 ees''] [f'' bes'] \stemdown [f' d'] [ees'16 g' b d'] | -% 8 -[c'16 ees' d' f'] [ees' g' f' aes'] \stemup [b' d'' cis'' e''] -[d''8 e''] | -% 9 -[f''8 g''] [a'' d''] \stemdown [a16 cis' b d'] [cis' e' a cis'] | -% 10 -\stemup [f'8 g'] [a' d'] [cis' d'] [e'16 g' f' e'] | -% 11 -[f'16 a' d''8]~[d''16 e'' c''8]~[c''16 d'' bes' g'] [a' e'' f''8] -| -% 12 -e''8 d''4~[d''16 cis''] [d'' bes' a' g'] [a' bes' cis'' a'] | -% 13 -[bes'16 cis'' d'' e''] [a' g'' f'' e''] [f'' e'' d'' c''] [d'' -e'' f'' g''] | -% 14 -[a''16 cis'' d'' e''] a' \stemdown [f' e' d'] a,4~a,16 \stemup -[d'' cis'' b'] | -% 15 -[a''16 cis'' d'' e''] [a' d'' cis'' b'] cis''4~[cis''16 cis'' d'' -e''] | -% 16 -[a'8 a''8]~[a''16 g'' f'' e''] [f''8 e''16 d''] [cis''8 d''] | -% 17 -cis''4 \stemdown [cis'16 a g f] [e8 a] d \stemup g' | -% 18 -[a'16 cis' d' e'] a \stemdown [f e d] a,4~a,16 \stemup [d' cis' -b] | -% 19 -cis'4~[cis'16 cis' d' e'] [a8 a']~[a'16 g' f' e'] | -% 20 -[f'16 a' d''8]~[d''16 e'' cis''8] d''4 [a'8 g'] | -% 21 -fis'8 d'4 cis'8 [d'8. e'16] [fis'8. g'16]~ -% 22 -[g'16 a'8 fis'16] [bes'8. cis''16] [cis''8 d''] r8. d'16 | -% 23 -[d'16 fis' e' g'] [fis' a' g' bes'] a'4. bes'8 | -% 24 -[c''8 d''] [ees'' fis'] [g' a'] [bes' b'] | -% 25 -[c''8 d''] [ees'' g''] [f'' ees''] [d'' c''] | -% 26 -[g''16 b' c'' d''] g' \stemdown [ees' d' c'] g,4~g,16 \stemup -[c'' b' a'] | -% 27 -[g''16 b' c'' d''] [g' c'' b' a'] b'4~b'16 \stemdown [f' ees' d'] -| -% 28 -g8 \stemup g''8~[g''16 f'' ees'' d''] ees''8 \stemdown f [g aes] -| -% 29 -g,8 \stemup [ees'16 f'] [d'8 ees'] [f' g'] g'16 \stemdown [c' bes -a] | -% 30 -[g16 g'] \stemup cis''8 [d''16 c''' bes'' a''] [bes''8 a''16 g''] -[fis''8 g''] | -% 31 -[a''16 fis'' g'' a''] d'' \stemdown [bes' a' g'] d,4~d,16 \stemup -[g'' fis'' e''] | -% 32 -[fis''16 fis'' g'' a''] d'' \stemdown [bes' a' g'] [d'' a' fis' -a'] s \stemup [fis''16 g'' a''] | -% 33 -d''8 g''8~[g''16 c''' bes'' a''] [bes''8 a''16 g''] [fis''8 g''] -| -% 34 -[a''16 a' bes' c''] \stemdown [fis' d' c' bes] [a8 d] g s | -% 35 -d4~d16 \stemup [g' fis' e'] [d'' fis' g' a'] d' \stemdown [bes a -g] | -% 36 -d,4~d,16 \stemup [g' fis' e'] d'' [fis' g' a'] [d' g'] [fis' e'] -| -% 37 -d''4~d''16 [fis' g' a'] d' \stemdown [bes a g] [d a g fis] | -% 38 -[g8 ees] [d d,] g,4 \stemup [bes'16 g' a' fis'] | -% 39 -bes'8 g'4 fis'8 [g'8. a'16] [bes'8 c''] | -% 40 -[d''8. d''16] [ees''8 fis'' ] [fis'' g''] r8. s16 | -} -{ -s1 s s s s s s s s s s -%12 -cis''8 s s4 s2 | -s1 s s s -% 17 - s4 s2 | -s1 s s s -%22 -s4 s8. a'16 d'4 s4 | -s1 -%24 -s2 s4. d'8 | -%25 -ees'8 f' g' s s2 | -s1 s s -%29 -s4. c'8 s4 ees'16 -} - > - \context Voice=vTwo < - { -s1 s s s s s s s s s -% 11 -\stemdown s4. [c''16 g'] fis'8 s8 [a'8. b'16] | -% 12 -s16 \skip 4..*71/7; -% 16 -[f''16 a' bes'8]~[bes'16 a'8 g'16] | -s1 s s -% 20 -[f'8. f'16] [e'8. g'16]~[g' bes' a' g'] [fis' d' e' cis'] | -% 21 -[d'16 c' bes a] [g bes a g] [fis a g8] [a16 d bes8] | -% 22 -[ces'8 d']~[d'16 g' e' g'] s2 | -s1 s -% 25 -s4. \skip 4..*64/7; -% 29 -c'8 [f'16 d' ees' d'] \skip 4..*12/7; -% 30 -[bes''16 d'' ees''8]~[ees''16 d''8 c''16] | -% 31 -\skip 4..*40/7; -% 33 -[bes''16 d'' ees''8]~[ees''16 d''8 c''16] | -% 34 -\skip 4..*48/7; | -% 37 -fis'4~fis'16 \skip 4..*27/7; | -% 39 -[g'16 f' ees' d'] [c' ees' d' c']~[c' bes c'8]~[c'16 d'8 fis'16]~ -% 40 -[fis'16 a' bes' g']~[g' c'' a'd'] -} > - \context Voice=vThree < -{ -% 1 -\stemdown \skip 4..*23/7; -% 2 -g16 [g bes a c'] [bes d' c' ees'] | -% 3 -[d'16 fis' e' g'] [fis' a' d' fis'] [g bes a c'] [bes d' c' ees'] -| -% 4 -[d16 fis e g] [fis a d fis] [g, bes, a, c] [bes, d c ees] | -% 5 -[d16 fis e g] fis \stemup [c' bes a] [bes d' g'8]~ [g'16 a' -fis'8] | -% 6 -[g'16 ees' d' c'] \stemdown [d' bes a g] [a ees' d' c'] [d'8 a] | -% 7 -[bes16 d' c' ees'] [d' f' ees' g'] \stemup [a' c'' b' d''] [c''8 -d''] | -% 8 -[ees''8 f''] [g'' c''] \stemdown [g' e'] [f'16 a' cis' e'] | -% 9 -[d'16 f' e' g'] [f' a' g' bes'] \stemup [cis''8 d''] [e'' g'] | -% 10 -\stemdown [d16 f e g] [f a g bes] [a, cis b, d] [cis8 a,] | -% 11 -[d8 f] [g a] [d g] [cis d] | -% 12 -a2 d' | -% 13 -[g'8 e'] [f' cis'] d' a'4 g'8 | -% 14 -a,4~a,16 \stemup [d'' cis'' b'] [a'' cis'' d'' e''] a' \stemdown -[f' e' d'] | -% 15 -a,4~a,16 [f' e' d'] [a' e' cis' e'] [a g' f' e'] | -% 16 -[a16 f' e' d'] [a e' d' cis'] [d'8 g] [a bes] | -% 17 -a,16 \stemup [e' f' g'] [e'8 f'] [g' f'16 e'] f' \stemdown [d' -cis' b] | -% 18 -a,4~a,16 \stemup [d' cis' b] [a' cis' d' e'] a \stemdown [f e d] -| -% 19 -[a16 e cis e] [a, g f e] [a, f e d] [a, e d cis] | -% 20 -[d8 g] [a a,] d,2 | -% 21 -d,2 d, | -% 22 -d,2 d,4 \skip 4..*11/7; -% 23 -d16 [d fis e g] [fis a g bes] | -% 24 -[a16 c' bes d'] [c' ees' d' c'] [bes c' a bes] [g a f g] | -% 25 -[ees16 f d ees] [c d bes, c] [aes, bes, g, aes,] [f, aes, g, f,] -| -% 26 -g,4~g,16 \stemup [c'' b' a'] [g'' b' c'' d''] g' \stemdown [ees' -d' c'] | -% 27 -g,4~g,16 [ees' d' c'] [g' d' b d'] g \stemup [b' c'' d''] | -% 28 -[g'16 ees'] \stemdown [d' c'] [g d' c' b] [c' g'] \stemup [d'' -c''] [b'8 c''] | -% 29 -[d''16 d'] \stemdown g8 [b16 g f ees] [d8 g] c \stemup a' | -% 30 -bes'8 \stemdown [fis'16 e'] [fis'8 d'] [g' c'] [d' ees'] | -% 31 -d,4~d,16 \stemup [g'' fis'' e''] [fis'' fis'' g'' a''] d'' -\stemdown [bes' a' g'] | -% 32 -d4~d16 \stemup [g'' fis'' e''] fis''4 \stemdown [d'16 c'' bes' -a'] | -% 33 -[d'16 bes' a' g'] [d' a' g' fis'] [g'8 c'] [d' ees'] | -% 34 -[d8 d'] \stemup [a' bes'] [c'' bes'16 a'] [bes'8 c''] | -% 35 -[d''16 fis' g' a'] d' \stemdown [bes a g] d,4~d,16 \stemup [g' -fis' e'] | -% 36 -[d''16 fis' g' a'] d' \stemdown [bes a g] d,4~d,16 [bes a g] | -% 37 -[d'16 a fis a] [d c' bes a] d8 \stemup d''8. [c''16 bes' a'] | -% 38 -[bes'16 d'' g''8]~[g''16 a''8 fis''16] g''4 s4 | -% 39 -\stemdown g,2 g, | -% 40 -g,2 g,4 -} -{s1 s s s s s s s s s s s s s s s -%17 -s4 s8 d' s2 | -s1 s s s s s s s s s s -% 29 -g'16 s8. s2 s8 fis' | -%30 -g8 s s2. | -s1 s s -%34 -s4. g'8} -{s1 s s s s s s s s s s s s s s s s s s s s s s s s s s s -% 29 -b'16} - > - \context Voice=vFour < - { -\stemdown \skip 4..*74/7; -% 5 -[g'16 bes a8.] c'16~c' -% 6 -\skip 4..*81/7; -% 11 -\stemup [f16 f' e'8] \skip 4..*11/7; -% 12 -\stemdown [e'16 f' d'] [e' f' g'8] s [fis'16 e'] [fis' g' a' -fis'] | -% 13 -s2 s8 a'4 g'8 | -% 14 -\skip 4..*48/7; | -% 17 -s2 [g'16 e' d' cis'] \skip 4..*39/7; -% 20 -\skip 4..*135/7; -% 28 -aes'8 [b16 g'8 f'16] | -% 29 -s16 \skip 4..*13/7; s8 | -% 30 -s8 \skip 4..*68/7; -% 34 -s8 [c''16 g'8 fis'16] [bes'' g' f' ees'] | -% 35 -\skip 4..*50/7; -% 38 -[g''16 c''] [bes'8 a'] s16 [ees'' d'' c''] -} >>} - \paper{barsize=50.0; \translator {\StaffContext \consists -Bar_number_engraver;}} -} - ----------------------------------------------------- - -\version "1.2.0"; diff --git a/mutopia/D.Scarlatti/sonata-k1-l366.ly b/mutopia/D.Scarlatti/sonata-k1-l366.ly deleted file mode 100644 index 6367433674..0000000000 --- a/mutopia/D.Scarlatti/sonata-k1-l366.ly +++ /dev/null @@ -1,269 +0,0 @@ - %{ -From: bf250@freenet.carleton.ca (John Sankey) -To: hanwen@cs.uu.nl, jantien@xs4all.nl -Subject: the first Sonata -Date: Sat, 16 Jan 1999 20:50:07 -0500 (EST) - -To give you an idea of what is involved in the Scarlatti project, -here is the Mudela for the first sonata of the 550, organized so I -can proofread the ps output against the original manuscripts. Lily -mutters about clashing note columns and spans, but puts everything -except note stems where they should be. - -I've set it on a double staff to separate the parts enough so they -are readable without setting all the note stem directions manually. -Voices 1 & 3 are the chords, 2 & 4 the notes that can't be chorded -because of duration. - -I have a program that does most of the enharmonic corrections to -mi2mu output properly. I'm mulling over how to insert beam brackets -(so I can correct the few it gets wrong) and set stem directions -(ditto) mostly automatically too, but that's not as easy. - -Suggestions welcome as always -John - -%} - -\score { -\header {title ="Domenico Scarlatti - Sonata K.1 L.366"; - description="Allegro";} -% vOne is right hand outside part, vTwo r.h. inside part, -% vThree left hand outside, vFour l.h. inside. -\notes { -\context Staff = staffOne < -\property Staff.nolines=11 -\keysignature bes; -\time 4/4; -\clef alto; -\context Voice = vOne < -{ -% 1 -\stemup [d''16 e'' f'' g''] [a'' a' cis'' a'] d''4. e''8 | -% 2 -[f''16 d'' g'' e''] [a'' f'' e'' d''] [cis''8 a''] a''4^\prall~ -% 3 -[a''16 g'' f'' e''] [d'' c'' bes' a'] bes'8 \stemdown bes' [g' -bes'] | -% 4 -[e'8 e'] [e' e'] f \stemup f'' f''4^\prall~ -% 5 -[f''16 e'' d'' c''] [bes' a' g' f'] g'8 \stemdown g' [e' e'] | -% 6 -[e'8 a] [a a] [d e] [f g] | -% 7 -a16 s b s cis' s d' s e' s f' s g' s a' s | -% 8 -b'16 s cis'' s d'' s e'' s [f'' d'' bes' g'] [e'' cis'' a' cis''] -| -% 9 -\stemup a''4 g''4^\prallmordent \stemdown [f''16 d'' bes' g'] -[e'' cis'' a' cis''] | -% 10 -\stemup [f''16 d'' g'' e''] [a'' f'' e'' d''] [cis'' a' d'' b'] -[e'' g' f' e'] | -% 11 -[f'16 d' g' e'] [a' f' e' d'] [cis' a d' b] [e' cis' f' d'] | -% 12 -g'16 \stemdown [ e' d' cis'] \stemup f'8 [g'16^\prall f'32 g'] -[a'16 e' f' d'] \stemdown [e' cis' d' b] | -% 13 -[cis'16 a b aes] \stemup cis'4 a,4^\prall^"\\textnatural" -r^\fermata | \break -% 14 -[a'16 b' cis'' d''] [e'' cis'' f'' d''] e''4. a'8 | -% 15 -[b'16 g' cis'' a'] [d'' b' e'' cis''] [fis'' d'' g'' e''] [a'' -c'' bes' a'] | -% 16 -[bes'16 g' c'' a'] [d'' bes' a' g'] [fis' d' g' e'] [a' c' bes a] -| -% 17 -\stemdown g16 s a s bes s c' s d' s e' s f' s g' s | -% 18 -[a'16 f' d' bes] [g' e' c' e'] \stemup c''4 bes'4^\prall | -% 19 -[c''8 f''] [bes' e''] [a'16 f' c'' a'] [f'' c'' a'' f''] | -% 20 -[e''16 g'' c'' e''] g'8 \stemdown fis' g'16 s g8 [g g,] | -% 21 -[d8 d'] d'16 \stemup [d'' c'' b'] [c'' a' e'' c''] [a'' e'' c''' -a''] | -% 22 -[gis''16 b'' e'' aes''] [b' d'' cis'' b'] \stemdown [cis''8 a'] -[a' a'] | -% 23 -f,8 a' [f' f'16 a'] \stemup [bes'8 g''] g''4^\prall~ | -% 24 -[g''16 f'' e'' d''] [c'' bes' a'] s \stemdown f,8 f' [f' f'] | -% 25 -d,8 d' [f' d'16 f'] \stemup [g'8 e''] e''4^\prall~ | -% 26 -[e''16 d'' cis'' b'] [a' g' f' e'] [f' d' g' e'] [a' f' bes' g'] -| -% 27 -\stemdown [f'16 d' g' e'] [a' f' bes' g'] \stemup f' s g' s a' s -bes' s | -% 28 -[a'8 d''] [g' cis''] \stemdown [f'16 d' bes g] [e' cis' a cis'] | -% 29 -\stemup [a'8 d''] [g' e''] [f'16 d' g' e'] [a' f' b' g'] | -% 30 -[cis''16 a' d'' e''] [f'' d'' e'' cis''] [d'' a' bes' g'] -\stemdown [a' f' g' e'] | -% 31 -[f'16 d' e' cis'] d'4 \stemup d4^\prall r4^\fermata | -} { -s1 s -% 3 -s2 s8 g' bes' g' | -% 4 -g'8 g' g' s s2 | -% 5 -s2 s8 e' g' g' | -% 6 -a8 e' e' s s2 | -s1 s s s s s s s s s s s -% 19 -s8 a'' s g'' s2 | -s1 s s -% 23 -s8 f' a' s s2 | -% 24 -s2 s8 a' a' a' | -% 25 -s8 f' d' s s2 | -% 26 -\stemup s2 d''4 s | -% 27 -\stemdown d'16 s e' s f' s g' s s2 | -% 28 -s8 f'' s e'' s2 | -% 29 -s8 f'' s cis'' -} > -\context Voice = vTwo < -{s1 s s s s -%6 -\stemdown s2 d'16 s s4. | -s1 s s s s s s s s s s s s s s s s s s -%26 -\stemup s2 d''4 s | -%27 -s2 d''4 s2 -s1 -%29 -s2 d''8} -> -\context Voice = vThree < -{ -% 1 -\stemdown s2 [d'16 e' f' g'] [a' a cis' a] | -% 2 -[d'8 e'] [f' g'] [a' a'] [a' a'] | -% 3 -[a'8 a'] [a' f'] g \stemup g'' g''4^\prall~ -% 4 -[g''16 f'' e'' d''] [c'' bes' a' g'] a'8 \stemdown a' [f' a'] | -% 5 -[d'8 f'] [d' d'] e \stemup e'' e''4^\prall~ -% 6 -[e''16 d'' cis'' b'] [a' g' f' e'] [f' d' g' e'] [a' f' e' d'] | -% 7 -[cis'16 a d' b] [e' cis' f' d'] [g' e' a' f'] [b' g' cis'' a'] | -% 8 -[d''16 b' e'' cis''] [f'' d'' g'' e''] a''4 g''4^\prallmordent | -% 9 -\stemdown [f''16 d'' bes' g'] [e'' cis'' a' cis''] \stemup a''4 -g''4^\prallmordent | -% 10 -\stemdown [d'8 e'] [f' g'] [a b] [cis' a] | -% 11 -[d8 e] [f g] a16 s b s cis' s d' s | -% 12 -e16 \stemup [g' f' e'] \stemdown [d'8 bes] a,4 s8 \stemup f' | -% 13 -[e'8 d'] \stemdown [a16 e cis e] s2 | -% 14 -s2 [a16 b cis' d'] [e' cis' f' d'] | -% 15 -g'16 s a' s b' s cis'' s [d'8 e'] [fis' d'] | -% 16 -[g8 a8] [bes c'] [d e] [fis d] | -% 17 -\stemup [bes16 g c' a] [d' bes e' c'] [f' d' g' e'] [a' f' bes' -g'] | -% 18 -c''4 bes'4^\prall \stemdown [a'16 f' d' bes] [g' e' c' e'] | -% 19 -[a'16 f' d' bes] [g' e' c' e'] f' s f8 [f f,] | -% 20 -[c8 c'] c'16 \stemup [c'' bes' a'] [bes' g' d'' bes'] [g'' d'' -bes'' g''] | -% 21 -[f''16 a'' d'' f''] a'8 \stemdown gis' a'16 s a8 [a a,] | -% 22 -[e8 e,] [e, e,] a, \stemup a'' a''4^\prall^"\\textflat"~ | -% 23 -[a''16 g'' f'' e''] [d'' c'' bes'] s \stemdown g,8 bes' [bes' -bes'] | -% 24 -e,8 e' [g' e'16 g'] \stemup [a'8 f''] f''4^\prall~ | -% 25 -[f''16 e'' d'' c''] [bes' a' g'] s \stemdown e,8 g' [g' g'] | -% 26 -a,8 a [e' a] d'16 s e' s f' s g' s | -% 27 -s2 [d'16 d' e' e'] [f' f' g' g'] | -% 28 -[f'16 d' bes g] [e' cis' a cis'] \stemup [a'8 d''] [g' e''] | -% 29 -\stemdown [f'16 d' bes g] [e' cis' a cis'] [d8 e] [f g] | -% 30 -[a8 g] [a a,] d4 s8 \stemup bes' | -% 31 -[a'8 g'] f'16 \stemdown [a f a] s2 | -} { -s1 s -% 3 -f'8 f' f' s s2 | -% 4 -s2 s8 f' a' f' | -% 5 -f'8 d' f' s s2 | -s1 s s s s s s s s s s s s s s s s -% 23 -s2 s8 g' g' g' | -ii% 24 -s8 g' e' s s2 | -% 25 -s2 s8 e' e' e' | -% 26 -s8 e' a s s2 | -s1 -% 28 -s2 s8 f'' s cis'' | -} > -\context Voice = vFour < -{s1 s s s s s s s s -%10 -\stemdown d''16 s s4. a'16 s s4. | -%11 -d'16 s s4. s2 | -s1 s s -%15 -s2 d''16 s s4. | -%16 -g'16 s s4. d'16 s s4. | -s1 s s s s s s s s s -%27 -\stemup d''4 s2. | -s1 -%29 -\stemdown s2 d'16} -> ->} -\paper{barsize=50.0; \translator {\StaffContext \consists -Bar_number_engraver;}} -} -\version "1.2.0"; diff --git a/mutopia/D.Scarlatti/sonata-k2-l388.ly b/mutopia/D.Scarlatti/sonata-k2-l388.ly deleted file mode 100644 index bb1746226b..0000000000 --- a/mutopia/D.Scarlatti/sonata-k2-l388.ly +++ /dev/null @@ -1,339 +0,0 @@ - - -\score { - \header {title="Domenico Scarlatti - Sonata K.2 L.388"; - description="Presto";} - % vOne is right hand outside part, vTwo r.h. inside part, - % vThree left hand outside, vFour l.h. inside. - \notes { - \context Staff=staffOne < - \property Staff.nolines=11 - \property Voice.pletvisibility=0 - \keysignature fis; - \time 3/8; - \clef alto; - \context Voice=vOne <{ -%1 -\stemup [g''8 g' g'] | -% 2 -g'4.^\prall | -% 3 -[g'16 d' b' g' d'' b'] | -% 4 -g''4. | -% 5 -[b'8 c'' d''] | -% 6 -c''4 b'8 | -% 7 -[c''16 a'' b' g'' a' fis''] | -% 8 -[b'16 g'' a' fis'' g''8] | -% 9 -\stemdown [g'8 a' b'] | -% 10 -[a'8 fis' g'] | -% 11 -[c'8 d' d] | -% 12 -[g8 d g,] | -% 13 -[b'16 d'' a' d'' g' cis''] | -% 14 -[fis'16 d'' e'' cis'' d'' a'] | -% 15 -\stemup [g''8 fis'' e''] | -% 16 -a''8 s4 | -% 17 -[d''16 a' cis'' a' b' gis'] | -% 18 -[e''16 a' b' gis' a' e'] | -% 19 -\stemdown [fis'8 e' d'] | -% 20 -cis'8 s4 | -% 21 -\stemup [d''16 g' a'' fis' cis'' e'] | -% 22 -[d''16 a' fis'] s8. | -% 23 -\stemdown [b8 a g] | -% 24 -fis8 s16 \stemup [d' fis' a'] | -% 25 -[d''16 g' a'' f' cis'' e'] | -% 26 -[d''16 a' f'] s8. | -% 27 -\stemdown [bes8 a g] | -% 28 -f8 s16 \stemup [d' f' a'] | -% 29 -[d''16 g' cis'' fis' b' e'] | -% 30 -[a'16 d' g' cis' fis' d'] | -% 31 -[g'16 e' fis' d' e' cis'] | -% 32 -[d'8 cis' b] | -% 33 -[a8 g' fis'] | -% 34 -[e'8 d'8. cis'16] | -% 35 -[d'16 a fis' d' a' fis'] | -% 36 -[d''16 a' fis'' d'' a'' a'] | -% 37 -d''4. | \break -% 38 -[d''8 d' d'] | -% 39 -d'4.^\prall | -% 40 -[d'16 a fis' d' a' fis'] | -% 41 -d''4.^\prall | -% 42 -[fis'8 g' a'] | -% 43 -g'4^\prall fis'8 | -% 44 -[g'16 e'' fis' d'' e' cis''] | -% 45 -[fis'16 d'' e' cis'' d''8] | -% 46 -\stemdown [d'8 e' fis'] | -% 47 -[e'8 cis' d'] | -% 48 -[g8 a a,] | -% 49 -[d8 a, d,] | -% 50 -\stemup [d''16 a' c'' a' b' gis'] | -% 51 -[e''16 a' b' gis' a' e'] | -% 52 -\stemdown [f'8 e' d'] | -% 53 -c'8 s4 | -% 54 -[e'8 d' c'] | -% 55 -b8 s4 | -% 56 -\stemup [c''16 g' b' g' a' fis'] | -% 57 -[d''16 g' a' fis' g' d'] | -% 58 -\stemdown [e'16 c'' d' b' c' a'] | -% 59 -[b16 g' a fis' g g'] | -% 60 -[c'8 d' e'] | -% 61 -d'8 s4 | -% 62 -[e8 d c] | -% 63 -b,8 s \stemup [b16 d'] | -% 64 -[g'16 c' d'' b fis' a] | -% 65 -[g'16 d' b g] s8 | -% 66 -\stemdown [ees8 d c] | -% 67 -bes,8 s \stemup [ais16 d'] | -% 68 -[g'16 c' d'' bes fis' a] | -% 69 -[g'16 d' ais g] s8 | -% 70 -[g''16 c'' fis'' b' e'' a'] | -% 71 -[d''16 g' c'' fis' b' g'] | -% 72 -[c''16 a' b' g' a' fis'] | -% 73 -[g'8 fis' e'] | -% 74 -[d'8 c' b] | -% 75 -[a16 c' b g' a fis'] | -% 76 -[g'16 d' b g b d'] | -% 77 -[g'16 d' b' g' d'' d'] | -% 78 -g'4. |} -{s1 s s s s -%6 -d4 - }> - \context Voice=vThree <{ -% 1 -\stemdown s4. | -% 2 -[g8 g, g,] | -% 3 -g,4. | -% 4 -[g16 d b g d' b] | -% 5 -[g'8 a' b'] | -% 6 -[a'8 fis' g'] | -% 7 -[c'8 d' fis'] | -% 8 -[g'8 d' g] | -% 9 -\stemup [b'8 c'' d''] | -% 10 -c''4^\prall b'8 | -% 11 -[c''16 a'' b' g'' a' fis''] | -% 12 -[b'16 g'' a' fis'' g''8] | -% 13 -[g''8 fis'' e''] | -% 14 -a''8 s4 | -% 15 -\stemdown [b'16 d'' a' d'' g' cis''] | -% 16 -[fis'16 d'' e'' cis'' d'' a'] | -% 17 -[fis'8 e' d'] | -% 18 -cis'8 s4 | -% 19 -\stemup [d''16 a' cis'' a' b' gis'] | -% 20 -[e''16 a' b' gis' a' e'] | -% 21 -\stemdown [b8 a g] | -% 22 -fis8 s16 \stemup [d' fis' a'] | -% 23 -[d''16 g' a'' fis' cis'' e'] | -% 24 -[d''16 a' fis'] s8. | -% 25 -\stemdown [bes8 a g] | -% 26 -f8 s16 \stemup [d' f' a'] | -% 27 -[d''16 g' a'' f' cis'' e'] | -% 28 -[d''16 a' f'] s8. | -% 29 -\stemdown [b8 a g] | -% 30 -[fis8 e d] | -% 31 -[g8 a a,] | -% 32 -[b,16 g a, fis g, e] | -% 33 -[fis,16 d e, cis d, d] | -% 34 -[g,16 e a, fis e8] | -% 35 -d,4. | -% 36 -d,4. | -% 37 -d,4. | -% 38 -s4. | -% 39 -[d8 d, d,] | -% 40 -d,4. | -% 41 -[d16 a, fis d a fis] | -% 42 -[d'8 e' fis'] | -% 43 -[e'8 cis' d'] | -% 44 -[g8 a cis'] | -% 45 -[d'8 a d] | -% 46 -\stemup [fis'8 g' a'] | -% 47 -g'4^\prall fis'8 | -% 48 -[g'16 e'' fis' d'' e' cis''] | -% 49 -[fis'16 d'' e' cis'' d''8] | -% 50 -\stemdown [f'8 e' d'] | -% 51 -c'8 s4 | -% 52 -\stemup [d''16 a' c'' a' b' gis'] | -% 53 -[e''16 a' b' gis' a' e'] | -% 54 -[c''16 g' b' g' a' fis'] | -% 55 -[d''16 g' a' fis' g' d'] | -% 56 -\stemdown [e'8 d' c'] | -% 57 -b8 s4 | -% 58 -\stemup [g''8 fis'' e''] | -% 59 -[d''8 c'' b'] | -% 60 -[a'16 b' c'' b' a' g'] | -% 61 -[a'16 fis' g' e' fis' d'] | -% 62 -[g'16 c' d'' b fis' a] | -% 63 -[g'16 d' b g] s8 | -% 64 -\stemdown [e8 d c] | -% 65 -b,8 s \stemup [b16 d'] | -% 66 -[g'16 c' d'' bes fis' a] | -% 67 -[g'16 d' bes g] s8 | -% 68 -\stemdown [ees8 d c] | -% 69 -bes,8 s [bes16 d'] | -% 70 -[e'8 d' c'] | -% 71 -[b8 a g] | -% 72 -[c'8 d' d] | -% 73 -[e16 c' d b c a] | -% 74 -[b,16 g a, fis g, g] | -% 75 -[c8 d d,] | -% 76 -g,4. | -% 77 -g,4. | -% 78 -g,4. | - } > - >} - \paper{barsize=50.0; \translator {\StaffContext \consists -Bar_number_engraver;}} -} - -\version "1.2.0"; diff --git a/mutopia/D.Scarlatti/sonata-k3-l378.ly b/mutopia/D.Scarlatti/sonata-k3-l378.ly deleted file mode 100644 index 9fc49eadb6..0000000000 --- a/mutopia/D.Scarlatti/sonata-k3-l378.ly +++ /dev/null @@ -1,254 +0,0 @@ - \header { - composer = "Domenico Scarlatti"; - title="Sonata K.3"; - opus="L.378"; - movement="Presto"; - copyright = "General Public License"; -} - -tolower = \translator Staff = lower -toupper = \translator Staff = upper - -RHtoL = { \tolower \stemdown } -RHtoR = { \toupper \stemup } -LHtoR = { \toupper \stemup } -LHtoL = { \tolower \stemdown } - -\score { - \notes - \context PianoStaff < - \context Staff = upper <\context Voice = mainV <{ - % 1 - \stemup s1 - s4 [e'16 d' c' b] a4 s | - s4 a' e' c'' | - b'4 a'2 gis'4 | - s4 c'' a' e'' | - % 5 - d''4 c''2 b'4 | - s4 c'' g' f'' | - e''4 d''2 cis''4 | - s4 d'' a' g'' | - fis''4 e''2 dis''4 | - % 10 - [e''8 d''] c''2 b'4~b' - a'2 g'4~g' - fis'2 e'4~e' - d'2 c'4~c' - b2 a4 | - % 15 - s4 c' dis' fis' | - a'4 c'' dis'' fis'' | - a''4 c'''2 [b''8 a''] | - g''4 f'' e'' d''^\fermata | - s1 - % 20 - s - s4 \RHtoL a, b, cis | - d4 e f2 | - \RHtoR f4 aes b d' | - f'4 aes' b' d'' | - % 25 - f''4 aes''2 [g''8 f''] | - ees''4 d'' c'' d'' | - g'4 b' c'' \RHtoL f | - e4 e'2 \RHtoR d''4 | - e'4 b' c'' \RHtoL b, | - % 30 - a,4 a \RHtoR c'' d'' | - a4 b c' d' | - e'4 f' g' a' | - b'4 [a'8 g'] g''4 c'' | - c''4~[c''16 b' c'' d''] d''4.^\prall c''8 | - % 35 - c''4 c''' b'' bes'' - a'' aes''2 g''4~g'' - f''2 dis''4~dis'' - d''2 c''4~c'' - b'4 c'' d'' | - % 40 - e'4 f' g' a' | - b'4 [a'8 g'] g''4 c'' | - c''4~[c''16 b' c'' d''] d''4.^\prall c''8 | - c''4 [g''16 f'' e'' d''] c''4 s | - s4 [g16 f e d] c4 s | - s4 c'' g' - < - { f''4 e'' c'' d'' b' c''2. } - \context Voice = anotherV { a'4 g'2 f'2 e'2. } - > s4 | - - - s4 [g'16 f' e' d'] c'4 s | - s4 c'' g' ees'' ~ - < { ees'' d''2 c''4 } - \context Voice = anotherV { \stemdown g'2 fis'2 } - > - | - bes'4 s2 [d'16 c' bes a] | - g4 s2 | - | - d''4 [a''16 g'' f'' e''] d''4 s | - s4 [a16 g f e] d4 s | - s4 d'' a' f'' | - < - { f''4 e'' e'' d'' } - \context Voice = anotherV { \stemdown bes'2 bes'2 } - > | - < a'4 cis''> s2. | - \RHtoL s4 a' gis' g' | - fis'4 f' e'2 | - dis'4 d' cis' c' | - b4 bes a2 | - gis4 g fis f | - \RHtoR s4 e gis b | - d'4 f' gis' b' | - d''4 f''2 e''8 d'' | - c''4 b' a' g'^\fermata | - s1 s - \RHtoL s4 d e fis | - g4 a bes2 | - \RHtoR e'4 g' bes' e'' | - bes''2. [a''8 gis''] | - a''4 g''2 [f''8 e''] | - f''4 e''2 [d''8 cis''] | - d''4 c''2 [b'8 a'] | - gis'4 gis'' a'' \RHtoL d | - c4 c'2 \RHtoR b''4 | - c''4 gis'' a'' \RHtoL g, | - f,4 f2 \RHtoR b''4 | - f'4 gis' a' b' | - c''4 d'' e'' f'' | - gis'4 [a'8 b'] e'4 d'' | - < \context Voice = mainV { c''4 d'' s2 } - \context Voice = anotherV { \stemdown a'2 } - > - a'4 a'' gis'' g'' | - fis''4 f''2 e''4~e'' - d''2 c''4~c'' - b'2 a'4~a' - gis'4 a' d'' | - < \context Voice = mainV { c''4 d'' s2 } - \context Voice = anotherV { \stemdown } | - > - a'4 s2 [e'16 d' c' b] | - a4 s2 | %% added some chording. - | - a'2. | - }>> - - - \context Staff = lower <{ - - \stemdown s2. [e''16 d'' c'' b'] | - - a'4 - s2 - \clef bass; % HWN - [e16 d c b,] | - a,4 s2 a4 | - e4 c' b2 | - a4 s2 c'4 | - g4 e' d'2 | - c'4 s2 d'4 | - a4 f' e'2 | - d'4 s2 e'4 | - b4 g' fis'2 | - e'2 dis'4 d' | - cis'4 c' b2 | - bes4 a gis g | - fis4 f e2 | - dis4 d cis c | - b,2 s | - s1 - s4 b, cis dis | - e4 f g2 | - \LHtoR g4 bes cis' e' | - g'4 bes' cis'' e'' | - g''4 bes''2 [a''8 g''] | - f''4 e'' d'' c''^\fermata | - s1 s - \LHtoL s4 g, a, b, | - c4 d dis f | - g4 g'2 \LHtoR d''4 | - g'4 b' c'' \LHtoL d | - c4 c'2 \LHtoR d''4 | - c'4 b'2 \LHtoL g,4 | - f,4 f e d | - c4 d e f | - g,4 g e f | - g4 f g g, | - c2 s - \LHtoR %% added. HWN - s4 c'' b' bes' | - a'4 gis' g'2 | - fis'4 f' e' dis' - \LHtoL - | - d4 d' c' b | - c4 d e f | - g,4 g e f | - g4 f g g, | - c2 s4 [g'16 f' e' d'] | - c'4 s2 [g,16 f, e, d,] | - c,4 c s f | - g2 g, | - c2. \LHtoR [g''16 f'' e'' d''] | - - c''4 \LHtoL - s2 [g16 f e d] | - c4 s2 c'4 | - d'2 d | - g4 - \LHtoR - [d''16 c'' bes' a'] g'4 \LHtoL s2 - [d16 c bes, a,] g,4 g | - a2 a, | - d2 s4 \LHtoR [a'16 g' f' e'] | - d'4 \LHtoL s2 [a,16 g, f, e,] | - d,4 s2 d'4 | - g2 g, | - a,4 \LHtoR a'' gis'' g'' | - fis''4 f''2 e''4~e'' - d''2 c''4~c'' - b'2 a'4~a' - g'2 f'4~f' - e'2 d'4 | - \LHtoL e,2^\fermata s | - s1 - s4 e fis gis | - a4 b c'2 | - \LHtoR fis4 a c' ees' | - fis'4 a' c'' ees'' | - c'''2. [bes''8 a''] | - bes''4 a'' g'' f'' | - s1 - \LHtoL s4 c d e | - f2 e | - d2 c | - b,2 a, | - e4 e'2 \LHtoR b''4 | - e''4 gis'' a'' \LHtoL b, | - a,4 a2 \LHtoR b''4 | - a'4 gis'' a'' \LHtoL e, | - d,4 d' c' b | - a4 b c' d' | - e4 d' c' d' | - e'4 d' e' e | - a2 s | - s4 a' gis' g' | - fis'4 f' e'2 | - dis'4 d' cis' c' | - d | - e4 d e e, | - a,4 \LHtoR [e''16 d'' c'' b'] a'4 \LHtoL s2 - [e16 d c b,] a,4 d | - e2 e, | - a,2. - } - > > - - - -} -\version "1.2.0"; diff --git a/mutopia/D.Scarlatti/sonata-k4-l390.ly b/mutopia/D.Scarlatti/sonata-k4-l390.ly deleted file mode 100644 index bcfed53d80..0000000000 --- a/mutopia/D.Scarlatti/sonata-k4-l390.ly +++ /dev/null @@ -1,314 +0,0 @@ - -\score { - \header {title="Domenico Scarlatti - Sonata K.4 L.390"; - description="Allegro";} - % vOne is right hand outside part, vTwo r.h. inside part, - % vThree left hand outside, vFour l.h. inside. - \notes { - \context Staff=staffOne < - \property Staff.nolines=11 - \keysignature bes; - \time 4/4; - \clef alto; - \context Voice=vOne < -{ -% 1 -\stemup \skip 4..*15/7; g'16 | -% 2 -[g'16 bes' a' c''] [bes' d'' c'' ees''] d''4. g''8 | -% 3 -[fis''8 g''] [a'' c''] [bes' c''] [d'' g'] | -% 4 -[fis'8 g'] [a' c'] [bes c'] [d' g'] | -% 5 -[fis'8 g'] a' \stemdown d [g bes,] [c d] | -% 6 -[g,8 g8.] s16 \stemup ees'8 [f' a'] [bes'16 ees'' d'' c''] | -% 7 -[d''8 ees''] [f'' bes'] \stemdown [f' d'] [ees'16 g' b d'] | -% 8 -[c'16 ees' d' f'] [ees' g' f' aes'] \stemup [b' d'' cis'' e''] -[d''8 e''] | -% 9 -[f''8 g''] [a'' d''] \stemdown [a16 cis' b d'] [cis' e' a cis'] | -% 10 -\stemup [f'8 g'] [a' d'] [cis' d'] [e'16 g' f' e'] | -% 11 -[f'16 a' d''8]~[d''16 e'' c''8]~[c''16 d'' bes' g'] [a' e'' f''8] -| -% 12 -e''8 d''4~[d''16 cis''] [d'' bes' a' g'] [a' bes' cis'' a'] | -% 13 -[bes'16 cis'' d'' e''] [a' g'' f'' e''] [f'' e'' d'' c''] [d'' -e'' f'' g''] | -% 14 -[a''16 cis'' d'' e''] a' \stemdown [f' e' d'] a,4~a,16 \stemup -[d'' cis'' b'] | -% 15 -[a''16 cis'' d'' e''] [a' d'' cis'' b'] cis''4~[cis''16 cis'' d'' -e''] | -% 16 -[a'8 a''8]~[a''16 g'' f'' e''] [f''8 e''16 d''] [cis''8 d''] | -% 17 -cis''4 \stemdown [cis'16 a g f] [e8 a] d \stemup g' | -% 18 -[a'16 cis' d' e'] a \stemdown [f e d] a,4~a,16 \stemup [d' cis' -b] | -% 19 -cis'4~[cis'16 cis' d' e'] [a8 a']~[a'16 g' f' e'] | -% 20 -[f'16 a' d''8]~[d''16 e'' cis''8] d''4 [a'8 g'] | -% 21 -fis'8 d'4 cis'8 [d'8. e'16] [fis'8. g'16]~ -% 22 -[g'16 a'8 fis'16] [bes'8. cis''16] [cis''8 d''] r8. d'16 | -% 23 -[d'16 fis' e' g'] [fis' a' g' bes'] a'4. bes'8 | -% 24 -[c''8 d''] [ees'' fis'] [g' a'] [bes' b'] | -% 25 -[c''8 d''] [ees'' g''] [f'' ees''] [d'' c''] | -% 26 -[g''16 b' c'' d''] g' \stemdown [ees' d' c'] g,4~g,16 \stemup -[c'' b' a'] | -% 27 -[g''16 b' c'' d''] [g' c'' b' a'] b'4~b'16 \stemdown [f' ees' d'] -| -% 28 -g8 \stemup g''8~[g''16 f'' ees'' d''] ees''8 \stemdown f [g aes] -| -% 29 -g,8 \stemup [ees'16 f'] [d'8 ees'] [f' g'] g'16 \stemdown [c' bes -a] | -% 30 -[g16 g'] \stemup cis''8 [d''16 c''' bes'' a''] [bes''8 a''16 g''] -[fis''8 g''] | -% 31 -[a''16 fis'' g'' a''] d'' \stemdown [bes' a' g'] d,4~d,16 \stemup -[g'' fis'' e''] | -% 32 -[fis''16 fis'' g'' a''] d'' \stemdown [bes' a' g'] [d'' a' fis' -a'] s \stemup [fis''16 g'' a''] | -% 33 -d''8 g''8~[g''16 c''' bes'' a''] [bes''8 a''16 g''] [fis''8 g''] -| -% 34 -[a''16 a' bes' c''] \stemdown [fis' d' c' bes] [a8 d] g s | -% 35 -d4~d16 \stemup [g' fis' e'] [d'' fis' g' a'] d' \stemdown [bes a -g] | -% 36 -d,4~d,16 \stemup [g' fis' e'] d'' [fis' g' a'] [d' g'] [fis' e'] -| -% 37 -d''4~d''16 [fis' g' a'] d' \stemdown [bes a g] [d a g fis] | -% 38 -[g8 ees] [d d,] g,4 \stemup [bes'16 g' a' fis'] | -% 39 -bes'8 g'4 fis'8 [g'8. a'16] [bes'8 c''] | -% 40 -[d''8. d''16] [ees''8 fis'' ] [fis'' g''] r8. s16 | -} -{ -s1 s s s s s s s s s s -%12 -cis''8 s s4 s2 | -s1 s s s -% 17 - s4 s2 | -s1 s s s -%22 -s4 s8. a'16 d'4 s4 | -s1 -%24 -s2 s4. d'8 | -%25 -ees'8 f' g' s s2 | -s1 s s -%29 -s4. c'8 s4 ees'16 -} - > - \context Voice=vTwo < - { -s1 s s s s s s s s s -% 11 -\stemdown s4. [c''16 g'] fis'8 s8 [a'8. b'16] | -% 12 -s16 \skip 4..*71/7; -% 16 -[f''16 a' bes'8]~[bes'16 a'8 g'16] | -s1 s s -% 20 -[f'8. f'16] [e'8. g'16]~[g' bes' a' g'] [fis' d' e' cis'] | -% 21 -[d'16 c' bes a] [g bes a g] [fis a g8] [a16 d bes8] | -% 22 -[ces'8 d']~[d'16 g' e' g'] s2 | -s1 s -% 25 -s4. \skip 4..*64/7; -% 29 -c'8 [f'16 d' ees' d'] \skip 4..*12/7; -% 30 -[bes''16 d'' ees''8]~[ees''16 d''8 c''16] | -% 31 -\skip 4..*40/7; -% 33 -[bes''16 d'' ees''8]~[ees''16 d''8 c''16] | -% 34 -\skip 4..*48/7; | -% 37 -fis'4~fis'16 \skip 4..*27/7; | -% 39 -[g'16 f' ees' d'] [c' ees' d' c']~[c' bes c'8]~[c'16 d'8 fis'16]~ -% 40 -[fis'16 a' bes' g']~[g' c'' a'd'] -} > - \context Voice=vThree < -{ -% 1 -\stemdown \skip 4..*23/7; -% 2 -g16 [g bes a c'] [bes d' c' ees'] | -% 3 -[d'16 fis' e' g'] [fis' a' d' fis'] [g bes a c'] [bes d' c' ees'] -| -% 4 -[d16 fis e g] [fis a d fis] [g, bes, a, c] [bes, d c ees] | -% 5 -[d16 fis e g] fis \stemup [c' bes a] [bes d' g'8]~ [g'16 a' -fis'8] | -% 6 -[g'16 ees' d' c'] \stemdown [d' bes a g] [a ees' d' c'] [d'8 a] | -% 7 -[bes16 d' c' ees'] [d' f' ees' g'] \stemup [a' c'' b' d''] [c''8 -d''] | -% 8 -[ees''8 f''] [g'' c''] \stemdown [g' e'] [f'16 a' cis' e'] | -% 9 -[d'16 f' e' g'] [f' a' g' bes'] \stemup [cis''8 d''] [e'' g'] | -% 10 -\stemdown [d16 f e g] [f a g bes] [a, cis b, d] [cis8 a,] | -% 11 -[d8 f] [g a] [d g] [cis d] | -% 12 -a2 d' | -% 13 -[g'8 e'] [f' cis'] d' a'4 g'8 | -% 14 -a,4~a,16 \stemup [d'' cis'' b'] [a'' cis'' d'' e''] a' \stemdown -[f' e' d'] | -% 15 -a,4~a,16 [f' e' d'] [a' e' cis' e'] [a g' f' e'] | -% 16 -[a16 f' e' d'] [a e' d' cis'] [d'8 g] [a bes] | -% 17 -a,16 \stemup [e' f' g'] [e'8 f'] [g' f'16 e'] f' \stemdown [d' -cis' b] | -% 18 -a,4~a,16 \stemup [d' cis' b] [a' cis' d' e'] a \stemdown [f e d] -| -% 19 -[a16 e cis e] [a, g f e] [a, f e d] [a, e d cis] | -% 20 -[d8 g] [a a,] d,2 | -% 21 -d,2 d, | -% 22 -d,2 d,4 \skip 4..*11/7; -% 23 -d16 [d fis e g] [fis a g bes] | -% 24 -[a16 c' bes d'] [c' ees' d' c'] [bes c' a bes] [g a f g] | -% 25 -[ees16 f d ees] [c d bes, c] [aes, bes, g, aes,] [f, aes, g, f,] -| -% 26 -g,4~g,16 \stemup [c'' b' a'] [g'' b' c'' d''] g' \stemdown [ees' -d' c'] | -% 27 -g,4~g,16 [ees' d' c'] [g' d' b d'] g \stemup [b' c'' d''] | -% 28 -[g'16 ees'] \stemdown [d' c'] [g d' c' b] [c' g'] \stemup [d'' -c''] [b'8 c''] | -% 29 -[d''16 d'] \stemdown g8 [b16 g f ees] [d8 g] c \stemup a' | -% 30 -bes'8 \stemdown [fis'16 e'] [fis'8 d'] [g' c'] [d' ees'] | -% 31 -d,4~d,16 \stemup [g'' fis'' e''] [fis'' fis'' g'' a''] d'' -\stemdown [bes' a' g'] | -% 32 -d4~d16 \stemup [g'' fis'' e''] fis''4 \stemdown [d'16 c'' bes' -a'] | -% 33 -[d'16 bes' a' g'] [d' a' g' fis'] [g'8 c'] [d' ees'] | -% 34 -[d8 d'] \stemup [a' bes'] [c'' bes'16 a'] [bes'8 c''] | -% 35 -[d''16 fis' g' a'] d' \stemdown [bes a g] d,4~d,16 \stemup [g' -fis' e'] | -% 36 -[d''16 fis' g' a'] d' \stemdown [bes a g] d,4~d,16 [bes a g] | -% 37 -[d'16 a fis a] [d c' bes a] d8 \stemup d''8. [c''16 bes' a'] | -% 38 -[bes'16 d'' g''8]~[g''16 a''8 fis''16] g''4 s4 | -% 39 -\stemdown g,2 g, | -% 40 -g,2 g,4 -} -{s1 s s s s s s s s s s s s s s s -%17 -s4 s8 d' s2 | -s1 s s s s s s s s s s -% 29 -g'16 s8. s2 s8 fis' | -%30 -g8 s s2. | -s1 s s -%34 -s4. g'8} -{s1 s s s s s s s s s s s s s s s s s s s s s s s s s s s -% 29 -b'16} - > - \context Voice=vFour < - { -\stemdown \skip 4..*74/7; -% 5 -[g'16 bes a8.] c'16~c' -% 6 -\skip 4..*81/7; -% 11 -\stemup [f16 f' e'8] \skip 4..*11/7; -% 12 -\stemdown [e'16 f' d'] [e' f' g'8] s [fis'16 e'] [fis' g' a' -fis'] | -% 13 -s2 s8 a'4 g'8 | -% 14 -\skip 4..*48/7; | -% 17 -s2 [g'16 e' d' cis'] \skip 4..*39/7; -% 20 -\skip 4..*135/7; -% 28 -aes'8 [b16 g'8 f'16] | -% 29 -s16 \skip 4..*13/7; s8 | -% 30 -s8 \skip 4..*68/7; -% 34 -s8 [c''16 g'8 fis'16] [bes'' g' f' ees'] | -% 35 -\skip 4..*50/7; -% 38 -[g''16 c''] [bes'8 a'] s16 [ees'' d'' c''] -} >>} - \paper{barsize=50.0; \translator {\StaffContext \consists -Bar_number_engraver;}} -} -\version "1.2.0"; diff --git a/mutopia/F.Schubert/AnSylvia.ly b/mutopia/F.Schubert/AnSylvia.ly deleted file mode 100644 index dcfacf0f09..0000000000 --- a/mutopia/F.Schubert/AnSylvia.ly +++ /dev/null @@ -1,404 +0,0 @@ -\header { -filename = "AnSylvia.ly"; -enteredby = "Peter Chubb"; -composer = "Franz Schubert"; -poet = "Original text by William Shakespeare\\\\" + - "German text by Eduard von Bauernfeld"; -opus = "D. 891"; -date = "1826"; -title = "An Sylvia"; -} - - -\version "1.2.0"; - -\include "paper16.ly"; -\include "paper13.ly"; - -pianoRH=\notes \relative c' { - \clef "G"; -%1 - <[b8-.(\pp d-. g-.> <)b-. d-. g-.>] - <[b8-. d-. g-.(> <)b-. d-. g-.>] - | -%2 - <[c d g_"{\it simile}" \< > ] - <[c d fis> < \! c d fis > ] -%3 - | - <[d f gis \> > < \! d f gis >] - <[c e a> ] - | -%4 - <[d a' b> ] - <[d g a> ] | -%5 - \repeat semi 2 { - <[b_. d g( \pp > <)b_. d g>] - <[b_. d g(> <)b_. d g>] - | -%6 - <[c d g> ] - <[c d fis> < a c dis fis> ] - | -%7 - <[g c e g> ] - <[g c e g> ] - | -%8 - <[g c e> ] - <[g b d> ] - | -%9 - <[fis a d> ] - <[g b d> ] - | -%10 - [< g a c d \> > <\! fis a c d >] - <[g b d> ] - | -%11 - <[g a c d> ] - <[g b d> ] <[b d g> ] - | -%12 - [ ] - [ ] - | -%13 - <[e fis b> < e fis ais> ] - <[e fis ais> ] - | -%14 - <[cis g' a!> ] - <[cis g' a> < e g a> ] - | -%15 - <[e g a> ] - <[d fis a> ] - | -%16 - <[d fis a> ] - <[d fis a \< > < \! d fis a >] - | -%17 - <[d a' c \> > < \! d a' c >] - <[d a' c> ] - | -%18 - <[d g a c \> > ] - <[d fis a c> <\! d fis a c \pp > ] - | -%19 - <[d g b> ] - <[d g b> ] - | -%20 - <[e g c> ] - <[e a c> < e b' c>] - | -%21 - <[e c'> ] - <[e a c> ] - | -%22 - <[d a' c> ] - <[d a' d> ] - | -%23 - <[b d b'> ] - <[b d g \< > < \! b d fis >] - | -%24 - <[b d e \> > < \! gis b e >] - <[a c e> ] - | -%25 - <[d a' c> ] - <[d a'> > < \! c d fis \p >] - | -%26 - <[b d g> ] - <[b d g> ] - | -%27 - <[c d g > ] - <[c d fis \< > < \! c d fis >] - | -%28 - <[d f gis \> > < \! d f gis > ] - <[c e a> ] -%29 - <[d a' b> ] - <[d g a> < d fis! a> ] - } -%30 - r2 - \bar "|."; -} - -pianoLH=\notes \relative c { - \clef "F"; - g4-. d-. r [g8.( g16] | )a4-. d,-. r [a'8.( a16] | -%3 - )b4-. [d,8.( d16] )c'4-. [d,8. d16] | -%4 - d'4-. d,-. d'-. [d,8.( d16 ] - \repeat semi 2 { -%5 - )g4-. d_. r4 [g8.( g16] | -%6 - )a4-. d,-. r4 [a'8.( a16] | -%7 - )c4-. c,-. r [e8.( e16] | -%8 - )g4-. g,-. r4 [b'8.( b16] | -%9 - )d4-. c-. b-. g-. | -%10 - d2(-> )g4 r4 \clef "G"; | -%11 - d'''2->( )b4 r4 \clef "F"; | -%12 - b,,4-. fis-. r [b8.( b16] | -%13 - )cis4-. fis,4-. r4 [d'8.( d16] | -%14 - )e4-. g,4-. r [cis8.( cis16] | -%15 - )d4-. d,4-. r4 [d'8.( d16] | -%16 - )fis4-. d-. a-. d-. | -%17 - fis,4.( a8 )d4 r4 \clef "G"; | -%18 - e''2->( )d4 r4 \clef "F"; | -%19 - g,,,4-. b-. r [g8.( g16 ] | -%20 - )c4-. e-. r [gis,8.( gis16] | -%21 - )a4-. c-. r [g!8.( g16 ] | -%22 - )fis4-. d'-. r [fis,,8.( fis16] | -%23 - )g4-. g'-. r [b,8.( b16] | -%24 - )c4-. c'-. r [c,8.( c16] | -%25 - )d4-. d'-. r [d,8.( d16] | -%26 - )g4-. d-. r [g8.( g16] | -%27 - )a4-. d,-. r [a'8.( a16] | -%28 - )b4 [d,8.( d16] )c'4-. [d,8. d16] | -%29 - d'4-. d,-. d'-. [d,8.( d16 ] - } -%30 - )g2 r2 \bar "|."; - -} - -tune=\notes \relative c'' { - % Put dynamics over the stave. - \property Voice.dynamicdir = "1" - - r1 | r1 |r1 | r1 | - \repeat semi 2 { -%5 - b2. g4 | -%6 - g( )fis \context Staff < {\voiceone r2}{\voicetwo r4 a4}> | -%7 - g2. e4 | -%8 - e4( )d r4 \< g | -%9 - fis a g \! b | -%10 - d2 b4 r4 | -%11 - r1 | -%12 - d2. b4 | -%13 - b4( )ais r [cis8()b] | -%14 - a!2. e4 | -%15 - g4()fis r4 \< d4 | -%16 - a' fis c' \! a | -%17 - e'4.( \> )c8 \! a4 r | -%18 - r1 | -%19 - d2. \context Staff < {\voiceone b8( )g8} {\voicetwo [b8 g8]} > | -%20 - \property Voice.slurDash = 2 - fis4( )e \property Voice.slurDash = "" - \context Staff < {\voiceone r2}{\voicetwo r4 e4} > | -%21 - c'2. [b16( a g )fis] | -%22 - e4( )d \context Staff <{\voiceone r2} {\voicetwo r4 d4}> | -%23 - d2 d'2 | -%24 - e2 e,2 | -%25 - fis2. \> [g8( )a] | -%26 - \! g2 r2 | -%27 - r1 | r1 | r1 - } - r1 \bar "|."; -} - -fourbars=\lyrics { ""1*4 } -verseOne=\lyrics { - Who2. is4 | Syl- via, ""2 | - What2. is4 | she,2 That4 | - all our swains com- | - mend2 her?4 " " | - " "1 | - Ho-4 - - ly, | - fair,2 ""4 and | - wise2. is4 | - she;2 ""4 The | - heav'ns4 such grace did | - lend2 her4 "" | ""1 | - That2. a-4 | - do- red ""2 | - She2. might4 | - be,2 "" | - That2 a- | - do- red | - she2. might4 | be.2 "" | -} - -verseTwo=\lyrics { - Is2. she4 | kind,2 ""4 as | - she2. is4 |fair?2 ""4 For | - beau- ty lives with | kind-2 ness4 "" | ""1 | - To2. her4 |eyes2 ""4 doth | Love 2. re-4 | - pair,2 ""4 To | help him of his | blind-2 ness;4 "" | - ""1 | - And2*3/2 be-8 ing | help'd4 - "" "" | in-2. hab-8 its | - there,2 ""4 And | - be-2 ing | help'd in- | ha-2 -4 bits4 | there.2 ""2 | -} - -verseThree=\lyrics { - Then2. to4 | Syl-4 via ""2 | - let2. us4 | sing,2 ""4 That | - Syl- via is ex- | cel4 - ing; "" | ""1 | - She2. ex-4 | cels2 ""4 each | mor - - tal | - thing,2 ""4 Up- | on the dull earth | dwell-2 ing4 - "" | ""1 | - To2. her4 | gar- lands ""2 | let2. us4 | - bring,2 "" | To her | gar- lands | let2. us4 | - bring.2 "" | -} - - -%% -%% German Words -- syllabification may be incorrect (entered by -%% someone who knows no German!) -origVerseOne=\lyrics { - Was2. ist4 | Sil-4 via, ""2 | - sag-2. et4 | an,2 ""4 - Da{\ss}4 | - sie die wie- te | Flur2 preist?4 "" | ""1| - Sch\"on2. und4 | zart2 ""4 seh'- | ich2. sie4 | - nah'n,2 ""4 Auf4 | - Him- melsg- gunst " und" | Spur2 weist,4 "" | ""1 - Da{\ss}2. ihr4 | al- les ""2 | - un-2. ter4 | tan.2 "" | - Da{\ss}2 ihr | al- les | un-2. ter4 | tan2 "" | -} - -origVerseTwo=\lyrics { - Ist2. sie4 | sch\"on2 ""4 und4 | gut2. da-4 | zu?2 ""4 - Reiz4| labt wie mil- de | Kind-2 heit;4 "" | ""1 | - Ihr-2. em4 | Aug'-2 ""4 eilt | A-2. mor4 | - zu,2 ""4 - Dort4 | heilt er sein- e | Blind-2 heit,4 "" | ""1 | - Und2. ver-4 | weilt2 ""4 in4 | s\"u{\ss}-2. er4 - Ruh'.2 "" | - Und2 ver-2 | weilt in | s\"u{\ss}-2. er4| Ruh'.2 "" | -} - -origVerseThree=\lyrics { - Dar4 - - um | Sil- via, ""2 | t\"on',2. o4 | - Sang,2 ""4 - Der4 | hold- en Sil- via | Ehr-2 en;4 ""4 | ""1 | - Je2. den4 | Reiz2 ""4 be- |siegt2. sie4 | lang,2 ""4 - Den | Er- de kann ge- | w\"ah-2 ren;4 "" | ""1 | - Kr\"an-2. ze4 | ihr2 ""4 und4 | Sai-2. ten4 - |klang!2 "" - Kr\"an-2 ze | ihr und | Sai-2. ten-4 |klang!2 "" | -} - -global=\notes { - \key G; - \time 2/2; - \property Staff.timeSignatureStyle = "C" -} - -Piano=\context GrandStaff = piano { - \property GrandStaff.instrument="Piano" - < - \context Staff=RH {\global \pianoRH } - \context Staff=LH {\global \pianoLH } - > -} - - -EnglishWords= \lyrics< - {\fourbars \verseOne \fourbars} - {\fourbars \verseTwo \fourbars} - {\fourbars \verseThree \fourbars} -> - -GermanWords = \lyrics< - {\fourbars \origVerseOne \fourbars} - {\fourbars \origVerseTwo \fourbars} - {\fourbars \origVerseThree \fourbars} - -> - -Vocals= < - \context Staff = vocal < - \notes {\clef "G2"; \global\tune} -% {\context Lyrics = vocal \EnglishWords} - {\context Lyrics = vocal \GermanWords} - > -> - - -\score { - < - % \transpose aes for basses (Key Eflat). - % (bes to c'') - % \transpose d' for original (in A.) - % Untransposed range: d' to e'' - \notes \transpose d' < - \Vocals - \Piano - > - > - \paper { - % \paper_thirteen - \paper_sixteen - linewidth = 18.0\cm; - textheight = 26.0\cm; - gourlay_maxmeasures=15.0; - \translator { \HaraKiriStaffContext } - } -} -