input/test/slur-proof.ly

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