2 filename = "praeludium-fuga-E.ly";
3 title = "praeludium and fuga in E-major";
5 composer = "Johann Sebastian Bach (1685-1750)";
7 copyright = "public domain";
12 Praeludium 3 bar excerpt,
13 2nd fuga transposed subject -- 4 bar excerpt.
14 We try to imitate the Griepenkerl/Keller edition which
15 gives the best approximation to Bach's original layout
19 purpose of this file is testing:
20 * real-life collisions
21 * multi-voice input --- splitting?
29 praeludium_commands = \notes {
34 praeludium_right = \notes {
38 % 13 -- how to type -- where to split -- this more neatly?
40 \context Voice = I \relative c'' { \stemUp r4 dis4 e4. e8 ~ |
41 \shiftOn e4 [d8 fis8] \shiftOff gis4 ~ [gis8 fis16 e ] |
42 fis4 ~ [fis8 e16 dis] e4 r8 e8 }
43 \context Voice = III \relative c'' { \stemUp \shiftOn r4 bis cis \shiftOff cis |
44 a' ~ [a16 gis a b] \shiftOn dis,4 cis ~ |
45 [cis8 dis16 ais] bis4 cis r8 b }
46 \context Voice = IV \relative c'' {
50 this is a diversion from the Griepenkerl/Keller
51 edition; a hack to avoid collisions
56 \context Voice = II \relative c' { \stemDown
59 r4 fis \shiftOff gis gis |
66 praeludium_left = \notes \relative c {
72 \context Voice = two { r4 }
73 \context Voice = one { \stemUp s4 dis' cis cis ~ |
74 [cis8 a d cis] [bis gis] cis4 |
76 \context Voice = one { \stemUp bis2 }
77 \context Voice = three { \stemUp \shiftOn r4 gis ~ [gis8 gis] ~ \stemDown \shiftOff gis4 |
80 % { \stemUp \shiftOn s4 fis4 e}
81 % a quick hack to avoid some collisons
82 \context Voice = four { \stemDown \shiftOn s4 fis4 e}
83 \context Voice = two { \stemDown s4 dis4 cis4 }
88 praeludium_pedal = \notes \relative c{
93 r4 fis,4-\ltoe e4.-\lheel e'8-\rheel |
94 fis4.-\rtoe fis8-\rtoe fis4-\rtoe [e8-\ltoe a-\rtoe] |
95 dis,4-\ltoe gis-\rtoe [cis,8-\ltoe b!-\lheel ais-\rtoe gis-\ltoe] |
100 fugaII_commands = \notes{
102 \key e \major; % E-major
105 fugaII_right = \notes \relative c'' {
111 \context Voice = VA { \stemUp [b8 fis8] b4 }
112 \context Voice = VB { \stemDown fis2 }
115 \context Staff \notes\relative c''<
117 \property Voice.horizontalNoteShift=0
118 \property Voice.verticalDirection=1
122 \property Voice.verticalDirection=1
123 \property Voice.horizontalNoteShift=1
126 \context Voice=three {
127 \property Voice.horizontalNoteShift=2
128 \property Voice.verticalDirection=1
131 \context Voice=four {
132 \property Voice.verticalDirection=-1
133 \property Voice.horizontalNoteShift=-1
140 \context Voice = one { dis2 dis4 |
143 \context Voice = three { \stemUp \shiftOn [b8 fis] b2 ~ |
146 \context Voice = two { \stemDown fis2. ~ |
153 fugaII_left = \notes {
159 \context Voice = two { \stemDown b2 \stemUp ais4 |
161 \context Voice = two { \stemDown s2 e4 |
169 fugaII_pedal = \notes \relative c {
174 dis4.-\ltoe e8-\rtoe cis4 |
175 b4.-\lheel [cis8-\ltoe dis8-\rtoe e8-\rheel] |
176 fis4.-\rtoe [e8-\rheel dis8-\rtoe cis8-\ltoe] |
177 dis4-\rtoe e4-\rheel e,4-\ltoe |
181 breakmusic = \notes {
187 % these should be two separate scores...
190 \context PianoStaff <
191 \context Staff = treble {
192 \property Score.midiInstrument = "church organ"
193 \praeludium_right \breakmusic \fugaII_right }
194 \context Staff = bass {
195 \praeludium_left \breakmusic \fugaII_left }
197 \context Staff = pedal {
198 \praeludium_pedal \breakmusic \fugaII_pedal }
203 \translator { \OrchestralScoreContext }