summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/fdsymbol/fdoperators.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/fdsymbol/fdoperators.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/fdsymbol/fdoperators.mf65
1 files changed, 17 insertions, 48 deletions
diff --git a/Master/texmf-dist/fonts/source/public/fdsymbol/fdoperators.mf b/Master/texmf-dist/fonts/source/public/fdsymbol/fdoperators.mf
index 3ea67622d4a..9e7b8da4b07 100644
--- a/Master/texmf-dist/fonts/source/public/fdsymbol/fdoperators.mf
+++ b/Master/texmf-dist/fonts/source/public/fdsymbol/fdoperators.mf
@@ -69,33 +69,8 @@ endfor;
for sign = 1, -1:
for scale = 1, 1.4:
- beginbigop(scale, scale); "big curly wedge dot";
- draw_prec(a, centre + sign * op_height/2 * up, centre - sign * op_height/2 * up, op_width - line_thickness, line_thickness, false);
- fill dot(centre - sign * 3/8op_height * up, dot_size);
- endchar;
- endfor;
- charlist current_char - 1: current_char;
-endfor;
-
-for sign = 1, -1:
- for scale = 1, 1.4:
- beginbigop(4/3scale, scale); "double big curly wedge";
- z0 = centre - 1/8op_width * right;
- z1 = centre + 1/8op_width * right;
-
- draw_prec(a, z0 + sign * op_height/2 * up, z0 - sign * op_height/2 * up, 3/4op_width - line_thickness, line_thickness, false);
- draw_prec(b, z1 + sign * op_height/2 * up, z1 - sign * op_height/2 * up, 3/4op_width - line_thickness, line_thickness, false);
- endchar;
- endfor;
- charlist current_char - 1: current_char;
-endfor;
-
-for sign = 1, -1:
- for scale = 1, 1.4:
beginbigop(scale, scale); "big union";
- draw_subset(a, centre + sign * op_height/2 * up,
- centre - sign * op_height/2 * up,
- op_width - line_thickness, line_thickness);
+ draw_subset(a, centre + sign * op_height/2 * up, centre - sign * op_height/2 * up, op_width - line_thickness, line_thickness);
endchar;
endfor;
charlist current_char - 1: current_char;
@@ -104,9 +79,7 @@ endfor;
for sign = 1, -1:
for scale = 1, 1.4:
beginbigop(scale, scale); "big union dot";
- draw_subset(a, centre + sign * op_height/2 * up,
- centre - sign * op_height/2 * up,
- op_width - line_thickness, line_thickness);
+ draw_subset(a, centre + sign * op_height/2 * up, centre - sign * op_height/2 * up, op_width - line_thickness, line_thickness);
fill dot(centre - sign * 1/8op_height * up, dot_size);
endchar;
endfor;
@@ -116,9 +89,7 @@ endfor;
for sign = 1, -1:
for scale = 1, 1.4:
beginbigop(scale, scale); "big union plus";
- draw_subset(a, centre + sign * op_height/2 * up,
- centre - sign * op_height/2 * up,
- op_width - line_thickness, line_thickness);
+ draw_subset(a, centre + sign * op_height/2 * up, centre - sign * op_height/2 * up, op_width - line_thickness, line_thickness);
r := 1/4op_width;
@@ -167,7 +138,7 @@ for sign = 1, -1:
z1 - z0 = sign * (op_height - line_thickness) * up;
1/2[1/2[z0,z1], 1/2[z2,z3]] = centre;
- draw_line(z0, z1, true);
+ draw_line(z0, z1, true);
draw_line(z1, z2, true);
draw_line(z2, z3, true);
@@ -262,14 +233,13 @@ charlist current_char - 1: current_char;
for number = 0, 1, 2, 3:
for scale = 1, 1.8:
- beginsymbol(scale * (5number + 4) * u# + (sqrt scale) * 3/4line_thickness# + 2side_bearing#, ((scale - 1)/2 + 1) * 1.6asc_height#, (scale - 1)/2 * 1.6asc_height#); "integral";
+ beginsymbol(scale * (5number + 4) * u# + (sqrt scale) * 3/4line_thickness# + 2side_bearing#, vcentre(scale * 1.6asc_height#)); "integral";
italcorr scale * 3u# - (sqrt scale) * 3/4line_thickness#; % kerning between upper limit and lower limit
pair centre;
for i = 0 upto number:
centre := (side_bearing + scale * (5i + 7/2) * u, (h - d)/2);
-
draw_integral([i])(scale, centre, 3/2line_thickness * sqrt sqrt scale);
endfor;
endchar;
@@ -278,7 +248,7 @@ for number = 0, 1, 2, 3:
endfor;
for scale = 1, 1.8:
- beginsymbol(scale * 9u# + 4(equal_spread# + dot_size#) + (sqrt scale) * 3/4line_thickness# + 2side_bearing#, ((scale - 1)/2 + 1) * 1.6asc_height#, (scale - 1)/2 * 1.6asc_height#); "integral dots";
+ beginsymbol(scale * 9u# + 4(equal_spread# + dot_size#) + (sqrt scale) * 3/4line_thickness# + 2side_bearing#, vcentre(scale * 1.6asc_height#)); "integral dots";
italcorr scale * 3u# - (sqrt scale) * 3/4line_thickness#; % kerning between upper limit and lower limit
pair centre;
@@ -303,8 +273,8 @@ charlist current_char - 1: current_char;
for sign = 1, -1:
for scale = 1, 1.8:
- beginsymbol(scale * 6u# + if scale > 1: (sqrt scale) * 3/4line_thickness# else: scale * 3u# fi + 2side_bearing#, ((scale - 1)/2 + 1) * 1.6asc_height#, (scale - 1)/2 * 1.6asc_height#); "oriented integral";
- if scale > 1:
+ beginsymbol(scale * 6u# + if scale > 1: (sqrt scale) * 3/4line_thickness# else: scale * 3u# fi + 2side_bearing#, vcentre(scale * 1.6asc_height#)); "oriented integral";
+ if scale > 1:
italcorr scale * 3u# - (sqrt scale) * 3/4line_thickness#; % kerning between upper limit and lower limit
fi
@@ -339,7 +309,7 @@ for sign = 1, -1:
endfor;
for scale = 1, 1.8:
- beginsymbol(scale * 4u# + if scale > 1: (sqrt scale) * 3/4line_thickness# else: scale * 3u# fi + 2side_bearing#, ((scale - 1)/2 + 1) * 1.6asc_height#, (scale - 1)/2 * 1.6asc_height#); "integral with horizontal bar";
+ beginsymbol(scale * 4u# + if scale > 1: (sqrt scale) * 3/4line_thickness# else: scale * 3u# fi + 2side_bearing#, vcentre(scale * 1.6asc_height#)); "integral with horizontal bar";
if scale > 1:
italcorr scale * 3u# - (sqrt scale) * 3/4line_thickness#; % kerning between upper limit and lower limit
fi
@@ -358,7 +328,7 @@ endfor;
charlist current_char - 1: current_char;
for scale = 1, 1.8:
- beginsymbol(scale * 4u# + if scale > 1: (sqrt scale) * 3/4line_thickness# else: scale * 3u# fi + 2side_bearing#, ((scale - 1)/2 + 1) * 1.6asc_height#, (scale - 1)/2 * 1.6asc_height#); "integral with double horizontal bar";
+ beginsymbol(scale * 4u# + if scale > 1: (sqrt scale) * 3/4line_thickness# else: scale * 3u# fi + 2side_bearing#, vcentre(scale * 1.6asc_height#)); "integral with double horizontal bar";
if scale > 1:
italcorr scale * 3u# - (sqrt scale) * 3/4line_thickness#; % kerning between upper limit and lower limit
fi
@@ -381,7 +351,7 @@ endfor;
charlist current_char - 1: current_char;
for scale = 1, 1.8:
- beginsymbol(scale * 4u# + (sqrt scale) * 3/4line_thickness# + 2side_bearing#, ((scale - 1)/2 + 1) * 1.6asc_height#, (scale - 1)/2 * 1.6asc_height#); "stroked integral";
+ beginsymbol(scale * 4u# + (sqrt scale) * 3/4line_thickness# + 2side_bearing#, vcentre(scale * 1.6asc_height#)); "stroked integral";
italcorr scale * 3u# - (sqrt scale) * 3/4line_thickness#; % kerning between upper limit and lower limit
pair centre;
@@ -399,7 +369,7 @@ charlist current_char - 1: current_char;
for number = 0, 1, 2:
for scale = 1, 1.8:
- beginsymbol(scale * (5number + 5) * u# + if scale > 1: (sqrt scale) * 3/4line_thickness# else: scale * 3u# fi + 2side_bearing#, ((scale - 1)/2 + 1) * 1.6asc_height#, (scale - 1)/2 * 1.6asc_height#); "contour integral";
+ beginsymbol(scale * (5number + 5) * u# + if scale > 1: (sqrt scale) * 3/4line_thickness# else: scale * 3u# fi + 2side_bearing#, vcentre(scale * 1.6asc_height#)); "contour integral";
if scale > 1:
italcorr scale * 3u# - (sqrt scale) * 3/4line_thickness#; % kerning between upper limit and lower limit
fi
@@ -420,9 +390,8 @@ for number = 0, 1, 2:
fi
% Integral must come after unfill when processed with MetaPost!
- for i = 0 upto number:
+ for i = 0 upto number:
centre := (side_bearing + scale * (5i + 4) * u, (h - d)/2);
-
draw_integral([i])(scale, centre, 3/2line_thickness * sqrt sqrt scale);
endfor;
endchar;
@@ -433,10 +402,10 @@ endfor;
for alpha = 0, 180:
for sign = 1, -1:
for scale = 1, 1.8:
- beginsymbol(scale * 6u# + if scale > 1: (sqrt scale) * 3/4line_thickness# else: scale * 3u# fi + 2side_bearing#, ((scale - 1)/2 + 1) * 1.6asc_height#, (scale - 1)/2 * 1.6asc_height#); "oriented contour integral";
+ beginsymbol(scale * 6u# + if scale > 1: (sqrt scale) * 3/4line_thickness# else: scale * 3u# fi + 2side_bearing#, vcentre(scale * 1.6asc_height#)); "oriented contour integral";
if scale > 1:
- italcorr scale * 3u# - (sqrt scale) * 3/4line_thickness#; % kerning between upper limit and lower limit
- fi
+ italcorr scale * 3u# - (sqrt scale) * 3/4line_thickness#; % kerning between upper limit and lower limit
+ fi
pair centre;
centre := (side_bearing + scale * (4u + if alpha > 90: u else: 0 fi), (h - d)/2);
@@ -465,7 +434,7 @@ for alpha = 0, 180:
endfor;
for scale = 1, 1.8:
- beginsymbol(scale * 13/2u# + if scale > 1: 0 else: scale * u# fi + 2side_bearing#, ((scale - 1)/2 + 1) * 1.6asc_height#, (scale - 1)/2 * 1.6asc_height#); "sum integral";
+ beginsymbol(scale * 13/2u# + if scale > 1: 0 else: scale * u# fi + 2side_bearing#, vcentre(scale * 1.6asc_height#)); "sum integral";
if scale > 1:
italcorr scale * u#; % kerning between upper limit and lower limit
fi