4 copyright = "public domain";
10 praeludiumRight = \notes {
14 % 13 -- how to type -- where to split -- this more neatly?
16 \context Voice = I \relative c'' { \stemup r4 dis4 e4. e8 ~ |
17 \shifton e4 [d8 fis8] \shiftoff gis4 ~ [gis8 fis16 e ] |
18 fis4 ~ [fis8 e16 dis] e4 r8 e8 }
19 \context Voice = III \relative c'' { \stemup \shifton r4 bis cis \shiftoff cis |
20 a' ~ [a16 gis a b] \shifton dis,4 cis ~ |
21 [cis8 dis16 ais] bis4 cis r8 b }
22 \context Voice = IV \relative c'' {
26 \context Voice = II \relative c' { \stemdown
29 r4 fis \shiftoff gis gis |
36 praeludiumLeft = \notes \relative c {
42 \context Voice = two { r4 }
43 \context Voice = one { \stemup s4 dis' cis cis ~ |
46 a \translator Staff = treble \stemdown \shifton d
50 \translator Staff = bass
54 \context Voice = one { \stemup bis2 }
55 \context Voice = three {
56 \property Voice.dynamicDirection = \down
57 \stemup \shifton r4 gis ~ [gis8
60 gis] ~ \stemdown \shiftoff gis4 |
65 \context Voice = four { \stemdown \shifton s4 fis4 e}
66 \context Voice = two { \stemdown s4 dis4 cis4 }
74 fugaIIRight = \notes \relative c'' {
81 \context Voice = VA { \stemup [b8 fis8] b4 }
82 \context Voice = VB { \stemdown fis2 }
85 \context Staff \notes\relative c''<
87 \property Voice.horizontalNoteShift=0
88 \property Voice.verticalDirection=1
92 \property Voice.verticalDirection=1
93 \property Voice.horizontalNoteShift=1
96 \context Voice=three {
97 \property Voice.horizontalNoteShift=2
98 \property Voice.verticalDirection=1
101 \context Voice=four {
102 \property Voice.verticalDirection=-1
103 \property Voice.horizontalNoteShift=-1
110 \context Voice = one { dis2 dis4 |
113 \context Voice = three { \stemup \shifton [b8 fis] b2 ~ |
116 \context Voice = two { \stemdown fis2. ~ |
123 gracetest = \notes \grace { [c16 ( cis dis] }
125 fugaIILeft = \notes {
131 \context Voice = one { \stemdown
133 \relative b, < )b2 dis fis a b cis dis> \stemup ais4 |
135 \context Voice = two { \stemdown s2 e4 |
143 fugaIIPedal = \notes \relative c {
148 dis4.-\ltoe e8-\rtoe cis4 |
149 b4.-\lheel [cis8-\ltoe dis8-\rtoe e8-\rheel] |
150 fis4.-\rtoe [e8-\rheel dis8-\rtoe cis8-\ltoe] |
151 dis4-\rtoe e4-\rheel e,4-\ltoe |
157 % these should be two separate scores...
159 \context Score \notes <
160 \context PianoStaff <
161 \context Staff = treble {
162 \property Score.midiInstrument = "church organ"
163 \praeludiumRight r1 \fugaIIRight }
164 \context Staff = bass {
165 \praeludiumLeft r1 \fugaIILeft }
167 \context Staff = pedal \relative c <
174 r4 fis,4-\ltoe e4.-\lheel e'8-\rheel |
175 fis4.-\rtoe fis8-\rtoe fis4-\rtoe [e8-\ltoe a-\rtoe] |
176 dis,4-\ltoe gis-\rtoe [cis,8-\ltoe
178 b!-\lheel ais-\rtoe gis-\ltoe ~ ] |
191 \translator { \OrchestralScoreContext }