input/test/slur-proof.ly

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