Merge branch 'lilypond/translation' of ssh://jomand@git.sv.gnu.org/srv/git/lilypond

[lilypond.git] / mf / feta-schrift.mf

diff --git a/mf/feta-schrift.mf b/mf/feta-schrift.mf
index 7fd09c134199d7cc69dd90e0279e9e16f12be6ea..313e39b5426bc49803ff6bbc12ca046b37e90e55 100644 (file)
--- a/mf/feta-schrift.mf
+++ b/mf/feta-schrift.mf
@@ -1567,7 +1567,7 @@ fet_beginchar ("snap pizzicato (Bartok pizzicato)", "snappizzicato");
        define_pixels (height, width);
        define_whole_blacker_pixels (thickness);
 
-       set_char_box (width# / 2, width# / 2, height# / 2, height# / 2);
+       set_char_box (width# / 2, width# / 2, height# / 2, height# * 3 / 4);
 
        penpos1 (thickness, 90);
        penpos2 (thickness, 180);
@@ -1575,10 +1575,10 @@ fet_beginchar ("snap pizzicato (Bartok pizzicato)", "snappizzicato");
        penpos4 (thickness, 0);
 
        x1 = 0;
-       y1r = h;
+       y1r = height / 2;
        x3 = x1;
        y3r = -y1r;
-       x4r = w;
+       x4r = width / 2;
        y4 = 0;
        x2r = -x4r;
        y2 = y4;
@@ -1601,10 +1601,13 @@ fet_beginchar ("snap pizzicato (Bartok pizzicato)", "snappizzicato");
                     .. z4
                     .. cycle;
        fi;
+
        z5 = (0, 0);
-       z6 = (x5, 1.5*y1r);
-       pickup pencircle scaled thickness;
-        draw z5 -- z6;
+       z6 = (x5, 1.5 y1r);
+
+       draw_gridline (z5, z6, thickness);
+
+       labels (5, 6);
 fet_endchar;
 
 fet_endgroup ("scripts");