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 * lyrics.
  19
  20 * drum, jazz, pop notation
  21
  22 %}
  23
  24
  25 praeludiumRight =   \notes {
  26    \key e \major;
  27   \clef violin;
  28
  29   % 13 -- how to type -- where to split -- this more neatly?
  30   \context Staff <
  31     \context Voice = I \relative c'' { \stemUp r4 dis4 e4. e8 ~ |
  32       \shiftOn e4-.-^^\f [d8 fis8] \shiftOff gis4 ~ [gis8 fis16 e ] |
  33       fis4 ~ [fis8 e16 dis] e4 r8 e8 }
  34     \context Voice = III \relative c'' { \stemUp \shiftOn r4 bis cis \shiftOff cis |
  35       a' ~ [a16 gis a b] \shiftOn dis,4 cis ~ |
  36       [cis8 dis16 ais] bis4 cis r8 b }
  37     \context Voice = IV \relative c'' {
  38       \stemDown
  39       \shiftOn s4 gis }
  40
  41     \context Voice =  II \relative c' { \stemDown
  42 %      \shiftOn       % idem
  43
  44       r4 fis \shiftOff gis gis |
  45       a4. cis8 gis2 |
  46       fis4 gis gis r8 e8 }
  47   > |
  48   % 16
  49 }
  50
  51 praeludiumLeft =  \notes \relative c {
  52    \key e \major;
  53   \clef bass;
  54
  55   % 13
  56   \context Staff <
  57     \context Voice = two { r4 }
  58     \context Voice = one { \stemUp s4 dis' cis cis ~ |
  59     \times 4/5
  60       {  [cis8 ( cis
  61
  62       a \translator Staff = treble  \stemDown \shiftOn d
  63          )
  64
  65       cis] }
  66       \translator Staff = bass
  67       \shiftOff
  68       [bis gis] cis4 |
  69       dis2 cis4 r8 cis }
  70     \context Voice = one { \stemUp bis2 }
  71     \context Voice = three {
  72     \property Voice.DynamicLineSpanner \override #'direction  = #-1
  73     \stemUp \shiftOn r4 gis ~ [gis8
  74       \<
  75
  76      gis] ~ \stemDown \shiftOff gis4 |
  77      a4. fis8
  78        \!
  79      gis4. a8 ~ |
  80      a4 gis4 gis r8 gis }
  81     \context Voice = four { \stemDown \shiftOn s4 fis4 e}
  82     \context Voice = two { \stemDown s4 dis4 cis4 }
  83   > |
  84   %16
  85 }
  86
  87
  88
  89
  90 fugaIIRight =  \notes   \relative c''   {
  91   \key e \major;              % E-major
  92   \clef violin;
  93   \time3/4;
  94
  95   %15
  96   \context Staff <
  97     \context Voice = VA { \stemUp [b8 fis8] b4 }
  98     \context Voice = VB {  \stemDown fis2 }
  99   >
 100
 101   \context Staff \notes\relative c''<
 102        \context Voice=one {
 103        \shiftOff
 104        \stemUp
 105           e4 -5
 106        }
 107        \context Voice=two {
 108           \shiftOn
 109           \stemUp
 110           cis-4
 111        }
 112        \context Voice=three {
 113           \shiftOnn
 114           \stemUp
 115           ais-3
 116        }
 117        \context Voice=four {
 118           \shiftOnnn
 119           \stemUp
 120           fis-2
 121        }
 122   >
 123
 124     %16
 125     \context Staff <
 126       \context Voice = one {  dis2 dis4 |
 127       cis2 cis4 |
 128       b4. [cis8 dis e] }
 129     \context Voice = three {  \stemUp \shiftOn [b8 fis] b2 ~ |
 130       [b8 a!16 gis] a2 ~ |
 131       a4 gis2 }
 132     \context Voice = two {  \stemDown fis2. ~ |
 133       fis ~ |
 134       fis4 e2 }
 135   > |
 136   %19
 137 }
 138
 139 gracetest =  \notes \grace { [c16 ( cis dis] }
 140
 141 fugaIILeft =  \notes {
 142   \key e \major;
 143   \clef bass;
 144
 145   %15
 146   \context Staff <
 147     \context Voice = one { \stemDown
 148     \gracetest
 149     \relative b, < )b2 dis fis a b cis dis> \stemUp ais4 |
 150       b2 b4 }
 151     \context Voice = two { \stemDown s2 e4 |
 152       fis2 fis4 }
 153   >
 154   \stemBoth cis2 [e16( fis a \clef "treble"; b] |
 155   d'4 ) b8 b8 b4 |
 156   %19
 157 }
 158
 159 fugaIIPedal =  \notes \relative c {
 160   \key e \major;
 161   \clef bass;
 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          \times 4/3 {  c4 c4 c4 }  \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 % tie accs: 2nd should get no acc
 202 f4-\rtoe~ f8
 203 fis8-\rtoe fis4-\rtoe [e8-\ltoe a-\rtoe] |
 204   dis,4-\ltoe gis-\rtoe [cis,8-\ltoe
 205     (
 206      b!-\lheel ais-\rtoe g-\ltoe ~ ] |
 207
 208 % tie should generate acc.
 209 \break
 210       g  r4.
 211     )
 212       c2^^^-^\f
 213  \time 3/4;
 214
 215   \fugaIIPedal \bar "|." ; }
 216
 217     >
 218   >
 219
 220   \paper {
 221
 222         \translator {
 223                 \OrchestralScoreContext
 224         }
 225         \translator { \PianoStaffContext
 226                 \consists "Instrument_name_engraver";
 227         }
 228         \translator { \StaffContext
 229                 \consists "Instrument_name_engraver";
 230         }
 231   }
 232
 233   \midi {
 234     \tempo 4 =96; }
 235 }