input/test/ac-extra-voice.ly

   1 \version "1.7.18"
   2 %
   3 % TODO: what's this?
   4 %
   5 % I don't know what this example is supposed to do.  delete it?
   6 \header { texidoc="DELETE ME
   7 "}
   8
   9 global =  \notes {
  10         \key a \minor
  11         \time 6/4
  12 %       \skip 1.*34
  13 %       \bar ".|"
  14 }
  15
  16 melody =  \notes\relative c''{
  17         r2 r r
  18         r2 r r
  19         r4 a'8-- \< a-- a-- a-- c-- \!b-- a--\> gis f \!e
  20         es8 \grace b c r4 r2 r
  21 }
  22
  23 basloopje =  \notes\relative c{
  24         d,8(    a' d f a d f d a f d    a-)
  25 }
  26
  27 accompany =  \notes \relative c{
  28         \notes\relative c \basloopje
  29         \notes\relative c \basloopje
  30         \notes\relative c \basloopje
  31         \notes\relative c \basloopje
  32 }
  33
  34 \score{
  35         \notes \context PianoStaff <
  36                 \context Staff=up <
  37                         \global
  38                         \context Voice=foo {
  39                         \stemUp\slurUp\tieUp
  40                         \scriptUp
  41                         \melody
  42                         }
  43                 >
  44                 \context Staff=down <
  45                         \global
  46                         \clef bass
  47                         \autochange Staff \context Voice \accompany
  48                 >
  49         >
  50
  51         \paper {
  52                 indent = 8.\mm
  53                 textheight = 295.\mm
  54
  55                 \translator{
  56                         \PianoStaffContext
  57                         defaultBarType = #""
  58                 }
  59                 \translator{
  60                         \StaffContext
  61                         % don't auto-generate bars: not a good idea: -> no breakpoints
  62                         % barAuto = "0"
  63                         % urg defaultBarType = #""
  64                         defaultBarType = #""
  65                         \remove "Time_signature_engraver"
  66
  67                         Slur \override #'direction = #1
  68
  69
  70                         autoBeamSettings \override #'(end * * * *)  = #(ly:make-moment 1 2)
  71                 }
  72         }
  73         \midi {
  74                 \tempo 4 = 54
  75         }
  76 }
  77
  78 %% new-chords-done %%