3 filename: toccata-fuga-E.ly
4 title: toccata and fuga in E-major bwv 566
7 2nd fuga: transposed subject --- 4 bar excerpt
9 composers: Johann Sebastian Bach (1685-1750)
14 purpose of this file is testing:
15 * real-life collisions
16 * multi-voice input --- splitting?
25 toccata_commands = \melodic{
27 \key fis cis gis dis; % E-major
30 %toccata_right = \melodic \$toccata_commands {
31 toccata_right = \melodic{
33 % 13 -- how to type -- where to split -- this more neatly ?
36 { \stem 1; r4 dis'4 e'4.-. e'8( | \hshift 1; )e'4 [d'8 fis'8] \hshift 0; gis'4 [gis'8 fis'16 e'16] | fis'4~ [fis'8 e'16 dis'16] e'4 r8 e'8 }
37 { \stem 1; \hshift 1; r4 bis4 cis'4-. cis'4 | \hshift 0; a'4~ [a'16 gis'16 a'16 b'16] \hshift 1; dis'4 cis'4~ [cis'8 dis'16 a16] bis4 cis'4 r8 b8 }
38 { \stem -1; r4 < gis4 fis4 dis4 > gis4-. gis4 | a4. cis'8 gis2 | fis4 gis4 gis4 r8 e8 }
43 toccata_left = \melodic{
49 { \stem 1; bis2 cis'4-. cis'4~ [cis'8 a8 d'8 cis'8] [bis8 gis8] cis'4 | dis'2 cis'4 r8 cis'8 }
50 { \stem 1; \hshift 1; r4 gis4. gis8~ gis4 | \stem -1; \hshift 0; a4. fis8 gis4. a8~ a4 gis4-. gis4 r8 gis8 }
51 { \stem -1; r4 < dis4 fis4 > < cis4 e4 > }
56 toccata_pedal = \melodic{
61 r4 'fis4-\ltoe 'e4.-\lheel e8-\rheel |
63 fis4.-\rtoe fis8-.-\rtoe fis4-\rtoe [e8-\ltoe a8-\rtoe] |
65 dis4-\ltoe gis4-\rtoe [cis8-\ltoe 'b8-\lheel 'a8-\rtoe 'gis8-\ltoe] |
69 fuga2_commands = \melodic{
71 \key fis cis gis dis; % E-major
74 fuga2_right = \melodic{
79 { \stem 1; [b8 fis8] b4 }
82 %{ this chord is usually set like this:
91 { \stem 1; \hshift 0; e'4 }
92 { \stem 1; \hshift 1; cis'4 }
93 { \stem 1; \hshift 2; ais4 }
98 { \stem 1; dis'2 dis'4 | cis'2 cis'4 | b4~ [b8 cis'8 dis'8 e'8] }
99 { \stem 1; \hshift 1; [b8 fis8] b2~ [b8 a16 g16] a2 | a4 gis2 }
100 { \stem -1; fis2.~ fis2.~ fis4 e2 }
105 fuga2_left = \melodic{
112 { \stem 1; ais4 | bes2. }
113 { \stem -1; e4 | fis2 fis4 }
121 fuga2_pedal = \melodic{
126 dis4.-\ltoe e8-\rtoe cis4 |
128 'b4.-\lheel [c8-\ltoe dis8-\rtoe e8-\rheel] |
130 fis4.-\rtoe [e8-\rheel dis8-\rtoe cis8-\ltoe] |
132 dis4-\rtoe e4-\rheel 'e4-\ltoe |
135 break = \melodic{ \meter 4/4; r1 }
137 % these should be two separate scores...
140 % why the extra "\melodic" (silly)
141 % let "[ x ]" be "dimension of x":
142 % [ melodic ++ melodic ] == [ simple-mudela ]
143 % [ \melodic{ melodic ++ melodic } ] == [ melodic ]
146 \$toccata_right ++ \break ++ \$fuga2_right
151 \$toccata_left ++ \break ++ \$fuga2_left