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
20 purpose of this file is testing:
21 * real-life collisions
22 * multi-voice input --- splitting?
30 praeludium_commands = \notes {
35 praeludium_right = \notes {
39 % 13 -- how to type -- where to split -- this more neatly?
41 \context Voice = I \relative c'' { \stemup r4 dis4 e4. e8 ~ |
42 \shifton e4 [d8 fis8] \shiftoff gis4 ~ [gis8 fis16 e ] |
43 fis4 ~ [fis8 e16 dis] e4 r8 e8 }
44 \context Voice = III \relative c'' { \stemup \shifton r4 bis cis \shiftoff cis |
45 a' ~ [a16 gis a b] \shifton dis,4 cis ~ |
46 [cis8 dis16 ais] bis4 cis r8 b }
47 \context Voice = IV \relative c'' {
51 this is a diversion from the Griepenkerl/Keller
52 edition; a hack to avoid collisions
57 \context Voice = II \relative c' { \stemdown
60 r4 fis \shiftoff gis gis |
67 praeludium_left = \notes \relative c {
73 \context VoiceTwo { r4 }
74 \context VoiceOne { \stemup s4 dis' cis cis ~ |
75 [cis8 a d cis] [bis gis] cis4 |
77 \context VoiceOne { \stemup bis2 }
78 \context VoiceThree { \stemup \shifton r4 gis ~ [gis8 gis] ~ \stemdown \shiftoff gis4 |
81 % { \stemup \shifton s4 fis4 e}
82 % a quick hack to avoid some collisons
83 \context VoiceFour { \stemdown \shifton s4 fis4 e}
84 \context VoiceTwo { \stemdown s4 dis4 cis4 }
89 praeludium_pedal = \notes \relative c{
94 r4 fis,4-\ltoe e4.-\lheel e'8-\rheel |
95 fis4.-\rtoe fis8-\rtoe fis4-\rtoe [e8-\ltoe a-\rtoe] |
96 dis,4-\ltoe gis-\rtoe [cis,8-\ltoe b!-\lheel ais-\rtoe gis-\ltoe] |
101 fugaII_commands = \notes{
106 fugaII_right = \notes \relative c'' {
112 \context Voice = VA { \stemup [b8 fis8] b4 }
113 \context Voice = VB { \stemdown fis2 }
117 \context Staff \notes\relative c''<
119 \property Voice.horizontalNoteShift=0
120 \property Voice.verticalDirection=1
124 \property Voice.verticalDirection=1
125 \property Voice.horizontalNoteShift=1
128 \context Voice=three {
129 \property Voice.horizontalNoteShift=2
130 \property Voice.verticalDirection=1
133 \context Voice=four {
134 \property Voice.verticalDirection=-1
135 \property Voice.horizontalNoteShift=-1
142 \context VoiceOne { dis2 dis4 |
145 \context VoiceThree { \stemup \shifton [b8 fis] b2 ~ |
148 \context VoiceTwo { \stemdown fis2. ~ |
155 fugaII_left = \notes {
161 \context VoiceTwo { \stemdown b2 \stemup ais4 |
163 \context VoiceTwo { \stemdown s2 e4 |
171 fugaII_pedal = \notes \relative c {
176 dis4.-\ltoe e8-\rtoe cis4 |
177 b4.-\lheel [cis8-\ltoe dis8-\rtoe e8-\rheel] |
178 fis4.-\rtoe [e8-\rheel dis8-\rtoe cis8-\ltoe] |
179 dis4-\rtoe e4-\rheel e,4-\ltoe |
183 breakmusic = \notes {
189 % these should be two separate scores...
192 \context PianoStaff <
193 \context Staff = treble {
194 \praeludium_right \breakmusic \fugaII_right }
195 \context Staff = bass {
196 \praeludium_left \breakmusic \fugaII_left }
198 \context Staff = pedal {
199 \praeludium_pedal \breakmusic \fugaII_pedal }
206 verticalDirection = "1";
211 verticalDirection = "-1";
216 verticalDirection = "1";
217 horizontalNoteShift = "1";
222 verticalDirection = "-1";
223 horizontalNoteShift = "1";
233 \translator { \OrchestralScoreContext }
234 castingalgorithm = \Wordwrap;