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