diff options
Diffstat (limited to 'fonts/byzfonts/Alphabet/Caps/R.mf')
-rw-r--r-- | fonts/byzfonts/Alphabet/Caps/R.mf | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/fonts/byzfonts/Alphabet/Caps/R.mf b/fonts/byzfonts/Alphabet/Caps/R.mf new file mode 100644 index 0000000000..6e4eed4764 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Caps/R.mf @@ -0,0 +1,52 @@ +beginchar("R",em#,5cap#/7,0dth#); "Rho"; +path p[]; + save ww,hh,dd; + + ww = w/10; hh = h/5; + b := ww; + + + y3 = 9hh; + x0 = x1 = x2 = x3 = x4 = 2ww; + y1 = 0; + y2 = .25[y1,y3]; + y0 = .5[y1,y3]; + y4 = .75[y1,y3]; + x5 = x6 = 4ww; + y5 = .5[y0,y4]; + y6 = y3 + .5[y1,y2]; + y7 = .5[y5,y6]; + x7 = 7ww; + p10 = z3..z6..z7..z5..z4; + z8 = point 1.5 of p10; + z9 = point 2.5 of p10; + z10 = z3; + z11 = z4; + z12 = (x5,y2); + z13 = (x9,y2); + + penpos1(2b,0); + penpos2(.6b,0); + penpos0(1.7b,0); + penpos3(b,0); + penpos4(.6b,0); + penpos6(1.2b,90); + penpos8(.6b,angle(z7-z6)+90); + penpos7(1.2b,0); + penpos9(.6b,angle(z7-z5)-90); + penpos5(1.2b,270); + penpos10(b,angle(z6-z10)+90); + penpos11(b,angle(z5-z11)-90); + + penstroke z1e..z2e..z0e..z4e..z3e; + penstroke z10e..z6e..z8e..z7e..z9e..z5e..z11e; + + pickup pencircle scaled .4pt; + draw z4..controls z8..z9..z12; + draw z7..controls z3..z5..z13; + draw fullcircle scaled .5b shifted (z12); + draw fullcircle scaled .5b shifted (z13); + pickup pencircle scaled b; + drawdot z3; + +endchar; |