diff options
Diffstat (limited to 'fonts/byzfonts/Alphabet/Caps/M.mf')
-rw-r--r-- | fonts/byzfonts/Alphabet/Caps/M.mf | 54 |
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; |