]> git.donarmstrong.com Git - lilypond.git/blobdiff - mf/feta-haak.mf
* lily/system-start-delimiter.cc (staff_bracket): use glyphs.
[lilypond.git] / mf / feta-haak.mf
index 6729a2e90f67741bd17a16a017a1dc8787446f81..795952304f1fe1aa892934a7a67342a375406577 100644 (file)
@@ -3,7 +3,7 @@ fet_begingroup ("brackettips");
 
 def draw_bracket(expr thick_sharp, width_sharp, updown) =
 begingroup;
-       save p, thin, thick, flattening, width;
+       save p, thin, thick, flattening, width, hair;
        path p;
        pair tipdir;
 
@@ -21,7 +21,8 @@ begingroup;
        fi;
 
        thin = 2 linethickness;
-       
+       hair = linethickness;
+
        pickup pencircle scaled thin;
 
 
@@ -34,25 +35,34 @@ begingroup;
        lft x3 = 0.0;
        x1 = x3l;
        y1 = -0.5 thick;
-       
+
+
+       save tight;
+       tight := 1.3;
        z5 = .5 [z1, z3] + (width - thin, flattening * width - .5 thin);
-       p := .5 [z1, z3]{right} .. z5;
+       p := .5 [z1, z3]{right}
+               .. tension tight
+               .. z5;
        tipdir := (direction 1 of p);
 
-       penpos5 (thin, angle (tipdir));
-       penpos6 (thin, 90 + angle (tipdir));
+       penpos5 (hair, angle (tipdir));
+       penpos6 (hair, 90 + angle (tipdir));
 
        z5 = z6;
 
        z7 = z1 + (thick,0); 
-
+       z2 = z4r + (thin, 0);
 
        pickup pencircle scaled 1;
 
        % draw p;
        fill (z1{up} .. z3l{up}
-               .. z4r{right} .. z6r{tipdir}
+               .. z4r{right}
+               .. z2{right}
+               .. tension tight
+               .. z6r{tipdir}
                .. z5r .. z6l{-tipdir}
+               .. tension tight
                .. z7{left} .. z1{left} & cycle)
                 yscaled updown;