From: Han-Wen Nienhuys Date: Sun, 24 Oct 2004 21:27:41 +0000 (+0000) Subject: include size of thumb appendix in bbox. X-Git-Tag: release/2.3.25~18 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=73ed53a592bb7f90293f471f213c038a16881c9a;p=lilypond.git include size of thumb appendix in bbox. --- diff --git a/ChangeLog b/ChangeLog index cefebfd7f3..d73d859559 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,7 @@ 2004-10-24 Han-Wen Nienhuys + * 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 546a89eb75..248559ba54 100644 --- 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; %