. Fix slope of slashes for sharp signs to make them really
parallel. This was especially noticeable in feta11.
. Fix shape of Longa notehead with up-stem.
. Other minor improvements, mainly for mf2pt1; for example, replace
cyclic penstrokes with a fill/unfill combination.
% mf doesn't handle pixel dropouts in outline objects, so we use
% `draw' if not called by mpost
if known miterlimit:
% mf doesn't handle pixel dropouts in outline objects, so we use
% `draw' if not called by mpost
if known miterlimit:
- penstroke z1e
- .. z2e
- .. z3e
- .. z4e
- .. cycle;
+ fill z1r
+ .. z2r
+ .. z3r
+ .. z4r
+ .. cycle;
+ unfill z1l
+ .. z2l
+ .. z3l
+ .. z4l
+ .. cycle;
else:
pickup pencircle xscaled accreg_linethickness yscaled lt;
draw z1
else:
pickup pencircle xscaled accreg_linethickness yscaled lt;
draw z1
% mf doesn't handle pixel dropouts in outline objects, so we use
% `draw' if not called by mpost
if known miterlimit:
% mf doesn't handle pixel dropouts in outline objects, so we use
% `draw' if not called by mpost
if known miterlimit:
- penstroke z1e
- .. z2e
- .. z3e
- .. z4e
- .. cycle;
+ fill z1r
+ .. z2r
+ .. z3r
+ .. z4r
+ .. cycle;
+ unfill z1l
+ .. z2l
+ .. z3l
+ .. z4l
+ .. cycle;
else:
pickup pencircle xscaled accreg_linethickness yscaled lt;
draw z1
else:
pickup pencircle xscaled accreg_linethickness yscaled lt;
draw z1
% mf doesn't handle pixel dropouts in outline objects, so we use
% `draw' if not called by mpost
if known miterlimit:
% mf doesn't handle pixel dropouts in outline objects, so we use
% `draw' if not called by mpost
if known miterlimit:
- penstroke z1e
- .. z2e
- .. z3e
- .. z4e
- .. cycle;
+ fill z1r
+ .. z2r
+ .. z3r
+ .. z4r
+ .. cycle;
+ unfill z1l
+ .. z2l
+ .. z3l
+ .. z4l
+ .. cycle;
else:
pickup pencircle xscaled accreg_linethickness yscaled lt;
draw z1
else:
pickup pencircle xscaled accreg_linethickness yscaled lt;
draw z1
pickup pencircle scaled (lr + blot_diameter);
pickup pencircle scaled (lr + blot_diameter);
- for pp := 0 step 45 until 180:
+ for pp := 0 step 45 until 135:
drawdot z2 rotated pp;
drawdot z3 rotated pp;
drawdot z2 rotated pp;
drawdot z3 rotated pp;
% mf doesn't handle pixel dropouts in outline objects, so we use
% `draw' if not called by mpost
if known miterlimit:
% mf doesn't handle pixel dropouts in outline objects, so we use
% `draw' if not called by mpost
if known miterlimit:
- penstroke z10e
- .. z11e
- .. z12e
- .. z13e
- .. cycle;
+ fill z10r
+ .. z11r
+ .. z12r
+ .. z13r
+ .. cycle;
+ unfill z10l
+ .. z11l
+ .. z12l
+ .. z13l
+ .. cycle;
else:
pickup pencircle xscaled accreg_linethickness yscaled lt;
draw z10
else:
pickup pencircle xscaled accreg_linethickness yscaled lt;
draw z10
rt x1 - fudge = 0;
x1 = x2;
rt x1 - fudge = 0;
x1 = x2;
draw_gridline (z1, z2, stemthick);
draw_gridline (z3, z4, stemthick);
draw_gridline (z1, z2, stemthick);
draw_gridline (z3, z4, stemthick);
- penstroke z1e{up}
- .. z2e{right}
- .. z3e{down}
- .. z4e{left}
- .. cycle;
+ fill z1l{up}
+ .. z2l{right}
+ .. z3l{down}
+ .. z4l{left}
+ .. cycle;
+ unfill z1r{up}
+ .. z2r{right}
+ .. z3r{down}
+ .. z4r{left}
+ .. cycle;
draw_gridline ((0, -h), (0, h), thin);
draw_gridline ((-w, 0), (w, 0), thin);
draw_gridline ((0, -h), (0, h), thin);
draw_gridline ((-w, 0), (w, 0), thin);
set_char_box (codawidth# + thick#, codawidth# + thick#,
codaheight# + thick#, codaheight# + thick#);
set_char_box (codawidth# + thick#, codawidth# + thick#,
codaheight# + thick#, codaheight# + thick#);
- x1 = -codawidth + .5 thick;
+ x1 = -codawidth + thick - .5 blot_diameter;
- x2 = codawidth - .5 thick;
+ x2 = codawidth - thick + .5 blot_diameter;
+ draw_square_block (z1, z2);
x3 = -codawidth;
y3 = -codaheight;
x3 = -codawidth;
y3 = -codaheight;
pickup pencircle scaled 2 blot_diameter;
rt x2 - lft x1 = beamwidth;
pickup pencircle scaled 2 blot_diameter;
rt x2 - lft x1 = beamwidth;
- y2 - y1 = sharp_beamheight;
+ z2 = z1 + whatever * (beamwidth, sharp_beamheight);
.5 [z1, z3] = (.5 w, offset);
x3 = x2;
top y2 - bot y3 = sharp_beamheight;
.5 [z1, z3] = (.5 w, offset);
x3 = x2;
top y2 - bot y3 = sharp_beamheight;
(left_wid + right_wid - overlap) * staff_space#,
.6 staff_space#, 1.9 staff_space#);
draw_meta_flat (0, left_wid * staff_space, 1/3 staff_space);
(left_wid + right_wid - overlap) * staff_space#,
.6 staff_space#, 1.9 staff_space#);
draw_meta_flat (0, left_wid * staff_space, 1/3 staff_space);
- draw_meta_flat (round ((left_wid - overlap) * staff_space),
- right_wid * staff_space, 0.33 staff_space);
+ draw_meta_flat (hround ((left_wid - overlap) * staff_space),
+ right_wid * staff_space, 1/3 staff_space);
(left_wid + right_wid - overlap) * staff_space#,
.6 staff_space#, 1.9 staff_space#);
draw_meta_flat (0, left_wid * staff_space, 1/3 staff_space);
(left_wid + right_wid - overlap) * staff_space#,
.6 staff_space#, 1.9 staff_space#);
draw_meta_flat (0, left_wid * staff_space, 1/3 staff_space);
- draw_meta_flat (round ((left_wid - overlap) * staff_space),
- right_wid * staff_space, 0.33 staff_space);
+ draw_meta_flat (hround ((left_wid - overlap) * staff_space),
+ right_wid * staff_space, 1/3 staff_space);
%% maybe we should clip part of the stems?
%% or make the 1st flat smaller?
%% maybe we should clip part of the stems?
%% or make the 1st flat smaller?