2 filename = "praeludium-fuga-E.ly";
3 title = "praeludium and fuga in E-major";
5 description = "Praeludium 3 bar excerpt, "
6 "2nd fuga transposed subject -- 4 bar excerpt. "
7 "We try to imitate the Griepenkerl/Keller edition which "
8 "gives the best approximation to Bach's original layout.";
9 composer = "Johann Sebastian Bach (1685-1750)";
11 copyright = "public domain";
16 purpose of this file is testing:
17 * real-life collisions
18 * multi-voice input --- splitting?
26 praeludium_commands = \melodic {
31 praeludium_right = \melodic\transpose c'' {
35 % 13 -- how to type -- where to split -- this more neatly?
37 { \stemup r4 dis'4 e'4. e'8 ~ |
38 \shifton e'4 [d'8 fis'8] \shiftoff gis'4 ~ [gis'8 fis'16 e'16] |
39 fis'4 ~ [fis'8 e'16 dis'16] e'4 r8 e'8 }
40 { \stemup \shifton r4 bis4 cis'4 \shiftoff cis'4 |
41 a'4 ~ [a'16 gis'16 a'16 b'16] \shifton dis'4 cis'4 ~ |
42 [cis'8 dis'16 ais16] bis4 cis'4 r8 b8 }
47 this is a diversion from the Griepenkerl/Keller
48 edition; a hack to avoid collisions
56 r4 fis4 \shiftoff gis4 gis4 |
58 fis4 gis4 gis4 r8 e8 }
63 praeludium_left = \melodic {
69 { \stemup r4 dis'4 cis'4 cis'4 ~ |
70 [cis'8 a8 d'8 cis'8] [bis8 gis8] cis'4 |
71 dis'2 cis'4 r8 cis'8 }
73 { \stemup \shifton r4 gis4 ~ [gis 8 gis8] ~ \stemdown \shiftoff gis4 |
75 a4 gis4 gis4 r8 gis8 }
76 % { \stemup \shifton s4 fis4 e}
77 % a quick hack to avoid some collisons
78 { \stemdown \shifton s4 fis4 e}
79 { \stemdown s4 dis4 cis4 }
84 praeludium_pedal = \melodic {
89 r4 fis,4-\ltoe e,4.-\lheel e8-\rheel |
90 fis4.-\rtoe fis8-\rtoe fis4-\rtoe [e8-\ltoe a8-\rtoe] |
91 dis4-\ltoe gis4-\rtoe [cis8-\ltoe b,!8-\lheel ais,8-\rtoe gis,8-\ltoe] |
96 fuga2_commands = \melodic{
101 fuga2_right = \melodic\transpose c'' {
107 { \stemup [b8 fis8] b4 }
110 %{ this chord is usually set like this:
119 { \stemup \shiftoff e'4 }
120 { \stemup \shifton cis'4 }
121 { \stemup \shifton ais4 }
126 { \stemup dis'2 dis'4 |
128 b4. [cis'8 dis'8 e'8] }
129 { \stemup \shifton [b8 fis8] b2 ~ |
130 [b8 a!16 gis16] a2 ~ |
132 { \stemdown fis2. ~ |
139 fuga2_left = \melodic {
145 { \stemdown b2 \stemup ais4 |
150 \stemdown cis'2 e'4 |
155 fuga2_pedal = \melodic {
160 dis4.-\ltoe e8-\rtoe cis4 |
161 b,4.-\lheel [cis8-\ltoe dis8-\rtoe e8-\rheel] |
162 fis4.-\rtoe [e8-\rheel dis8-\rtoe cis8-\ltoe] |
163 dis4-\rtoe e4-\rheel e,4-\ltoe |
167 breakmusic = \melodic {
173 % these should be two separate scores...
177 \type Staff = treble {
178 \praeludium_right \breakmusic \fuga2_right }
180 \praeludium_left \breakmusic \fuga2_left }
182 \type Staff = pedal {
183 \praeludium_pedal \breakmusic \fuga2_pedal }