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  Tested Features:
  19  purpose of this file is testing:
  20    * real-life collisions
  21    * multi-voice input --- splitting?
  22    * organ staff...
  23 %}
  24
  25 \version "1.3.59";
  26
  27
  28
  29 praeludium_commands = \notes {
  30   \time 4/4;
  31    \key e \major;
  32 }
  33
  34 praeludium_right =  \notes {
  35   \$praeludium_commands
  36   \clef violin;
  37
  38   % 13 -- how to type -- where to split -- this more neatly?
  39   \context Staff <
  40     \context Voice = I \relative c'' { \stemup r4 dis4 e4. e8 ~ |
  41       \shifton e4 [d8 fis8] \shiftoff gis4 ~ [gis8 fis16 e ] |
  42       fis4 ~ [fis8 e16 dis] e4 r8 e8 }
  43     \context Voice = III \relative c'' { \stemup \shifton r4 bis cis \shiftoff cis |
  44       a' ~ [a16 gis a b] \shifton dis,4 cis ~ |
  45       [cis8 dis16 ais] bis4 cis r8 b }
  46     \context Voice = IV \relative c'' {
  47
  48       %\stemup
  49       %{
  50       this is a diversion from the Griepenkerl/Keller
  51        edition; a hack to avoid collisions
  52       %}
  53       \stemdown
  54       \shifton s4 gis }
  55
  56     \context Voice =  II \relative c' { \stemdown
  57 %      \shifton       % idem
  58
  59       r4 fis \shiftoff gis gis |
  60       a4. cis8 gis2 |
  61       fis4 gis gis r8 e8 }
  62   > |
  63   % 16
  64 }
  65
  66 praeludium_left = \notes \relative c {
  67   \$praeludium_commands
  68   \clef bass;
  69
  70   % 13
  71   \context Staff <
  72     \context Voice = two { r4 }
  73     \context Voice = one { \stemup s4 dis' cis cis ~ |
  74       [cis8 a d cis] [bis gis] cis4 |
  75       dis2 cis4 r8 cis }
  76     \context Voice = one { \stemup bis2 }
  77     \context Voice = three { \stemup \shifton r4 gis ~ [gis8 gis] ~ \stemdown \shiftoff gis4 |
  78       a4. fis8 gis4. a8 ~ |
  79       a4 gis4 gis r8 gis }
  80 %    { \stemup \shifton s4 fis4 e}
  81 % a quick hack to avoid some collisons
  82     \context Voice = four { \stemdown \shifton s4 fis4 e}
  83     \context Voice = two { \stemdown s4 dis4 cis4 }
  84   > |
  85   %16
  86 }
  87
  88 praeludium_pedal = \notes \relative c{
  89   \$praeludium_commands
  90   \clef bass;
  91
  92   %13
  93   r4 fis,4-\ltoe e4.-\lheel e'8-\rheel |
  94   fis4.-\rtoe fis8-\rtoe fis4-\rtoe [e8-\ltoe a-\rtoe] |
  95   dis,4-\ltoe gis-\rtoe [cis,8-\ltoe b!-\lheel ais-\rtoe gis-\ltoe] |
  96   %16
  97 }
  98
  99
 100 fugaII_commands = \notes{
 101   \time3/4;
 102   \key e \major;              % E-major
 103 }
 104
 105 fugaII_right = \notes   \relative c''   {
 106   \$fugaII_commands
 107   \clef violin;
 108
 109   %15
 110   \context Staff <
 111     \context Voice = VA { \stemup [b8 fis8] b4 }
 112     \context Voice = VB {  \stemdown fis2 }
 113   >
 114
 115   \context Staff \notes\relative c''<
 116        \context Voice=one {
 117           \property Voice.horizontalNoteShift=0
 118           \property Voice.verticalDirection=1
 119           e4
 120        }
 121        \context Voice=two {
 122           \property Voice.verticalDirection=1
 123           \property Voice.horizontalNoteShift=1
 124           cis
 125        }
 126        \context Voice=three {
 127           \property Voice.horizontalNoteShift=2
 128           \property Voice.verticalDirection=1
 129           ais
 130        }
 131        \context Voice=four {
 132           \property Voice.verticalDirection=-1
 133           \property Voice.horizontalNoteShift=-1
 134           fis
 135        }
 136   >
 137
 138     %16
 139     \context Staff <
 140       \context Voice = one {  dis2 dis4 |
 141       cis2 cis4 |
 142       b4. [cis8 dis e] }
 143     \context Voice = three {  \stemup \shifton [b8 fis] b2 ~ |
 144       [b8 a!16 gis] a2 ~ |
 145       a4 gis2 }
 146     \context Voice = two {  \stemdown fis2. ~ |
 147       fis ~ |
 148       fis4 e2 }
 149   > |
 150   %19
 151 }
 152
 153 fugaII_left = \notes {
 154   \$fugaII_commands
 155   \clef bass;
 156
 157   %15
 158   \context Staff <
 159     \context Voice = two { \stemdown b2 \stemup ais4 |
 160       b2 b4 }
 161     \context Voice = two { \stemdown s2 e4 |
 162       fis2 fis4 }
 163   >
 164   \stemdown cis2 e4 |
 165   b4. b8 b4 |
 166   %19
 167 }
 168
 169 fugaII_pedal = \notes \relative c {
 170   \$fugaII_commands
 171   \clef bass;
 172
 173   %15
 174   dis4.-\ltoe e8-\rtoe cis4 |
 175   b4.-\lheel [cis8-\ltoe dis8-\rtoe e8-\rheel] |
 176   fis4.-\rtoe [e8-\rheel dis8-\rtoe cis8-\ltoe] |
 177   dis4-\rtoe e4-\rheel e,4-\ltoe |
 178   %19
 179 }
 180
 181 breakmusic = \notes {
 182   %\time4/4;
 183   r1
 184 }
 185
 186
 187 % these should be two separate scores...
 188 \score{
 189   \context Score <
 190     \context PianoStaff <
 191       \context Staff = treble {
 192         \property Score.midiInstrument = "church organ"
 193         \praeludium_right \breakmusic \fugaII_right }
 194       \context Staff = bass {
 195         \praeludium_left \breakmusic \fugaII_left }
 196     >
 197     \context Staff = pedal {
 198       \praeludium_pedal \breakmusic \fugaII_pedal }
 199   >
 200
 201   \paper {
 202
 203    \translator { \OrchestralScoreContext }
 204   }
 205
 206   \midi {
 207     \tempo 4 =96; }
 208 }