input/praeludium-fuga-E.ly

   1 \version "1.3.146"
   2 \header {
   3   filename =    "praeludium-fuga-E.ly"
   4   title =       "praeludium and fuga in E-major"
   5   opus =        "BWV 566"
   6   composer =    "Johann Sebastian Bach (1685-1750)"
   7   enteredby =   "JCN"
   8   copyright =   "public domain"
   9 }
  10 %{
  11   description
  12
  13   Praeludium 3 bar excerpt,
  14         2nd fuga transposed subject -- 4 bar excerpt.
  15         We try to imitate the Griepenkerl/Keller edition which
  16         gives the best approximation to Bach's original layout
  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
  27
  28
  29
  30 praeludiumCommands =  \notes {
  31   \time 4/4
  32    \key e \major
  33 }
  34
  35 praeludiumRight =   \notes {
  36   \praeludiumCommands
  37   \clef violin
  38
  39   % 13 -- how to type -- where to split -- this more neatly?
  40   \context Staff <
  41     \context Voice = I \relative c'' { \stemUp r4 dis4 e4. e8 ~ |
  42       \shiftOn e4 [d8 fis8] \shiftOff gis4 ~ [gis8 fis16 e ] |
  43       fis4 ~ [fis8 e16 dis] e4 r8 e8 }
  44     \context Voice = III \relative c'' { \stemUp \shiftOn r4 bis cis \shiftOff cis |
  45       a' ~ [a16 gis a b] \shiftOn dis,4 cis ~ |
  46       [cis8 dis16 ais] bis4 cis r8 b }
  47     \context Voice = IV \relative c'' {
  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 gis }
  56
  57     \context Voice =  II \relative c' { \stemDown
  58 %      \shiftOn       % idem
  59
  60       r4 fis \shiftOff gis gis |
  61       a4. cis8 gis2 |
  62       fis4 gis gis r8 e8 }
  63   > |
  64   % 16
  65 }
  66
  67 praeludiumLeft =  \notes \relative c {
  68   \praeludiumCommands
  69   \clef bass
  70
  71   % 13
  72   \context Staff <
  73     \context Voice = two { r4 }
  74     \context Voice = one { \stemUp s4 dis' cis cis ~ |
  75       [cis8 a d cis] [bis gis] cis4 |
  76       dis2 cis4 r8 cis }
  77     \context Voice = one { \stemUp bis2 }
  78     \context Voice = three { \stemUp \shiftOn r4 gis ~ [gis8 gis] ~ \stemDown \shiftOff gis4 |
  79       a4. fis8 gis4. a8 ~ |
  80       a4 gis4 gis r8 gis }
  81 %    { \stemUp \shiftOn s4 fis4 e}
  82 % a quick hack to avoid some collisons
  83     \context Voice = four { \stemDown \shiftOn s4 fis4 e}
  84     \context Voice = two { \stemDown s4 dis4 cis4 }
  85   > |
  86   %16
  87 }
  88
  89 praeludiumPedal =  \notes \relative c{
  90   \praeludiumCommands
  91   \clef bass
  92
  93   %13
  94   r4 fis,4-\ltoe e4.-\lheel e'8-\rheel |
  95   fis4.-\rtoe fis8-\rtoe fis4-\rtoe [e8-\ltoe a-\rtoe] |
  96   dis,4-\ltoe gis-\rtoe [cis,8-\ltoe b!-\lheel ais-\rtoe gis-\ltoe] |
  97   %16
  98 }
  99
 100
 101 fugaIICommands =  \notes{
 102   \time3/4
 103   \key e \major              % E-major
 104 }
 105
 106 fugaIIRight =  \notes   \relative c''   {
 107   \fugaIICommands
 108   \clef violin
 109
 110   %15
 111   \context Staff <
 112     \context Voice = VA { \stemUp [b8 fis8] b4 }
 113     \context Voice = VB {  \stemDown fis2 }
 114   >
 115
 116   \context Staff \notes\relative c''<
 117        \context Voice=one {
 118           \property Voice.NoteColumn \override #'horizontal-shift = #0
 119           \stemUp\slurUp\tieUp
 120           e4
 121        }
 122        \context Voice=two {
 123           \stemUp\slurUp\tieUp
 124           \property Voice.NoteColumn \override #'horizontal-shift = #1
 125           cis
 126        }
 127        \context Voice=three {
 128           \property Voice.NoteColumn \override #'horizontal-shift = #2
 129           \stemUp\slurUp\tieUp
 130           ais
 131        }
 132        \context Voice=four {
 133           \stemDown\slurDown\tieDown
 134           \property Voice.NoteColumn \override #'horizontal-shift = #-1
 135           fis
 136        }
 137   >
 138
 139     %16
 140     \context Staff <
 141       \context Voice = one {  dis2 dis4 |
 142       cis2 cis4 |
 143       b4. [cis8 dis e] }
 144     \context Voice = three {  \stemUp \shiftOn [b8 fis] b2 ~ |
 145       [b8 a!16 gis] a2 ~ |
 146       a4 gis2 }
 147     \context Voice = two {  \stemDown fis2. ~ |
 148       fis ~ |
 149       fis4 e2 }
 150   > |
 151   %19
 152 }
 153
 154 fugaIILeft =  \notes {
 155   \fugaIICommands
 156   \clef bass
 157
 158   %15
 159   \context Staff <
 160     \context Voice = two { \stemDown b2 \stemUp ais4 |
 161       b2 b4 }
 162     \context Voice = two { \stemDown s2 e4 |
 163       fis2 fis4 }
 164   >
 165   \stemDown cis2 e4 |
 166   b4. b8 b4 |
 167   %19
 168 }
 169
 170 fugaIIPedal =  \notes \relative c {
 171   \fugaIICommands
 172   \clef bass
 173
 174   %15
 175   dis4.-\ltoe e8-\rtoe cis4 |
 176   b4.-\lheel [cis8-\ltoe dis8-\rtoe e8-\rheel] |
 177   fis4.-\rtoe [e8-\rheel dis8-\rtoe cis8-\ltoe] |
 178   dis4-\rtoe e4-\rheel e,4-\ltoe |
 179   %19
 180 }
 181
 182 breakmusic =  \notes {
 183   %\time4/4
 184   r1
 185 }
 186
 187
 188 % these should be two separate scores...
 189 \score{
 190   \context Score <
 191     \context PianoStaff <
 192       \context Staff = treble {
 193         \property Score.midiInstrument = "church organ"
 194         \praeludiumRight \breakmusic \fugaIIRight }
 195       \context Staff = bass {
 196         \praeludiumLeft \breakmusic \fugaIILeft }
 197     >
 198     \context Staff = pedal {
 199       \praeludiumPedal \breakmusic \fugaIIPedal }
 200   >
 201
 202   \paper {
 203
 204    \translator { \OrchestralScoreContext }
 205   }
 206
 207   \midi {
 208     \tempo 4 =96 }
 209 }