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