input/test/ac-extra-voice.ly

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