summaryrefslogtreecommitdiff
path: root/fonts/byzfonts/Alphabet/Caps/M.mf
diff options
context:
space:
mode:
Diffstat (limited to 'fonts/byzfonts/Alphabet/Caps/M.mf')
-rw-r--r--fonts/byzfonts/Alphabet/Caps/M.mf54
1 files changed, 54 insertions, 0 deletions
diff --git a/fonts/byzfonts/Alphabet/Caps/M.mf b/fonts/byzfonts/Alphabet/Caps/M.mf
new file mode 100644
index 0000000000..3a00e68caa
--- /dev/null
+++ b/fonts/byzfonts/Alphabet/Caps/M.mf
@@ -0,0 +1,54 @@
+beginchar("M",em#,5cap#/7,0dth#); "Mi";
+path p[];
+ save ww,hh,dd;
+
+ ww = w/10; hh = h/5;
+ b := ww;
+
+ y3 = y6 = y8 = 9hh;
+ y0 = y10;
+ x13 = x1 = x2 = x3 = x9 = x11;
+ x14 = x4 = x5 = x6 = x10 = x12;
+ x1 = 10ww - x4 = ww;
+ y1 = y4 = 0; x0 = 5ww;
+ y2 = y5 = .25[y1,y3];
+ y9 = y10 = .5[y1,y3];
+ y11 = y12 = .75[y1,y3];
+ y13 = y14 = .5[y6,y12];
+ p6 = z13{right}..{right}z0{right}..{right}z14;
+ z15 = point .5 of p6;
+ z16 = point 1.5 of p6;
+ z17 = (x15,y3);
+ z18 = (x16,y6);
+
+ penpos1(2b,0);
+ penpos2(.6b,0);
+ penpos9(1.7b,0);
+ penpos11(.6b,0);
+ penpos3(b,0);
+ penpos6(b,0);
+ penpos12(.6b,0);
+ penpos10(1.7b,0);
+ penpos5(.6b,0);
+ penpos4(2b,0);
+ penpos13(b,90);
+ penpos0(.6b,90);
+ penpos14(b,90);
+ penpos15(1.7b,angle(z15-z3)+90);
+ penpos16(1.7b,angle(z16-z6)-90);
+
+ penstroke z1e..z2e..z9e..z11e..z3e;
+ penstroke z4e..z5e..z10e..z12e..z6e;
+ penstroke z13e{right}..z15e..{right}z0e{right}..z16e..{right}z14e;
+ pickup pencircle scaled .4pt;
+ draw p6;
+ draw z5..controls z1..z0..z17;
+ draw z2..controls z4..z0..z18;
+ draw fullcircle scaled .5b shifted (z17);
+ draw fullcircle scaled .5b shifted (z18);
+ pickup pencircle scaled b;
+ drawdot z3;
+ drawdot z6;
+
+
+endchar;