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, WL";
  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
  23 \version "0.1.9";
  24
  25 praeludium_commands = \melodic {
  26   \meter 4/4;
  27   \key fis cis gis dis;             % E-major
  28 }
  29
  30 doshift = \property Voice.hshift = 1
  31 noshift = \property Voice.hshift = 0
  32
  33 praeludium_right = \melodic {
  34   \$praeludium_commands
  35   \octave c';
  36   \clef violin;
  37
  38   % 13 -- how to type -- where to split -- this more neatly?
  39   \multi 2 <
  40     { \stemup r4 dis'4 e'4. e'8 ~ |
  41       \doshift e'4 [d'8 fis'8]
  42        \noshift gis'4 ~ [gis'8 fis'16 e'16] |
  43       fis'4 ~ [fis'8 e'16 dis'16] e'4 r8 e'8 }
  44     { \stemup  r4 bis4 cis'4 cis'4 |
  45       \noshift a'4 ~ [a'16 gis'16 a'16 b'16]
  46        \doshift dis'4 cis'4 ~ |
  47       [cis'8 dis'16 ais16] bis4 cis'4 r8 b8 }
  48     { \stemup \property Voice.hshift = 2 s4 gis4 }
  49     { \stemdown \property Voice.hshift = 2 r4 fis4
  50        \noshift gis4 gis4 |
  51       a4. cis'8 gis2 |
  52       fis4 gis4 gis4 r8 e8 }
  53   > |
  54   % 16
  55 }
  56
  57 praeludium_left = \melodic {
  58   \$praeludium_commands
  59   \octave c;
  60   \clef bass;
  61
  62   % 13
  63   \multi 2 <
  64     { \stemup r4 dis'4 cis'4 cis'4 ~ |
  65       [cis'8 a8 d'8 cis'8] [bis8 gis8] cis'4 |
  66       dis'2 cis'4 r8 cis'8 }
  67     { \stemup bis2 }
  68     { \stemup \doshift r4 gis4 ~
  69        [gis 8 gis8] ~ \stemdown \noshift gis4 |
  70       a4. fis8 gis4. a8 ~ |
  71       a4 gis4 gis4 r8 gis8 }
  72     { \stemup \property Voice.hshift = 2 s4 fis4 e}
  73     { \stemdown s4 dis4 cis4 }
  74   > |
  75   % 16
  76 }
  77
  78 praeludium_pedal = \melodic {
  79   \$praeludium_commands
  80   \octave c;
  81   \clef bass;
  82
  83   % 13
  84   r4 'fis4-\ltoe 'e4.-\lheel e8-\rheel |
  85   fis4.-\rtoe fis8-\rtoe fis4-\rtoe [e8-\ltoe a8-\rtoe] |
  86   dis4-\ltoe gis4-\rtoe [cis8-\ltoe 'b!8-\lheel 'ais8-\rtoe 'gis8-\ltoe] |
  87   % 16
  88 }
  89
  90
  91 fuga2_commands = \melodic{
  92   \meter 3/4;
  93   \key fis cis gis dis;             % E-major
  94 }
  95
  96 fuga2_right = \melodic {
  97   \$fuga2_commands
  98   \octave c';
  99   \clef violin;
 100
 101   % 15
 102   \multi 2 <
 103     { \stemup [b8 fis8] b4 }
 104     { \stemdown fis2 }
 105   >
 106    %{ this chord is usually set like this:
 107         |
 108        x||
 109         x||
 110          x|
 111       |x
 112       |
 113    %}
 114    \multi 2 <
 115      { \stemup \noshift e'4 }
 116      { \stemup \doshift cis'4 }
 117      { \stemup \property Voice.hshift = 2 ais4 }
 118      { \stemdown fis4 }
 119    > |
 120   % 16
 121   \multi 2 <
 122     { \stemup dis'2 dis'4 |
 123       cis'2 cis'4 |
 124       b4. [cis'8 dis'8 e'8] }
 125     { \stemup \doshift [b8 fis8] b2 ~ |
 126       [b8 a!16 gis16] a2 ~ |
 127       a4 gis2 }
 128     { \stemdown fis2. ~ |
 129       fis2. ~ |
 130       fis4 e2 }
 131   > |
 132   % 19
 133 }
 134
 135 fuga2_left = \melodic {
 136   \$fuga2_commands
 137   \octave c;
 138   \clef bass;
 139
 140   % 15
 141   \multi 2 <
 142     { \stemdown b2 \stemup ais4 |
 143       b2 b4 }
 144     { \stemdown s2 e4 |
 145       fis2 fis4 }
 146   >
 147   \stemdown cis'2 e'4 |
 148   b4. b8 b4 |
 149   % 19
 150 }
 151
 152 fuga2_pedal = \melodic {
 153   \$fuga2_commands
 154   \octave c;
 155   \clef bass;
 156
 157   % 15
 158   dis4.-\ltoe e8-\rtoe cis4 |
 159   'b4.-\lheel [cis8-\ltoe dis8-\rtoe e8-\rheel] |
 160   fis4.-\rtoe [e8-\rheel dis8-\rtoe cis8-\ltoe] |
 161   dis4-\rtoe e4-\rheel 'e4-\ltoe |
 162   % 19
 163 }
 164
 165 break = \melodic {
 166   %\meter 4/4;
 167   r1
 168 }
 169
 170
 171 % these should be two separate scores...
 172 \score{
 173   \type Score <
 174     \type Grandstaff <
 175       \type Staff = treble {
 176         \praeludium_right \break \fuga2_right }
 177       \type Staff = bass {
 178         \praeludium_left \break \fuga2_left }
 179     >
 180     \type Staff = pedal {
 181       \praeludium_pedal \break \fuga2_pedal }
 182   >
 183
 184   \paper{}
 185
 186   \midi {
 187     \tempo 4 = 96; }
 188 }