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?
24 noShift = { \property Voice.hshift = 0 }
25 Shift = { \property Voice.hshift = 1 }
28 praeludium_commands = \melodic {
30 \key fis cis gis dis; % E-major
33 praeludium_right = \melodic {
38 % 13 -- how to type -- where to split -- this more neatly?
40 { \stemup r4 dis'4 e'4. e'8 ~ |
41 \Shift e'4 [d'8 fis'8] \noShift gis'4 ~ [gis'8 fis'16 e'16] |
42 fis'4 ~ [fis'8 e'16 dis'16] e'4 r8 e'8 }
43 { \stemup \Shift r4 bis4 cis'4 \noShift cis'4 |
44 a'4 ~ [a'16 gis'16 a'16 b'16] \Shift dis'4 cis'4 ~ |
45 [cis'8 dis'16 ais16] bis4 cis'4 r8 b8 }
46 { \stemup \Shift s4 gis4 }
47 { \stemdown \Shift r4 fis4 \noShift gis4 gis4 |
49 fis4 gis4 gis4 r8 e8 }
54 praeludium_left = \melodic {
61 { \stemup r4 dis'4 cis'4 cis'4 ~ |
62 [cis'8 a8 d'8 cis'8] [bis8 gis8] cis'4 |
63 dis'2 cis'4 r8 cis'8 }
65 { \stemup \Shift r4 gis4 ~ [gis 8 gis8] ~ \stemdown \noShift gis4 |
67 a4 gis4 gis4 r8 gis8 }
68 { \stemup \Shift s4 fis4 e}
69 { \stemdown s4 dis4 cis4 }
74 praeludium_pedal = \melodic {
80 r4 fis,4-\ltoe e,4.-\lheel e8-\rheel |
81 fis4.-\rtoe fis8-\rtoe fis4-\rtoe [e8-\ltoe a8-\rtoe] |
82 dis4-\ltoe gis4-\rtoe [cis8-\ltoe b,!8-\lheel ais,8-\rtoe gis,8-\ltoe] |
87 fuga2_commands = \melodic{
89 \key fis cis gis dis; % E-major
92 fuga2_right = \melodic {
99 { \stemup [b8 fis8] b4 }
102 %{ this chord is usually set like this:
111 { \stemup \noShift e'4 }
112 { \stemup \Shift cis'4 }
113 { \stemup \Shift ais4 }
118 { \stemup dis'2 dis'4 |
120 b4. [cis'8 dis'8 e'8] }
121 { \stemup \Shift [b8 fis8] b2 ~ |
122 [b8 a!16 gis16] a2 ~ |
124 { \stemdown fis2. ~ |
131 fuga2_left = \melodic {
138 { \stemdown b2 \stemup ais4 |
143 \stemdown cis'2 e'4 |
148 fuga2_pedal = \melodic {
154 dis4.-\ltoe e8-\rtoe cis4 |
155 b,4.-\lheel [cis8-\ltoe dis8-\rtoe e8-\rheel] |
156 fis4.-\rtoe [e8-\rheel dis8-\rtoe cis8-\ltoe] |
157 dis4-\rtoe e4-\rheel e,4-\ltoe |
161 breakmusic = \melodic {
167 % these should be two separate scores...
171 \type Staff = treble {
172 \praeludium_right \breakmusic \fuga2_right }
174 \praeludium_left \breakmusic \fuga2_left }
176 \type Staff = pedal {
177 \praeludium_pedal \breakmusic \fuga2_pedal }