input/test/ac-extra-voice.ly

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