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