diff options
| author | Phil Holmes <mail@philholmes.net> | 2013-07-29 15:21:46 +0100 |
|---|---|---|
| committer | Phil Holmes <mail@philholmes.net> | 2013-08-03 13:50:05 +0100 |
| commit | b27354f5fd0df898310a354c4031c2c701ecebaa (patch) | |
| tree | 86a041f5e15492ff92f4879f6caf57a1dc235330 /mf | |
| parent | 3abedce5e3a208687f3a64b6c1e8d020a5573f71 (diff) | |
Fixes bounding boxes for breves, improves longas (Issue 3480)
Diffstat (limited to 'mf')
| -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; |