* mf/feta-toevallig.mf: tweak for bottom of flat sign.

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

diff --git a/mf/feta-toevallig.mf b/mf/feta-toevallig.mf
index 9616c63d75fa1f4f3d444b17e7890053c0aa576a..ea85a29c55e9d7fa498517a3755997403983b04e 100644 (file)
--- a/mf/feta-toevallig.mf
+++ b/mf/feta-toevallig.mf
@@ -170,6 +170,7 @@ def draw_meta_flat(expr xcenter, w, crook_fatness) =
        save crook_thinness;
        save bottom_overshoot;
        save top_stem_thick, bottom_stem_thick, hair, smaller_hole;
+       save top_crook_thinness;
        save zwiep; 
        save center;
        pair center;
@@ -184,12 +185,14 @@ def draw_meta_flat(expr xcenter, w, crook_fatness) =
 %  TODO: parameterize  this
 %
        if w >= 0.75 staff_space:
-               smaller_hole = 0.2 stafflinethickness;
+               smaller_hole = 0.35 stafflinethickness;
        else:
                smaller_hole = 0.0 stafflinethickness;
        fi
-       crook_thinness = 1.1 stafflinethickness;
-       top_stem_thick = 2.2 stafflinethickness;
+       crook_thinness = 1.3 stafflinethickness;
+       top_crook_thinness = 1.65 stafflinethickness;
+       top_stem_thick# = 2.2 stafflinethickness#;
+       define_blacker_pixels (top_stem_thick);
        bottom_overshoot = stafflinethickness;
        bottom_stem_thick = 1.2 stafflinethickness;
 
@@ -214,7 +217,8 @@ def draw_meta_flat(expr xcenter, w, crook_fatness) =
                -staff_space/2 - stafflinethickness/2) - (0,bottom_overshoot);
 
        penpos4(whatever, 53);
-       y4l - y4r = 1.5 crook_thinness ;
+
+       y4l - y4r =  top_crook_thinness ;
 
        y5r = .20 staff_space + ypart center;
        x5l = w + xpart center;
@@ -231,7 +235,7 @@ def draw_meta_flat(expr xcenter, w, crook_fatness) =
 
        z7 = z8 + whatever * bot_crook_dir + crook_thinness  * (bot_crook_dir rotated 90);
 
-       x7 = .5 [x11, x8];
+       x7 = .4 [x11, x8];
 
        penlabels(range 0 thru 10);
 
@@ -271,7 +275,7 @@ fet_beginchar("Double Flat", "-2", "flatflat")
        overlap = .05;
        set_char_box(1.2 stafflinethickness#, (left_wid + right_wid -overlap) *staff_space#, .6 staff_space#, 1.9 staff_space#);
        draw_meta_flat(0, left_wid*  staff_space, 1/3 staff_space);
-       draw_meta_flat((left_wid - overlap) *staff_space,  
+       draw_meta_flat(round ((left_wid - overlap) *staff_space),
                right_wid *staff_space, 0.33 staff_space);
        fet_endchar;