From: fred Date: Sun, 24 Mar 2002 19:54:45 +0000 (+0000) Subject: lilypond-0.1.11 X-Git-Tag: release/1.5.59~4060 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=7daf35b6232fc8d965ab7e48ade72d0fbd78fc23;p=lilypond.git lilypond-0.1.11 --- diff --git a/input/fugue1.ly b/input/fugue1.ly new file mode 100644 index 0000000000..f3d8fb0c03 --- /dev/null +++ b/input/fugue1.ly @@ -0,0 +1,208 @@ +\header{ +filename fugue1.ly +title Fuga a 4 +description Das Wohltemperierte Clavier I, Fuga I (c-major) +opus BWV 846 +composer Johann Sebastian Bach (1685-1750) +enteredby Shay Rojansky +copyright Public Domain +} + +%{ + +%} +\version "0.1.1"; + + +global = + \melodic { + \meter 4/4; % should be \meter C + } + +tenor = + \melodic { + \clef "violin"; + \octave c'; + + \stem \down; + r8 [c8 d e] [f. g32 f] [e8 a] | + [d g] ~ [g16 a g f] [e f e d] [c d c 'b] | + ['a8 fis] g4 ~ [g8 fis16 e] [f8 d] | + [g f! e d] c r r g ~ | +%% 5 + [g f16 e] f4 ~ [f16 f e8] d4 | + [c8 f] r16 [g f e] [f8 d] g4 ~ | + g4 r4 r2 | + r1 | + r8 [g8 a b] [c'. d'32 c'] [b8 e'] +%% 10 + [a d'] ~ [d'16 e' d' c'] b8 r8 r d | + [e fis] [g. a32 g] [fis8 b e a] ~ | + [a16 b a gis] [fis8 f!] [e d] ~ [d16 e fis gis] | + [a gis a b] [gis fis gis a] b8 r8 r4 | + r8 [c8 d e] \stem 1; [f. g32 f] [e8 a] | +%% 15 + [d g] ~ [g16 a g f] e8 \stem -1; [e fis g] ~ | + [g8 fis] [gis8 a] ~ [a g! a b] | + \stem 0; + [c'. d'32 c'] [b8 e'] [a d'] ~ [d'16 e' d' c'] | + [b8 g' cis' d'] [e' cis' d' e' ] | + \stem -1; a8 r8 r e [fis g] \stem 0; [a. b32 a] | +%% 20 + [g8 c' fis b] ~ [b16 c' b a] \stem -1; [g fis e d] \stem 0; | + e4 \stem -1; d ~ [d16 a g f!] [e g f! a] | + g4 ~ [g16 a bes8] c'4 [d'8 g] | + \stem 0; g4. f8 ~ [f e] d4 | + \stem -1; e8 a4 g8 ~ [g8 f g a] | +%% 25 + [bes8. c'32 b] [a8 d'] [g c'] ~ [c'16 d' c' bes] | + [a bes a g] [f g f e] d4 ~ [d8. g16] | + a4 r16 [f'16 d'8] e'2 | + } + + +soprane = + \melodic { + \octave c'; + \stem \up; + r1 | + r2 r8 [g8 a b] | + [c'. d'32 c'] [b8 e'] [a d'] ~ [d'16 e' d' c'] | + [b g a b] [c' b c' d'] [e' d' e' fis'] [g'8 b] | +%% 5 + [c' a] [d'16 c' b a] [g8. g16] [f e f g] | + [a g a b] c'2 b4 | + \octave c''; + r8 [c8 d e] [f. g32 f] [e8 a] | + [d g] ~ [g16 a g f] [e8 a] ~ [a16 b a g] | + f2 [e8. fis16] g4 ~ +%% 10 + g4 fis [g16 f! e d] [c d c 'b] | + ['a16 c 'b 'a] 'g8 r8 r16 [c16 'b 'a] ['gis8 e] | + [d c16 'b16] ['a 'gis 'a 'b] [c 'fis 'a 'gis] ['b8 'a16 'b] + [c8 f e d] ~ [d c16 'b] ['b8. 'a16] | + 'a4 r4 r2 | +%% 15 + r2 r8 ['g8 'a 'b] | + [c8. d32 c] ['b8 c] [d e] [f!. g32 f!] | + [e8 a d g] ~ [g16 a g f] [e8 a] | + [d8 bes] [a g16 f] [g f g e] [f g g f32 g] | + [a16 cis d g] [e8. d16] d8 r8 r4 | +%% 20 + r2 r4 r8 'g | + ['a 'b] [c. d32 c] ['b8 e 'a d] ~ | + [e16 e d c] ['b c d e] [f g a g] [f e d c] | + 'b4 [c8 d] 'g c4 'b8 | + c4 ['b8 'bes8] 'a d4 c8 | +%% 25 + [d8 e] f4 ~ [f16 a g f] [e f e d] | + c2 r16 ['g32 'a 'b!16 c] [d e f8] ~ | + [f32 c d e f16 g] [a8. b16] | + } + +alt = + \melodic { + \clef "bass"; + \octave c; + + \stem 1; + r1 | + r | + r | + r8 [g8 a b] [c'. d'32 c'] [b8 e'] | +%% 5 + [a d'] ~ [d'16 e' d' c'] [b8 c' ~ c' bes8] | + [a d' g c'] r16 [a16 b c'] d'4 | + g4 r8 g8 [a b] [c'. d'32 c'] | + [b8 e' a d'] ~ [d'16 e' d' c'!] [b!8 e'] ~ | + e'4 d'4 [c'16 b c' a] [e' d' c' b] | +%% 10 + [c'16 a b c'] [d' c' b a] g4 r4 | + r1 | + r8 [e8 fis gis] [a. b32 a] [gis8 c'] | + [fis b] ~ [b16 c' b a] gis8 a4 gis8 | + a4 r8 g8 [a b] c'. [d'32 c'] | +%% 15 + [b8 e' a d'] ~ [d' g] d'4 | + [c'8 a] e'4 d'8 r8 r4 | + r8 [a8 b cis'] [d'. e'32 d'] [c'!8 f'] | + [b8 e'] ~ [e'16 f' e' d'] cis'8 r8 r4 | + r8 [a8 b cis'] [d'. e'32 d'] [c'!8 fis'] | +%% 20 + [b e'] ~ [e'16 fis' e' d'] c'2 ~ | + [c'16 d' c' b] [a g a fis] [g8 b c' d'] | + [e'. f'32 e'] [d'8 g'] [c' f'] ~ [f'16 g' f' e'] | + d'4 [e'8 d'] ~ [d' g] g4 ~ + [g8 c d e] [f. g32 f] [e8 a] | +%% 25 + [d g] ~ [g16 a g f] [e d e f] [g a bes g] | + [a e f g] [a b c' a] b2 | + c'1 | + } + +bass = + \melodic { + \clef "bass"; + \octave c; + + \stem -1; + r1 | + r | + r | + r | +%% 5 + r2 r8 [c8 d e] | + [f. g32 f] [e8 a] [d g] ~ [g16 a g f] | + [e f e d] [c d c 'b] ['a8 d a fis] | + [g16 a bes g] [cis8 d] a4 e4 | + [a16 b c' d'] [c' b a g] c'8 r8 r4 | +%% 10 + r2 r8 ['g8 'a 'b] | + [c. d32 c] ['b8 e] ['a d] ~ [d16 e d c] | + 'b8 e4 d8 c f!4 e8 ~ | + e d4 e8 [f! e16 d] e4 | + 'a4 r4 r2 | +%% 15 + r8 ['g8 'a 'b] [c. d32 c] ['b8 e] | + ['a8 d] ~ [d16 e d c] ['b8 'bes 'a g'] | + ['a8 fis g e] d4 [e8 f!] | + [g8. a32 g] [f8 bes] [e a] ~ [a16 bes a g] | + [f e f d] [g8 a] d2 ~ | +%% 20 + [d16 e d c] ['b 'a 'g 'fis] ['e8 e fis g] ~ | + [g a16 g16] [fis8 d] g2 ~ | + g2 a4 [b8 c'] | + [f16 a g f] [e d c 'b] [c d e f] [g8 'g] | + c1 ~ | +%% 25 + c1 ~ | + c1 ~ | + c1 | + } + + +\score { + \melodic < \id "Piano" ""; + \multi 1; + < \multi 2; + \global + \soprane + \tenor + > + < \multi 2; + \global + \alt + \bass + > + > + + \paper{ + gourlay_maxmeasures =5.; +% castingalgorithme = \Wordwrap + } + \midi { + \tempo 4 = 84; + } +} + +% EOF diff --git a/input/prelude1.ly b/input/prelude1.ly new file mode 100644 index 0000000000..da66d87d81 --- /dev/null +++ b/input/prelude1.ly @@ -0,0 +1,190 @@ +\header{ +filename prelude1.ly +title Preludium +description Das Wohltemperierte Clavier I, Prelude I (c-major) +opus BWV 846 +source +composer Johann Sebastian Bach (1685-1750) +enteredby Shay Rojansky +copyright Public Domain" +} + +\version "0.1.1"; + + % should add \need{dutch.ini} for + % correct parsing of note names + +global = + \melodic { + \meter 4/4; % should be \meter C + } + + +% should do programmable input. + +soprane = + \melodic { + \clef "violin"; + \octave c'; + + <\multi 2; + % Real soprane + {\stem 1; + r8 [g16 c'] [e' g c' e'] r8 [g16 c'] [e' g c' e'] | + r8 [a16 d'] [f' a d' f'] r8 [a16 d'] [f' a d' f'] | + r8 [g16 d'] [f' g d' f'] r8 [g16 d'] [f' g d' f'] | + r8 [g16 c'] [e' g c' e'] r8 [g16 c'] [e' g c' e'] | + r8 [a16 e'] [a' a e' a'] r8 [a16 e'] [a' a e' a'] | + r8 [fis16 a] [d' fis a d'] r8 [fis16 a] [d' fis a d'] | + r8 [g16 d'] [g' g d' g'] r8 [g16 d'] [g' g d' g'] | + r8 [e16 g] [c' e g c'] r8 [e16 g] [c' e g c'] | + r8 [e16 g] [c' e g c'] r8 [e16 g] [c' e g c'] |} + % Tenor + {\stem -1; + r16 e8. ~ e4 r16 e8. ~ e4 | + r16 d8. ~ d4 r16 d8. ~ d4 | + r16 d8. ~ d4 r16 d8. ~ d4 | + r16 e8. ~ e4 r16 e8. ~ e4 | + r16 e8. ~ e4 r16 e8. ~ e4 | + r16 d8. ~ d4 r16 d8. ~ d4 | + r16 d8. ~ d4 r16 d8. ~ d4 | + r16 c8. ~ c4 r16 c8. ~ c4 | + r16 c8. ~ c4 r16 c8. ~ c4 |}> +%% 10 + r8 [d16 fis] [c' d fis c'] r8 [d16 fis] [c' d fis c'] | + r8 [d16 g] [b d g b] r8 [d16 g] [b d g b] | + r8 [e16 g] [cis' e g cis'] r8 [e16 g] [cis' e g cis'] | + r8 [d16 a] [d' d a d'] r8 [d16 a] [d' d a d'] | + r8 [d16 f] [b d f b] r8 [d16 f] [b d f b] | + r8 [c16 g] [c' c g c'] r8 [c16 g] [c' c g c'] | + r8 ['a16 c] [f 'a c f] r8 ['a16 c] [f 'a c f] | + r8 ['a16 c] [f 'a c f] r8 ['a16 c] [f 'a c f] | + r8 ['g16 'b] [f 'g 'b f] r8 ['g16 'b] [f 'g 'b f] | + r8 ['g16 c] [e 'g c e] r8 ['g16 c] [e 'g c e] | +%% 20 + r8 ['bes16 c] [e 'bes c e] r8 ['bes16 c] [e 'bes c e] | + r8 ['a16 c] [e 'a c e] r8 ['a16 c] [e 'a c e] | + r8 ['a16 c] [ees 'a c ees] r8 ['a16 c] [ees 'a c ees] | + r8 ['b16 c] [d 'b c d] r8 ['b16 c] [d 'b c d] | + r8 ['g16 'b] [d 'g 'b d] r8 ['g16 'b] [d 'g 'b d] | + r8 ['g16 c] [e 'g c e] r8 ['g16 c] [e 'g c e] | + r8 ['g16 c] [f 'g c f] r8 ['g16 c] [f 'g c f] | + r8 ['g16 'b] [f 'g 'b f] r8 ['g16 'b] [f 'g 'b f] | + r8 ['a16 c] [fis 'a c fis] r8 ['a16 c] [fis 'a c fis] | + r8 ['g16 c] [g 'g c g] r8 ['g16 c] [g 'g c g] | +%% 30 + r8 ['g16 c] [f 'g c f] r8 ['g16 c] [f 'g c f] | + r8 ['g16 'b] [f 'g 'b f] r8 ['g16 'b] [f 'g 'b f] | + r8 ['g16 'bes] [e 'g 'bes e] r8 ['g16 'bes] [e 'g 'bes e] | + + r8 ['f16 'a] [c f c 'a] [c 'a 'f 'a] ['f 'd 'f 'd] | + r8 [g16 b] [d' f' d' b] [d' b g b] [d f e d] | + || + } + +bass = + \melodic { + \clef "bass"; + \octave c; + + \stem -1; + c'2 c' | + c' c' | + b b | + c' c' | + c' c' | + c' c' | + b b | + b b | + a a | +%% 10 + <\multi 2; + % Alt + {\stem 1; + r16 a8. ~ a4 r16 a8. ~ a4 | + r16 b8. ~ b4 r16 b8. ~ b4 | + r16 bes8. ~ bes4 r16 bes8. ~ bes4 | + r16 a8. ~ a4 r16 a8. ~ a4 | + r16 aes8. ~ aes4 r16 aes8. ~ aes4 | + r16 g8. ~ g4 r16 g8. ~ g4 | + r16 f8. ~ f4 r16 f8. ~ f4 | + r16 f8. ~ f4 r16 f8. ~ f4 | + r16 d8. ~ d4 r16 d8. ~ d4 | + r16 e8. ~ e4 r16 e8. ~ e4 | +%% 20 + r16 g8. ~ g4 r16 g8. ~ g4 | + r16 f8. ~ f4 r16 f8. ~ f4 | + r16 c8. ~ c4 r16 c8. ~ c4 | + r16 f8. ~ f4 r16 f8. ~ f4 | + r16 f8. ~ f4 r16 f8. ~ f4 | + r16 e8. ~ e4 r16 e8. ~ e4 | + r16 d8. ~ d4 r16 d8. ~ d4 | + r16 d8. ~ d4 r16 d8. ~ d4 | + r16 ees8. ~ ees4 r16 ees8. ~ ees4 | + r16 e!8. ~ e4 r16 e8. ~ e4 | +%% 30 + r16 d8. ~ d4 r16 d8. ~ d4 | + r16 d8. ~ d4 r16 d8. ~ d4 | + r16 c8. ~ c4 r16 c8. ~ c4 | + + r16 c8. ~ c4 ~ c2 | + r16 'b8. ~ 'b4 ~ 'b2 | + c1 ||} + + % Bass + {\stem -1; + d2 d | + g g | + g g | + f f | + f f | + e e | + e e | + d d | + 'g 'g | + c c | +%% 20 + c c | + 'f 'f | + 'fis 'fis | + 'aes 'aes | + 'g 'g | + 'g 'g | + 'g 'g | + 'g 'g | + 'g 'g | + 'g 'g | +%% 30 + 'g 'g | + 'g 'g | + 'c 'c | + + 'c 'c | + 'c 'c | + 'c1 }> + } + + +\score { + \melodic < \id "Piano" ""; + \multi 1; + < \multi 2; + \global + \soprane + > + < \multi 2; + \global + \bass + > + > + + \paper{ + gourlay_maxmeasures =5.; + + } + \midi { + \tempo 4 = 84; + } +} + +% EOF diff --git a/input/wohltemperirt.ly b/input/wohltemperirt.ly index 97429e7d88..b3443e8a65 100644 --- a/input/wohltemperirt.ly +++ b/input/wohltemperirt.ly @@ -1,12 +1,12 @@ \header{ filename wohltemperirt.ly title Fuga a 3 -description Das Wohltemperirte Clavier I, Fuga II (c-minor) -opus BWV ? +description Das Wohltemperierte Clavier I, Fuga II (c-minor) +opus BWV 847-Fuga source Henle's Urtext composer Johann Sebastian Bach (1685-1750) enteredby HWN and Werner Lemberg -copyright Public Domain" +copyright Public Domain } %{ Tested Features: stem direction, multivoice, forced accidentals.