--- /dev/null
+% pedal.ly
+%
+% Johann Sebastian Bach
+% preludium en fuga in D
+% bwv 532
+%
+% fuga --- two bar excerpt of pedal part
+%
+% example for pedal studies
+
+% ugh, front and back priority are the same...
+% one must use (ugh):
+% left front:
+% -\front-\l{toe,heel}
+% left back:
+% -\l{toe,heel}-\back
+% rigth front:
+% -\r{toe,heel}-\front
+% right back:
+% -\back-\r{toe,heel}
+
+% therefore:
+% \lheel \ltoe \rheel \rtoe
+% \lbheel \lbheel \lfheel \lftoe
+% \rbheel \rbtoe \rfheel \rftoe
+
+\version "0.0.56";
+
+\score{
+ \staff{ melodicregs
+ \melodic {
+ \meter 4/4;
+ \key fis cis;
+ \clef bass;
+ \octave c;
+ % silly chord testing...
+% these should be stacked...
+% < 'c-\ltoe 'e-\lheel > < c'-\rtoe e'-\rheel>
+% < 'c-\lheel 'e-\ltoe > < c'-\rheel e'-\rtoe> |
+ < 'c-\ltoe-\lheel 'e > < c'-\rtoe-\rheel e' >
+ < 'c-\lheel-\ltoe 'e > < c'-\rheel-\rtoe e' > |
+ % 46
+ \duration 16;
+ [d-\lfheel e-\rbtoe fis-\ltoe e-\rbtoe]
+ [d-\lfheel e-\rbtoe fis-\lheel e] [d e fis e] [d e fis e] |
+ d4 r4 r4 [b-\rtoe a-\ltoe b-\rtoe fis-\ltoe] |
+ }
+ }
+ \paper{}
+}
+
--- /dev/null
+% toccata-fuga-E.ly
+%
+% toccata and fuga in E-major
+% Johann Sebastian Bach (1685-1750)
+% bwv 566
+%
+% toccata: 3 bar excerpt
+% 2nd fuga: transposed subject --- 4 bar except
+%
+% purpose of this file is testing:
+% * real-life collisions
+% * multi-voice input --- splitting?
+% * organ staff...
+%
+
+\version "0.0.56";
+
+toccata_commands = \melodic{
+ \meter 4/4;
+ \key fis cis gis dis; % E-major
+}
+
+%toccata_right = \melodic \$toccata_commands {
+toccata_right = \melodic{
+ \$toccata_commands ++
+ % 13 -- how to type -- where to split -- this more neatly ?
+ \octave c';
+ <\multivoice
+ { \stem 1; \hshift 1; r4 dis'4 e'4.-. e'8( | )e'4 [d'8 fis'8] gis'4 [gis'8 fis'16 e'16] | fis'4( )[fis'8 e'16 dis'16] e'4 r8 e'8 }
+ { \stem 1; r4 bis4 cis'4-. cis'4 | ais'4( )[ais'16 gis'16 ais'16 b'16] dis'4 cis'4( | )[cis'8 dis'16 ais16] bis4 cis'4 r8 b8 }
+ { \stem -1; r4 < gis4 fis4 dis4 > gis4-. gis4 | ais4. cis'8 gis2 | fis4 gis4 gis4 r8 e8 }
+ > |
+ % 16
+}
+
+toccata_left = \melodic{
+ \$toccata_commands ++
+ \octave c;
+ \clef bass;
+ % 13
+ <\multivoice
+ { \stem 1; bis2 cis'4-. cis'4( | )[cis'8 ais'8 d'8 cis'8] [bis8 gis8] cis'4 | dis'2 cis'4 r8 cis'8 }
+ { \stem 1; \hshift 1; r4 gis4. gis8( )gis4 | \stem -1; \hshift 0; ais4. fis8 gis4. ais8( | )ais4 gis4-. gis4 r8 gis8 }
+ { \stem -1; r4 < dis4 fis4 > < cis4 e4 > }
+ > |
+ % 16
+}
+
+toccata_pedal = \melodic{
+ \$toccata_commands ++
+ \octave c;
+ \clef bass;
+ % 13
+ r4 'fis4-\ltoe 'e4.-\lheel e8-\rheel |
+ % 14
+ fis4.-\rtoe fis8-.-\rtoe fis4-\rtoe [e8-\ltoe ais8-\rtoe] |
+ % 15
+ dis4-\ltoe gis4-\rtoe [cis8-\ltoe 'b8-\lheel 'ais8-\rtoe 'gis8-\ltoe] |
+ % 16
+}
+
+fuga2_commands = \melodic{
+ \meter 3/4;
+ \key fis cis gis dis; % E-major
+}
+
+fuga2_right = \melodic{
+ \$fuga2_commands ++
+ % 15
+ \octave c';
+ <\multivoice
+ { \stem 1; b8 fis8 b4 }
+ { \stem -1; fis2 }
+ >
+ <% \multivoice % heu?
+ { e'4 }
+ { cis'4 }
+ { ais4 }
+ { fis4 }
+ > |
+ % 16
+ <\multivoice
+ { \stem 1; dis'2 dis'4 | cis'2 cis'4 | b4( )[b8 cis'8 dis'8 e'8] }
+ { \stem 1; \hshift 1; b8 fis8 b2( | )[b8 a16 g16] a2 | a4 gis2 }
+ { \stem -1; fis2.( | )fis2.( | )fis4 e2 }
+ > |
+ % 19
+}
+
+fuga2_left = \melodic{
+ \$fuga2_commands ++
+ \octave c;
+ \clef bass;
+ % 15
+ b2
+ <\multivoice
+ { \stem 1; ais4 | bes2. }
+ { \stem -1; e4 | fis2 fis4 }
+ >
+ % 17
+ cis'2 e'4 |
+ % 18
+ b4. b8 b4 |
+}
+
+fuga2_pedal = \melodic{
+ \$fuga2_commands ++
+ \octave c;
+ \clef bass;
+ % 15
+ dis4.-\ltoe e8-\rtoe cis4 |
+ % 16
+ 'b4.-\lheel [c8-\ltoe dis8-\rtoe e8-\rheel] |
+ % 17
+ fis4.-\rtoe [e8-\rheel dis8-\rtoe cis8-\ltoe] |
+ % 18
+ dis4-\rtoe e4-\rheel 'e4-\ltoe |
+}
+
+break = \melodic{ \meter 4/4; r1 }
+
+% these should be two separate scores...
+\score{
+ \staff{ melodicregs
+ % why the extra "\melodic" (silly)
+ % let "[ x ]" be "dimension of x":
+ % [ melodic ++ melodic ] == [ simple-mudela ]
+ % [ \melodic{ melodic ++ melodic } ] == [ melodic ]
+ % ?
+ \melodic{
+ \$toccata_right ++ \break ++ \$fuga2_right
+ }
+ }
+ \staff{ melodicregs
+ \melodic{
+ \$toccata_left ++ \break ++ \$fuga2_left
+ }
+ }
+ \staff{ melodicregs
+ \melodic{
+ \$toccata_pedal
+ ++ \break
+ ++ \$fuga2_pedal
+ }
+ }
+ \paper{}
+ \midi{
+ \tempo 4:96
+ }
+}
+