input/trip.ly

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