input/test/slur-shape.ly

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