input/test/ac-extra-voice.ly

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