summaryrefslogtreecommitdiff
path: root/fonts/byzfonts/Alphabet/Caps
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /fonts/byzfonts/Alphabet/Caps
Initial commit
Diffstat (limited to 'fonts/byzfonts/Alphabet/Caps')
-rw-r--r--fonts/byzfonts/Alphabet/Caps/A.mf54
-rw-r--r--fonts/byzfonts/Alphabet/Caps/B.mf62
-rw-r--r--fonts/byzfonts/Alphabet/Caps/C.mf46
-rw-r--r--fonts/byzfonts/Alphabet/Caps/D.mf59
-rw-r--r--fonts/byzfonts/Alphabet/Caps/E.mf56
-rw-r--r--fonts/byzfonts/Alphabet/Caps/F.mf62
-rw-r--r--fonts/byzfonts/Alphabet/Caps/G.mf50
-rw-r--r--fonts/byzfonts/Alphabet/Caps/H.mf63
-rw-r--r--fonts/byzfonts/Alphabet/Caps/I.mf37
-rw-r--r--fonts/byzfonts/Alphabet/Caps/J.mf80
-rw-r--r--fonts/byzfonts/Alphabet/Caps/K.mf55
-rw-r--r--fonts/byzfonts/Alphabet/Caps/L.mf48
-rw-r--r--fonts/byzfonts/Alphabet/Caps/M.mf54
-rw-r--r--fonts/byzfonts/Alphabet/Caps/N.mf55
-rw-r--r--fonts/byzfonts/Alphabet/Caps/O.mf73
-rw-r--r--fonts/byzfonts/Alphabet/Caps/P.mf62
-rw-r--r--fonts/byzfonts/Alphabet/Caps/R.mf52
-rw-r--r--fonts/byzfonts/Alphabet/Caps/S.mf19
-rw-r--r--fonts/byzfonts/Alphabet/Caps/T.mf44
-rw-r--r--fonts/byzfonts/Alphabet/Caps/U.mf49
-rw-r--r--fonts/byzfonts/Alphabet/Caps/V.mf37
-rw-r--r--fonts/byzfonts/Alphabet/Caps/W.mf50
-rw-r--r--fonts/byzfonts/Alphabet/Caps/X.mf47
-rw-r--r--fonts/byzfonts/Alphabet/Caps/Y.mf65
-rw-r--r--fonts/byzfonts/Alphabet/Caps/Z.mf39
25 files changed, 1318 insertions, 0 deletions
diff --git a/fonts/byzfonts/Alphabet/Caps/A.mf b/fonts/byzfonts/Alphabet/Caps/A.mf
new file mode 100644
index 0000000000..a4d3b6aaf7
--- /dev/null
+++ b/fonts/byzfonts/Alphabet/Caps/A.mf
@@ -0,0 +1,54 @@
+beginchar("A",em#,5cap#/7,0); "Alfa";
+path p[];
+ save ww,hh,dd;
+
+ ww = w/10; hh = h/5;
+ b := ww;
+
+ z0 = (7ww,5hh);
+ x1 = 2ww; y1 = 9.5hh;
+ x3 = 10ww - x2 = ww;
+ y3 = y2 = .5hh;
+ p1 = z1{right}..z0..{right}z2;
+ z4 = point .3 of p1;
+ z5 = z4;
+ p2 = z4{left}..{left}z3;
+ z6 = point .5 of p2;
+ z7 = (5ww,y3);
+ z8 = .5[z4,z6];
+ z9 = point .6 of p1;
+ z10 = point 1.5 of p1;
+ z11 = (x6,.5[y3,y6]);
+ z12 = (x1,y9);
+ z13 = (x0,y4);
+ z14 = z3;
+ z15 = z10;
+ penpos1(b,90);
+ penpos0(1.7b,0);
+ penpos2(b,90);
+ penpos7(.6b,90);
+ penpos3(b,270);
+ penpos4(b,270);
+ penpos5(b,0);
+ penpos6(1.7b,0);
+ penpos8(.6b,angle(z6-z8) + 90);
+ penpos9(.6b,angle(z0-z9) + 90);
+ penpos10(.6b,0);
+ penpos11(.8b,0);
+ penpos14(b,90);
+ penpos15(2b,angle(z10-z7) + 90);
+
+ penstroke z1e{right}..z9e..z0e..z10e..{right}z2e;
+ penstroke z5e{down}..z8e..z6e..z11e..{left}z3e;
+ penstroke z14e..z7e..z15e;
+ pickup pencircle scaled b;
+ drawdot z1;
+ drawdot z2;
+ drawdot z3;
+ pickup pencircle scaled .4pt;
+ draw z7{up}..z8..{left}z12;;
+ draw z7{up}..z9..{right}z13;
+ draw fullcircle scaled .5b shifted (z12);
+ draw fullcircle scaled .5b shifted (z13);
+
+endchar;
diff --git a/fonts/byzfonts/Alphabet/Caps/B.mf b/fonts/byzfonts/Alphabet/Caps/B.mf
new file mode 100644
index 0000000000..f2b2a8f6ba
--- /dev/null
+++ b/fonts/byzfonts/Alphabet/Caps/B.mf
@@ -0,0 +1,62 @@
+beginchar("B",em#,5cap#/7,0dth#); "Beta";
+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];
+ y7 = .5[y3,y4];
+ y5 = .5[y1,y2];
+ x5 = x7 = 7ww;
+ p10 = z3{right}..z7{down}..{left}z4;
+ p11 = z2{right}..z5{down}..{left}z1;
+ z10 = z3;
+ z11 = z4;
+ z12 = z1;
+ z13 = z2;
+ z6 = point .4 of p10;
+ z8 = point 1.6 of p10;
+ z9 = point .4 of p11;
+ z14 = point 1.6 of p11;
+ z15 = (x6,y7);
+ z16 = (x6,y5);
+ z17 = point 1.3 of p10;
+ z18 = point .7 of p11;
+
+ penpos1(b,0);
+ penpos2(.6b,0);
+ penpos0(1.7b,0);
+ penpos3(b,0);
+ penpos4(.6b,0);
+ penpos5(1.2b,0);
+ penpos6(.6b,angle(z6-z3) + 90);
+ penpos7(1.2b,0);
+ penpos8(.6b,angle(z8-z4) - 90);
+ penpos9(.6b,angle(z9-z2) + 90);
+ penpos10(b,90);
+ penpos11(b,270);
+ penpos14(.6b,angle(z14-z12) - 90);
+ penpos12(b,270);
+ penpos13(b,90);
+
+ penstroke z1e..z2e..z0e..z4e..z3e;
+ penstroke z10e..z6e..z7e{down}..z8e..z11e;
+ penstroke z13e..z9e..z5e{down}..z14e..z12e;
+
+ pickup pencircle scaled .4pt;
+ draw z0{right}..z17..z15;
+ draw z0{right}..z18..z16;
+ draw fullcircle scaled .5b shifted (z15);
+ draw fullcircle scaled .5b shifted (z16);
+ pickup pencircle scaled b;
+ drawdot z3;
+ drawdot z1;
+
+endchar;
diff --git a/fonts/byzfonts/Alphabet/Caps/C.mf b/fonts/byzfonts/Alphabet/Caps/C.mf
new file mode 100644
index 0000000000..fc685295d5
--- /dev/null
+++ b/fonts/byzfonts/Alphabet/Caps/C.mf
@@ -0,0 +1,46 @@
+beginchar("C",em#,5cap#/7,0dth#); "Sigma";
+ path p[];
+ save ww,hh,dd;
+
+ ww = w/10; hh = h/5;
+ b := ww;
+
+ x0 = x4 = 8ww;
+ y4 = 10hh - y0 = .5hh;
+ y2 = 5hh; x2 = ww;
+
+ p1 = z0{left}..{down}z2;
+ p2 = z2{down}..{right}z4;
+
+ z5 = point .25 of p1;
+ z1 = point .5 of p1;
+ z6 = point .75 of p1;
+ z7 = point .25 of p2;
+ z3 = point .5 of p2;
+ z8 = point .75 of p2;
+ x9 = x5; y9 = y2;
+ y10 = .5[y6,y1]; x10 = x0;
+ y11 = .5[y7,y3]; x11 = x0;
+
+ penpos0(b,90);
+ penpos5(.6b,90);
+ penpos1(1.7b,120);
+ penpos6(.6b,150);
+ penpos2(1.7b,180);
+ penpos7(.6b,210);
+ penpos3(1.7b,240);
+ penpos8(.6b,270);
+ penpos4(b,270);
+
+ penstroke z0e{left}..z5e..z1e..z6e..{down}z2e{down}..z7e..z3e..
+ z8e..{right}z4e;
+ pickup pencircle scaled b;
+ drawdot z0;
+ drawdot z4;
+ pickup pencircle scaled .4pt;
+ draw z3{up}..z9..{up}z10;
+ draw z1{down}..z9..{down}z11;
+ draw fullcircle scaled .5b shifted (z10);
+ draw fullcircle scaled .5b shifted (z11);
+
+endchar;
diff --git a/fonts/byzfonts/Alphabet/Caps/D.mf b/fonts/byzfonts/Alphabet/Caps/D.mf
new file mode 100644
index 0000000000..1395fc759a
--- /dev/null
+++ b/fonts/byzfonts/Alphabet/Caps/D.mf
@@ -0,0 +1,59 @@
+beginchar("D",em#,5cap#/7,0); "Delta";
+path p[];
+ save ww,hh,dd;
+
+ ww = w/10; hh = h/5;
+ b := ww;
+
+ z0 = (7ww,5hh);
+ x1 = 2ww; y1 = 9.5hh;
+ x3 = 10ww - x2 = ww;
+ y3 = y2 = hh;
+ p1 = z1{right}..z0..{right}z2;
+ z4 = point .3 of p1;
+ z5 = z4;
+ p2 = z4{left}..{left}z3;
+ z6 = point .5 of p2;
+ z7 = (5ww,y3);
+ z8 = .5[z4,z6];
+ z9 = point .6 of p1;
+ z10 = point 1.5 of p1;
+ z11 = (x6,.5[y3,y6]);
+ z12 = (x1,y9);
+ z13 = (x0,y4);
+ z14 = z3;
+ z15 = z2;
+ y16 = y17 = .5hh;
+ x16 = x3;
+ x17 = x2;
+ penpos1(b,90);
+ penpos0(1.7b,0);
+ penpos2(b,90);
+ penpos7(.6b,90);
+ penpos3(b,270);
+ penpos4(b,270);
+ penpos5(b,0);
+ penpos6(1.7b,0);
+ penpos8(.6b,angle(z6-z8) + 90);
+ penpos9(.6b,angle(z0-z9) + 90);
+ penpos10(.6b,0);
+ penpos11(.8b,0);
+ penpos14(b,90);
+ penpos15(b,90);
+
+ penstroke z1e{right}..z9e..z0e..z10e..{right}z2e;
+ penstroke z5e{down}..z8e..z6e..z11e..{left}z3e;
+ penstroke z14e..z7e..z15e;
+ pickup pencircle scaled b;
+ drawdot z1;
+ drawdot z2;
+ drawdot z3;
+ draw z3..z16;
+ draw z2..z17;
+ pickup pencircle scaled .4pt;
+ draw z7{up}..z8..{left}z12;;
+ draw z7{up}..z9..{right}z13;
+ draw fullcircle scaled .5b shifted (z12);
+ draw fullcircle scaled .5b shifted (z13);
+
+endchar;
diff --git a/fonts/byzfonts/Alphabet/Caps/E.mf b/fonts/byzfonts/Alphabet/Caps/E.mf
new file mode 100644
index 0000000000..d3e7cb17d6
--- /dev/null
+++ b/fonts/byzfonts/Alphabet/Caps/E.mf
@@ -0,0 +1,56 @@
+beginchar("E",em#,5cap#/7,0dth#); "Epsilon";
+path p[];
+ save ww,hh,dd;
+
+ ww = w/10; hh = h/5;
+ b := ww;
+
+ x0 = x4 = 8ww;
+ y4 = 10hh - y0 = .5hh;
+ y2 = 5hh; x2 = ww;
+
+ p1 = z0{left}..{down}z2;
+ p2 = z2{down}..{right}z4;
+
+ z5 = point .25 of p1;
+ z1 = point .5 of p1;
+ z6 = point .75 of p1;
+ z7 = point .25 of p2;
+ z3 = point .5 of p2;
+ z8 = point .75 of p2;
+ x9 = x5; y9 = y2;
+ y11 = .5[y7,y3]; x11 = .5[x8,x4];
+ y10 = .5[y6,y1]; x10 = x11;
+ y14 = y12 = .25[y2,y6];
+ y13 = .25[y2,y7];
+ x12 = x1; x14 = x5;
+ x13 = .5[x1,x5];
+ x15 = 8ww; y15 = y2;
+ z16 = z2;
+
+ penpos5(b,90);
+ penpos1(1.7b,120);
+ penpos6(.6b,150);
+ penpos2(1.7b,180);
+ penpos7(.6b,210);
+ penpos3(1.7b,240);
+ penpos8(b,270);
+ penpos16(b,90);
+ penpos12(b,90);
+ penpos13(b,90);
+ penpos14(b,90);
+ penpos15(b,90);
+
+ penstroke z5e{left}..z1e..z6e..{down}z2e{down}..z7e..z3e..{right}z8e;
+ pickup pencircle scaled b;
+ penstroke z16e{right}..z12e..z13e..z14e..{right}z15e;
+ drawdot z5;
+ drawdot z8;
+ drawdot z15;
+ pickup pencircle scaled .4pt;
+ draw z1{right}..z9..{down}z11;
+ draw z3{right}..z9..{up}z10;
+ draw fullcircle scaled .5b shifted (z10);
+ draw fullcircle scaled .5b shifted (z11);
+
+endchar;
diff --git a/fonts/byzfonts/Alphabet/Caps/F.mf b/fonts/byzfonts/Alphabet/Caps/F.mf
new file mode 100644
index 0000000000..9be81274c0
--- /dev/null
+++ b/fonts/byzfonts/Alphabet/Caps/F.mf
@@ -0,0 +1,62 @@
+beginchar("F",em#,5cap#/7,0dth#); "Fi";
+path p[];
+ save ww,hh,dd;
+
+ ww = w/10; hh = h/5;
+ b := ww;
+
+ x8 = x7 = x6 = x5 = x2 = x3 = x4 = x0 = x1 = 5ww;
+ y0 = 10hh - y1 = 0;
+ y2 = .25[y0,y1];
+ y3 = .5[y0,y1];
+ y4 = .75[y0,y1];
+ y5 = .5[y1,y4];
+ y6 = .5[y3,y4];
+ y7 = .5[y3,y2];
+ y8 = .5[y0,y2];
+ y9 = y10 = 5hh;
+ x9 = 10ww - x10 = .5hh;
+ z13 = z11 = z5;
+ z14 = z12 = z8;
+ p1 = z5{right}..{down}z10..{left}z8..{up}z9..{right}z5;
+ z15 = point .5 of p1;
+ z16 = point 1.5 of p1;
+ z17 = point 2.5 of p1;
+ z18 = point 3.5 of p1;
+ y19 = y20 = y3;
+ x19 = 10ww - x20 = .25[x9,x3];
+ y21 = y22 = y4;
+ x21 = 10ww - x22 = .5[x4,x18];
+
+ penpos0(2b,0);
+ penpos1(b,0);
+ penpos8(.6b,0);
+ penpos7(.6b,0);
+ penpos6(.6b,0);
+ penpos5(.6b,0);
+ penpos2(1.7b,0);
+ penpos3(1.7b,0);
+ penpos4(1.7b,0);
+ penpos9(1.2b,0);
+ penpos10(1.2b,0);
+ penpos11(b,270);
+ penpos13(b,90);
+ penpos14(b,270);
+ penpos12(b,90);
+ penpos15(.5b,45);
+ penpos16(.5b,-45);
+ penpos17(.5b,45);
+ penpos18(.5b,315);
+
+ penstroke z1e..z5e..z4e..z6e..z3e..z7e..z2e..z8e..z0e;
+ penstroke z11e{left}..z18e..{down}z9e..z17e..{right}z12e;
+ penstroke z13e{right}..z15e..{down}z10e..z16e..{left}z14e;
+ pickup pencircle scaled b;
+ drawdot z1;
+ pickup pencircle scaled .4pt;
+ draw z16{up}..z19..{up}z21;
+ draw z17{up}..z20..{up}z22;
+ draw fullcircle scaled .5b shifted (z21);
+ draw fullcircle scaled .5b shifted (z22);
+
+ endchar;
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;
diff --git a/fonts/byzfonts/Alphabet/Caps/H.mf b/fonts/byzfonts/Alphabet/Caps/H.mf
new file mode 100644
index 0000000000..1bfb770de1
--- /dev/null
+++ b/fonts/byzfonts/Alphabet/Caps/H.mf
@@ -0,0 +1,63 @@
+beginchar("H",em#,5cap#/7,0dth#); "Eta";
+path p[];
+ save ww,hh,dd;
+
+ ww = w/10; hh = h/5;
+ b := ww;
+
+
+ y3 = y6 = 9hh;
+ x1 = x2 = x3 = x9 = x11;
+ x4 = x5 = x6 = x10 = x12;
+ x1 = 10ww - x4 = ww;
+ y1 = y4 = 0; x0 = 5ww;
+ y2 = y5 = .25[y1,y3];
+ y0 = y9 = y10 = .5[y1,y3];
+ y11 = y12 = .75[y1,y3];
+ z13 = z9;
+ z14 = z10;
+ z16 = z0;
+ x24 = x15 = x0;
+ y15 = .75[y0,y11]; y24 = .75[y0,y5];
+ z17 = .5[z9,z0];
+ z18 = .5[z10,z0];
+ y21 = y22 = .75[y11,y3];
+ x22 = x18; x21 = x17;
+ z23 = .5[z9,z10];
+
+ 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);
+ penpos7(b,90);
+ penpos13(b,90);
+ penpos0(b,90);
+ penpos14(b,90);
+ penpos8(b,90);
+ penpos15(.1b,0);
+ penpos24(.1b,0);
+ penpos16(2b,0);
+ penpos17(.6b,90);
+ penpos18(.6b,90);
+
+ penstroke z1e..z2e..z9e..z11e..z3e;
+ penstroke z4e..z5e..z10e..z12e..z6e;
+ penstroke z13e..z17e..z0e..z18e..z14e;
+ penstroke z15e..z16e;
+ penstroke z24e..z16e;
+ pickup pencircle scaled .4pt;
+ draw z2{right}..{up}z17..{right}z22;
+ draw z5{left}..{up}z18..{left}z21;
+ draw fullcircle scaled .5b shifted (z22);
+ draw fullcircle scaled .5b shifted (z21);
+ pickup pencircle scaled b;
+ drawdot z3;
+ drawdot z6;
+
+endchar;
diff --git a/fonts/byzfonts/Alphabet/Caps/I.mf b/fonts/byzfonts/Alphabet/Caps/I.mf
new file mode 100644
index 0000000000..8467dc8b36
--- /dev/null
+++ b/fonts/byzfonts/Alphabet/Caps/I.mf
@@ -0,0 +1,37 @@
+beginchar("I",em#,5cap#/7,0dth#); "Iota";
+path p[];
+ save ww,hh,dd;
+
+ ww = w/10; hh = h/5;
+ b := ww;
+
+ x8 = x7 = x6 = x5 = x2 = x3 = x4 = x0 = x1 = 5ww;
+ y0 = 10hh - y1 = 0 = y9 = y11;
+ y2 = .25[y0,y1];
+ y3 = .5[y0,y1];
+ y4 = .75[y0,y1] = y10 = y12;
+ y5 = .5[y1,y4];
+ y6 = .5[y3,y4];
+ y7 = .5[y3,y2];
+ y8 = .5[y0,y2];
+ x9 = 2.5ww = x12;
+ x10 = 7.5ww = x11;
+
+ penpos0(2b,0);
+ penpos1(2b,0);
+ penpos8(.6b,0);
+ penpos7(.6b,0);
+ penpos6(.6b,0);
+ penpos5(.6b,0);
+ penpos2(1.7b,0);
+ penpos3(1.7b,0);
+ penpos4(1.7b,0);
+
+ penstroke z1e..z5e..z4e..z6e..z3e..z7e..z2e..z8e..z0e;
+ pickup pencircle scaled .4pt;
+ draw z9{up}..z7..{up}z10;
+ draw z11{up}..z7..{up}z12;
+ draw fullcircle scaled .5b shifted (z10);
+ draw fullcircle scaled .5b shifted (z12);
+
+ endchar;
diff --git a/fonts/byzfonts/Alphabet/Caps/J.mf b/fonts/byzfonts/Alphabet/Caps/J.mf
new file mode 100644
index 0000000000..69c0f94955
--- /dev/null
+++ b/fonts/byzfonts/Alphabet/Caps/J.mf
@@ -0,0 +1,80 @@
+beginchar("J",em#,5cap#/7,0dth#); "Theta";
+path p[];
+ save ww,hh,dd;
+
+ ww = w/10; hh = h/5;
+ b := ww;
+
+ x0 = x2 = 5ww;
+ y1 = y3 = 5hh;
+ y0 = 10hh - y2 = 0;
+ x3 = 10ww - x1 = 0;
+ p1 = z0{right}..{up}z1;
+ p2 = z1{up}..{left}z2;
+ p3 = z2{left}..{down}z3;
+ p4 = z3{down}..{right}z0;
+
+ z8 = point .25 of p1;
+ z4 = point .5 of p1;
+ z9 = point .75 of p1;
+
+ z10 = point .25 of p2;
+ z5 = point .5 of p2;
+ z11 = point .75 of p2;
+
+ z12 = point .25 of p3;
+ z6 = point .5 of p3;
+ z13 = point .75 of p3;
+
+ z14 = point .25 of p4;
+ z7 = point .5 of p4;
+ z15 = point .75 of p4;
+
+ z16 = .5[z6,z7];
+ z17 = .5[z4,z5];
+ y18 = y19 = y16;
+ x18 = x12;
+ x19 = x11;
+ z20 = 5(ww,hh);
+ z21 = .5[z11,z19];
+ z22 = .5[z12,z18];
+ z23 = .5[z18,z15];
+ z24 = .5[z8,z19];
+
+ penpos0(2b,270);
+ penpos1(2b,0);
+ penpos2(2b,90);
+ penpos3(2b,180);
+
+ penpos4(b,315);
+ penpos5(b,45);
+ penpos6(b,135);
+ penpos7(b,225);
+
+ penpos8(.6b,292.5);
+ penpos9(.6b,337.5);
+ penpos10(.6b,22.5);
+ penpos11(.6b,67.5);
+ penpos12(.6b,112.5);
+ penpos13(.6b,157.5);
+ penpos14(.6b,202.5);
+ penpos15(.6b,247.5);
+
+ penpos16(2b,90);
+ penpos18(.6b,90);
+ penpos20(1.7b,90);
+ penpos19(.6b,90);
+ penpos17(2b,90);
+
+ penstroke z0e{right}..z8e..z4e..z9e..{up}z1e{up}..z10e..z5e..z11e..
+ {left}z2e{left}..z12e..z6e..z13e..{down}z3e{down}..z14e..z7e..z15e..
+ {right}z0e;
+ penstroke z16e..z18e..z20e..z19e..z17e;
+
+ pickup pencircle scaled .4pt;
+ draw z23{up}..z20..{up}z21;
+ draw z24{up}..z20..{up}z22;
+ draw fullcircle scaled .5b shifted(z21);
+ draw fullcircle scaled .5b shifted(z22);
+
+ endchar;
diff --git a/fonts/byzfonts/Alphabet/Caps/K.mf b/fonts/byzfonts/Alphabet/Caps/K.mf
new file mode 100644
index 0000000000..8ea458443c
--- /dev/null
+++ b/fonts/byzfonts/Alphabet/Caps/K.mf
@@ -0,0 +1,55 @@
+beginchar("K",em#,5cap#/7,0dth#); "Kappa";
+path p[];
+ save ww,hh,dd;
+
+ ww = w/10; hh = h/5;
+ b := ww;
+
+
+ y7 = y3 = 9hh;
+ x0 = x1 = x2 = x3 = x4 = 2ww;
+ y8 = y1 = 0;
+ y2 = .25[y1,y3];
+ y0 = .5[y1,y3];
+ y4 = .75[y1,y3];
+ x5 = x6 = 5ww;
+ x7 = x8 = 6ww;
+ y9 = y6 = .5[y0,y2];
+ y10 = y5 = .5[y0,y4];
+ x9 = x10 = .5ww;
+ p8 = z10{right}..z5..{up}z7;
+ p9 = z9{right}..z6..{down}z8;
+ z11 = point 1.5 of p8;
+ z12 = point 1.5 of p9;
+ z13 = (x8,y0);
+
+ penpos1(2b,0);
+ penpos2(.6b,0);
+ penpos0(1.7b,0);
+ penpos3(b,0);
+ penpos4(.6b,0);
+ penpos10(.6b,270);
+ penpos5(b,angle(z5-z0)-90);
+ penpos11(.6b,0);
+ penpos7(b,0);
+ penpos9(.6b,90);
+ penpos6(b,angle(z6-z0)+90);
+ penpos12(.6b,0);
+ penpos8(b,0);
+
+ penstroke z1e..z2e..z0e..z4e..z3e;
+ penstroke z10e..{right}z5e..z11e..{up}z7e;
+ penstroke z9e..{right}z6e..z12e..{down}z8e;
+
+ pickup pencircle scaled .4pt;
+ draw z2{down}..z6..z13;
+ draw z4{up}..z5..z13;
+ draw fullcircle scaled .5b shifted (z13);
+ pickup pencircle scaled b;
+ drawdot z3;
+ drawdot z7;
+ pickup pencircle scaled .6b;
+ drawdot z10;
+ drawdot z9;
+
+endchar;
diff --git a/fonts/byzfonts/Alphabet/Caps/L.mf b/fonts/byzfonts/Alphabet/Caps/L.mf
new file mode 100644
index 0000000000..695c5a2d0a
--- /dev/null
+++ b/fonts/byzfonts/Alphabet/Caps/L.mf
@@ -0,0 +1,48 @@
+beginchar("L",em#,5cap#/7,0dth#); "Lambda";
+path p[];
+ save ww,hh,dd;
+
+ ww = w/10; hh = h/5;
+ b := ww;
+
+ z0 = (7ww,5hh);
+ x1 = 2ww; y1 = 9.5hh;
+ x3 = 10ww - x2 = ww;
+ y3 = y2 = .5hh;
+ p1 = z1{right}..z0..{right}z2;
+ z4 = point .3 of p1;
+ z5 = z4;
+ p2 = z4{left}..{left}z3;
+ z6 = point .5 of p2;
+ z7 = (5ww,y3);
+ z8 = .5[z4,z6];
+ z9 = point .6 of p1;
+ z10 = point 1.5 of p1;
+ z11 = (x6,.5[y3,y6]);
+ z12 = (x1,y9);
+ z13 = (x0,y4);
+ penpos1(b,90);
+ penpos0(1.7b,0);
+ penpos2(b,90);
+ penpos3(b,270);
+ penpos4(b,270);
+ penpos5(b,0);
+ penpos6(1.7b,0);
+ penpos8(.6b,angle(z6-z8) + 90);
+ penpos9(.6b,angle(z0-z9) + 90);
+ penpos10(.6b,0);
+ penpos11(.8b,0);
+
+ penstroke z1e{right}..z9e..z0e..z10e..{right}z2e;
+ penstroke z5e{down}..z8e..z6e..z11e..{left}z3e;
+ pickup pencircle scaled b;
+ drawdot z1;
+ drawdot z2;
+ drawdot z3;
+ pickup pencircle scaled .4pt;
+ draw z7{up}..z8..{left}z12;;
+ draw z7{up}..z9..{right}z13;
+ draw fullcircle scaled .5b shifted (z12);
+ draw fullcircle scaled .5b shifted (z13);
+
+endchar;
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;
diff --git a/fonts/byzfonts/Alphabet/Caps/N.mf b/fonts/byzfonts/Alphabet/Caps/N.mf
new file mode 100644
index 0000000000..2b1bad4c4f
--- /dev/null
+++ b/fonts/byzfonts/Alphabet/Caps/N.mf
@@ -0,0 +1,55 @@
+beginchar("N",em#,5cap#/7,0dth#); "Ni";
+path p[];
+ save ww,hh,dd;
+
+ ww = w/10; hh = h/5;
+ b := ww;
+
+
+ y3 = y6 = 9hh;
+ x1 = x2 = x3 = x9 = x7;
+ x4 = x5 = x6 = x10 = x8;
+ x1 = 10ww - x4 = ww;
+ y1 = y4 = 0; x0 = 5ww;
+ y2 = y5 = .25[y1,y3];
+ y0 = y9 = y10 = .5[y1,y3];
+ y7 = y8 = .75[y1,y3];
+ z11 = .5[z3,z7];
+ z12 = .5[z5,z4];
+
+ p5 = z11{right}..z0..{right}z12;
+ z13 = point .5 of p5;
+ z14 = point 1.5 of p5;
+ z15 = .75[z2,z14];
+ z16 = .75[z8,z13];
+
+ penpos0(1.7b,45);
+ penpos1(2b,0);
+ penpos2(.6b,0);
+ penpos9(1.7b,0);
+ penpos7(.6b,0);
+ penpos3(b,0);
+ penpos6(b,0);
+ penpos8(.6b,0);
+ penpos10(1.7b,0);
+ penpos5(.6b,0);
+ penpos4(2b,0);
+ penpos11(b,90);
+ penpos12(b,90);
+ penpos13(.6b,45);
+ penpos14(.6b,45);
+
+ penstroke z1e..z2e..z9e..z7e..z3e;
+ penstroke z4e..z5e..z10e..z8e..z6e;
+ penstroke z11e{right}..z13e..z0e..z14e..{right}z12e;
+
+ pickup pencircle scaled .4pt;
+ draw z13..controls z1..z15;
+ draw z14..controls z6..z16;
+ draw fullcircle scaled .5b shifted (z16);
+ draw fullcircle scaled .5b shifted (z15);
+ pickup pencircle scaled b;
+ drawdot z3;
+ drawdot z6;
+
+endchar;
diff --git a/fonts/byzfonts/Alphabet/Caps/O.mf b/fonts/byzfonts/Alphabet/Caps/O.mf
new file mode 100644
index 0000000000..35c8d6ab04
--- /dev/null
+++ b/fonts/byzfonts/Alphabet/Caps/O.mf
@@ -0,0 +1,73 @@
+beginchar("O",em#,5cap#/7,0dth#); "Omicron";
+path p[];
+ save ww,hh,dd;
+
+ ww = w/10; hh = h/5;
+ b := ww;
+
+ x0 = x2 = 5ww;
+ y1 = y3 = 5hh;
+ y0 = 10hh - y2 = 0;
+ x3 = 10ww - x1 = 0;
+ p1 = z0{right}..{up}z1;
+ p2 = z1{up}..{left}z2;
+ p3 = z2{left}..{down}z3;
+ p4 = z3{down}..{right}z0;
+
+ z8 = point .25 of p1;
+ z4 = point .5 of p1;
+ z9 = point .75 of p1;
+
+ z10 = point .25 of p2;
+ z5 = point .5 of p2;
+ z11 = point .75 of p2;
+
+ z12 = point .25 of p3;
+ z6 = point .5 of p3;
+ z13 = point .75 of p3;
+
+ z14 = point .25 of p4;
+ z7 = point .5 of p4;
+ z15 = point .75 of p4;
+
+ z16 = .5[z6,z7];
+ z17 = .5[z4,z5];
+ y18 = y19 = y16;
+ x18 = x12;
+ x19 = x11;
+ z20 = 5(ww,hh);
+ z21 = .5[z11,z19];
+ z22 = .5[z12,z18];
+ z23 = .5[z18,z15];
+ z24 = .5[z8,z19];
+
+ penpos0(2b,270);
+ penpos1(2b,0);
+ penpos2(2b,90);
+ penpos3(2b,180);
+
+ penpos4(b,315);
+ penpos5(b,45);
+ penpos6(b,135);
+ penpos7(b,225);
+
+ penpos8(.6b,292.5);
+ penpos9(.6b,337.5);
+ penpos10(.6b,22.5);
+ penpos11(.6b,67.5);
+ penpos12(.6b,112.5);
+ penpos13(.6b,157.5);
+ penpos14(.6b,202.5);
+ penpos15(.6b,247.5);
+
+ penstroke z0e{right}..z8e..z4e..z9e..{up}z1e{up}..z10e..z5e..z11e..
+ {left}z2e{left}..z12e..z6e..z13e..{down}z3e{down}..z14e..z7e..z15e..
+ {right}z0e;
+
+ pickup pencircle scaled .4pt;
+ draw z23{up}..z20..{up}z21;
+ draw z24{up}..z20..{up}z22;
+ draw fullcircle scaled .5b shifted(z21);
+ draw fullcircle scaled .5b shifted(z22);
+
+ endchar;
diff --git a/fonts/byzfonts/Alphabet/Caps/P.mf b/fonts/byzfonts/Alphabet/Caps/P.mf
new file mode 100644
index 0000000000..5cbf57053f
--- /dev/null
+++ b/fonts/byzfonts/Alphabet/Caps/P.mf
@@ -0,0 +1,62 @@
+beginchar("P",em#,5cap#/7,0dth#); "Pi";
+path p[];
+ save ww,hh,dd;
+
+ ww = w/10; hh = h/5;
+ b := ww;
+
+ y0 = y7 = y3 = y6 = y8 = 9hh;
+ x1 = x2 = x3 = x9 = x11;
+ 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];
+ x7 = 10ww - x8 = -.5ww;
+ z13 = z3;
+ z14 = z6;
+ z16 = z0;
+ x15 = x0; y15 = .75[y0,y11];
+ z17 = .5[z3,z0];
+ z18 = .5[z6,z0];
+ y19 = y20 = y1;
+ x19 = x21 = x17;
+ y21 = y22 = y11;
+ x20 = x22 = x18;
+ z23 = .5[z9,z10];
+
+ 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);
+ penpos7(b,90);
+ penpos13(b,90);
+ penpos0(b,90);
+ penpos14(b,90);
+ penpos8(b,90);
+ penpos15(.1b,0);
+ penpos16(2b,0);
+ penpos17(.6b,90);
+ penpos18(.6b,90);
+
+ penstroke z1e..z2e..z9e..z11e..z3e;
+ penstroke z4e..z5e..z10e..z12e..z6e;
+ penstroke z7e..z13e..z17e..z0e..z18e..z14e..z8e;
+ penstroke z15e..z16e;
+ pickup pencircle scaled .4pt;
+ draw z19{up}..z23..{right}z22;
+ draw z20{up}..z23..{left}z21;
+ draw fullcircle scaled .5b shifted (z22);
+ draw fullcircle scaled .5b shifted (z21);
+ pickup pencircle scaled b;
+ drawdot z7;
+ drawdot z8;
+
+endchar;
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;
diff --git a/fonts/byzfonts/Alphabet/Caps/S.mf b/fonts/byzfonts/Alphabet/Caps/S.mf
new file mode 100644
index 0000000000..8be9a4ad01
--- /dev/null
+++ b/fonts/byzfonts/Alphabet/Caps/S.mf
@@ -0,0 +1,19 @@
+beginchar(oct"123",.8em#,cap#,0dth#); "Ne";
+ path p[];
+ save ww,hh;
+
+ ww := w/5; hh := h/5;
+
+ x0 = ww = x1;
+ y0 = 4.5hh;
+ y1 = y3 = 2hh;
+ x6 = x3 = 2.6ww;
+ x2 = 1.9ww;
+ y2 = y4 = hh;
+ x4 = 3.3ww;
+ x5 = 3.5ww; y5 = 1.2hh;
+ y6 = 1.7hh;
+
+ pickup pencircle scaled pt;
+ draw z0..controls z1..flex(z1,z2,z3) & flex(z3,z4,z5);
+ endchar;
diff --git a/fonts/byzfonts/Alphabet/Caps/T.mf b/fonts/byzfonts/Alphabet/Caps/T.mf
new file mode 100644
index 0000000000..4d31bc5c4c
--- /dev/null
+++ b/fonts/byzfonts/Alphabet/Caps/T.mf
@@ -0,0 +1,44 @@
+beginchar("T",em#,5cap#/7,0dth#); "Taf";
+path p[];
+ save ww,hh,dd;
+
+ ww = w/10; hh = h/5;
+ b := ww;
+
+ x5 = x6 = x0 = x1 = x2 = 5ww;
+ y7 = y8 = y3 = y2 = y4 = 9hh;
+ x3 = 10ww - x4 = ww;
+ y10 = y11 = y0 = 0; y1 = 5hh;
+ y5 = .5[y0,y1];
+ y12 = y13 = y6 = .5[y2,y1];
+ x7 = .5[x2,x3];
+ x8 = .5[x2,x4];
+ z9 = z2;
+ x10 = 10ww - x11 = 2.5ww;
+ x12 = 10ww - x13 = 2.5ww;
+
+
+
+ penpos0(2b,0);
+ penpos5(.6b,0);
+ penpos1(1.7b,0);
+ penpos6(.6b,0);
+ penpos2(b,0);
+ penpos3(b,90);
+ penpos7(.6b,90);
+ penpos9(1.7b,90);
+ penpos8(.6b,90);
+ penpos4(b,90);
+
+ penstroke z0e{up}..z5e..z1e..z6e..{up}z2e;
+ penstroke z3e{right}..z7e..z9e..z8e..{right}z4e;
+ pickup pencircle scaled b;
+ drawdot z3;
+ drawdot z4;
+ pickup pencircle scaled .4pt;
+ draw z10{up}..z1..{up}z13;
+ draw z11{up}..z1..{up}z12;
+ draw fullcircle scaled .5b shifted (z12);
+ draw fullcircle scaled .5b shifted (z13);
+
+endchar;
diff --git a/fonts/byzfonts/Alphabet/Caps/U.mf b/fonts/byzfonts/Alphabet/Caps/U.mf
new file mode 100644
index 0000000000..4f8926f68c
--- /dev/null
+++ b/fonts/byzfonts/Alphabet/Caps/U.mf
@@ -0,0 +1,49 @@
+beginchar("U",em#,5cap#/7,0); "Psi";
+path p[];
+ save ww, hh,dd;
+
+ ww = w/10; hh = h/5;
+ b := ww;
+
+ x0 = x6 = x7 = 5ww;
+ y7 = 0; y6 = 9hh;
+ y0 = 2hh;
+ x1 = 10ww - x5 = ww;
+ y1 = y5 = 5.5hh;
+
+ p1 = z1{right}..{right}z0{right}..{right}z5;
+ p2 = z6..z0..z7;
+ z2 = point .5 of p1;
+ z3 = point 1.5 of p1;
+ z4 = z0;
+ z8 = .5[z6,z0];
+ y9 = y10 = .3[y6,y8];
+ x9 = 10ww - x10 = x2;
+ x11 = x12 = x7;
+ y11 = .5hh;
+ y12 = hh;
+
+ penpos1(b,90);
+ penpos2(1.7b,0);
+ penpos0(.6b,90);
+ penpos3(1.7b,180);
+ penpos5(b,90);
+ penpos4(b,0);
+ penpos6(b,0);
+ penpos7(2b,0);
+ penpos8(1.7b,0);
+
+ penstroke z1e{right}..z2e..{right}z0e{right}..z3e..{right}z5e;
+ penstroke z6e{down}..z8e..z4e..{down}z7e;
+
+ pickup pencircle scaled b;
+ drawdot z6;
+ drawdot z1;
+ drawdot z5;
+ pickup pencircle scaled .4pt;
+ draw z11{left}..z1..{up}z10;
+ draw z12{right}..z5..{up}z9;
+ draw fullcircle scaled .5b shifted (z9);
+ draw fullcircle scaled .5b shifted (z10);
+
+ endchar;
diff --git a/fonts/byzfonts/Alphabet/Caps/V.mf b/fonts/byzfonts/Alphabet/Caps/V.mf
new file mode 100644
index 0000000000..0b9633991b
--- /dev/null
+++ b/fonts/byzfonts/Alphabet/Caps/V.mf
@@ -0,0 +1,37 @@
+beginchar("V",em#,5cap#/7,0dth#); "Ksi";
+ save ww,hh,dd;
+ path p[];
+
+ ww = w/10; hh = h/5;
+ b := ww;
+
+ x0 = 2ww;
+ x5 = 2.5ww;
+ x2 = x4 = x7 = 8ww;
+ x3 = 6ww;
+ y7 = 0;
+ y0 = 9hh;
+ y2 = 8hh;
+ y5 = 2hh;
+ y3 = 6.5hh;
+ y4 = 5hh;
+ z6 = (x5,.5hh);
+ z8 = (x4,.5[y4,y5]);
+ z9 = (x0,.5[y0,y5]);
+ z10 = (.5[x0,x2],y0);
+
+penpos7(2b,0);
+penpos5(b,90);
+penstroke z7e{up}..{left}z5e;
+p1 = z5{left}..{z4-z5}z4..z3..{left}z2{left}..{up}z0;
+
+ pickup pencircle scaled b;
+ draw p1;
+ pickup pencircle scaled .4pt;
+ draw z6{right}..{z8-z6}z8..{z9-z8}z9..{z10-z9}z10;
+ draw fullcircle scaled .5b shifted (z10);
+ draw fullcircle scaled .5b shifted (z8);
+ draw fullcircle scaled .5b shifted (z9);
+ draw fullcircle scaled .5b shifted (z6);
+
+endchar;
diff --git a/fonts/byzfonts/Alphabet/Caps/W.mf b/fonts/byzfonts/Alphabet/Caps/W.mf
new file mode 100644
index 0000000000..e78fef4638
--- /dev/null
+++ b/fonts/byzfonts/Alphabet/Caps/W.mf
@@ -0,0 +1,50 @@
+beginchar("W",em#,5cap#/7,0dth#); "Omega";
+path p[];
+ save ww,hh,dd;
+
+ ww = w/10; hh = h/5;
+ b := ww;
+
+ x0 = x3 = 5ww;
+ y0 = 5.5hh; y3 = 7.5hh;
+ y2 = y4 = .5hh;
+ y1 = y5 = 8hh;
+ x1 = 10ww - x5 = ww;
+ x2 = 10ww - x4 = 3.5ww;
+
+ p1 = z1{right}..{right}z2{right}..{up}z0..z3;
+ p2 = z0{down}..{right}z4{right}..{right}z5;
+ z6 = point .5 of p1;
+ z7 = point 1.7 of p1;
+ z8 = point 1.5 of p2;
+ z9 = z0;
+ z10 = z7;
+ y11 = y12 = .5[y6,y2];
+ x11 = 10ww - x12 = .5ww;
+ x13 = 10ww - x14 = x2;
+ y13 = y14 = y1;
+
+ penpos1(b,90);
+ penpos5(b,90);
+ penpos2(b,90);
+ penpos4(b,90);
+ penpos6(1.7b,0);
+ penpos3(b,180);
+ penpos0(b,180);
+ penpos9(b,0);
+ penpos7(b,180);
+ penpos8(1.7b,180);
+
+ penstroke z1e{right}..{down}z6e..{right}z2e{right}..{up}z7e..{up}z0e..{up}z3e;
+ penstroke z9e{down}..{right}z4e{right}..{up}z8e..{right}z5e;
+ pickup pencircle scaled b;
+ drawdot z1;
+ drawdot z5;
+ drawdot z3;
+ pickup pencircle scaled .4pt;
+ draw z2{left}..z11..{up}z14;
+ draw z4{right}..z12..{up}z13;
+ draw fullcircle scaled .5b shifted (z13);
+ draw fullcircle scaled .5b shifted (z14);
+
+ endchar;
diff --git a/fonts/byzfonts/Alphabet/Caps/X.mf b/fonts/byzfonts/Alphabet/Caps/X.mf
new file mode 100644
index 0000000000..af9f18a04e
--- /dev/null
+++ b/fonts/byzfonts/Alphabet/Caps/X.mf
@@ -0,0 +1,47 @@
+beginchar("X",em#,5cap#/7,0dth#); "Xi";
+path p[];
+ save ww,hh,dd;
+
+ ww = w/10; hh = h/5;
+ b := ww;
+
+ z0 = 5(ww,hh);
+ x1 = x2 = 10ww - hide(x4 = x3)x3 = ww;
+ y1 = y3 = 10hh - hide(y4 = y2)y2 = hh;
+ p1 = z1{right}..z0..{right}z4;
+ p2 = z2{right}..z0..{right}z3;
+ z5 = point .6 of p1;
+ z6 = point 1.4 of p1;
+ z7 = point .6 of p2;
+ z8 = point 1.4 of p2;
+ z9 = z0;
+ z10 = (x1,y5);
+ z11 = (x1,y7);
+ z12 = (x3,y8);
+ z13 = (x3,y6);
+
+ penpos0(b,0);
+ penpos9(b,0);
+ penpos1(b,90);
+ penpos2(b,90);
+ penpos3(b,90);
+ penpos4(b,90);
+ penpos5(1.4b,180);
+ penpos6(1.4b,180);
+ penpos7(1.4b,0);
+ penpos8(1.4b,0);
+
+ penstroke z1e{right}..{up}z5e..{up}z6e..{right}z4e;
+ penstroke z2e{right}..{down}z7e..{down}z8e..{right}z3e;
+ pickup pencircle scaled b;
+ drawdot z1;
+ drawdot z2;
+ drawdot z3;
+ drawdot z4;
+ pickup pencircle scaled .4pt;
+ draw z1{up}..z10..z5..{up}z13;
+ draw z3{up}..z12..z8..{up}z11;
+ draw fullcircle scaled .5b shifted (z11);
+ draw fullcircle scaled .5b shifted (z13);
+
+ endchar;
diff --git a/fonts/byzfonts/Alphabet/Caps/Y.mf b/fonts/byzfonts/Alphabet/Caps/Y.mf
new file mode 100644
index 0000000000..bf9f31a441
--- /dev/null
+++ b/fonts/byzfonts/Alphabet/Caps/Y.mf
@@ -0,0 +1,65 @@
+beginchar("Y",em#,5cap#/7,0dth#); "Ypsilon";
+path p[];
+ save ww,hh,dd;
+
+ ww = w/10; hh = h/5;
+ b := ww;
+
+ x0 = x1 = 5ww;
+ y0 = 0; y1 = 1.5hh;
+ x2 = 10ww - x3 = .5ww;
+ y3 = y2 = 8hh;
+ z4 = .25[z1,z2];
+ z5 = .5[z1,z2];
+ z6 = .75[z1,z2];
+ z7 = .25[z1,z3];
+ z8 = .5[z1,z3];
+ z9 = .75[z1,z3];
+ z10 = .5[z1,z4];
+ z11 = .5[z5,z4];
+ z12 = .5[z5,z6];
+ z13 = .5[z2,z6];
+ z14 = .5[z1,z7];
+ z15 = .5[z8,z7];
+ z16 = .5[z8,z9];
+ z17 = .5[z3,z9];
+ z18 = .5[z1,z0];
+ z19 = (x2,y0);
+ z21 = (x15,y17);
+ z20 = (x3,y0);
+ z22 = (x11,y17);
+
+
+ penpos0(2b,0);
+ penpos18(.6b,0);
+ penpos1(b,0);
+ penpos10(.6b,30);
+ penpos11(.6b,30);
+ penpos12(.6b,30);
+ penpos13(.6b,30);
+ penpos4(1.7b,30);
+ penpos5(1.7b,30);
+ penpos6(1.7b,30);
+ penpos2(b,30);
+ penpos14(.6b,-30);
+ penpos15(.6b,-30);
+ penpos16(.6b,-30);
+ penpos17(.6b,-30);
+ penpos7(1.7b,-30);
+ penpos8(1.7b,-30);
+ penpos9(1.7b,-30);
+ penpos3(b,-30);
+
+ penstroke z0e..z18e..z1e;
+ penstroke z1e..z10e..z4e..z11e..z5e..z12e..z6e..z13e..z2e;
+ penstroke z1e..z14e..z7e..z15e..z8e..z16e..z9e..z17e..z3e;
+ pickup pencircle scaled b;
+ drawdot z2;
+ drawdot z3;
+ pickup pencircle scaled .4pt;
+ draw z19{up}..z5..{right}z21;
+ draw fullcircle scaled .5b shifted (z21);
+ draw z20{up}..z8..{left}z22;
+ draw fullcircle scaled .5b shifted (z22);
+
+endchar;
diff --git a/fonts/byzfonts/Alphabet/Caps/Z.mf b/fonts/byzfonts/Alphabet/Caps/Z.mf
new file mode 100644
index 0000000000..0de1c85446
--- /dev/null
+++ b/fonts/byzfonts/Alphabet/Caps/Z.mf
@@ -0,0 +1,39 @@
+beginchar("Z",em#,5cap#/7,0); "Zeta";
+path p[];
+ save ww,hh,dd;
+
+ ww = w/10; hh = h/5;
+ b := ww;
+
+ x0 = 2ww;
+ x5 = 2.5ww;
+ x2 = x4 = x7 = 8ww;
+ x3 = 4ww;
+ y7 = 0;
+ y0 = 9hh;
+ y2 = 8hh;
+ y5 = 2hh;
+ y3 = 5.2hh;
+ y4 = 5hh;
+ z6 = (x5,.5hh);
+ z8 = (x4,.5[y4,y5]);
+ z9 = (x0,.5[y0,y5]);
+ z10 = (.5[x0,x2],y0);
+
+penpos7(2b,0);
+penpos5(b,90);
+penstroke z7e{up}..{left}z5e;
+p1 = z5{left}..{z2-z5}z2{left}..{up}z0;
+
+ pickup pencircle scaled b;
+ draw p1;
+ pickup pencircle scaled .4pt;
+ draw z6{right}..{z8-z6}z8..{z9-z8}z9..{z10-z9}z10;
+ draw fullcircle scaled .5b shifted (z10);
+ draw fullcircle scaled .5b shifted (z8);
+ draw fullcircle scaled .5b shifted (z9);
+ draw fullcircle scaled .5b shifted (z6);
+ draw fullcircle scaled .5b shifted (z4);
+ fill fullcircle scaled 2b shifted (z3);
+
+endchar;