\header {
- filename = "praeludium-fuga-E.ly";
- title = "praeludium and fuga in E-major";
- opus = "BWV 566";
- composer = "Johann Sebastian Bach (1685-1750)";
- enteredby = "JCN";
+ title = "Trip";
copyright = "public domain";
}
-%{
- description
- Praeludium 3 bar excerpt,
- 2nd fuga transposed subject -- 4 bar excerpt.
- We try to imitate the Griepenkerl/Keller edition which
- gives the best approximation to Bach's original layout
-%}
+
%{
- Tested Features:
- purpose of this file is testing:
- * real-life collisions
- * multi-voice input --- splitting?
- * organ staff...
-%}
-\version "1.3.4";
+This file tests as much features of lily as possible. If there are any
+basic faults in lily, this file will not run correctly.
+TODO:
+* autochange.
-praeludium_commands = \notes {
-}
+* tremolo
+
+* lyrics.
+%}
+
+\version "1.3.59";
praeludiumRight = \notes {
- \key e;
+ \key e \major;
\clef violin;
% 13 -- how to type -- where to split -- this more neatly?
\context Staff <
\context Voice = I \relative c'' { \stemup r4 dis4 e4. e8 ~ |
- \shifton e4 [d8 fis8] \shiftoff gis4 ~ [gis8 fis16 e ] |
+ \shifton e4-.-^^\f [d8 fis8] \shiftoff gis4 ~ [gis8 fis16 e ] |
fis4 ~ [fis8 e16 dis] e4 r8 e8 }
\context Voice = III \relative c'' { \stemup \shifton r4 bis cis \shiftoff cis |
a' ~ [a16 gis a b] \shifton dis,4 cis ~ |
[cis8 dis16 ais] bis4 cis r8 b }
\context Voice = IV \relative c'' {
-
- %\stemup
- %{
- this is a diversion from the Griepenkerl/Keller
- edition; a hack to avoid collisions
- %}
\stemdown
\shifton s4 gis }
}
praeludiumLeft = \notes \relative c {
- \key e;
+ \key e \major;
\clef bass;
% 13
\context Staff <
\context Voice = two { r4 }
\context Voice = one { \stemup s4 dis' cis cis ~ |
- [cis8 ( a \translator Staff = treble \stemdown \shifton d ) cis]
+ \times 4/5
+ { [cis8 ( cis
+
+ a \translator Staff = treble \stemdown \shifton d
+ )
+
+ cis] }
\translator Staff = bass
\shiftoff
[bis gis] cis4 |
\context Voice = one { \stemup bis2 }
\context Voice = three {
\property Voice.dynamicDirection = \down
- \stemup \shifton r4 gis ~ [gis8 \< gis] ~ \stemdown \shiftoff gis4 |
- a4. fis8 \! gis4. a8 ~ |
- a4 gis4 gis r8 gis }
-% { \stemup \shifton s4 fis4 e}
-% a quick hack to avoid some collisons
+ \stemup \shifton r4 gis ~ [gis8
+ \<
+
+ gis] ~ \stemdown \shiftoff gis4 |
+ a4. fis8
+ \!
+ gis4. a8 ~ |
+ a4 gis4 gis r8 gis }
\context Voice = four { \stemdown \shifton s4 fis4 e}
\context Voice = two { \stemdown s4 dis4 cis4 }
> |
-fugaII_commands = \notes{
- \time3/4;
-}
fugaIIRight = \notes \relative c'' {
- \key e; % E-major
+ \key e \major; % E-major
\clef violin;
+ \time3/4;
%15
\context Staff <
%19
}
+gracetest = \notes \grace { [c16 ( cis dis] }
+
fugaIILeft = \notes {
- \key e;
+ \key e \major;
\clef bass;
%15
\context Staff <
\context Voice = one { \stemdown
- \grace { [c16 ( cis dis] }
+ \gracetest
\relative b, < )b2 dis fis a b cis dis> \stemup ais4 |
b2 b4 }
\context Voice = two { \stemdown s2 e4 |
fis2 fis4 }
>
- \stemdown cis2 e4 |
- b4. b8 b4 |
+ \stemboth cis2 [e16( fis a \clef "treble"; b] |
+ d'4 ) b8 b8 b4 |
%19
}
fugaIIPedal = \notes \relative c {
- \key e;
+ \key e \major;
\clef bass;
%15
- dis4.-\ltoe e8-\rtoe cis4 |
+ %
+ % TODO: the volta typesetting should spread over the complete score.
+ %
+ \repeat "volta" 2 { dis4.-\ltoe } \alternative { e8-\rtoe cis4 } |
b4.-\lheel [cis8-\ltoe dis8-\rtoe e8-\rheel] |
fis4.-\rtoe [e8-\rheel dis8-\rtoe cis8-\ltoe] |
dis4-\rtoe e4-\rheel e,4-\ltoe |
%19
}
-
-
% these should be two separate scores...
\score{
\context Score \notes <
\context PianoStaff <
\context Staff = treble {
+ \property Staff.instrument = #"right"
+ \property Staff.instr = #"rt"
+ \property PianoStaff.instrument = #"hands"
+ \property PianoStaff.instr = #"hs"
+
+
\property Score.midiInstrument = "church organ"
- \praeludiumRight r1 \fugaIIRight }
- \context Staff = bass {
+ \praeludiumRight
+ r1 \mark "B";
+ \fugaIIRight }
+ \context Staff = bass {
+ \property Staff.instrument = #"left"
+ \property Staff.instr = #"lt"
\praeludiumLeft r1 \fugaIILeft }
>
\context Staff = pedal \relative c <
{
+ \property Staff.instrument = #"bass"
+ \property Staff.instr = #"bs"
+
\time 4/4;
- \key E;
+ \key e \major;
\clef bass;
%13
r4 fis,4-\ltoe e4.-\lheel e'8-\rheel |
fis4.-\rtoe fis8-\rtoe fis4-\rtoe [e8-\ltoe a-\rtoe] |
- dis,4-\ltoe gis-\rtoe [cis,8-\ltoe( b!-\lheel ais-\rtoe gis-\ltoe ~ ] |
- %16
- \notes { gis8 r4. )c2 }
+ dis,4-\ltoe gis-\rtoe [cis,8-\ltoe
+ (
+ b!-\lheel ais-\rtoe gis-\ltoe ~ ] |
+ gis8 r4.
+ )
+ c2^^^-^\f
\time 3/4;
\fugaIIPedal }
\paper {
- \translator { \OrchestralScoreContext }
+ \translator {
+ \OrchestralScoreContext
+ }
+ \translator { \PianoStaffContext
+ \consists "Instrument_name_engraver";
+ }
+ \translator { \StaffContext
+ \consists "Instrument_name_engraver";
+ }
}
\midi {
projects / lilypond.git / blobdiff