include size of thumb appendix in bbox.

diff --git a/ChangeLog b/ChangeLog
index cefebfd7f3d2ca11879d6e2afd3de98446ee3b76..d73d8595594751cbbf02a2b74cde2ce701d54fa0 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2004-10-24  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
+       * mf/feta-schrift.mf: include size of thumb appendix in bbox.
+
        * THANKS: add Meisters to the Development team.
 
        * scm/framework-tex.scm (convert-to-dvi): redirect output to

diff --git a/mf/feta-schrift.mf b/mf/feta-schrift.mf
index 546a89eb757e5eef589af12d78bad1d21656de7a..248559ba543e0e360837757772537dea7454da46 100644 (file)
--- a/mf/feta-schrift.mf
+++ b/mf/feta-schrift.mf
@@ -171,11 +171,12 @@ fet_endchar;
 %
 
 fet_beginchar("Thumb", "thumb", "thumb")
-        save thin, height, width, thick;
+        save thin, height, width, thick, depth;
         height# = 5/4 width#;
         height# = staff_space#;
-        set_char_box(width#/2, width#/2, height#/2, height#/2);
-       define_pixels (height,width)
+       depth# = 1.6 (height# / 2); 
+        set_char_box(width#/2, width#/2, depth#, height#/2);
+       define_pixels (height, width)
 
         thin = .6  linethickness + 0.06 staff_space;
        2 thick + 0.5 (height - 2 thin) = width;
@@ -190,9 +191,12 @@ fet_beginchar("Thumb", "thumb", "thumb")
         addto currentpicture also currentpicture yscaled -1;
 
        z3 = (0, -h);
-       z4 = (0, -1.5h);
+       save brush_thick;
+       y4 = - d + brush_thick / 2;
+       brush_thick = 0.9*thick;
+       x4 = 0;
        penlabels(3,4);
-       draw_brush(z3,1.4*thin, z4,0.9*thick);
+       draw_brush(z3,1.4*thin, z4, brush_thick);
 fet_endchar;
 
 %