]> git.donarmstrong.com Git - lilypond.git/blob - input/test/slur-proof.ly
patch::: 1.5.2.jcn2
[lilypond.git] / input / test / slur-proof.ly
1 \version "1.3.146"
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(s4)g }
13     \context Voice=vc { \x a(s4*2)a }
14     \context Voice=vd { \x b(s4*3)b }
15     \context Voice=ve { \x c(s4*4)c }
16     \context Voice=vf { \x d(s4*5)d }
17     \context Voice=vg { \x e(s4*6)e }
18     \context Voice=vh { \x f(s4*7)f }
19     \context Voice=vi { \x g(s4*8)g }
20     \context Voice=vj { \x a(s4*9)a }
21     \context Voice=vk { \x b(s4*10)b }
22     \context Voice=vl { \x c(s4*11)c }
23     \context Voice=vm { \x d(s4*12)d }
24     \context Voice=vn { \x e(s4*13)e }
25     \context Voice=vo { \x f(s4*14)f }
26     \context Voice=vp { \x g(s4*15)g }
27     \context Voice=vq { \x a(s4*16)a }
28     \context Voice=vr { \x b(s4*17)b }
29     \context Voice=vs { \x c(s4*18)c }
30     \context Voice=vt { \x d(s4*19)d }
31     \context Voice=vu { \x e(s4*20)e }
32     \context Voice=vv { \x f(s4*21)f }
33     \context Voice=vw { \x g(s4*22)g }
34     \context Voice=vx { \x a(s4*23)a }
35     \context Voice=vy { \x b(s4*24)b }
36     \context Voice=vz { \x c(s4*25)c }
37     \context Voice=wa { \x d(s4*26)d }
38   >
39   \paper {
40     indent=0.0\mm
41     linewidth=-1.0\mm
42     \translator{
43       \VoiceContext
44       Slur \override #'direction = #1
45       Stem \override #'direction = #-1
46     }
47   }
48 }