make flat stem shorter

diff --git a/ChangeLog b/ChangeLog
index 3345a1644350fec54093c42fb0a2de4987a5fbbf..b465f1b9e13a6895c682cc9c413dfeee5f01df26 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2003-01-16  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
+
+       * mf/feta-toevallig.mf: make flat stem shorter 
+
 2003-01-16  Heikki Junes  <hjunes@cc.hut.fi>
 
        * lilypond-font-lock.el: Fontify post-notated slurs -( and -).

diff --git a/mf/feta-toevallig.mf b/mf/feta-toevallig.mf
index 119d3e57c487a63261ac3e408d484dea60959649..ab16af7d91fb9fa511011d507ef6e41c1fff956c 100644 (file)
--- a/mf/feta-toevallig.mf
+++ b/mf/feta-toevallig.mf
@@ -171,8 +171,13 @@ def draw_meta_flat(expr xcenter, w, crook_fatness) =
        save top_stem_thick, bottom_stem_thick, hair, smaller_hole;
        save center;
        pair center;
+       save clearing;
        center = (xcenter, 0);
 
+% the shouldn't reach to the top staff line.
+%% TODO: should take from height.
+       clearing = 1.2 stafflinethickness; 
+
 %
 %  TODO: parameterize  this
 %
@@ -186,7 +191,7 @@ def draw_meta_flat(expr xcenter, w, crook_fatness) =
        bottom_stem_thick = 1.2 stafflinethickness;
 
 
-       z1 = (0, 2 staff_space) + center;
+       z1 = (0, 2 staff_space) + center - (0, stafflinethickness/2 + clearing);
        z2 = (0, - 1/2 staff_space)+  center;
 
        penpos1(top_stem_thick, 0);
@@ -251,7 +256,7 @@ enddef;
 % unfortunately, 600dpi is not enough to show the brush of the stem.
 %
 fet_beginchar("Flat", "-1", "flat")
-       set_char_box(1.2 stafflinethickness#, .8 staff_space#, 0.6 staff_space#, 2 staff_space#);
+       set_char_box(1.2 stafflinethickness#, .8 staff_space#, 0.6 staff_space#, 1.9 staff_space#);
        draw_meta_flat(0, w, 0.31 staff_space);
        fet_endchar;
 
@@ -261,7 +266,7 @@ fet_beginchar("Double Flat", "-2", "flatflat")
        left_wid = .7;
        right_wid = .8;
        overlap = .05;
-       set_char_box(1.2 stafflinethickness#, (left_wid + right_wid -overlap) *staff_space#, .6 staff_space#, 2 staff_space#);
+       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,  
                right_wid *staff_space, 0.33 staff_space);