diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/fdsymbol/fdoperators.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/fdsymbol/fdoperators.mf | 65 |
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 |