input/test/slur-shape.ly

   1 #(ly:set-option 'old-relative)
   2 \version "1.9.8"
   3 \header {
   4     texidoc = "Slurs become flatter as they grow longer. "
   5
   6 }
   7
   8 x = {
   9   \applyoutput #(outputproperty-compatibility (make-type-checker 'note-head-interface)
  10                  'extra-offset '(-1 . 0))
  11 }
  12
  13 \score {
  14     \context Staff \notes\relative c <<
  15     \new Voice { \x f(f) }
  16     \new Voice { \x g(s4g) }
  17     \new Voice { \x a(s4*2a) }
  18     \new Voice { \x b(s4*3b) }
  19     \new Voice { \x c(s4*4c) }
  20     \new Voice { \x d(s4*5d) }
  21     \new Voice { \x e(s4*6e) }
  22     \new Voice { \x f(s4*7f) }
  23     \new Voice { \x g(s4*8g) }
  24     \new Voice { \x a(s4*9a) }
  25     \new Voice { \x b(s4*10b) }
  26     \new Voice { \x c(s4*11c) }
  27     \new Voice { \x d(s4*12d) }
  28     \new Voice { \x e(s4*13e) }
  29     \new Voice { \x f(s4*14f) }
  30     \new Voice { \x g(s4*15g) }
  31     \new Voice { \x a(s4*16a) }
  32     \new Voice { \x b(s4*17b) }
  33     \new Voice { \x c(s4*18c) }
  34     \new Voice { \x d(s4*19d) }
  35     \new Voice { \x e(s4*20e) }
  36     \new Voice { \x f(s4*21f) }
  37     \new Voice { \x g(s4*22g) }
  38     \new Voice { \x a(s4*23a) }
  39     \new Voice { \x b(s4*24b) }
  40     \new Voice { \x c(s4*25c) }
  41     \new Voice { \x d(s4*26d) }
  42   >>
  43   \paper {
  44     raggedright = ##t
  45     \translator{
  46       \VoiceContext
  47       Slur \override #'direction = #1
  48       Stem \override #'direction = #-1
  49     }
  50   }
  51 }
  52