input/bugs/p.ly

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