diff options
| -rw-r--r-- | mf/feta-noteheads.mf | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/mf/feta-noteheads.mf b/mf/feta-noteheads.mf index d976b2df94..df433e98d2 100644 --- a/mf/feta-noteheads.mf +++ b/mf/feta-noteheads.mf @@ -98,11 +98,6 @@ def draw_longa (expr up) = draw_outside_ellipse (1.80, 0, 0.707, 0); undraw_inside_ellipse (1.30, 125, 0.68, 2 stafflinethickness#); - set_char_box (stemthick#, - width# + stemthick#, - noteheight# / 2, - noteheight# / 2); - pickup pencircle scaled stemthick; % Longas of smaller design sizes should have their lines longer. @@ -117,6 +112,11 @@ def draw_longa (expr up) = quanted_line_length := max (0.77, line_length); fi; + set_char_box (stemthick#, + width# + stemthick#, + staff_space# * quanted_line_length, + staff_space# * quanted_line_length); + final_line_length := quanted_line_length * staff_space; if up: @@ -200,11 +200,6 @@ def draw_brevis (expr linecount, line_thickness_multiplier) = draw_outside_ellipse (1.80, 0, 0.707, 0); undraw_inside_ellipse (1.30, 125, 0.68, 2 stafflinethickness#); - set_char_box (stemthick# * linecount + gap# * (linecount - 1), - width# + stemthick# * linecount + gap# * (linecount - 1), - noteheight# / 2, - noteheight# / 2); - define_pixels (gap); pickup pencircle scaled stemthick; @@ -220,6 +215,11 @@ def draw_brevis (expr linecount, line_thickness_multiplier) = quanted_line_length := max (0.77, line_length); fi; + set_char_box (stemthick# * linecount + gap# * (linecount - 1), + width# + stemthick# * linecount + gap# * (linecount - 1), + staff_space# * quanted_line_length, + staff_space# * quanted_line_length); + bot y1 = -quanted_line_length * staff_space; top y2 = quanted_line_length * staff_space; rt x1 - fudge = 0; |