X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=mf%2Ffeta-bolletjes.mf;h=c09c3d2df9c4bba4d55194b66350f3778315b142;hb=9f3572d98bb948c9689cd1f75401a029451fa001;hp=48eb3649c3693334805d8bca3d6ac375d6c5d29a;hpb=04265f11d1f21416ccebd2dcaa1d903dc781b36e;p=lilypond.git diff --git a/mf/feta-bolletjes.mf b/mf/feta-bolletjes.mf index 48eb3649c3..c09c3d2df9 100644 --- a/mf/feta-bolletjes.mf +++ b/mf/feta-bolletjes.mf @@ -1010,7 +1010,7 @@ def draw_re_head (expr width_factor, dir) = save p_in, p_out; path p_in, p_out; - set_char_box (0, width_factor * solfa_base_notewidth#, + set_char_box (0, width_factor * solfa_noteheight#, 0.5 solfa_noteheight#, 0.5 solfa_noteheight#); pickup pencircle scaled solfa_pen_thick; @@ -1094,7 +1094,7 @@ def draw_mi_head (expr width_factor) = path path_out, path_in; pair ne_dist, se_dist, ne, se; - set_char_box (0, width_factor * solfa_base_notewidth#, + set_char_box (0, width_factor * solfa_noteheight#, 0.5 solfa_noteheight#, 0.5 solfa_noteheight#); pickup pencircle scaled solfa_pen_thick; @@ -1169,7 +1169,7 @@ fet_endchar; def draw_fa_head (expr width_factor) = - set_char_box (0, width_factor * solfa_base_notewidth#, + set_char_box (0, width_factor * solfa_noteheight#, 0.5 solfa_noteheight#, 0.5 solfa_noteheight#); save p_down_in, p_down_out, p_up_in, p_up_out, nw_dist, nw; @@ -1260,7 +1260,7 @@ fet_endchar; def draw_la_head (expr width_factor) = - set_char_box (0, width_factor * solfa_base_notewidth#, + set_char_box (0, width_factor * solfa_noteheight#, 0.5 solfa_noteheight#, 0.5 solfa_noteheight#); save p_in, p_out; path p_in, p_out; @@ -1319,7 +1319,7 @@ fet_endchar; def draw_ti_head (expr width_factor, dir) = - set_char_box (0, width_factor * solfa_base_notewidth#, + set_char_box (0, width_factor * solfa_noteheight#, 0.5 solfa_noteheight#, 0.5 solfa_noteheight#); save p_in, p_out, p_top; save nw_dist, sw_dist, nw, sw;