lilypond-1.5.8
[lilypond.git] / mf / slur.mf
blob86a394ae0abcedd0916952fc2e2131370b76ab42
2 staffsize# = 1pt#;
3 stafflinethickness# = staffsize#/10;
4 define_pixels (stafflinethickness, staffsize);
6 input feta-sleur;
10 % beginchar
12 indent = 1.17 staffsize;
13 height = 6.15 staffsize;
14 len = 10 staffsize;
16 path boogje;
20 z1 = (0,0);
21 z2 = (indent, height);
22 z3 = (len - indent, height);
23 z4 = (len, 0);
25 boogje=z1..controls z2 and z3..z4;
26 pickup pencircle scaled stafflinethickness;
27 draw boogje;
28 shipit;
31 bye