input/test/slur-proof.ly

   1
   2 % :-(
   3 x = {
   4 \outputproperty #(make-type-checker 'Note_head) #'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 { b(s4*3)b }
  13 \context Voice=ve { c(s4*4)c }
  14 \context Voice=vf { d(s4*5)d }
  15 \context Voice=vg { e(s4*6)e }
  16 \context Voice=vh { f(s4*7)f }
  17 \context Voice=vi { g(s4*8)g }
  18 \context Voice=vj { a(s4*9)a }
  19 \context Voice=vk { b(s4*10)b }
  20 \context Voice=vl { c(s4*11)c }
  21 \context Voice=vm { d(s4*12)d }
  22 \context Voice=vn { e(s4*13)e }
  23 \context Voice=vo { f(s4*14)f }
  24 \context Voice=vp { g(s4*15)g }
  25 \context Voice=vq { a(s4*16)a }
  26 \context Voice=vr { b(s4*17)b }
  27 \context Voice=vs { c(s4*18)c }
  28 \context Voice=vt { d(s4*19)d }
  29 \context Voice=vu { e(s4*20)e }
  30 \context Voice=vv { f(s4*21)f }
  31 \context Voice=vw { g(s4*22)g }
  32 \context Voice=vx { a(s4*23)a }
  33 \context Voice=vy { b(s4*24)b }
  34 \context Voice=vz { c(s4*25)c }
  35 \context Voice=wa { d(s4*26)d }
  36 >
  37 \paper{
  38 indent=0.0\mm;
  39 linewidth=-1.0\mm;
  40 \translator{
  41 \VoiceContext
  42 slurVerticalDirection = #1
  43 stemVerticalDirection = #-1
  44 }
  45 }
  46 }