input/test/ac-extra-voice.ly

   1 #(ly:set-option 'old-relative)
   2 \version "1.9.1"
   3
   4 %% I don't know what this example is supposed to do.  delete it?
   5 %% It shows how to use the autochange feature together with an extra
   6 %% voice.  When I needed to typeset this example, I found it not trivial
   7 %% and dumped a piece of it here.  Move to refman?
   8
   9 \header{
  10     texidoc="When using automatic staff changes for the one voice, the
  11 other voice must be given a name explicitely."
  12 }
  13
  14 global = \notes{
  15     \key a \minor
  16     \time 6/4
  17 }
  18
  19 melody = \notes\relative c''{
  20     r2 r r
  21     r2 r r
  22     r4 a'8-- \< a-- a-- a-- c-- b\!-- a-\> gis f e\!
  23     es8 \grace b c r4 r2 r
  24 }
  25
  26 basloopje = \notes\relative c{
  27     d,8( a' d f a d f d a f d a)
  28 }
  29
  30 accompany = \repeat unfold 4 \notes \relative c \basloopje
  31
  32 \score{
  33     \notes \context PianoStaff<
  34         \context Staff=up <
  35             \global
  36             \context Voice=foo{
  37                 \voiceOne
  38                 \melody
  39             }
  40         >
  41         \context Staff=down<
  42             \global
  43             \clef bass
  44             \autochange Staff \context Voice \accompany
  45         >
  46     >
  47
  48     \paper {
  49         \translator{
  50             \StaffContext
  51             autoBeamSettings \override #'(end * * * *)
  52             = #(ly:make-moment 1 2)
  53         }
  54     }
  55     \midi {
  56         \tempo 4 = 54
  57     }
  58 }
  59
  60