input/trip.ly

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