summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/mnsymbol/Sym-Accent.mf
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2007-04-28 23:50:18 +0000
committerKarl Berry <karl@freefriends.org>2007-04-28 23:50:18 +0000
commitcf5c11423240ba8debc063012e6d1d232e6475ba (patch)
tree02994000bf507b8ba6d169ede8a2c93896dd66b6 /Master/texmf-dist/fonts/source/public/mnsymbol/Sym-Accent.mf
parent13d30f4bd3dd877180a14053b3f0029a82423019 (diff)
reinstate mnsymbol, good with palatino et al., not just minion
git-svn-id: svn://tug.org/texlive/trunk@4209 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/mnsymbol/Sym-Accent.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/mnsymbol/Sym-Accent.mf130
1 files changed, 130 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/mnsymbol/Sym-Accent.mf b/Master/texmf-dist/fonts/source/public/mnsymbol/Sym-Accent.mf
new file mode 100644
index 00000000000..5b055234f8d
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/mnsymbol/Sym-Accent.mf
@@ -0,0 +1,130 @@
+
+for scale = 1, 2, 3, 4, 5:
+ beginsymbol(scale * 8u# + 2side_bearing#, asc_height#, 0); "wide hat";
+
+ thick := rule_thickness;
+ thin := 1/2thick;
+
+ pickup pencircle scaled thin;
+
+ penpos 2(thick, 90);
+
+ top y2r = h;
+ x2 = w/2;
+ x1 = w - x3 = -eps;
+ y1 = y3 = 1/2[x_height, y2];
+
+ penpos 1(thin, angle(z2 - z1) + 90);
+ penpos 3(thin, angle(z3 - z2) + 90);
+
+ filldraw stroke z1e--z2e--z3e;
+ endchar;
+endfor;
+charlist current_char - 4: current_char - 3: current_char - 2: current_char - 1: current_char;
+
+for scale = 1, 2, 3, 4, 5:
+ beginsymbol(scale * 8u# + 2side_bearing#, asc_height#, 0); "wide tilde";
+
+ thick := rule_thickness;
+ thin := 1/2thick;
+
+ pickup pencircle scaled thin;
+
+ numeric theta;
+ theta = angle (1/6(w - thin), 1/4(h - x_height));
+
+ penpos1(thin, theta + 90);
+ penpos2(thin, theta + 90);
+ penpos3(thin, theta + 90);
+ penpos4(thin, theta + 90);
+
+ z2 - z1 = z4 - z3 = (thick - thin) * dir theta;
+
+ lft x1r = w - rt x4l = 0;
+ top y4r = h;
+ bot y1l = vround(bot y1l + min(2/3[x_height, h], y3l- 1/4thin) - top y1r);
+
+ pair delta;
+ ypart delta = 3(y3l - y1l);
+ delta = whatever * dir theta;
+
+ filldraw z1l ..controls (z1l + delta) and (z3l - delta) .. z3l .. z4l
+ -- z4r ..controls(z4r - delta) and (z2r + delta) .. z2r .. z1r -- cycle;
+ endchar;
+endfor;
+charlist current_char - 4: current_char - 3: current_char - 2: current_char - 1: current_char;
+
+for scale = 1, 2, 3, 4, 5:
+ beginsymbol(scale * 8u# + 2side_bearing#, asc_height#, 0); "wide paren";
+
+ thick := rule_thickness;
+ thin := 1/2thick;
+
+ pickup pencircle scaled thin;
+
+ numeric theta;
+ theta = angle (1/6(w - thin), 1/4(h - x_height));
+
+ penpos1(thin, 90 + theta);
+ penpos2(thin, 90 + theta);
+ penpos3(thin, 90 - theta);
+ penpos4(thin, 90 - theta);
+ penpos5(thin, 90);
+
+ z2 - z1 = (thick - thin) * dir theta;
+ z3 - z4 = (thick - thin) * dir (180 - theta);
+
+ lft x1r = w - rt x4r = side_bearing;
+ x5 = w/2;
+ top y5r = h;
+ bot y4l = vround(bot y4l - top y4r + 2/3[x_height, h]);
+ bot y1l = vround(bot y1l - top y1r + 2/3[x_height, h]);
+
+ filldraw z1l .. z2l .. z5l .. z3l .. z4l
+ -- z4r .. z3r .. z5r .. z2r .. z1r -- cycle;
+ endchar;
+endfor;
+charlist current_char - 4: current_char - 3: current_char - 2: current_char - 1: current_char;
+
+beginsymbol(6u# + 2side_bearing#, asc_height#, 0); "vec";
+ pickup pencircle scaled 2/3rule_thickness;
+
+ x0 = w - x1 = side_bearing;
+ top y0 = top y1 = h - 5/4rule_thickness;
+
+ draw z0 -- z1;
+ draw arrowhead(z1, 0, 5/2rule_thickness);
+endchar;
+
+
+beginsymbol(5u# + 2side_bearing#, 1/3asc_height#, 0); "middle bar";
+
+ penpos0(7/5rule_thickness, 70);
+ penpos1(7/5rule_thickness, 70);
+
+ x0 = w - x1 = side_bearing;
+ y0 = y1 = h;
+
+ fill stroke z0e -- z1e;
+endchar;
+
+beginsymbol(5u# + 2side_bearing#, 1/3asc_height#, 0); "middle slash";
+
+ penpos0(3/2rule_thickness, 70);
+ penpos1(3/2rule_thickness, 70);
+
+ x0 = w - x1 = side_bearing;
+ 1/2[y0,y1] = h;
+ y1 - y0 = 2rule_thickness;
+
+ fill stroke z0e -- z1e;
+endchar;
+
+beginsymbol(5u# + 2side_bearing#, 6/4asc_height#, 0); "stroke through";
+ pickup pencircle scaled rule_thickness;
+
+ z0 = (w/2,1/6asc_height);
+
+ draw (z0 - 3/4asc_height / cosd 20 * dir 70) -- (z0 + 3/4asc_height / cosd 20 * dir 70);
+endchar;
+