summaryrefslogtreecommitdiff
path: root/fonts/byzfonts/Alphabet/Caps/G.mf
diff options
context:
space:
mode:
Diffstat (limited to 'fonts/byzfonts/Alphabet/Caps/G.mf')
-rw-r--r--fonts/byzfonts/Alphabet/Caps/G.mf50
1 files changed, 50 insertions, 0 deletions
diff --git a/fonts/byzfonts/Alphabet/Caps/G.mf b/fonts/byzfonts/Alphabet/Caps/G.mf
new file mode 100644
index 0000000000..a3396ca11f
--- /dev/null
+++ b/fonts/byzfonts/Alphabet/Caps/G.mf
@@ -0,0 +1,50 @@
+beginchar("G",em#,5cap#/7,0dth#); "Gamma";
+path p[];
+ save ww,hh,dd;
+
+ ww = w/10; hh = h/5;
+ b := ww;
+
+
+ x0 = x1 = 2.5ww;
+ x3 = x2 = 9.5ww;
+ y1 = 7.3hh; y2 = 8hh;
+ y0 = 0;
+ y3 = 7hh;
+ z4 = .25[z0,z1];
+ z5 = .5[z0,z1];
+ z6 = .75[z0,z1];
+ z7 = .5[z2,z1];
+ z8 = .5[z0,z4];
+ z9 = (x12,0);
+ z10 = (.5[x1,x7],.5[y1,y6]);
+ z11 = (x10,0);
+ z12 = (.5[x7,x2],y10);
+ z13 = .75[z1,z7];
+ z14 = .25[z7,z2];
+ z15 = (x7,y5);
+
+
+ penpos0(2b,0);
+ penpos8(.6b,0);
+ penpos4(1.7b,0);
+ penpos5(.6b,0);
+ penpos6(1.7b,0);
+ penpos1(b,315);
+ penpos13(.8b,270);
+ penpos7(1.7b,270);
+ penpos14(.8b,270);
+ penpos2(b,225);
+ penpos3(b,180);
+
+ penstroke z0e{up}..z8e..z4e..z5e..z6e..{up}z1e..z13e..z7e..
+ z14e..{right}z2e ..{down}z3e;
+ pickup pencircle scaled b;
+ drawdot z3;
+ pickup pencircle scaled .4pt;
+ draw z9{up}..z15..{up}z10;
+ draw z11{up}..z15..{up}z12;
+ draw fullcircle scaled .5b shifted (z10);
+ draw fullcircle scaled .5b shifted (z12);
+
+endchar;