input/test/slur-proof.ly

   1
   2 x = {
   3   \outputproperty #(make-type-checker 'note-head-interface)
   4     #'extra-offset = #'(-1 . 0)
   5 }
   6
   7 \score {
   8     \context Staff \notes\relative c <
   9     \context Voice=va { \x f()f }
  10     \context Voice=vb { \x g(s4)g }
  11     \context Voice=vc { \x a(s4*2)a }
  12     \context Voice=vd { \x b(s4*3)b }
  13     \context Voice=ve { \x c(s4*4)c }
  14     \context Voice=vf { \x d(s4*5)d }
  15     \context Voice=vg { \x e(s4*6)e }
  16     \context Voice=vh { \x f(s4*7)f }
  17     \context Voice=vi { \x g(s4*8)g }
  18     \context Voice=vj { \x a(s4*9)a }
  19     \context Voice=vk { \x b(s4*10)b }
  20     \context Voice=vl { \x c(s4*11)c }
  21     \context Voice=vm { \x d(s4*12)d }
  22     \context Voice=vn { \x e(s4*13)e }
  23     \context Voice=vo { \x f(s4*14)f }
  24     \context Voice=vp { \x g(s4*15)g }
  25     \context Voice=vq { \x a(s4*16)a }
  26     \context Voice=vr { \x b(s4*17)b }
  27     \context Voice=vs { \x c(s4*18)c }
  28     \context Voice=vt { \x d(s4*19)d }
  29     \context Voice=vu { \x e(s4*20)e }
  30     \context Voice=vv { \x f(s4*21)f }
  31     \context Voice=vw { \x g(s4*22)g }
  32     \context Voice=vx { \x a(s4*23)a }
  33     \context Voice=vy { \x b(s4*24)b }
  34     \context Voice=vz { \x c(s4*25)c }
  35     \context Voice=wa { \x d(s4*26)d }
  36   >
  37   \paper {
  38     indent=0.0\mm;
  39     linewidth=-1.0\mm;
  40     \translator{
  41       \VoiceContext
  42       Slur \override #'direction = #1
  43       Stem \override #'direction = #-1
  44     }
  45   }
  46 }