1 #(ly:set-option 'old-relative)
4 texidoc = "Slurs become flatter as they grow longer. "
9 \applyoutput #(outputproperty-compatibility (make-type-checker 'note-head-interface)
10 'extra-offset '(-1 . 0))
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) }
47 Slur \override #'direction = #1
48 Stem \override #'direction = #-1