input/praeludium-fuga-E.ly

   1 \header {
   2   filename =    "praeludium-fuga-E.ly";
   3   title =       "praeludium and fuga in E-major";
   4   opus =        "BWV 566";
   5   description = "Praeludium 3 bar excerpt, "
   6                 "2nd fuga transposed subject -- 4 bar excerpt.  "
   7                 "We try to imitate the Griepenkerl/Keller edition which "
   8                 "gives the best approximation to Bach's original layout.";
   9   composer =    "Johann Sebastian Bach (1685-1750)";
  10   enteredby =   "JCN";
  11   copyright =   "public domain";
  12 }
  13
  14 %{
  15  Tested Features:
  16  purpose of this file is testing:
  17    * real-life collisions
  18    * multi-voice input --- splitting?
  19    * organ staff...
  20 %}
  21
  22 \version "1.0.1";
  23
  24
  25
  26 praeludium_commands = \melodic {
  27   \time 4/4;
  28    \key e;
  29 }
  30
  31 praeludium_right = \melodic\transpose c'' {
  32   \$praeludium_commands
  33   \clef violin;
  34
  35   % 13 -- how to type -- where to split -- this more neatly?
  36   \type Staff <
  37     { \stemup r4 dis'4 e'4. e'8 ~ |
  38       \shifton e'4 [d'8 fis'8] \shiftoff gis'4 ~ [gis'8 fis'16 e'16] |
  39       fis'4 ~ [fis'8 e'16 dis'16] e'4 r8 e'8 }
  40     { \stemup \shifton r4 bis4 cis'4 \shiftoff cis'4 |
  41       a'4 ~ [a'16 gis'16 a'16 b'16] \shifton dis'4 cis'4 ~ |
  42       [cis'8 dis'16 ais16] bis4 cis'4 r8 b8 }
  43     {
  44
  45       %\stemup
  46       %{
  47       this is a diversion from the Griepenkerl/Keller
  48        edition; a hack to avoid collisions
  49       %}
  50       \stemdown
  51       \shifton s4 gis4 }
  52
  53     { \stemdown
  54 %      \shifton       % idem
  55
  56       r4 fis4 \shiftoff gis4 gis4 |
  57       a4. cis'8 gis2 |
  58       fis4 gis4 gis4 r8 e8 }
  59   > |
  60   % 16
  61 }
  62
  63 praeludium_left = \melodic {
  64   \$praeludium_commands
  65   \clef bass;
  66
  67   % 13
  68   \type Staff <
  69     { \stemup r4 dis'4 cis'4 cis'4 ~ |
  70       [cis'8 a8 d'8 cis'8] [bis8 gis8] cis'4 |
  71       dis'2 cis'4 r8 cis'8 }
  72     { \stemup bis2 }
  73     { \stemup \shifton r4 gis4 ~ [gis 8 gis8] ~ \stemdown \shiftoff gis4 |
  74       a4. fis8 gis4. a8 ~ |
  75       a4 gis4 gis4 r8 gis8 }
  76 %    { \stemup \shifton s4 fis4 e}
  77 % a quick hack to avoid some collisons
  78     { \stemdown \shifton s4 fis4 e}
  79     { \stemdown s4 dis4 cis4 }
  80   > |
  81   % 16
  82 }
  83
  84 praeludium_pedal = \melodic {
  85   \$praeludium_commands
  86   \clef bass;
  87
  88   % 13
  89   r4 fis,4-\ltoe e,4.-\lheel e8-\rheel |
  90   fis4.-\rtoe fis8-\rtoe fis4-\rtoe [e8-\ltoe a8-\rtoe] |
  91   dis4-\ltoe gis4-\rtoe [cis8-\ltoe b,!8-\lheel ais,8-\rtoe gis,8-\ltoe] |
  92   % 16
  93 }
  94
  95
  96 fuga2_commands = \melodic{
  97   \time 3/4;
  98   \key e;              % E-major
  99 }
 100
 101 fuga2_right = \melodic\transpose c'' {
 102   \$fuga2_commands
 103   \clef violin;
 104
 105   % 15
 106   \type Staff <
 107     { \stemup [b8 fis8] b4 }
 108     { \stemdown fis2 }
 109   >
 110    %{ this chord is usually set like this:
 111         |
 112        x||
 113         x||
 114          x|
 115       |x
 116       |
 117    %}
 118    \type Staff <
 119      { \stemup \shiftoff e'4 }
 120      { \stemup \shifton cis'4 }
 121      { \stemup \shifton ais4 }
 122      { \stemdown fis4 }
 123    > |
 124   % 16
 125   \type Staff <
 126     { \stemup dis'2 dis'4 |
 127       cis'2 cis'4 |
 128       b4. [cis'8 dis'8 e'8] }
 129     { \stemup \shifton [b8 fis8] b2 ~ |
 130       [b8 a!16 gis16] a2 ~ |
 131       a4 gis2 }
 132     { \stemdown fis2. ~ |
 133       fis2. ~ |
 134       fis4 e2 }
 135   > |
 136   % 19
 137 }
 138
 139 fuga2_left = \melodic {
 140   \$fuga2_commands
 141   \clef bass;
 142
 143   % 15
 144   \type Staff <
 145     { \stemdown b2 \stemup ais4 |
 146       b2 b4 }
 147     { \stemdown s2 e4 |
 148       fis2 fis4 }
 149   >
 150   \stemdown cis'2 e'4 |
 151   b4. b8 b4 |
 152   % 19
 153 }
 154
 155 fuga2_pedal = \melodic {
 156   \$fuga2_commands
 157   \clef bass;
 158
 159   % 15
 160   dis4.-\ltoe e8-\rtoe cis4 |
 161   b,4.-\lheel [cis8-\ltoe dis8-\rtoe e8-\rheel] |
 162   fis4.-\rtoe [e8-\rheel dis8-\rtoe cis8-\ltoe] |
 163   dis4-\rtoe e4-\rheel e,4-\ltoe |
 164   % 19
 165 }
 166
 167 breakmusic = \melodic {
 168   %\time 4/4;
 169   r1
 170 }
 171
 172
 173 % these should be two separate scores...
 174 \score{
 175   \type Score <
 176     \type GrandStaff <
 177       \type Staff = treble {
 178         \praeludium_right \breakmusic \fuga2_right }
 179       \type Staff = bass {
 180         \praeludium_left \breakmusic \fuga2_left }
 181     >
 182     \type Staff = pedal {
 183       \praeludium_pedal \breakmusic \fuga2_pedal }
 184   >
 185
 186   \paper{}
 187
 188   \midi {
 189     \tempo 4 = 96; }
 190 }