summaryrefslogtreecommitdiff
path: root/fonts/byzfonts/Alphabet/Caps/R.mf
diff options
context:
space:
mode:
Diffstat (limited to 'fonts/byzfonts/Alphabet/Caps/R.mf')
-rw-r--r--fonts/byzfonts/Alphabet/Caps/R.mf52
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;