input/trip.ly

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