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