input/trip.ly

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