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