diff options
Diffstat (limited to 'fonts/byzfonts/Alphabet')
196 files changed, 3847 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; diff --git a/fonts/byzfonts/Alphabet/Ligs/X177_XP.mf b/fonts/byzfonts/Alphabet/Ligs/X177_XP.mf new file mode 100644 index 0000000000..06b63d26b2 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/X177_XP.mf @@ -0,0 +1,28 @@ +%wid# := 1mm#; hei# := 1mm#; dep# := 1mm#; +wid# := pt#; hei# := pt#; dep# := pt#; +define_pixels(wid,hei,dep); +c_s = wid; + +beginchar(oct"177",12wid#,12hei#,3dep#); "XPICTOC"; +path p[]; + x1 = x4 = w - x2 = c_s; + x2 = x3; + y1 = y2 = -h/12; + y8 = round(2h/3); + y3 = y4 = y8 - h/12; + x5 = x9 = x10 = w/2; + y5 = round(11.45h/12); y9 = round(8.55h/12); y10 = -round(h/4); + x6 = x8 = round(8.5w/12); + top y6 = h; x7 = w; x11 = round(5.5w/12); + y11 = y7 = .5[y6,y8]; + + pickup pencircle scaled pt; + p1 = superellipse(z11,z6,z7,z8,.77); + draw p1; + p2 = z5..z11..z9; + undraw p2; + p3 = z5--z9--z10; + p4 = z4--z2; + p5 = z1--z3; + draw p3; draw p4; draw p5; + endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/X200_XP.mf b/fonts/byzfonts/Alphabet/Ligs/X200_XP.mf new file mode 100644 index 0000000000..d9d2cfc9f8 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/X200_XP.mf @@ -0,0 +1,67 @@ +%wid# := 1mm#; hei# := 1mm#; dep# := 1mm#; +wid# := pt#; hei# := pt#; dep# := pt#; +define_pixels(wid,hei,dep); +save c_s, b, Diam; +c_s = 2wid; +b := wid; + +%%%%%%%%%%%%%%% UNPENSTROKE DEFF %%%%%%%%%%%%%%%%%%%%%%%%%%%% +def unpenstroke text t = + forsuffixes e = l,r: path_.e:=t; endfor + if cycle path_.l: cyclestroke_ + else: unfill path_.l -- reverse path_.r -- cycle fi enddef; +def cyclestroke_ = + begingroup interim turningcheck:=0; + addto pic_ contour path_.l.t_ withweight 1; + addto pic_ contour path_.r.t_ withweight _; + cull pic_ dropping origin withweight default_wt_; + addto_currentpicture also pic_; + pic_:=nullpicture endgroup enddef; +path path_.l,path_.r; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + +beginchar(oct"200",12wid#,12hei#,0); "XPICTOC"; +path p[]; +numeric ang[]; + x1 = x4 = w - x2 = c_s; + x2 = x3; + y1 = y2 = h/4; + y3 = y4 = h - y1; + p0 = z2..z4; + p1 = z1..z3; + z10 = z11 = z0 = point .5 of p0; + x5 = x6 = x0; + y5 = h - y6 = h/12; + x7 = x8 = .5[x6,x3]; + y7 = .5[y4,y6]; + y8 = h; + z9 = (x3,y6); + z13 = z12 = z6; + + penpos6(.7b,0); + penpos0(.4b,0); + penpos5(b,0); + ang0 = angle(z4-z2)+90; + penpos4(b,ang0); + penpos10(.4b,ang0); + penpos2(b,ang0); + ang1 = angle(z3-z1)+90; + penpos3(b,ang1); + penpos11(.4b,ang1); + penpos1(b,ang1); + penpos12(.7b,0); + penpos8(.7b,-90); + penpos9(.7b,180); + penpos7(.7b,90); + penpos13(.7b,360); + + pickup pencircle scaled .2pt; + Diam = w++h; + fill fullcircle scaled Diam shifted (z0); + unpenstroke z6e..z0e..z5e; + unpenstroke z4e..z10e..z2e; + unpenstroke z3e..z11e..z1e; + unpenstroke z12e{up}..z8e{right}..z9e{down}..z7e{left}..{up}z13e; + + endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/X201_xp.mf b/fonts/byzfonts/Alphabet/Ligs/X201_xp.mf new file mode 100644 index 0000000000..37f8cafdcd --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/X201_xp.mf @@ -0,0 +1,32 @@ +beginchar(oct"201",em#,6cap#/7,dth#); "Ligature: xp"; + path p[]; + save ww,hh,dd; + + ww = w/5; hh = h/3; dd = d; + b := .2ww; + + x0 = 1.4ww; y0 = .7hh; + x1 = 1.7ww; y1 = hh; + y4 = y2 = y3 = y9 = -dd; y8 = -.95dd; + x4 = .9ww; x2 = 1.8ww; x3 = 2.3ww; + x9 = 2.6ww; x8 = 3ww; x7 = 3.2ww; + y7 = -.75dd; + x6 = 2.7ww; y6 = .7hh; + p0 = z0{up}..z1{right}..{down}z2{right}..{right}z3; + z10 = point 1.6 of p0; + z11 = point 1.3 of p0; + z12 = .5[z1,z11]; + z13 = (x8,y7); + p1 = z4{up}..z10..{left}z6{dir200}..{down}z7{down}..z8..{left}z9; + p2 = subpath (0,1.3) of p0{up}..z12..{down}z0..cycle; + z14 = subpath (1,2) of p1 intersectionpoint subpath (2,3) of p1; + tm = directiontime z7-z14 of p1; + p3 = subpath (tm,5) of p1{right}..z13..{up}z14..cycle; + + pickup pencircle scaled b; + draw p0; + draw p1; + unfill p2; + unfill p3; + + endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/X202_EN.mf b/fonts/byzfonts/Alphabet/Ligs/X202_EN.mf new file mode 100644 index 0000000000..a05609c36f --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/X202_EN.mf @@ -0,0 +1,49 @@ +beginchar(oct"202",em#,6cap#/7,dth#); "Ligature: EN"; +path p[]; + save ww,hh,dd; + + ww = w/5; hh = h/3; dd = d; + b := .2ww; + + + x0 = x3 = 2ww; + x2 = x5 = 1.5ww; + x13= x6 = x7 = 2.2ww; + x10= x9 = 3.5ww; + x14= x8 = .5[x7,x9]; + x11= 3.7ww; y11 = 1.6hh; + x1 = ww; + y1 = y5 = y3 = hh; + y0 = y8 = 0; + y2 = y6 = y10 = 1.5hh; + y7 = y9 = .4hh; + x4 = 1.8ww; y4 = .8hh; + y13= -.4dd; y14 = -.5dd; + + p0 = z0{left}..{up}z1{up}..{right}z2..{down}z3..{left}z4..{up}z5; + p1 = z6{down}..{down}z7..{right}z8{right}..z9{up}..{up}z10..{z10-z11}z11; + z15= point 1.3 of p1; + p2 = z15{z13-z15}..z13..{right}z14; + + penpos5(b,180); + penpos4(.9b,-90); + penpos3(.7b,0); + penpos2(.5b,90); + penpos1(2b,180); + penpos0(b,-25); + penstroke z5e{down}..z4e{right}..z3e{up}..z2e{left}..z1e{down}..{right}z0e; + penpos6(b,180); + penpos7(b,180); + penpos8(.8b,-90); + penpos9(b,0); + penpos10(1.5b,25); + penpos11(b,angle(z11-z10)-90); + penstroke z6e{down}..{down}z7e..{right}z8e{right}..z9e{up}..z10e; + penpos15(b,angle(z13-z15)-90); + penpos13(b,angle(z13-z15)-90); + penpos14(b,-90); + penstroke z15e{z13-z15}..z13e..{right}z14e; + + pickup pencircle scaled b; + drawdot z6; + endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/X203_ll.mf b/fonts/byzfonts/Alphabet/Ligs/X203_ll.mf new file mode 100644 index 0000000000..e84f79abf9 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/X203_ll.mf @@ -0,0 +1,37 @@ +beginchar(oct"203",.4em#,2cap#/7,.5dth#); "The Ligature lambda-lambda"; +path p[]; + save ww,hh,dd; + + ww = w/4; hh = h/2; dd = d/1; + b := .4ww; + + x0 = x3 = .4ww; + x1 = .7ww; y1 = 1.6hh; + y2 = y3 = -.9dd; + x2 = 2.4ww; y0 = 1.4hh; + p0 = z0{z1-z0}..{right}z1{z2-z1}..z2; + z4 = point 1.25 of p0; + + penpos0(1.3b,angle(z1-z0)+70); + penpos1(1.5b,90); + penpos2(1.5b,0); + penpos3(1.5b,0); + penpos4(.7b,angle(z3-z4)+90); + penstroke z0e{z1-z0}..{right}z1e{z2-z1}..{dir-30}z2e; + penstroke z4e..z3e; + + z5 = z4 shifted (.5x2,0); + z6 = z0 shifted (.5x2,0); + z7 = z1 shifted (.5x2,0); + z8 = z3 shifted (.5x2,0); + z9 = z2 shifted (.5x2,0); + + penpos6(1.3b,angle(z7-z6)+70); + penpos7(1.5b,90); + penpos9(1.5b,0); + penpos8(1.5b,0); + penpos5(.7b,angle(z3-z4)+90); + penstroke z6e{z7-z6}..{right}z7e{z9-z7}..{dir-30}z9e; + penstroke z5e..z8e; + +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/X204_META.mf b/fonts/byzfonts/Alphabet/Ligs/X204_META.mf new file mode 100644 index 0000000000..c6ffdabacf --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/X204_META.mf @@ -0,0 +1,60 @@ +beginchar(oct"204",em#,6cap#/7,dth#); "Ligature: META"; +path p[]; + save ww,hh,dd; + + ww = w/5; hh = h/3; dd = d; + b := .2ww; + + + x0 = x1 = x2 = ww; + x4 = x5 = 2ww; + x3 = .5[x0,x4]; y13 = 0; y3 = .1hh; y6 = -.1dd; + y2 = -.5dd; x6 = 2.8ww; + y8 = y1 = y5 = .2hh; + y0 = 1.5hh; y4 = y10 = y11 = y12 = 1.3hh; + y15 = .5[y0,y4]; + x7 = 2.5ww; y7 = -.3dd; + x15 = 4.1ww; x12 = x8 = 3.9ww; + x10 = 2.3ww; x13 = x11 = .5[x10,x12]; + x16 = 4.3ww; y16 = 1.1hh; + z14 = (.7[x4,x10],y16); + z17 = (.5[x7,x8],y7); + + + penpos0(b,180); + penpos2(b,180); + penpos4(b,180); + penpos5(b,180); + penpos1(b,90); + penpos3(b,90); + penpos6(b,angle(z6-z5)-90); + penpos7(b,angle(z8-z7)+90); + penpos8(b,angle(z8-z17)+90); + penpos10(b,250); + penpos14(b,290); + penpos12(b,250); + penpos11(b,180); + penpos13(b,270); + penpos15(b,270); + penpos16(b,270); + + pickup pencircle scaled b; + penstroke z0e--z2e; + penstroke z4e--z5e; + penstroke z1e..{right}z3e{right}..z5e; + penstroke z5e--z6e; + draw z6--z7; + penstroke z7e..controls z17..z8e; + draw z15..z16; + penstroke z10e--z12e; + penstroke z14e--z10e; + penstroke z11e{down}..{right}z13e; + drawdot z0; + drawdot z2; + drawdot z4; + drawdot z8; + drawdot z13; + drawdot z14; + + + endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/X205_KATA.mf b/fonts/byzfonts/Alphabet/Ligs/X205_KATA.mf new file mode 100644 index 0000000000..c4b1ad3951 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/X205_KATA.mf @@ -0,0 +1,50 @@ +beginchar(oct"205",em#,6cap#/7,dth#); "Ligature: KATA"; +path p[]; + save ww,hh,dd; + + ww = w/5; hh = h/3; dd = d; + b := .2ww; + + + x0 = x2 = .9ww; + y0 = 1.1hh; + x3 = 2ww; x1 = 1.2ww; + y2 = 0; + x4 = 1.7ww; y4 = .3hh; + y5 = 0; x5 = 2.8ww; + x6 = 2.5ww; y6 = -.3dd; + x7 = 3.9ww; y7 = .2hh; + y13 = .1hh; y15 = 1.4hh; + y1 = y3 = y10 = y11 = y12 = 1.3hh; + x15 = 4.1ww; x12 = 3.9ww; + x10 = 2.3ww; x13 = x11 = .5[x10,x12]; + x16 = 4.3ww; y16 = 1.1hh; + z14 = (.7[x3,x10],y16); + z17 = (.5[x6,x7],y6); + + p0 = z0..z1{down}..{down}z2{up}..{up}z3{z4-z3}..z4..{z5-z4}z5; + penpos10(b,250); + penpos14(b,290); + penpos12(b,250); + penpos11(b,180); + penpos13(b,270); + penpos15(b,270); + penpos16(b,270); + penpos4(b,180); + penpos5(b,angle(z5-z4)-90); + penpos6(b,angle(z7-z6)+90); + penpos7(b,angle(z7-z17)+90); + + pickup pencircle scaled b; + draw z5--z6; + penstroke z6e..controls z17..z7e; + draw z15..z16; + penstroke z10e--z12e; + penstroke z14e--z10e; + penstroke z11e{down}..{right}z13e; + drawdot z7; + drawdot z13; + drawdot z14; + draw p0; + + endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/X206_TWN.mf b/fonts/byzfonts/Alphabet/Ligs/X206_TWN.mf new file mode 100644 index 0000000000..0a6b67b582 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/X206_TWN.mf @@ -0,0 +1,36 @@ +beginchar(oct"206",em#,6cap#/7,dth#); "Ligature: TWN"; +path p[]; + save ww,hh,dd; + + ww = w/5; hh = h/3; dd = d; + b := .2ww; + + y0 = y12 = y10 = 1.2hh; + x0 = ww; x1 = 1.2ww; x2 = 2ww; + z18 = .5[z1,z2]; x10 = 3.25ww; + x3 = x18; x12 = 2.8ww; + y11 = y1 = 1.5hh = y2; + x11 = .5[x12,x10]; + y16 = y5 = y6 = 2.7hh; + x5 = 2.1ww; x6 = 2.8ww; + x9 = x4 = .5[x5,x6]; y19 = y15 = y4 = 2.5hh; + y7 = y8 = 2.8hh; + x7 = 2.3ww; x8 = 2.6ww; + y9 = -.5dd; y3 = y13 = .1hh; + x15 = x13 = 3.3ww; + x19 = x14 = 3.7ww; y14 = .7hh; + x17 = x16 = 3.45ww; y17 = 2.4hh; + z20 = .5[z13,z14]; + + p0 = z0{up}..z1..z18..z2..{up}z4; + p1 = z18{down}..{right}z3; + p2 = z4{down}..{down}z9..{up}z10..{left}z11..{down}z12..{right}z13..z14..z15{up}.. + {right}z16..{down}z19..{left}z17; + p3 = z7{up}..z5{down}..z4{right}..{up}z6..{down}z8; + pickup pencircle scaled b; + draw p0; + draw p1; + draw p2; + draw p3; + + endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/X207_Eks.mf b/fonts/byzfonts/Alphabet/Ligs/X207_Eks.mf new file mode 100644 index 0000000000..e44932df31 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/X207_Eks.mf @@ -0,0 +1,28 @@ +beginchar(oct"207",em#,6cap#/7,dth#); "Ligature: EX"; +path p[]; + save ww,hh,dd; + + ww = w/5; hh = h/3; dd = d; + b := .2ww; + + x0 = x1 = 1.9ww; + y0 = .5hh; y1 = .9hh; + y2 = y7 = 1.5hh; + x2 = 2.4ww; x7 = x9 = x5 = 3.5ww; + x3 = 1.5ww; y5 = y3 = 2.5hh; + y9 = .15hh; y10 = -.2dd; + x10 = 3.2ww; + x8 = x6 = 2.6ww; + y6 = 1.7hh; y8 = .4hh; + x4 = .5[x3,x5]; + y4 = 2.2hh; + + p0 = fullcircle scaled .8hh shifted z0; + p1 = z1{right}..z2{up}..{z3-z2}z3{down}..z4..{up}z5{z6-z5}..z6.. + {right}z7{dir160}..z8{down}..{right}z9{right}..{z10-z9}z10; + + pickup pencircle scaled b; + draw p0; + draw p1; + + endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/X210_EY.mf b/fonts/byzfonts/Alphabet/Ligs/X210_EY.mf new file mode 100644 index 0000000000..788fb46a16 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/X210_EY.mf @@ -0,0 +1,25 @@ +beginchar(oct"210",em#,6cap#/7,0); "Ligature: EY"; +path p[]; + save ww,hh,dd; + + ww = w/5; hh = h/3; dd = d; + b := .2ww; + + x0 = x1 = 1.5ww; + y0 = .5hh; y1 = .9hh; + x2 = 2.1ww; x3 = 2.1ww; + y2 = 2.1hh; y4 = y3 = .1hh; + x4 = 3ww; + x5 = 3.15ww; y5 = .65hh; + + p0 = fullcircle scaled .8hh shifted z0; + p1 = z1{up}..tension2..{left}z2; + p2 = z2..{down}z3..controls z4..z5; + + pickup pencircle scaled b; + draw p0; + draw p1; + draw p2; + drawdot z5; + + endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/X211_HN.mf b/fonts/byzfonts/Alphabet/Ligs/X211_HN.mf new file mode 100644 index 0000000000..d5e818fe9a --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/X211_HN.mf @@ -0,0 +1,40 @@ +beginchar(oct"211",em#,6cap#/7,0); "Ligature: HN"; + path p[]; + save ww,hh; + + ww = w/5; hh = h/3; + b := .2ww; + + y2 = y4 = y6 = .8hh; + y7 = .2hh; y1 = y3 = y5 = .1hh; + x7 = x0 = hh; y0 = 2.5hh; + x1 = 1.25ww; + x3 = 1.9ww; + x5 = 2.8ww; + x2 = 1.5ww; + x4 = 2.35ww; + x6 = 3.25ww; + z8 = z2; + z9 = z4; + + penpos0(1.7b,210); + penpos7(1.2b,180); + penpos1(1.1b,-90); + penpos3(1.1b,-90); + penpos5(1.1b,-90); + penpos2(b,angle(z3-z2)+90); + penpos8(b,180); + penpos4(1.2b,angle(z4-z3)-90); + penpos9(b,180); + penpos6(.8b,0); + penstroke z0e{down}..{down}z7e..{right}z1e{right}..{z2-z3}z2e; + penstroke z8e{down}..z3e{right}..{z4-z3}z4e; + penstroke z9e{down}..z5e{right}..{up}z6e; + + pickup pencircle scaled b; + drawdot z2; + pickup pencircle scaled 1.2b; + drawdot z4; + pickup pencircle scaled .8b; + drawdot z6; + endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/X212_YN.mf b/fonts/byzfonts/Alphabet/Ligs/X212_YN.mf new file mode 100644 index 0000000000..653f953a7a --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/X212_YN.mf @@ -0,0 +1,40 @@ +beginchar(oct"212",em#,6cap#/7,0); "Ligature: YN"; + path p[]; + save ww,hh; + + ww = w/5; hh = h/3; + b := .2ww; + + y0 = .9hh; y2 = y4 = y6 = .8hh; + y7 = .2hh; y1 = y3 = y5 = .1hh; + x7 = x0 = hh; + x1 = 1.25ww; + x3 = 1.9ww; + x5 = 2.8ww; + x2 = 1.5ww; + x4 = 2.35ww; + x6 = 3.25ww; + z8 = z2; + z9 = z4; + + penpos0(1.7b,210); + penpos7(1.2b,180); + penpos1(1.1b,-90); + penpos3(1.1b,-90); + penpos5(1.1b,-90); + penpos2(b,angle(z3-z2)+90); + penpos8(b,180); + penpos4(1.2b,angle(z4-z3)-90); + penpos9(b,180); + penpos6(.8b,0); + penstroke z0e{down}..{down}z7e..{right}z1e{right}..{z2-z3}z2e; + penstroke z8e{down}..z3e{right}..{z4-z3}z4e; + penstroke z9e{down}..z5e{right}..{up}z6e; + + pickup pencircle scaled b; + drawdot z2; + pickup pencircle scaled 1.2b; + drawdot z4; + pickup pencircle scaled .8b; + drawdot z6; + endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/X213_sp.mf b/fonts/byzfonts/Alphabet/Ligs/X213_sp.mf new file mode 100644 index 0000000000..544018bf74 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/X213_sp.mf @@ -0,0 +1,44 @@ +beginchar(oct"213",em#,6cap#/7,0); "Ligature: sp"; + path p[]; + save ww,hh; + + ww = w/5; hh = h/3; + b := .2ww; + + y2 = y4 = y6 = .6hh; + y7 = .2hh; y1 = y3 = y5 = .1hh; + x7 = hh; + x1 = 1.25ww; + x3 = 1.9ww; + x5 = 2.8ww; + x2 = 1.5ww; + x4 = 2.35ww; + x6 = 3.15ww; + z8 = z2; + z9 = z4; + z10 = (3.35ww,.7hh); + + penpos7(.7b,180); + penpos1(1.1b,-90); + penpos3(1.1b,-90); + penpos5(1.1b,-90); + penpos2(b,angle(z3-z2)+90); + penpos8(b,180); + penpos4(1.2b,angle(z4-z3)-90); + penpos9(b,180); + penpos6(.8b,0); + penpos10(1.5b,90); + penpos11(.7b,180); + + penstroke z7e{down}..{right}z1e{right}..{z2-z3}z2e; + penstroke z8e{down}..z3e{right}..{z4-z3}z4e; + penstroke z9e{down}..z5e{right}..{up}z6e; + penstroke z10e{left}..z7e{down}; + + pickup pencircle scaled 1.5b; + drawdot z10; + pickup pencircle scaled 1.2b; + drawdot z4; + pickup pencircle scaled b; + drawdot z2; + endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/X214_cT.mf b/fonts/byzfonts/Alphabet/Ligs/X214_cT.mf new file mode 100644 index 0000000000..a2ed96ed5e --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/X214_cT.mf @@ -0,0 +1,29 @@ +beginchar(oct"214",em#,6cap#/7,dth#); "Ligature: cT"; + path p[]; + save ww,hh,dd; + + ww = w/5; hh = h/3; dd = d; + b := .2ww; + + x0 = x2 = 2ww; x1 = 2.2ww; + x3 = 1.75ww; x4 = 2.5ww; + x5 = 3ww; + y0 = -.7dd; y1 = .2hh; + y2 = .1hh; y3 = .5hh; + y4 = hh; y5 = .9hh; + z6 = z1; + + penpos0(b,0); + penpos1(b,0); + penpos2(b,90); + penpos3(.8b,0); + penpos4(b,-90); + penpos5(1.7b,-90); + penpos6(b,angle(z2-z1)-90); + + penstroke z0e{up}..{up}z1e; + penstroke z6e{left}..z2e..{up}z3e..{right}z4e..z5e; + pickup pencircle scaled 1.7b; + drawdot z5; + + endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/X215_OY.mf b/fonts/byzfonts/Alphabet/Ligs/X215_OY.mf new file mode 100644 index 0000000000..8525840c3f --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/X215_OY.mf @@ -0,0 +1,28 @@ +beginchar(oct"215",em#,6cap#/7,0); "Ligature: OY"; + path p[]; + save ww,hh; + + ww = w/5; hh = h/3; + b := .2ww; + + x0 = x5 = 2.5ww; + y1 = y2 = .5hh; + y3 = y4 = 1.7hh; + y0 = .1hh; y5 = .5[y0,y3]; + x1 = 5ww - x2 = 1.8ww; + x3 = 5ww - x4 = 1.7ww; + p0 = z0..z1..z5..z2..cycle; + z6 = point 1.6 of p0; + z7 = point 2.4 of p0; + y8 = y10 = .25[y6,y3]; + y9 = .5[y6,y8]; + x8 = x6; x9 = x5; x10 = x7; + +p1 = z3{z6-z3}..controls z6..{right}z5{right}..controls z7..{z4-z7}z4 +{z7-z4}..z10..z9..z8..{z3-z6}z3..cycle; + + pickup pencircle scaled b; + draw p0; + filldraw p1; + + endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/X216_cX.mf b/fonts/byzfonts/Alphabet/Ligs/X216_cX.mf new file mode 100644 index 0000000000..332e7f84d5 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/X216_cX.mf @@ -0,0 +1,27 @@ +beginchar(oct"216",em#,6cap#/7,dth#); "Ligature: cX"; + path p[]; + save ww,hh; + + ww = w/5; hh = h/3; + b := .2ww; + + x0 = 1.25ww; y0 = .1hh; + x7 = 1.4ww; y1 = .5hh; + x1 = 1.2ww; + x2 = 1.8ww; y2 = hh; + x3 = 1.75ww; y3 = .4hh; + y7 = y4 = y5 = -dd; + x5 = x6 = 2.9ww; + y6 = .9hh; x4 = 2.3ww; + + p0 = z0{z3-z1}..{z2-z0}z3..{z1-z3}z2..{z0-z2}z1..{z3-z1}z0; + z8 = point 1.8 of p0; + p1 = z8..controls z4..{right}z5; + p2 = z6--z7; + + pickup pencircle scaled b; + draw p0; + draw p1; + draw p2; + + endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/X217_cTh.mf b/fonts/byzfonts/Alphabet/Ligs/X217_cTh.mf new file mode 100644 index 0000000000..2094ac3e9a --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/X217_cTh.mf @@ -0,0 +1,34 @@ +beginchar(oct"217",em#,6cap#/7,0); "Ligature: sth"; + path p[]; + save ww,hh; + + ww = w/5; hh = h/3; + b := .2ww; + + x0 = 1.25ww; y0 = .1hh = y5; + y1 = .5hh; x1 = 1.2ww; + x8 = x2 = 1.8ww; y2 = hh; + x3 = 1.75ww; y3 = .4hh; + x5 = x7 = 2.3ww; + x6 = 3ww; y6 = 1.2hh; + y7 = 2.2hh; y8 = 1.9hh; + x9 = 3.3ww; y9 = 1.6hh; + z10 = (x5,.5[y5,y3]); + + p0 = z0{z3-z1}..{z2-z0}z3..{z1-z3}z2..{z0-z2}z1..{z3-z1}z0; + z4 = point 1.8 of p0; + p1 = z4{z5-z4}..{right}z5..{up}z6..{left}z7..{down}z8..{right}z9; + z11 = point 4.3 of p1; + z12 = .15[z11,z7]; + p2 = subpath (0,2) of p1; + p3 = p2{down}..z10..{z4-z10}z4..cycle; + p4 = subpath (4,5) of p1; + p5 = p4{z12-z9}..z12..{up}z8..cycle; + + pickup pencircle scaled b; + draw p0; + draw p1; + fill p3; + fill p5; + + endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/X220_gar.mf b/fonts/byzfonts/Alphabet/Ligs/X220_gar.mf new file mode 100644 index 0000000000..daaa28f89c --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/X220_gar.mf @@ -0,0 +1,42 @@ +beginchar(oct"220",.em#,6cap#/7,dth#); "g`ar"; + path p[]; + save ww,hh,dd; + + ww = w/3; hh = h/2; dd = d; + b := ww; + + z0 = (ww,.7hh); + z1 = (1.3ww,hh); + z2 = (1.6ww,.7hh); + z3 = (1.15ww,-.8dd); + p1 = z0{up}..{right}z1..{down}z2{z3-z2}..z3; + z4 = point 2.5 of p1; + z5 = (1.9ww,.5hh); + p2 = z3{left}..z4{z5-z4}..z5; + z6 = point 1.7 of p2; + z7 = (2ww,0); + z8 = (2.35ww,.3hh); + z9 = (2ww,1.2hh); + z10= (2.2ww,1.4hh); + z11= (2.1ww,1.1hh); + p3 = z5{dir 170}..z6{z7-z6}..z7..z8{z9-z8}..z9..z10..z11; + p0 = subpath(1,4) of p3; + p7 = subpath(4,6) of p3; + z12= (.5[x0,x2],.9hh); + z13= (1.5ww,y2); + p4 = z0..z12..z13{z4-z13}..z4{z2-z3}..{z2-z3}z2{up}..z1{left}.. + {down}z0..cycle; + z14= .5[z7,z8]; + z15= (2.2ww,y8); + p5 = p0 & z9{dir-100}..z15..z14..{z6-z14}z6..cycle; + z16= (x10,y9); + z17= .5[z9,z10]; + p6 = z9..z17{z10-z17}..z16..z11 & reverse p7..cycle; +pickup pencircle scaled .8pt; +draw p1; +draw p2; +draw p3; +fill p4; +fill p5; +fill p6; +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/X221_EI.mf b/fonts/byzfonts/Alphabet/Ligs/X221_EI.mf new file mode 100644 index 0000000000..464256a64c --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/X221_EI.mf @@ -0,0 +1,21 @@ +beginchar(oct"221",em#,6cap#/7,dth#); "Ligature: EI"; + path p[]; + save ww,hh,dd; + + ww = w/5; hh = h/3; dd = d; + b := .2ww; + + y0 = y3 = .1hh; + x0 = 2.5ww; + x1 = 2.3ww; y2 = y1 = 1.5hh; + x2 = x3 = 3ww; + x4 = 1.7ww; y4 = hh; + z5 = (.5[x0,x3],.6[y1,y4]); + p0 = z0{left}..{up}z4..{right}z1..z5{z4-z5}..{left}z4; + z6 = point 2.7 of p0; + p1 = z6{right}..{left}z2{dir265}..{down}z3; + pickup pencircle scaled b; + draw p0; + draw p1; + + endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/X222_KAI.mf b/fonts/byzfonts/Alphabet/Ligs/X222_KAI.mf new file mode 100644 index 0000000000..0063d2d6ad --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/X222_KAI.mf @@ -0,0 +1,32 @@ +beginchar(oct"222",em#,6cap#/7,dth#); "Ligature: KAI"; + path p[]; + save ww,hh,dd; + + ww = w/5; hh = h/3; dd = d; + b := .2ww; + + x0 = x8 = ww; + y0 = .1hh; y8 = 1.6hh; + x1 = 2.4ww; y1 = 1.7hh; + x2 = 2.5ww; y2 = 1.5hh; + p0 = z0--z1{right}..{down}z2; + z3 = point .6 of p0; + z4 = point .75 of p0; + z5 = (x4,-.4dd); + x6 = 3ww; y6 = .5hh; + z7 = (x6,y5); + z9 = (x1,2.3hh); + z11 = (x2,2hh); + x10 = 1.8ww; y10 = -.7dd; + p1 = z3..{left}z8; + p2 = z4{dir250}..z5..{z1-z0}z6; + p3 = z6{down}..z7..{up}z10; + p4 = z9--z11; + pickup pencircle scaled b; + draw p0; + draw p1; + draw p2; + draw p3; + draw p4; + + endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x223_ga.mf b/fonts/byzfonts/Alphabet/Ligs/x223_ga.mf new file mode 100644 index 0000000000..5c09ca79fc --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x223_ga.mf @@ -0,0 +1,4 @@ +beginchar(oct"223",.6em#,3cap#/7,.5dth#); "ga"; +addto currentpicture also gama shifted(.05w,0h); +addto currentpicture also alfa shifted(.3w,-.25h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x224_gd.mf b/fonts/byzfonts/Alphabet/Ligs/x224_gd.mf new file mode 100644 index 0000000000..bb7478af76 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x224_gd.mf @@ -0,0 +1,4 @@ +beginchar(oct"224",.6em#,7cap#/7,.5dth#); "gd"; +addto currentpicture also gama shifted(.05w,0); +addto currentpicture also delta shifted(.1w,.25h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x225_ge.mf b/fonts/byzfonts/Alphabet/Ligs/x225_ge.mf new file mode 100644 index 0000000000..9149794049 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x225_ge.mf @@ -0,0 +1,4 @@ +beginchar(oct"225",.5em#,5cap#/7,.5dth#); "ge"; +addto currentpicture also gama shifted(.05w,0); +addto currentpicture also epsilon shifted(.35w,-.0h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x226_gh.mf b/fonts/byzfonts/Alphabet/Ligs/x226_gh.mf new file mode 100644 index 0000000000..91d2e843c4 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x226_gh.mf @@ -0,0 +1,4 @@ +beginchar(oct"226",.5em#,5cap#/7,.5dth#); "gh"; +addto currentpicture also gama shifted(.05w,0); +addto currentpicture also eta shifted(.37w,-.1h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x227_gi.mf b/fonts/byzfonts/Alphabet/Ligs/x227_gi.mf new file mode 100644 index 0000000000..e33c5aa11a --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x227_gi.mf @@ -0,0 +1,4 @@ +beginchar(oct"227",.4em#,4cap#/7,.5dth#); "gi"; +addto currentpicture also gama shifted(.05w,0); +addto currentpicture also yota shifted(.5w,-.1h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x230_gl.mf b/fonts/byzfonts/Alphabet/Ligs/x230_gl.mf new file mode 100644 index 0000000000..ae817b01cc --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x230_gl.mf @@ -0,0 +1,4 @@ +beginchar(oct"230",.5em#,4cap#/7,.5dth#); "gi"; +addto currentpicture also gama shifted(.05w,0); +addto currentpicture also lamda shifted(.45w,.1h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x231_gr.mf b/fonts/byzfonts/Alphabet/Ligs/x231_gr.mf new file mode 100644 index 0000000000..1afde8b5d2 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x231_gr.mf @@ -0,0 +1,4 @@ +beginchar(oct"231",.4em#,4cap#/7,.5dth#); "gr"; +addto currentpicture also gama shifted(.05w,0); +addto currentpicture also ro shifted(.5w,.1h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x232_go.mf b/fonts/byzfonts/Alphabet/Ligs/x232_go.mf new file mode 100644 index 0000000000..1d6c8e85c2 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x232_go.mf @@ -0,0 +1,4 @@ +beginchar(oct"232",.5em#,4cap#/7,.5dth#); "go"; +addto currentpicture also gama shifted(.05w,0); +addto currentpicture also omikron shifted(.43w,-.2h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x233_gy.mf b/fonts/byzfonts/Alphabet/Ligs/x233_gy.mf new file mode 100644 index 0000000000..f4431a1edd --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x233_gy.mf @@ -0,0 +1,4 @@ +beginchar(oct"233",.5em#,4cap#/7,.5dth#); "gy"; +addto currentpicture also gama shifted(.05w,0); +addto currentpicture also ypsilon shifted(.5w,-.0h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x234_da.mf b/fonts/byzfonts/Alphabet/Ligs/x234_da.mf new file mode 100644 index 0000000000..dfc2a1438c --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x234_da.mf @@ -0,0 +1,4 @@ +beginchar(oct"234",.8em#,5cap#/7,0dth#); "da"; +addto currentpicture also delta shifted(.0w,0); +addto currentpicture also alfa shifted(.45w,.0h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x235_dd.mf b/fonts/byzfonts/Alphabet/Ligs/x235_dd.mf new file mode 100644 index 0000000000..5847c95d0b --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x235_dd.mf @@ -0,0 +1,4 @@ +beginchar(oct"235",.7em#,5cap#/7,0dth#); "dd"; +addto currentpicture also delta shifted(.0w,0); +addto currentpicture also delta shifted(.35w,.0h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x236_di.mf b/fonts/byzfonts/Alphabet/Ligs/x236_di.mf new file mode 100644 index 0000000000..013e157150 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x236_di.mf @@ -0,0 +1,4 @@ +beginchar(oct"236",.6em#,5cap#/7,0dth#); "di"; +addto currentpicture also delta shifted(.0w,0); +addto currentpicture also yota shifted(.65w,-.05h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x237_do.mf b/fonts/byzfonts/Alphabet/Ligs/x237_do.mf new file mode 100644 index 0000000000..1b121fa3fd --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x237_do.mf @@ -0,0 +1,4 @@ +beginchar(oct"237",.7em#,5cap#/7,0dth#); "do"; +addto currentpicture also delta shifted(.0w,0); +addto currentpicture also omikron shifted(.55w,.0h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x240_de.mf b/fonts/byzfonts/Alphabet/Ligs/x240_de.mf new file mode 100644 index 0000000000..f21d30b0b2 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x240_de.mf @@ -0,0 +1,4 @@ +beginchar(oct"240",.6em#,5cap#/7,0dth#); "de"; +addto currentpicture also delta shifted(.0w,0); +addto currentpicture also epsilon shifted(.55w,.0h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x241_ea.mf b/fonts/byzfonts/Alphabet/Ligs/x241_ea.mf new file mode 100644 index 0000000000..5eddfac56c --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x241_ea.mf @@ -0,0 +1,4 @@ +beginchar(oct"241",.6em#,5cap#/7,0dth#); "ea"; +addto currentpicture also epsilon shifted (-.05w,0h); +addto currentpicture also alfa shifted (.3w,0h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x242_ee.mf b/fonts/byzfonts/Alphabet/Ligs/x242_ee.mf new file mode 100644 index 0000000000..4e48163206 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x242_ee.mf @@ -0,0 +1,4 @@ +beginchar(oct"242",.5em#,5cap#/7,0dth#); "ee"; +addto currentpicture also epsilon shifted (-.05w,0h); +addto currentpicture also epsilon shifted (.4w,0h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x243_ja.mf b/fonts/byzfonts/Alphabet/Ligs/x243_ja.mf new file mode 100644 index 0000000000..f6e6d5c97f --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x243_ja.mf @@ -0,0 +1,4 @@ +beginchar(oct"243",.7em#,5cap#/7,0dth#); "ja"; +addto currentpicture also jeta shifted (.05w,0h); +addto currentpicture also alfa shifted (.4w,0h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x244_je.mf b/fonts/byzfonts/Alphabet/Ligs/x244_je.mf new file mode 100644 index 0000000000..ac09ad9479 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x244_je.mf @@ -0,0 +1,4 @@ +beginchar(oct"244",.55em#,5cap#/7,0dth#); "je"; +addto currentpicture also jeta shifted (0w,0h); +addto currentpicture also epsilon shifted (.5w,0h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x245_jl.mf b/fonts/byzfonts/Alphabet/Ligs/x245_jl.mf new file mode 100644 index 0000000000..0fbebf6467 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x245_jl.mf @@ -0,0 +1,4 @@ +beginchar(oct"245",.55em#,5cap#/7,0dth#); "jl"; +addto currentpicture also jeta shifted (0w,0h); +addto currentpicture also lamda shifted (.5w,.2h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x246_ji.mf b/fonts/byzfonts/Alphabet/Ligs/x246_ji.mf new file mode 100644 index 0000000000..8ebd9a78ee --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x246_ji.mf @@ -0,0 +1,4 @@ +beginchar(oct"246",.4em#,5cap#/7,0dth#); "ji"; +addto currentpicture also jeta shifted (0w,0h); +addto currentpicture also yota shifted (.6w,0h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x247_jo.mf b/fonts/byzfonts/Alphabet/Ligs/x247_jo.mf new file mode 100644 index 0000000000..5d8dd6804e --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x247_jo.mf @@ -0,0 +1,4 @@ +beginchar(oct"247",.6em#,5cap#/7,0dth#); "jo"; +addto currentpicture also jeta shifted (0w,0h); +addto currentpicture also omikron shifted (.5w,0h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x250_jy.mf b/fonts/byzfonts/Alphabet/Ligs/x250_jy.mf new file mode 100644 index 0000000000..1f83c06437 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x250_jy.mf @@ -0,0 +1,4 @@ +beginchar(oct"250",.5em#,5cap#/7,0dth#); "jy"; +addto currentpicture also jeta shifted (0w,0h); +addto currentpicture also ypsilon shifted (.6w,0h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x251_ia.mf b/fonts/byzfonts/Alphabet/Ligs/x251_ia.mf new file mode 100644 index 0000000000..8147979250 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x251_ia.mf @@ -0,0 +1,4 @@ +beginchar(oct"251",.45em#,5cap#/7,0dth#); "ia"; +addto currentpicture also yota shifted (-.15w,-.05h); +addto currentpicture also alfa shifted (.1w,0h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x252_id.mf b/fonts/byzfonts/Alphabet/Ligs/x252_id.mf new file mode 100644 index 0000000000..31dae977ae --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x252_id.mf @@ -0,0 +1,4 @@ +beginchar(oct"252",.45em#,5cap#/7,0dth#); "id"; +addto currentpicture also yota shifted (-.1w,-.05h); +addto currentpicture also delta shifted (-.05w,0h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x253_kd.mf b/fonts/byzfonts/Alphabet/Ligs/x253_kd.mf new file mode 100644 index 0000000000..7ac73c8c1e --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x253_kd.mf @@ -0,0 +1,4 @@ +beginchar(oct"253",.5em#,5cap#/7,0dth#); "kd"; +addto currentpicture also KAPA shifted (-.05w,-.05h); +addto currentpicture also delta shifted (.15w,0h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x254_ka.mf b/fonts/byzfonts/Alphabet/Ligs/x254_ka.mf new file mode 100644 index 0000000000..a69ef4e74d --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x254_ka.mf @@ -0,0 +1,4 @@ +beginchar(oct"254",.6em#,5cap#/7,0dth#); "ka"; +addto currentpicture also KAPA shifted (0w,-.05h); +addto currentpicture also alfa shifted (.3w,0h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x255_ki.mf b/fonts/byzfonts/Alphabet/Ligs/x255_ki.mf new file mode 100644 index 0000000000..10b3e1ed01 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x255_ki.mf @@ -0,0 +1,4 @@ +beginchar(oct"255",.4em#,5cap#/7,0dth#); "ki"; +addto currentpicture also KAPA shifted (0w,-.05h); +addto currentpicture also yota shifted (.6w,-.05h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x256_la.mf b/fonts/byzfonts/Alphabet/Ligs/x256_la.mf new file mode 100644 index 0000000000..9ac6fe1dbf --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x256_la.mf @@ -0,0 +1,4 @@ +beginchar(oct"256",.5em#,5cap#/7,.5dth#); "la"; +addto currentpicture also lamda shifted (0w,0h); +addto currentpicture also alfa shifted (.15w,0h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x257_ld.mf b/fonts/byzfonts/Alphabet/Ligs/x257_ld.mf new file mode 100644 index 0000000000..313e3223e5 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x257_ld.mf @@ -0,0 +1,4 @@ +beginchar(oct"257",.45em#,5cap#/7,.5dth#); "ld"; +addto currentpicture also lamda shifted (0w,0h); +addto currentpicture also delta shifted (.0w,0h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x260_le.mf b/fonts/byzfonts/Alphabet/Ligs/x260_le.mf new file mode 100644 index 0000000000..ced7eadd0b --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x260_le.mf @@ -0,0 +1,4 @@ +beginchar(oct"260",.4em#,5cap#/7,.5dth#); "le"; +addto currentpicture also lamda shifted (0w,0h); +addto currentpicture also epsilon shifted (.35w,0h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x261_lh.mf b/fonts/byzfonts/Alphabet/Ligs/x261_lh.mf new file mode 100644 index 0000000000..db58481c3f --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x261_lh.mf @@ -0,0 +1,4 @@ +beginchar(oct"261",.45em#,5cap#/7,.5dth#); "lh"; +addto currentpicture also lamda shifted (0w,0h); +addto currentpicture also eta shifted (.3w,-.05h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x262_li.mf b/fonts/byzfonts/Alphabet/Ligs/x262_li.mf new file mode 100644 index 0000000000..0228497233 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x262_li.mf @@ -0,0 +1,4 @@ +beginchar(oct"262",.3em#,5cap#/7,.5dth#); "li"; +addto currentpicture also lamda shifted (0w,0h); +addto currentpicture also yota shifted (.4w,-.05h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x263_lk.mf b/fonts/byzfonts/Alphabet/Ligs/x263_lk.mf new file mode 100644 index 0000000000..56ab241f09 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x263_lk.mf @@ -0,0 +1,4 @@ +beginchar(oct"263",.5em#,5cap#/7,.5dth#); "lk"; +addto currentpicture also lamda shifted (0w,0h); +addto currentpicture also KAPA shifted (.4w,-.05h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x264_lo.mf b/fonts/byzfonts/Alphabet/Ligs/x264_lo.mf new file mode 100644 index 0000000000..d0e053fb9e --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x264_lo.mf @@ -0,0 +1,4 @@ +beginchar(oct"264",.4em#,5cap#/7,.5dth#); "lo"; +addto currentpicture also lamda shifted (0w,0h); +addto currentpicture also omikron shifted (.3w,-.05h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x265_lp.mf b/fonts/byzfonts/Alphabet/Ligs/x265_lp.mf new file mode 100644 index 0000000000..495556a29a --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x265_lp.mf @@ -0,0 +1,4 @@ +beginchar(oct"265",.4em#,5cap#/7,.5dth#); "lp"; +addto currentpicture also lamda shifted (0w,0h); +addto currentpicture also PEE shifted (.3w,-.05h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x266_lc.mf b/fonts/byzfonts/Alphabet/Ligs/x266_lc.mf new file mode 100644 index 0000000000..2783735c6c --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x266_lc.mf @@ -0,0 +1,4 @@ +beginchar(oct"266",.5em#,5cap#/7,.5dth#); "lc"; +addto currentpicture also lamda shifted (0w,0h); +addto currentpicture also sigma shifted (.4w,-.05h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x267_lt.mf b/fonts/byzfonts/Alphabet/Ligs/x267_lt.mf new file mode 100644 index 0000000000..4df3d64823 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x267_lt.mf @@ -0,0 +1,4 @@ +beginchar(oct"267",.35em#,5cap#/7,.5dth#); "lt"; +addto currentpicture also lamda shifted (0w,0h); +addto currentpicture also taf shifted (.4w,-.05h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x270_lx.mf b/fonts/byzfonts/Alphabet/Ligs/x270_lx.mf new file mode 100644 index 0000000000..d4b0c4e39d --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x270_lx.mf @@ -0,0 +1,4 @@ +beginchar(oct"270",.4em#,5cap#/7,.8dth#); "lx"; +addto currentpicture also lamda shifted (0w,0h); +addto currentpicture also khi shifted (.25w,.1h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x271_lf.mf b/fonts/byzfonts/Alphabet/Ligs/x271_lf.mf new file mode 100644 index 0000000000..8475f18e41 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x271_lf.mf @@ -0,0 +1,4 @@ +beginchar(oct"271",.6em#,5cap#/7,.5dth#); "lf"; +addto currentpicture also lamda shifted (0w,0h); +addto currentpicture also fee shifted (.15w,.1h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x272_lw.mf b/fonts/byzfonts/Alphabet/Ligs/x272_lw.mf new file mode 100644 index 0000000000..04699977d4 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x272_lw.mf @@ -0,0 +1,4 @@ +beginchar(oct"272",.6em#,5cap#/7,.5dth#); "lw"; +addto currentpicture also lamda shifted (0w,0h); +addto currentpicture also wmega shifted (.2w,.0h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x273_pa.mf b/fonts/byzfonts/Alphabet/Ligs/x273_pa.mf new file mode 100644 index 0000000000..713ff31606 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x273_pa.mf @@ -0,0 +1,4 @@ +beginchar(oct"273",.6em#,5cap#/7,0dth#); "pa"; +addto currentpicture also PEE shifted (0w,0h); +addto currentpicture also alfa shifted (.35w,.0h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x274_ca.mf b/fonts/byzfonts/Alphabet/Ligs/x274_ca.mf new file mode 100644 index 0000000000..1859a02a6b --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x274_ca.mf @@ -0,0 +1,4 @@ +beginchar(oct"274",.6em#,5cap#/7,0dth#); "ca"; +addto currentpicture also sigma shifted (0w,0h); +addto currentpicture also alfa shifted (.3w,.0h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x275_xa.mf b/fonts/byzfonts/Alphabet/Ligs/x275_xa.mf new file mode 100644 index 0000000000..4f72769c51 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x275_xa.mf @@ -0,0 +1,4 @@ +beginchar(oct"275",.6em#,5cap#/7,1dth#); "xa"; +addto currentpicture also khi shifted (0w,0h); +addto currentpicture also alfa shifted (.3w,.0h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x276_od.mf b/fonts/byzfonts/Alphabet/Ligs/x276_od.mf new file mode 100644 index 0000000000..b4e4ce0a0c --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x276_od.mf @@ -0,0 +1,4 @@ +beginchar(oct"276",.6em#,5cap#/7,0dth#); "od"; +addto currentpicture also omikron shifted (0w,0h); +addto currentpicture also delta shifted (.25w,.0h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x277_pd.mf b/fonts/byzfonts/Alphabet/Ligs/x277_pd.mf new file mode 100644 index 0000000000..df51039da0 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x277_pd.mf @@ -0,0 +1,4 @@ +beginchar(oct"277",.6em#,5cap#/7,0dth#); "pd"; +addto currentpicture also PEE shifted (.03w,0h); +addto currentpicture also delta shifted (.25w,.0h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x300_rd.mf b/fonts/byzfonts/Alphabet/Ligs/x300_rd.mf new file mode 100644 index 0000000000..344d5a9661 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x300_rd.mf @@ -0,0 +1,4 @@ +beginchar(oct"300",.5em#,5cap#/7,.5dth#); "rd"; +addto currentpicture also ro shifted (.03w,0h); +addto currentpicture also delta shifted (.1w,.0h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x301_cd.mf b/fonts/byzfonts/Alphabet/Ligs/x301_cd.mf new file mode 100644 index 0000000000..0d69276a1a --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x301_cd.mf @@ -0,0 +1,4 @@ +beginchar(oct"301",.5em#,5cap#/7,0dth#); "cd"; +addto currentpicture also sigma shifted (.03w,0h); +addto currentpicture also delta shifted (.1w,.0h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x302_yd.mf b/fonts/byzfonts/Alphabet/Ligs/x302_yd.mf new file mode 100644 index 0000000000..18dd0b6063 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x302_yd.mf @@ -0,0 +1,4 @@ +beginchar(oct"302",.5em#,5cap#/7,0dth#); "yd"; +addto currentpicture also ypsilon shifted (.03w,0h); +addto currentpicture also delta shifted (.1w,.0h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x303_wd.mf b/fonts/byzfonts/Alphabet/Ligs/x303_wd.mf new file mode 100644 index 0000000000..72e6a2a580 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x303_wd.mf @@ -0,0 +1,4 @@ +beginchar(oct"303",.8em#,5cap#/7,0dth#); "wd"; +addto currentpicture also wmega shifted (0w,0h); +addto currentpicture also delta shifted (.45w,.0h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Ligs/x304_ly.mf b/fonts/byzfonts/Alphabet/Ligs/x304_ly.mf new file mode 100644 index 0000000000..58d9ff9d09 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Ligs/x304_ly.mf @@ -0,0 +1,4 @@ +beginchar(oct"304",.4em#,5cap#/7,.5dth#); "ly"; +addto currentpicture also lamda shifted (0w,0h); +addto currentpicture also ypsilon shifted (.48w,.0h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Smalls/a.mf b/fonts/byzfonts/Alphabet/Smalls/a.mf new file mode 100644 index 0000000000..9826c54a0e --- /dev/null +++ b/fonts/byzfonts/Alphabet/Smalls/a.mf @@ -0,0 +1,40 @@ +beginchar("a",.4em#,3cap#/7,0dth#); "alpha"; +picture alfa; +path p[]; + save ww,hh; + + ww = w/4; hh = h/3; + b := .2ww; + + z0 = (3.5ww,3hh); + x1 = x2 = 3ww; y1 = 1.6hh; + x3 = x5 = 2ww; + y3 = 3hh - y5 = 2.8hh; + y2 = 3hh - y1; + x4 = .8ww; y4 = .5[y1,y2]; + x6 = 3.8ww; y6 = .5hh; + z7 = z1; + z8 = z2; + z9 = .5[z0,z1]; + x10 = .5[x2,x6]; + p0 = z1..z3{left}..z4{down}..z5{right}..z2; + z11 = point 3.7 of p0; + y10 = y11; + + penpos0(b,angle(z1-z0) + 90); + penpos9(4b,angle(z1-z0) + 90); + penpos1(.5b,180); + penpos7(.5b,angle(z1-z0) + 90); + penpos3(4b,270); + penpos4(1.6b,0); + penpos5(4b,90); + penpos2(.5b,180); + penpos10(5b,angle(z6-z2) + 90); + penpos8(.5b,angle(z6-z2) + 90); + penpos6(5b,angle(z6-z2) + 90); + + penstroke z0e--z9e--z7e; + penstroke z1e..z3e{left}..z4e{down}..z5e{right}..z2e; + penstroke z8e..z10e..z6e; + alfa = currentpicture; +endchar; diff --git a/fonts/byzfonts/Alphabet/Smalls/b.mf b/fonts/byzfonts/Alphabet/Smalls/b.mf new file mode 100644 index 0000000000..cdedd97b74 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Smalls/b.mf @@ -0,0 +1,34 @@ +beginchar("b",.4em#,4cap#/7,dth#); "beta"; +picture BHTA; +path p[]; + save ww,hh; + + ww = w/4; hh = h/4; + b := .3ww; + + z0 = (.7ww,-.8hh); + z1 = (.5ww,3hh); + x2 = x6 = 2ww; + y6 = 4hh - y2 = 0; + y5 = 4hh - y3 = 1hh; + x3 = 3ww; x5 = 3.5ww; + x4 = 1.5ww; y4 = .7[y2,y6]; + + penpos0(1.5b,0); + penpos1(b,0); + penpos2(2b,270); + penpos3(b,180); + penpos4(2b,angle(z4-z3) - 90); + penpos5(1.2b,180); + penpos6(2b,90); + penpos7(b,0); + penstroke z0e..z1e{up}..z2e{right}..z3e{down}..{z4-z3}z4e; + p0 = z0..z1{up}..z2{right}..z3{down}..{z4-z3}z4{z5-z4}..z5{down}.. + {left}z6; + z7 = point .6 of p0; + z8 = point 4 of p0; + penpos8(3b,angle(z3-z8) - 90); + penstroke z8e{z5-z4}..z5e{down}..{left}z6e; + penstroke z6e{left}..{up}z7e; + BHTA = currentpicture; +endchar; diff --git a/fonts/byzfonts/Alphabet/Smalls/c.mf b/fonts/byzfonts/Alphabet/Smalls/c.mf new file mode 100644 index 0000000000..906a350117 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Smalls/c.mf @@ -0,0 +1,23 @@ +beginchar("c",.3em#,3cap#/7,0dth#); "sigma"; +picture sigma; +path p[]; + save ww,hh; + + ww = w/3; hh = h/3; + b := .2ww; + + x1 = x3 = 1.1ww; + y0 = y2 = hh; + x0 = .1ww; x2 = 2ww; + y1 = 0; y3 = 2.3hh; + z4 = (2.6ww,2.6hh); + + p0 = z0{down}..z1{right}..z2{up}..z3{left}..cycle; + p1 = z3--z4; + + pickup pencircle scaled 2b; + draw p0; + draw p1; + +sigma = currentpicture; +endchar; diff --git a/fonts/byzfonts/Alphabet/Smalls/d.mf b/fonts/byzfonts/Alphabet/Smalls/d.mf new file mode 100644 index 0000000000..64b90129f3 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Smalls/d.mf @@ -0,0 +1,23 @@ +beginchar("d",.5em#,5cap#/7,0dth#); "delta"; +picture delta; +path p[]; + save ww,hh; + + ww = w/5; hh = h/5; + b := .3ww; + +z0 = (3ww,1.1hh); +p0 = fullcircle scaled 2ww shifted z0; +z1 = point 1.5 of p0; +x2 = 5ww - x3 = .5ww; +y2 = 4hh; y3 = 2.5hh; + +penpos1(2b,angle(z2-z1)+90); +penpos2(2b,angle(z2-z1)); +penpos3(2b,angle(z3-z2)+90); +penstroke z1e{z2-z1}..z2e..{z3-z2}z3e; +pickup pencircle scaled 2b; +draw p0; + +delta = currentpicture; +endchar; diff --git a/fonts/byzfonts/Alphabet/Smalls/e.mf b/fonts/byzfonts/Alphabet/Smalls/e.mf new file mode 100644 index 0000000000..641df15b4a --- /dev/null +++ b/fonts/byzfonts/Alphabet/Smalls/e.mf @@ -0,0 +1,32 @@ +beginchar ("e",.3em#,3cap#/7,0dth#); "epsilon"; +picture epsilon; +path p[]; + save ww,hh; + + ww = w/3; hh = h/3; + b := .2ww; + +x0 = x2 = x4 = 2.2ww; +x1 = x3 = .8ww; +y1 = 3hh - y3 = .9hh; +y0 = 3hh - y4 = .5hh; +y2 = .5[y0,y4]; + +p0 = z0..{up}z1..{dir290}z2{dir230}..z3{up}..z4; +p1 = subpath (1.27,2) of p0; +p2 = subpath (2,2.72) of p0; +fill p1..p2..cycle; + +penpos0(4b,300); +penpos1(3b,180); +penpos2(.1b,0); +penpos3(3b,180); +penpos4(4b,60); +penstroke z0e..{up}z1e..{dir290}z2e{dir230}..z3e{up}..z4e; + +pickup pencircle scaled 4b; +drawdot z0; +drawdot z4; + +epsilon = currentpicture; +endchar; diff --git a/fonts/byzfonts/Alphabet/Smalls/f.mf b/fonts/byzfonts/Alphabet/Smalls/f.mf new file mode 100644 index 0000000000..3bd87904a5 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Smalls/f.mf @@ -0,0 +1,28 @@ +beginchar("f",.5em#,4cap#/7,.5dth#); "phi"; +picture fee; +path p[]; + save ww,hh,dd; + + ww = w/5; hh = h/4; dd = d/1; + b := .2ww; + +x0 = 5ww - x2 = .3ww; +x1 = x3 = .5[x0,x2]; +x6 = x4 = x7 = x8 = .55[x0,x2]; +y0 = y2 = 1.5hh; +y1 = y7 = 0; +y3 = y4 = 3hh; +y5 = 3.4hh; x5 = .4[x0,x2]; +y6 = 3.6hh; y8 = -.8dd; + +p0 = z0{down}..z1{right}..z2{up}..z3{left}..cycle; +p1 = z3{left}..{up}z5..z6{down}..z4{down}..z7{down}..z8; + +pickup pencircle scaled 2b; +draw p0; +pickup pencircle scaled 2.5b; +draw p1; + +fee = currentpicture; + +endchar; diff --git a/fonts/byzfonts/Alphabet/Smalls/g.mf b/fonts/byzfonts/Alphabet/Smalls/g.mf new file mode 100644 index 0000000000..d5f37ef030 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Smalls/g.mf @@ -0,0 +1,33 @@ +beginchar("g",.4em#,3cap#/7,.5dth#); "gamma"; +picture gama; +path p[]; + save ww,hh,dd; + + ww = w/4; hh = h/3; dd = d/1; + b := .4ww; + +z0 = (.2ww,2.2hh); +z1 = (1.3ww,2.9hh); +z4 = (3.2ww,2.8hh); +z3 = (.7ww,-.9dd); +z2 = (2ww,2hh); +z5 = z2; + +p0 = z0{z1-z0}..{right}z1..z2..{dir-30}z3{dir45}..{up}z2..z4; +p1 = subpath (2,4) of p0; + +fill p1..cycle; + +penpos0(1.5b,angle(z1-z2)-50); +penpos1(2b,90); +penpos2(b,0); +penpos3(.1b,90); +penpos4(2b,90); +penpos5(b,180); + +penstroke z0e{z1-z0}..{right}z1e..z2e..{dir-60}z3e{dir45}..{up}z5e..z4e; +pickup pencircle scaled 2b; +drawdot z4; + +gama = currentpicture; +endchar; diff --git a/fonts/byzfonts/Alphabet/Smalls/h.mf b/fonts/byzfonts/Alphabet/Smalls/h.mf new file mode 100644 index 0000000000..8d33a7e394 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Smalls/h.mf @@ -0,0 +1,36 @@ +beginchar("h",.3em#,3cap#/7,0dth#); "eta"; +picture eta; +path p[]; + save ww,hh; + + ww = w/3; hh = h/3; + b := .3ww; + +x5 = x1 = x2 = 3ww - x3 = .6ww; +x6 = x4 = x3; +x0 = .5[x1,x3]; +y1 = y3 = 3hh - y2 = .3hh; +y4 = y2; +y5 = y6 = y0 = .5[y1,y2]; +z7 = (2.5ww,.5[y4,y6]); +z8 = (2.5ww,.5[y3,y6]); +z9 = z6; + + +penpos1(2b,0); +penpos2(2b,0); +penpos3(3b,0); +penpos4(b,0); +penpos0(2b,90); +penpos5(2b,90); +penpos6(1.2b,0); +penpos7(b,0); +penpos8(2.5b,0); +penpos9(2b,90); + +penstroke z5e..z0e..z9e; +penstroke z1e..z2e; +penstroke z4e{right}..z7e..z6e..z8e..{left}z3e; + +eta = currentpicture; +endchar; diff --git a/fonts/byzfonts/Alphabet/Smalls/i.mf b/fonts/byzfonts/Alphabet/Smalls/i.mf new file mode 100644 index 0000000000..ad21d52b2e --- /dev/null +++ b/fonts/byzfonts/Alphabet/Smalls/i.mf @@ -0,0 +1,24 @@ +beginchar("i",.2em#,3cap#/7,0dth#); "iota"; +picture yota; +path p[]; + save ww,hh; + + ww = w/2; hh = h/3; + b := .3ww; + +x6 = x4 = x3 = ww; +y3 = 3hh - y4 = .3hh; +y6 = .5[y4,y3]; +z7 = (1.1ww,.5[y4,y6]); +z8 = (1.1ww,.5[y3,y6]); + +penpos3(3b,0); +penpos4(b,0); +penpos6(1.2b,0); +penpos7(b,0); +penpos8(2.5b,0); + +penstroke z4e{right}..z7e..z6e..z8e..{left}z3e; + +yota = currentpicture; +endchar; diff --git a/fonts/byzfonts/Alphabet/Smalls/j.mf b/fonts/byzfonts/Alphabet/Smalls/j.mf new file mode 100644 index 0000000000..9d0cd17058 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Smalls/j.mf @@ -0,0 +1,29 @@ +beginchar("j",.4em#,4cap#/7,0dth#); "theta"; +picture jeta; +path p[]; + save ww,hh; + + ww = w/4; hh = h/4; + b := .2ww; + + z0 = (3.5ww,2.8hh); + z1 = (ww,3hh); + y4 = 4hh - y2 = .3hh; + z3 = (3ww,2.5hh); + x2 = 1.7ww; x4 = 1.5ww; + z5 = (.4ww,.7hh); + z6 = (.2ww,.4hh); + +penpos0(1.6b,120); +penpos1(.8b,0); +penpos2(2.1b,270); +penpos3(1.6b,180); +penpos4(2.6b,90); +penpos5(1.6b,90); +penpos6(1.6b,180); + +penstroke z0e{dir200}..{up}z1e..{right}z2e..{down}z3e..{left}z4e.. +{left}z5e..z6e; + +jeta = currentpicture; +endchar; diff --git a/fonts/byzfonts/Alphabet/Smalls/k.mf b/fonts/byzfonts/Alphabet/Smalls/k.mf new file mode 100644 index 0000000000..c103e41629 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Smalls/k.mf @@ -0,0 +1,45 @@ +beginchar("k",.3em#,3cap#/7,0dth#); "kappa"; +picture KAPA; +path p[]; + save ww,hh; + + ww = w/3; hh = h/3; + b := .15ww; + +z0 = 1.5*(ww,hh); +z1 = (2.5ww,2.8hh); +z2 = (2.7ww,.3hh); +z3 = (.3ww,.2hh); +z4 = (.3ww,2hh); +z5 = z6 = z7 = z0; +z8 = .8[z0,z1]; +z10 = .8[z0,z3]; +z11 = (2ww,.6hh); +z12 = (.6ww,2.4hh); +z13 = (.5[x12,x0],y4); + + +penpos0(0,135); +penpos8(4b,135); +penpos1(b,135); + +penpos6(0,315); +penpos10(4b,315); +penpos3(b,315); + +penpos7(0,45); +penpos11(5b,45); +penpos2(b,45); + +penpos5(b,225); +penpos13(2b,225); +penpos12(5b,270); +penpos4(2b,315); + +penstroke z0e..z8e..z1e; +penstroke z5e..z13e..z12e..z4e; +penstroke z6e..z10e..z3e; +penstroke z7e..z11e..z2e; + +KAPA = currentpicture; +endchar; diff --git a/fonts/byzfonts/Alphabet/Smalls/l.mf b/fonts/byzfonts/Alphabet/Smalls/l.mf new file mode 100644 index 0000000000..3cda139138 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Smalls/l.mf @@ -0,0 +1,25 @@ +beginchar("l",.3em#,2cap#/7,.5dth#); "Lambda"; +picture lamda; +path p[]; + save ww,hh,dd; + + ww = w/3; hh = h/2; dd = d/1; + b := .4ww; + + x0 = x3 = .4ww; + x1 = .7ww; y1 = 1.6hh; + y2 = y3 = -.9dd; + x2 = 2.4ww; y0 = 1.4hh; + p0 = z0{z1-z0}..{right}z1{z2-z1}..z2; + z4 = point 1.25 of p0; + + penpos0(1.3b,angle(z1-z0)+70); + penpos1(1.5b,90); + penpos2(1.5b,0); + penpos3(1.5b,0); + penpos4(.7b,angle(z3-z4)+90); + penstroke z0e{z1-z0}..{right}z1e{z2-z1}..{dir-30}z2e; + penstroke z4e..z3e; + +lamda = currentpicture; +endchar; diff --git a/fonts/byzfonts/Alphabet/Smalls/m.mf b/fonts/byzfonts/Alphabet/Smalls/m.mf new file mode 100644 index 0000000000..4967d5cc16 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Smalls/m.mf @@ -0,0 +1,40 @@ +beginchar("m",.32em#,3.2cap#/7,.4dth#); "mu"; +path p[]; + save ww,hh,dd; + + ww = w/4; hh = h/4; dd = d/1; + b := .3ww; + +y0 = y2 = 3.5hh; +x3 = x0 = x8 = .5ww; +x4 = x2 = 3ww; +z1 = (0,-.9dd); +x5 = .5[x0,x2]; +y5 = y7 = 0; +x7 = 3.4ww; +x6 = 3.8ww; y6 = .5hh; +y8 = - .6dd; +y3 = y4 = .6[y0,y8]; +z9 = z4; +z10 = z3; + +penpos0(2.5b,0); +penpos8(b,0); +penpos1(2b,270); +penpos2(2.5b,180); +penpos3(1.5b,0); +penpos10(1.5b,180); +penpos4(1.5b,180); +penpos9(b,0); +penpos7(b,270); +penpos6(b,0); +penpos5(.7b,270); +penstroke z0e{down}..z3e{down}..{down}z8e..z1e; +penstroke z2e{down}..z4e{down}..{right}z7e..{z6-z7}z6e; +penstroke z10e..{right}z5e..z9e; + +pickup pencircle scaled 2.5b; +drawdot z0; +drawdot z2; + +endchar; diff --git a/fonts/byzfonts/Alphabet/Smalls/n.mf b/fonts/byzfonts/Alphabet/Smalls/n.mf new file mode 100644 index 0000000000..ee564502ba --- /dev/null +++ b/fonts/byzfonts/Alphabet/Smalls/n.mf @@ -0,0 +1,33 @@ +beginchar("n",.32em#,3.2cap#/7,.4dth#); "nu"; +picture NH; +path p[]; + save ww,hh,dd; + + ww = w/4; hh = h/4; dd = d/1; + b := .4ww; + +y0 = y5 = 3.5hh; +x3 = x0 = x1 = .5ww; +y3 = .7[y0,y1]; +x4 = 1.8ww; y4 = .2hh; +x5 = 3ww; +x2 = ww; +y2 = - .8dd; +y1 = -.6dd; + +penpos0(2.5b,180); +penpos1(1.8b,180); +penpos2(1.8b,270); +penpos3(2b,180); +penpos4(1.8b,270); +penpos5(2.5b,0); +penstroke z0e{down}..{down}z1e..{right}z2e; +penstroke z3e..{right}z4e..{z5-z4}z5e; + +pickup pencircle scaled 2.5b; +drawdot z0; +drawdot z5; +pickup pencircle scaled 1.8b; +drawdot z2; +NH = currentpicture; +endchar; diff --git a/fonts/byzfonts/Alphabet/Smalls/o.mf b/fonts/byzfonts/Alphabet/Smalls/o.mf new file mode 100644 index 0000000000..0f0ce881de --- /dev/null +++ b/fonts/byzfonts/Alphabet/Smalls/o.mf @@ -0,0 +1,19 @@ +beginchar("o",.3em#,3cap#/7,0dth#); "omicron"; +picture omikron; +path p[]; + save ww,hh; + + ww = w/3; hh = h/3; + b := .3ww; + +x0 = x2 = 1.5ww; +y1 = y3 = 1.5hh; +y0 = 3hh - y2 = .2hh; +x1 = 3ww - x3 = .5ww; + +p0 = z0{right}..z3{up}..z2{left}..z1{down}..cycle; +pickup pencircle scaled 2b; +draw p0; + +omikron = currentpicture; +endchar; diff --git a/fonts/byzfonts/Alphabet/Smalls/p.mf b/fonts/byzfonts/Alphabet/Smalls/p.mf new file mode 100644 index 0000000000..95802135a0 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Smalls/p.mf @@ -0,0 +1,38 @@ +beginchar("p",.3em#,2cap#/7,0dth#); "pi"; +picture PEE; +path p[]; + save ww,hh; + + ww = w/3; hh = h/2; + b := .2ww; + + x0 = 1.1ww; x4 = ww; + x1 = x3 = 2ww; + y0 = y1 = .1hh; + y5 = y4 = 1.5hh; + y3 = y4 - .05hh; + y2 = y4 - .1hh; + x5 = 3ww - x2 = .2ww; + z6 = (.1ww,1.2hh); + z7 = (x4,.3hh); + z8 = (2.1ww,.4hh); + z9 = z4; + z10 = z3; + + penpos6(1.5b,180); + penpos5(2b,90); + penpos4(2b,90); + penpos3(2b,90); + penpos2(2b,90); + penpos9(b,0); + penpos10(b,0); + penpos1(b,0); + penpos8(3b,0); + penpos7(2b,0); + penpos0(1.5b,90); + + penstroke z6e{up}..z5e{right}..z4e{z3-z4}..z3e{z2-z3}..z2e; + penstroke z9e{down}..{down}z7e..{right}z0e; + penstroke z10e{down}..z8e..z1e; + PEE = currentpicture; +endchar; diff --git a/fonts/byzfonts/Alphabet/Smalls/q.mf b/fonts/byzfonts/Alphabet/Smalls/q.mf new file mode 100644 index 0000000000..8e7893434e --- /dev/null +++ b/fonts/byzfonts/Alphabet/Smalls/q.mf @@ -0,0 +1,3 @@ +beginchar("q",.4em#,.5cap#,0dth#); "NANO"; + addto currentpicture also NANO shifted (0,-.5h); + endchar; diff --git a/fonts/byzfonts/Alphabet/Smalls/r.mf b/fonts/byzfonts/Alphabet/Smalls/r.mf new file mode 100644 index 0000000000..340a71c6b0 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Smalls/r.mf @@ -0,0 +1,23 @@ +beginchar("r",.2em#,4cap#/7,.5dth#); "rho"; +picture ro; +path p[]; + save ww,hh,dd; + + ww = w/2; hh = h/4; dd = d/1; + b := .2ww; + + x1 = x2 = x6 = .25ww; + x0 = 0; y0 = -.9dd; + y2 = .3hh; y1 = 2hh; + y4 = .5[y1,y2]; + x4 = 1.7ww; y6 = -.7dd; + x3 = x5 = ww; + y5 = 0; y3 = 2.2hh; + + p0 = z0{right}..z6{up}..z2{up}..{up}z1..{right}z3..{down}z4..{left}z5..{up}z2; + + pickup pencircle scaled 2b; + draw p0; + +ro = currentpicture; +endchar; diff --git a/fonts/byzfonts/Alphabet/Smalls/s.mf b/fonts/byzfonts/Alphabet/Smalls/s.mf new file mode 100644 index 0000000000..a209348504 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Smalls/s.mf @@ -0,0 +1,33 @@ +beginchar("s",.3em#,3cap#/7,.5dth#); "sigma teliko"; +path p[]; + save ww,hh,dd,phdr; + + ww = w/3; hh = h/3; dd = d/1; + b := .2ww; + + x0 = x2 = 2.3ww; + x3 = 1.8ww; + x1 = .1ww; + y0 = 3hh - y2 = 2.9hh; + y1 = .5[y0,y2]; + y3 = -.4dd; + z4 = z2; + + p0 = z0{left}..z1{down}..{right}z2; + z5 = point 1.5 of p0; + phdr = angle direction 1.5 of p0; + + penpos0(3b,270); + penpos1(b,0); + penpos2(b,90); + penpos4(b,angle(z3-z2)+90); + penpos3(b,angle(z3-z2)+90); + penpos5(2.5b,phdr+90); + + penstroke z0e{left}..z1e{down}..z5e..{right}z2e; + penstroke z4e{z3-z2}..{z3-z2}z3e; + + pickup pencircle scaled 3b; + drawdot z0; + +endchar; diff --git a/fonts/byzfonts/Alphabet/Smalls/t.mf b/fonts/byzfonts/Alphabet/Smalls/t.mf new file mode 100644 index 0000000000..168994fd3c --- /dev/null +++ b/fonts/byzfonts/Alphabet/Smalls/t.mf @@ -0,0 +1,28 @@ +beginchar("t",.2em#,2cap#/7,0dth#); "tau"; +picture taf; +path p[]; + save ww,hh; + + ww = w/2; hh = h/2; + b := .2ww; + + x0 = ww; x3 = 1.1ww; + y3 = .1hh; y0 = 1.55hh; + y4 = 1.6hh; y2 = 1.5hh; + y1 = 1.2hh; x4 = .3ww; + x1 = 2ww - x2 = .1ww; + z5 = (x0,.2hh); + + p0 = z1{up}..z4{z0-z4}..z0{z2-z0}..{z2-z0}z2; + p1 = z0{down}..{down}z5..{right}z3; + + pickup pencircle scaled 2b; + draw p0; + pickup pencircle scaled 2.5b; + draw p1; + drawdot z5; + pickup pencircle scaled 3b; + drawdot z3; + +taf = currentpicture; +endchar; diff --git a/fonts/byzfonts/Alphabet/Smalls/u.mf b/fonts/byzfonts/Alphabet/Smalls/u.mf new file mode 100644 index 0000000000..4298574bc4 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Smalls/u.mf @@ -0,0 +1,38 @@ +beginchar("u",.5em#,4cap#/7,.5dth#); "psi"; +path p[]; + save ww,hh,dd,phdr; + + ww = w/5; hh = h/4; dd = d/1; + b := .2ww; + +x0 = 5ww - x3 = .2ww; +x1 = .1[x0,x3]; +x4 = .5[x1,x3]; +x2 = .55[x1,x3]; +x5 = .6[x1,x3]; +y3 = y0 = 1.5hh; y1 = 2hh; +y2 = 0; y4 = 3hh; y5 = -.8dd; +z6 = z2; + +p0 = z0{up}..{right}z1..{right}z2..{up}z3; +z7 = point 1.2 of p0; +phdr = angle direction 1.2 of p0; +penpos0(1.5b,0); +penpos1(b,270); +penpos7(2.3b,phdr-90); +penpos2(2.3b,270); +penpos3(2b,0); +penpos4(3b,0); +penpos6(2b,0); +penpos5(2b,0); +penstroke z0e{up}..{right}z1e..z7e..{right}z2e..{up}z3e; +penstroke z4e{down}..z6e{down}..z5e; + +pickup pencircle scaled 3b; +drawdot z4; +pickup pencircle scaled 1.5b; +drawdot z0; +pickup pencircle scaled 2b; +drawdot z5; +drawdot z3; +endchar; diff --git a/fonts/byzfonts/Alphabet/Smalls/v.mf b/fonts/byzfonts/Alphabet/Smalls/v.mf new file mode 100644 index 0000000000..a3c031fa70 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Smalls/v.mf @@ -0,0 +1,45 @@ +beginchar("v",.3em#,4cap#/7,.5dth#); "ksi"; +path p[]; + save ww,hh,dd; + + ww = w/3; hh = h/4; dd = d/1; + b := .3ww; + +z0 = (2.5ww,3.8hh); +x1 = x3 = x5 = .8ww; +x2 = x4 = x6 = 2.2ww; +y5 = .25hh; +y3 = 1.6hh; +y1 = 3.3hh; +y4 = 1.1hh; +y2 = 2.6hh; +y6 = y7 = -.5dd; +x7 = 1.7ww; + +p0 = z0{dir160}..z1{down}..z2{dir25}; +z8 = point 1.6 of p0; +p1 = z2{left}..z3{down}..z4{dir25}; +z9 = point 1.6 of p1; +p2 = z4{left}..z5{down}..z6{down}..z7; + +penpos0(2b,250); +penpos1(2b,0); +penpos2(2b,90); +penstroke z0e{dir160}..z1e{down}..z2e{dir25}; + +z10 = z2; +penpos10(2b,250); +penpos8(2b,270); +penpos3(2b,0); +penpos4(2b,90); +penstroke z10e{dir160}..z8e..z3e{down}..z4e{dir25}; + +z11 = z4; +penpos11(2b,90); +penpos9(2b,90); +penpos5(2b,210); +penpos6(3b,190); +penpos7(2b,0); +penstroke z4e{left}..z5e{down}..z6e{down}..z7e; + +endchar; diff --git a/fonts/byzfonts/Alphabet/Smalls/w.mf b/fonts/byzfonts/Alphabet/Smalls/w.mf new file mode 100644 index 0000000000..3287acd92b --- /dev/null +++ b/fonts/byzfonts/Alphabet/Smalls/w.mf @@ -0,0 +1,43 @@ +beginchar("w",.5em#,4cap#/7,0dth#); "omega"; +picture wmega; +pair intert; +path p[]; + save ww,hh; + + ww = w/5; hh = h/4; + b := .2ww; + +y0 = y6 = 3hh; +y2 = y4 = .1hh; +y1 = y5 = 1.5hh; +x1 = 5ww - x5 = .3ww; +x0 = 1.5ww; x6 = 3ww; +x2 = 5ww - x4 = 1.3ww; +x3 = .5[x1,x5]; +y3 = .3[y1,y0]; + +p0 = z0{left}..z1{down}..{right}z2..{dir130}z3{dir230}..z4{right}.. +z5{up}..{left}z6; +p1 = subpath (2,3) of p0; +p2 = subpath (3,4) of p0; +intert = p1 intersectiontimes p2; +p3 = subpath (2+xpart(intert),3) of p0; +p4 = subpath (3,3+ypart(intert)) of p0; +fill p3..p4..cycle; + +penpos0(3b,90); +penpos1(2b,180); +penpos2(2b,270); +penpos3(b,90); +penpos4(2b,270); +penpos5(2b,0); +penpos6(3b,90); +penstroke z0e{left}..z1e{down}..{right}z2e..{dir130}z3e{dir230}.. +z4e{right}..z5e{up}..{left}z6e; +pickup pencircle scaled 3b; +drawdot z0; +drawdot z6; + +wmega = currentpicture; + +endchar; diff --git a/fonts/byzfonts/Alphabet/Smalls/x.mf b/fonts/byzfonts/Alphabet/Smalls/x.mf new file mode 100644 index 0000000000..006c6d4f67 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Smalls/x.mf @@ -0,0 +1,45 @@ +beginchar("x",.3em#,4cap#/7,dth#); "khi"; +picture khi; +numeric phi[]; +path p[]; + save ww,hh,dd; + + ww = w/3; hh = h/4; dd = d/2; + b := .2ww; + +x1 = x3 = 3ww - x2 = .2ww; +x6 = x2; +x4 = 3ww - x5 = .4ww; +y2 = y4 = 2hh; +y3 = 1.5hh; +y1 = y5 = -2dd; +y6 = -1.9dd; + +p0 = z3{up}..{right}z4--z5{right}..z6; +p1 = z1--z2; +z0 = p1 intersectionpoint p0; +z7 = z0; + +phi0 = angle direction 1.5 of p0; +phi1 = angle direction 0 of p1; +phi3 = angle direction 0 of p0; +penpos0(2b,phi1+90); +penpos3(2b,phi3+100); +penpos4(2.5b,phi0+90); +penpos7(2b,phi0+90); +penpos5(1.8b,phi0+150); +penpos6(2b,270); +penpos1(2.5b,phi1+90); +penpos2(2.5b,phi1+90); + +penstroke z3e{dir(phi3+20)}..z4e{dir-20}..z7e..{dir+20}z5e{right}..z6e; +penstroke z1e..z0e..z2e; +pickup pencircle scaled 2b; +drawdot z6; +pickup pencircle scaled 2.5b; +drawdot z2; +drawdot z1; + +khi = currentpicture; + +endchar; diff --git a/fonts/byzfonts/Alphabet/Smalls/x173.mf b/fonts/byzfonts/Alphabet/Smalls/x173.mf new file mode 100644 index 0000000000..a83154f8c6 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Smalls/x173.mf @@ -0,0 +1,19 @@ +beginchar(oct"173",.3em#,2cap#/7,0dth#); "Other Zeta"; +picture ZHTA; +path p[]; + save ww,hh; + + ww = w/3; hh = h/2; + b := .5ww; + + x0 = x2 = 3ww - x1 = .1ww; + x3 = x1; + y2 = y3 = 2hh - y0 = .1hh; + y1 = y0; + + p0 = z0--z1--z2--z3; + pickup pencircle scaled b; + draw p0; + + ZHTA = currentpicture; +endchar; diff --git a/fonts/byzfonts/Alphabet/Smalls/x174.mf b/fonts/byzfonts/Alphabet/Smalls/x174.mf new file mode 100644 index 0000000000..4548309d5b --- /dev/null +++ b/fonts/byzfonts/Alphabet/Smalls/x174.mf @@ -0,0 +1,18 @@ +beginchar(oct"174",.2em#,3cap#/7,0dth#); "Other Gamma"; +picture GAMA; +path p[]; + save ww,hh; + + ww = w/2; hh = h/3; + b := .5ww; + + x0 = x2 = 2ww - x1 = .1ww; + y2 = 3hh - y0 = .1hh; + y1 = y0; + + p0 = z1--z0--z2; + pickup pencircle scaled b; + draw p0; + + GAMA = currentpicture; +endchar; diff --git a/fonts/byzfonts/Alphabet/Smalls/x175.mf b/fonts/byzfonts/Alphabet/Smalls/x175.mf new file mode 100644 index 0000000000..df7c11f69a --- /dev/null +++ b/fonts/byzfonts/Alphabet/Smalls/x175.mf @@ -0,0 +1,20 @@ +beginchar(oct"175",.2em#,3cap#/7,0dth#); "Other Delta"; +picture ThELTA; +path p[]; + save ww,hh; + + ww = w/2; hh = h/3; + b := .5ww; + + x0 = x2 = 2ww - x1 = .1ww; + x3 = x1; + y2 = y3 = 3hh - y0 = .1hh; + y1 = y0; + z4 = .5[z0,z1]; + + p0 = z4--z2--z3--cycle; + pickup pencircle scaled b; + draw p0; + + ThELTA = currentpicture; +endchar; diff --git a/fonts/byzfonts/Alphabet/Smalls/y.mf b/fonts/byzfonts/Alphabet/Smalls/y.mf new file mode 100644 index 0000000000..3fc2d30a8f --- /dev/null +++ b/fonts/byzfonts/Alphabet/Smalls/y.mf @@ -0,0 +1,33 @@ +beginchar("y",.2em#,2cap#/7,0dth#); "upsilon"; +picture ypsilon; +path p[]; +numeric phi[]; + save ww,hh; + + ww = w/2; hh = h/2; + b := .2ww; + + y2 = y1 = 1.6hh; + x1 = 2ww - x2 = .3ww; + x3 = .5[x1,x2]; y3 = .1hh; + + p0 = z1{down}..z3{right}..{up}z2; + z4 = point 0.8 of p0; + phi1 = angle direction .8 of p0; + z5 = point 1.6 of p0; + phi2 = angle direction 1.6 of p0; + + penpos1(1.5b,0); + penpos4(2.5b,phi1+90); + penpos3(b,90); + penpos5(2.5b,phi2+90); + penpos2(2b,180); + penstroke z1e{down}..z4e..z3e{right}..z5e..{up}z2e; + + pickup pencircle scaled 3b; + drawdot z1; + pickup pencircle scaled 2b; + drawdot z2; + +ypsilon = currentpicture; +endchar; diff --git a/fonts/byzfonts/Alphabet/Smalls/z.mf b/fonts/byzfonts/Alphabet/Smalls/z.mf new file mode 100644 index 0000000000..1e28d27a7c --- /dev/null +++ b/fonts/byzfonts/Alphabet/Smalls/z.mf @@ -0,0 +1,27 @@ +beginchar("z",.3em#,4cap#/7,.5dth#); "zeta"; +path p[]; + save ww,hh,dd; + + ww = w/3; hh = h/4; dd = d/1; + b := .2ww; + +x5 = ww; x1 = .8ww; +x2 = x4 = 2.8ww; +y1 = -.6dd; +y2 = 0; +y5 = y4 = 3hh; +y3 = .5[y2,y4]; +x3 = .4ww; + +penpos1(4b,270); +penpos2(4b,30); +penpos3(4b,-10); +penpos4(4b,0); +penpos5(4b,190); + +penstroke z1e{dir-25}..{up}z2e..{up}z3e..{up}z4e..{dir-120}z5e; +pickup pencircle scaled 4b; +drawdot z1; +drawdot z5; + +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/ACK_md3.mf b/fonts/byzfonts/Alphabet/Witns/ACK_md3.mf new file mode 100644 index 0000000000..9e2f00b9db --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/ACK_md3.mf @@ -0,0 +1,23 @@ +beginchar(oct"006",.4em#,.5cap#,0dth#); "C Diatoniki Martiria"; +picture ACK; + path p[]; + + Diam = .4w; + w := w + .4w; + y0 = y2 = y5 = .4h; + x1 = x3 = .25w; + x0 = .125w; + x2 = .4375w; + x5 = .9375w; + y4 = .2h; + x4 = .6875w; + y1 = .6h; + y3 = .3h; + p1 = flex(z2,z3,z0) & flex(z0,z1,z2) & flex(z2,z4,z5); + pickup pencircle scaled .9pt; + draw p1; + undraw flex(z2,z4,z5); + pickup pencircle xscaled pt yscaled .5pt rotated 5; + draw flex(z2,z4,z5) xscaled 1.5; + ACK = currentpicture; + endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/BEL_md4.mf b/fonts/byzfonts/Alphabet/Witns/BEL_md4.mf new file mode 100644 index 0000000000..3099ee7a14 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/BEL_md4.mf @@ -0,0 +1,31 @@ +beginchar(oct"007",.4em#,.5cap#,0dth#); "D Diatoniki Martiria"; + path p[]; + picture NANO,BEL,CHXOC; + + y1 = y3 = 3.3h/5; + x1 = 3w/50; + x3 = 20w/50; + x2 = 12w/50; y2 = 4h/5; + x4 = 15w/50; y4 = 17h/50; + x5 = 18w/50; y5 = 13h/50; + x6 = x2; y6 = h; + + pickup pencircle scaled .8pt; + p1 = flex(z1,z2,z3) & z3..controls z4..z5; + p2 = p1 shifted (.5w,0); + p3 = p1 scaled 2; + pickup pencircle scaled pt; + draw p3; + NANO = currentpicture; + clearit; + pickup pencircle scaled .8pt; + draw p1; + draw p2; + BEL = currentpicture; + z7 = z6 shifted (.5w,0); + drawdot z6; + drawdot z7; + CHXOC = currentpicture; + clearit; + addto currentpicture also BEL; + endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/BS_zigos.mf b/fonts/byzfonts/Alphabet/Witns/BS_zigos.mf new file mode 100644 index 0000000000..edc2d849ec --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/BS_zigos.mf @@ -0,0 +1,22 @@ +beginchar(oct"010",.4em#,.5cap#,0dth#); "Zigos"; +picture BS; + path p[]; + + z0 = (w/2,h/2); + x1 = w - x2 = .5curve_sidebar; + y1 = .1h; y2 = .9h; + z3 = .35[z0,z1]; + z4 = .35[z0,z2]; + z5 = .5[z1,z3]; + pickup pencircle scaled .8pt; + p0 = fullcircle scaled .4w shifted (z0); + p1 = z1--z2; + p2 = z3--z4; + p3 = z1--z3; + p4 = p3 rotatedabout(z5,90); + draw p0; + draw p1; + undraw p2; + draw p4; + BS = currentpicture; + endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/ENQ_md2.mf b/fonts/byzfonts/Alphabet/Witns/ENQ_md2.mf new file mode 100644 index 0000000000..2893687f7f --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/ENQ_md2.mf @@ -0,0 +1,20 @@ +beginchar(oct"005",.4em#,.5cap#,0dth#); "B Diatoniki Martiria"; +picture ENQ; + path p[]; + + z0 = (w/2,h/2); + x1 = x2 = x4 = .5(w + Diam); + y1 = .5(h + Diam); + y2 = 0; + y3 = y4 = .9h; + x3 = .5(w - Diam); + + pickup pencircle scaled .8pt; + p1 = fullcircle scaled Diam shifted (z0); + p2 = z1--z2; + draw p1; + draw p2; + filldraw fullcircle scaled .05w shifted (z3); + filldraw fullcircle scaled .05w shifted (z4); + ENQ = currentpicture; + endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/EOT_md1.mf b/fonts/byzfonts/Alphabet/Witns/EOT_md1.mf new file mode 100644 index 0000000000..838093d8e8 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/EOT_md1.mf @@ -0,0 +1,16 @@ +beginchar(oct"004",.4em#,.5cap#,0dth#); "A Diatoniki Martiria"; +picture EOT; + path p[]; + + z0 = (w/2,h/2); + x1 = x2 = .5(w + Diam); + y1 = .5(h + Diam); + y2 = 0; + + pickup pencircle scaled .8pt; + p1 = fullcircle scaled Diam shifted (z0); + p2 = z1--z2; + draw p1; + draw p2; + EOT = currentpicture; + endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/ETX_B2.mf b/fonts/byzfonts/Alphabet/Witns/ETX_B2.mf new file mode 100644 index 0000000000..94ee0f1c0b --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/ETX_B2.mf @@ -0,0 +1,22 @@ +beginchar(oct"003",.5em#,.6cap#,0dth#); "B Martiria Hxou B"; +picture ETX; + path p[]; + + z0 = (.5w,.5h); + x1 = w - x2 = 1.2curve_sidebar; + y1 = y2 = y0; + x3 = w - x4 = curve_sidebar; + y3 = .7h; + y4 = .3h; + x5 = .7[x1,x0]; + x6 = .3[x0,x2]; + y5 = y6 = .75h; + + pickup pencircle scaled .8pt; + p1 = flex(z3,z1,z0) & flex(z0,z2,z4); + draw p1; + pickup pencircle scaled pt; + drawdot z5; + drawdot z6; + ETX = currentpicture; + endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/HT_spathi.mf b/fonts/byzfonts/Alphabet/Witns/HT_spathi.mf new file mode 100644 index 0000000000..f3f98a1fa8 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/HT_spathi.mf @@ -0,0 +1,18 @@ +beginchar(oct"011",.4em#,.5cap#,0dth#); "Spathi"; +picture HT; + path p[]; + y1 = y0 = y2 = .5h; + x1 = -.2w; x0 = .5w; x2 = 1.2w; + x3 = .9w; + y3 = 19h/50; x4 = x5 = 4w/5; + y4 = 3.5h/5; y5 = 1.5h/5; + + pickup pencircle scaled .8pt; + p1 = fullcircle scaled Diam shifted (z0); + p2 = z1..controls z2..z3; + p3 = z4--z5; + draw p1; + draw p2; + draw p3; + HT = currentpicture; + endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/LF_kliton.mf b/fonts/byzfonts/Alphabet/Witns/LF_kliton.mf new file mode 100644 index 0000000000..059f7c612e --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/LF_kliton.mf @@ -0,0 +1,27 @@ +beginchar(oct"012",.4em#,.5cap#,0dth#); "Kliton"; +picture LF; + path p[]; + + Radi = .5Diam; + z0 = .5(w,h); + z1 = .74(w,h); + d1 = (x0-x1)++(y0-y1); + l1 = Radi/d1; + x2 = l1*x1 + (1-l1)*x0; + y2 = l1*y1 + (1-l1)*y0; + z3 = .1(w,h); + d2 = (x0-x3)++(y0-y3); + l2 = Radi/d2; + x4 = l2*x3 + (1-l2)*x0; + y4 = l2*y3 + (1-l2)*y0; + x5 = 1w/25; y5 = 5h/25; + + pickup pencircle scaled .8pt; + p1 = fullcircle scaled Diam shifted (z0); + p2 = z1--z3..{z4-z3}z5; + p3 = z2--z4; + draw p1; + draw p2; + undraw p3; + LF = currentpicture; +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/NUL_plB1.mf b/fonts/byzfonts/Alphabet/Witns/NUL_plB1.mf new file mode 100644 index 0000000000..f1965e1dcf --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/NUL_plB1.mf @@ -0,0 +1,19 @@ +beginchar(oct"000",.4em#,.5cap#,0dth#); "A Martiria Hxou Plagiou B"; +picture NUL; + path p[]; + + z0 = (w/2,h/2); + x1 = w - x2 = .5curve_sidebar; + y1 = .1h; y2 = .9h; + z3 = .35[z0,z1]; + z4 = .35[z0,z2]; + + pickup pencircle scaled .8pt; + p1 = fullcircle scaled Diam shifted (z0); + p2 = z1--z2; + p3 = z3--z4; + draw p1; + draw p2; + undraw p3; + NUL = currentpicture; + endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/SI_md5.mf b/fonts/byzfonts/Alphabet/Witns/SI_md5.mf new file mode 100644 index 0000000000..6bef17296a --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/SI_md5.mf @@ -0,0 +1,20 @@ +beginchar(oct"017",.4em#,.5cap#,0dth#); "E Diatoniki Martiria"; +picture SI; + path p[]; + + x0 = w - x2 = curve_sidebar; + x1 = 17w/50; y1 = 4.3h/5; + y0 = y7 = 3.5h/5; y2 = y4 = .1h; + z3 = .4[z7,z2]; + x7 = .6w; + z5 = .8[z7,z2]; + + pickup pencircle scaled .8pt; + p1 = flex(z0,z1,z7) & z7--z2; + draw p1; + p3 = z5--z2 rotatedabout(z5,120); + p4 = z3--z2 rotatedabout(z3,-65); + draw p3; + draw p4; + SI = currentpicture; + endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/SOH_B1.mf b/fonts/byzfonts/Alphabet/Witns/SOH_B1.mf new file mode 100644 index 0000000000..6502787886 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/SOH_B1.mf @@ -0,0 +1,22 @@ +beginchar(oct"001",.4em#,.5cap#,0dth#); "A Martiria Hxou B"; +picture SOH; + path p[]; + + z0 = (w/2,h/2); + x1 = w - x2 = .5curve_sidebar; + y1 = .1h; y2 = .9h; + z3 = .35[z0,z1]; + z4 = .35[z0,z2]; + z5 = .5[z2,z4]; + pickup pencircle scaled .8pt; + p0 = fullcircle scaled .4w shifted (z0); + p1 = z1--z2; + p2 = z3--z4; + p3 = z4--z2; + p4 = p3 rotatedabout(z5,90); + draw p0; + draw p1; + undraw p2; + draw p4; + SOH = currentpicture; + endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/SO_md6.mf b/fonts/byzfonts/Alphabet/Witns/SO_md6.mf new file mode 100644 index 0000000000..39f3eb4abb --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/SO_md6.mf @@ -0,0 +1,26 @@ +beginchar(oct"016",.4em#,.5cap#,0dth#); "F Diatoniki Martiria"; +picture SO; + path p[]; + + y0 = y1 = .275h; + x0 = .2w; y8 = h/25; + x8 = x6 = w; + x2 = x1 = 2w/5; + y2 = y4 = .9h; + x4 = x5 = 4w/5; + x3 = 3w/5; y3 = h; + y6 = y5 = 15h/50; + x7 = 5.3w/5; y7 = y8; + + p1 = fullcircle scaled Diam shifted (z0); + p2 = z1--z2; + p3 = flex(z2,z3,z4); + p4 = z4--z5; + p5 = z5--z6; + p6 = z6..controls z8..z7; + + pickup pencircle scaled .8pt; + draw p1; + draw p2 & p3 & p4 & p5 & p6; + SO = currentpicture; + endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/STX_plB2.mf b/fonts/byzfonts/Alphabet/Witns/STX_plB2.mf new file mode 100644 index 0000000000..ffbdcd4fca --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/STX_plB2.mf @@ -0,0 +1,16 @@ +beginchar(oct"002",.5em#,.6cap#,0dth#); "B Martiria Hxou Plagiou B"; +picture STX; + path p[]; + + z0 = (.5w,.5h); + x1 = w - x2 = 1.2curve_sidebar; + y1 = y2 = y0; + x3 = w - x4 = curve_sidebar; + y3 = .7h; + y4 = .3h; + + pickup pencircle scaled .8pt; + p1 = flex(z3,z1,z0) & flex(z0,z2,z4); + draw p1; + STX = currentpicture; + endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x013_chxoc.mf b/fonts/byzfonts/Alphabet/Witns/x013_chxoc.mf new file mode 100644 index 0000000000..78131c9f88 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x013_chxoc.mf @@ -0,0 +1,3 @@ +beginchar(oct"013",.4em#,.5cap#,0dth#); "Martiria Tritou Hxou"; + addto currentpicture also CHXOC shifted (-.2w,-.2h); + endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x014_mdhx.mf b/fonts/byzfonts/Alphabet/Witns/x014_mdhx.mf new file mode 100644 index 0000000000..6255ce1e2c --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x014_mdhx.mf @@ -0,0 +1,29 @@ +beginchar(oct"014",.4em#,.5cap#,0dth#); "Martiria D Ixou"; +picture SLASH; + path p[]; + + y0 = y1 = .275h; + x0 = .2w; y8 = h/25; + x8 = x6 = w; + x9 = x2 = x1 = 2w/5; + y2 = y4 = .9h; + x10 = x4 = x5 = 4w/5; + x3 = 3w/5; y3 = h; + y6 = y5 = 15h/50; + x7 = 5.3w/5; y7 = y8; + y9 = y10 = 1.2h; + + p1 = fullcircle scaled Diam shifted (z0); + p2 = z1--z2; + p3 = flex(z2,z3,z4); + p4 = z4--z5; + p5 = z5--z6; + p6 = z6..controls z8..z7; + + pickup pencircle scaled .8pt; + draw p1; + draw p2 & p3 & p4 & p5 & p6; + filldraw fullcircle scaled .05w shifted (z9); + filldraw fullcircle scaled .05w shifted (z10); + SLASH = currentpicture; + endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x015_mbhx.mf b/fonts/byzfonts/Alphabet/Witns/x015_mbhx.mf new file mode 100644 index 0000000000..4f2f5920d8 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x015_mbhx.mf @@ -0,0 +1,30 @@ +beginchar(oct"015",.4em#,.5cap#,0dth#); "Martiria Vareos Hxou"; +picture FSTOP; + path p[]; + + w := w + .4w; + y0 = y2 = y5 = .4h; + x1 = x3 = .25w; + x0 = .125w; + x2 = .4375w; + x5 = .9375w; + y4 = .2h; + x4 = .6875w; + y1 = .6h; + y3 = .3h; + y6 = y7 = 3.8h/5; + x6 = 3w/8; x7 = 6w/8; + y8 = y9 = 4.7h/5; + x8 = 2w/8; x9 = 7w/8; + p1 = flex(z2,z3,z0) & flex(z0,z1,z2) & flex(z2,z4,z5); + pickup pencircle scaled .7pt; + draw p1; + undraw flex(z2,z4,z5); + pickup pencircle xscaled .8pt yscaled .3pt rotated 5; + draw flex(z2,z4,z5); + pickup pencircle scaled .4pt; + draw z8--z9; + filldraw fullcircle scaled .05w shifted (z6); + filldraw fullcircle scaled .05w shifted (z7); + FSTOP = currentpicture; + endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x020.mf b/fonts/byzfonts/Alphabet/Witns/x020.mf new file mode 100644 index 0000000000..cc276985f6 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x020.mf @@ -0,0 +1,4 @@ +beginchar(oct"020",.6em#,6cap#/7,1.5dth#); "Ni Diatoniki Martiria"; +addto currentpicture also NH shifted(.35w,.45h); +addto currentpicture also SO shifted(.15w,-.4h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x021.mf b/fonts/byzfonts/Alphabet/Witns/x021.mf new file mode 100644 index 0000000000..ecce8b3661 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x021.mf @@ -0,0 +1,4 @@ +beginchar(oct"021",.6em#,6cap#/7,1.5dth#); "Pa Diatoniki Martiria"; +addto currentpicture also PEE shifted(.3w,.35h); +addto currentpicture also EOT shifted(.15w,-.3h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x022.mf b/fonts/byzfonts/Alphabet/Witns/x022.mf new file mode 100644 index 0000000000..11c8fd7192 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x022.mf @@ -0,0 +1,4 @@ +beginchar(oct"022",.6em#,6cap#/7,1.5dth#); "Vou Diatoniki Martiria"; +addto currentpicture also BHTA shifted(.3w,.3h); +addto currentpicture also SI shifted(.15w,-.45h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x023.mf b/fonts/byzfonts/Alphabet/Witns/x023.mf new file mode 100644 index 0000000000..417ec6f8fd --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x023.mf @@ -0,0 +1,4 @@ +beginchar(oct"023",.6em#,6cap#/7,1.5dth#); "Ga Diatoniki Martiria"; +addto currentpicture also GAMA shifted(.45w,.3h); +addto currentpicture also BEL shifted(.15w,-.45h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x024.mf b/fonts/byzfonts/Alphabet/Witns/x024.mf new file mode 100644 index 0000000000..ab95d7ad01 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x024.mf @@ -0,0 +1,4 @@ +beginchar(oct"024",.6em#,6cap#/7,1.5dth#); "Di Diatoniki Martiria"; +addto currentpicture also ThELTA shifted(.4w,.45h); +addto currentpicture also SLASH shifted(.15w,-.45h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x025.mf b/fonts/byzfonts/Alphabet/Witns/x025.mf new file mode 100644 index 0000000000..1edf0ee0a2 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x025.mf @@ -0,0 +1,4 @@ +beginchar(oct"025",.6em#,6cap#/7,1.5dth#); "Ke Diatoniki Martiria"; +addto currentpicture also KAPA shifted(.3w,.35h); +addto currentpicture also ENQ shifted(.15w,-.35h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x026.mf b/fonts/byzfonts/Alphabet/Witns/x026.mf new file mode 100644 index 0000000000..6a9ddf2868 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x026.mf @@ -0,0 +1,12 @@ +beginchar(oct"026",.6em#,6cap#/7,1.5dth#); +"Upper Zo Diatoniki Martiria"; +save ww,hh; +ww = w/6; hh = h/6; + +z0 = (5.7ww,5.7hh); +z1 = (5.2ww,5.2hh); +pickup pencircle scaled .5ww; +draw z0--z1; +addto currentpicture also ZHTA shifted(.3w,.35h); +addto currentpicture also SI shifted(.15w,-.35h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x027.mf b/fonts/byzfonts/Alphabet/Witns/x027.mf new file mode 100644 index 0000000000..4be51f5cd2 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x027.mf @@ -0,0 +1,12 @@ +beginchar(oct"027",.6em#,6cap#/7,1.5dth#); +"Upper Ni Diatoniki Martiria"; +save ww,hh; +ww = w/6; hh = h/6; + +z0 = (5.7ww,5.7hh); +z1 = (5.2ww,5.2hh); +pickup pencircle scaled .5ww; +draw z0--z1; +addto currentpicture also NH shifted(.3w,.35h); +addto currentpicture also BEL shifted(.15w,-.35h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x030.mf b/fonts/byzfonts/Alphabet/Witns/x030.mf new file mode 100644 index 0000000000..456b446d35 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x030.mf @@ -0,0 +1,12 @@ +beginchar(oct"030",.6em#,6cap#/7,1.5dth#); +"Upper Zo Diatoniki Martiria"; +save ww,hh; +ww = w/6; hh = h/6; + +z0 = (5.7ww,5.5hh); +z1 = (5.2ww,5hh); +pickup pencircle scaled .5ww; +draw z0--z1; +addto currentpicture also ZHTA shifted(.3w,.35h); +addto currentpicture also NUL shifted(.15w,-.3h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x031.mf b/fonts/byzfonts/Alphabet/Witns/x031.mf new file mode 100644 index 0000000000..9889e56e9a --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x031.mf @@ -0,0 +1,4 @@ +beginchar(oct"031",.6em#,6cap#/7,1.5dth#); "Ke Martiria pl. B"; +addto currentpicture also KAPA shifted(.3w,.35h); +addto currentpicture also STX shifted(.15w,-.3h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x032.mf b/fonts/byzfonts/Alphabet/Witns/x032.mf new file mode 100644 index 0000000000..0e3405edf4 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x032.mf @@ -0,0 +1,4 @@ +beginchar(oct"032",.6em#,6cap#/7,1.5dth#); "Di Martiria pl. B"; +addto currentpicture also ThELTA shifted(.3w,.35h); +addto currentpicture also NUL shifted(.15w,-.3h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x033.mf b/fonts/byzfonts/Alphabet/Witns/x033.mf new file mode 100644 index 0000000000..37e9a10800 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x033.mf @@ -0,0 +1,4 @@ +beginchar(oct"033",.6em#,6cap#/7,1.5dth#); "Ga Martiria pl. B"; +addto currentpicture also GAMA shifted(.5w,.35h); +addto currentpicture also STX shifted(.15w,-.3h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x034.mf b/fonts/byzfonts/Alphabet/Witns/x034.mf new file mode 100644 index 0000000000..5b671ecbd7 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x034.mf @@ -0,0 +1,4 @@ +beginchar(oct"034",.6em#,6cap#/7,1.5dth#); "Vou Martiria pl. B"; +addto currentpicture also BHTA shifted(.3w,.35h); +addto currentpicture also NUL shifted(.15w,-.3h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x035.mf b/fonts/byzfonts/Alphabet/Witns/x035.mf new file mode 100644 index 0000000000..650530f92a --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x035.mf @@ -0,0 +1,4 @@ +beginchar(oct"035",.6em#,6cap#/7,1.5dth#); "Pa Martiria pl. B"; +addto currentpicture also PEE shifted(.3w,.35h); +addto currentpicture also STX shifted(.15w,-.3h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x036.mf b/fonts/byzfonts/Alphabet/Witns/x036.mf new file mode 100644 index 0000000000..526701e096 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x036.mf @@ -0,0 +1,4 @@ +beginchar(oct"036",.6em#,6cap#/7,1.5dth#); "Ni Martiria pl. B"; +addto currentpicture also NH shifted(.3w,.35h); +addto currentpicture also NUL shifted(.15w,-.3h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x037.mf b/fonts/byzfonts/Alphabet/Witns/x037.mf new file mode 100644 index 0000000000..96150e5e23 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x037.mf @@ -0,0 +1,12 @@ +beginchar(oct"037",.6em#,6cap#/7,1.5dth#); +"Upper Pa Diatoniki Martiria"; +save ww,hh; +ww = w/6; hh = h/6; + +z0 = (5.7ww,5.5hh); +z1 = (5.2ww,5hh); +pickup pencircle scaled .5ww; +draw z0--z1; +addto currentpicture also PEE shifted(.3w,.35h); +addto currentpicture also EOT shifted(.15w,-.3h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x040.mf b/fonts/byzfonts/Alphabet/Witns/x040.mf new file mode 100644 index 0000000000..98858d9383 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x040.mf @@ -0,0 +1,12 @@ +beginchar(oct"040",.6em#,6cap#/7,1.5dth#); +"Upper Ni Diatoniki Martiria"; +save ww,hh; +ww = w/6; hh = h/6; + +z0 = (5.7ww,5.5hh); +z1 = (5.2ww,5hh); +pickup pencircle scaled .5ww; +draw z0--z1; +addto currentpicture also NH shifted(.3w,.35h); +addto currentpicture also STX shifted(.15w,-.3h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x041.mf b/fonts/byzfonts/Alphabet/Witns/x041.mf new file mode 100644 index 0000000000..18fc1c7830 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x041.mf @@ -0,0 +1,12 @@ +beginchar(oct"041",.6em#,6cap#/7,1.5dth#); +"Upper Pa Diatoniki Martiria"; +save ww,hh; +ww = w/6; hh = h/6; + +z0 = (5.7ww,5.5hh); +z1 = (5.2ww,5hh); +pickup pencircle scaled .5ww; +draw z0--z1; +addto currentpicture also PEE shifted(.3w,.35h); +addto currentpicture also NUL shifted(.15w,-.3h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x042.mf b/fonts/byzfonts/Alphabet/Witns/x042.mf new file mode 100644 index 0000000000..fa2bc928d8 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x042.mf @@ -0,0 +1,4 @@ +beginchar(oct"042",.6em#,6cap#/7,1.5dth#); "Ni Martiria B"; +addto currentpicture also NH shifted(.35w,.5h); +addto currentpicture also ETX shifted(.15w,-.3h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x043.mf b/fonts/byzfonts/Alphabet/Witns/x043.mf new file mode 100644 index 0000000000..e59441b0dc --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x043.mf @@ -0,0 +1,4 @@ +beginchar(oct"043",.6em#,6cap#/7,1.5dth#); "Pa Martiria B"; +addto currentpicture also PEE shifted(.3w,.4h); +addto currentpicture also SOH shifted(.15w,-.3h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x044.mf b/fonts/byzfonts/Alphabet/Witns/x044.mf new file mode 100644 index 0000000000..f10cfc3199 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x044.mf @@ -0,0 +1,4 @@ +beginchar(oct"044",.6em#,7cap#/7,1.5dth#); "Vou Martiria B"; +addto currentpicture also BHTA shifted(.35w,.4h); +addto currentpicture also ETX shifted(.1w,-.3h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x045.mf b/fonts/byzfonts/Alphabet/Witns/x045.mf new file mode 100644 index 0000000000..5130d6ba8b --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x045.mf @@ -0,0 +1,4 @@ +beginchar(oct"045",.6em#,6cap#/7,1.5dth#); "Ga Martiria B"; +addto currentpicture also GAMA shifted(.4w,.4h); +addto currentpicture also SOH shifted(.15w,-.3h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x046.mf b/fonts/byzfonts/Alphabet/Witns/x046.mf new file mode 100644 index 0000000000..07bad2b529 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x046.mf @@ -0,0 +1,4 @@ +beginchar(oct"046",.6em#,6cap#/7,1.5dth#); "Di Martiria B"; +addto currentpicture also ThELTA shifted(.35w,.35h); +addto currentpicture also ETX shifted(.1w,-.3h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x047.mf b/fonts/byzfonts/Alphabet/Witns/x047.mf new file mode 100644 index 0000000000..e1ba47b929 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x047.mf @@ -0,0 +1,4 @@ +beginchar(oct"047",.6em#,6cap#/7,1.5dth#); "Ke Martiria B"; +addto currentpicture also KAPA shifted(.3w,.35h); +addto currentpicture also SOH shifted(.15w,-.3h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x050.mf b/fonts/byzfonts/Alphabet/Witns/x050.mf new file mode 100644 index 0000000000..7b2dbbf817 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x050.mf @@ -0,0 +1,11 @@ +beginchar(oct"050",.6em#,6cap#/7,1.5dth#); "Upper Zo Martiria B"; +save ww,hh; +ww = w/6; hh = h/6; + +z0 = (5.7ww,5.5hh); +z1 = (5.2ww,5hh); +pickup pencircle scaled .5ww; +draw z0--z1; +addto currentpicture also ZHTA shifted(.3w,.35h); +addto currentpicture also ETX shifted(.15w,-.3h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x051.mf b/fonts/byzfonts/Alphabet/Witns/x051.mf new file mode 100644 index 0000000000..ef0e8e911d --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x051.mf @@ -0,0 +1,11 @@ +beginchar(oct"051",.6em#,6cap#/7,1.5dth#); "Upper Ni Martiria B"; +save ww,hh; +ww = w/6; hh = h/6; + +z0 = (5.7ww,5.5hh); +z1 = (5.2ww,5hh); +pickup pencircle scaled .5ww; +draw z0--z1; +addto currentpicture also NH shifted(.3w,.35h); +addto currentpicture also SOH shifted(.15w,-.3h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x052.mf b/fonts/byzfonts/Alphabet/Witns/x052.mf new file mode 100644 index 0000000000..ed93fb6d35 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x052.mf @@ -0,0 +1,11 @@ +beginchar(oct"052",.6em#,6cap#/7,1.5dth#); "Upper Pa Martiria B"; +save ww,hh; +ww = w/6; hh = h/6; + +z0 = (5.7ww,5.5hh); +z1 = (5.2ww,5hh); +pickup pencircle scaled .5ww; +draw z0--z1; +addto currentpicture also PEE shifted(.3w,.35h); +addto currentpicture also ETX shifted(.15w,-.3h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x053.mf b/fonts/byzfonts/Alphabet/Witns/x053.mf new file mode 100644 index 0000000000..1d5b1fd38b --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x053.mf @@ -0,0 +1,12 @@ +beginchar(oct"053",.6em#,6cap#/7,1.5dth#); +"Upper Vou Enarmonia Martiria"; +save ww,hh; +ww = w/6; hh = h/6; + +z0 = (5.7ww,5.5hh); +z1 = (5.2ww,5hh); +pickup pencircle scaled .5ww; +draw z0--z1; +addto currentpicture also BHTA shifted(.25w,.25h); +addto currentpicture also BEL shifted(.15w,-.55h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x054.mf b/fonts/byzfonts/Alphabet/Witns/x054.mf new file mode 100644 index 0000000000..b046aaf856 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x054.mf @@ -0,0 +1,12 @@ +beginchar(oct"054",.6em#,6cap#/7,1.5dth#); +"Upper Pa Enarmonia Martiria"; +save ww,hh; +ww = w/6; hh = h/6; + +z0 = (5.7ww,5.5hh); +z1 = (5.2ww,5hh); +pickup pencircle scaled .5ww; +draw z0--z1; +addto currentpicture also PEE shifted(.25w,.25h); +addto currentpicture also EOT shifted(.15w,-.4h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x055.mf b/fonts/byzfonts/Alphabet/Witns/x055.mf new file mode 100644 index 0000000000..f44976f500 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x055.mf @@ -0,0 +1,12 @@ +beginchar(oct"055",.6em#,6cap#/7,2dth#); +"Upper Ni Enarmonia Martiria"; +save ww,hh; +ww = w/6; hh = h/6; + +z0 = (5.7ww,5.5hh); +z1 = (5.2ww,5hh); +pickup pencircle scaled .5ww; +draw z0--z1; +addto currentpicture also NH shifted(.3w,.4h); +addto currentpicture also SLASH shifted(.15w,-.6h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x056.mf b/fonts/byzfonts/Alphabet/Witns/x056.mf new file mode 100644 index 0000000000..50e508eabb --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x056.mf @@ -0,0 +1,12 @@ +beginchar(oct"056",.6em#,6cap#/7,1.5dth#); +"Upper Zo Enarmonia Martiria and Martiria Spathis"; +save ww,hh; +ww = w/6; hh = h/6; + +z0 = (5.7ww,5.5hh); +z1 = (5.2ww,5hh); +pickup pencircle scaled .5ww; +draw z0--z1; +addto currentpicture also ZHTA shifted(.25w,.25h); +addto currentpicture also BEL shifted(.15w,-.55h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x057.mf b/fonts/byzfonts/Alphabet/Witns/x057.mf new file mode 100644 index 0000000000..095cfe72a3 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x057.mf @@ -0,0 +1,4 @@ +beginchar(oct"057",.6em#,6cap#/7,2dth#); "Ke Enarmonia Martiria"; +addto currentpicture also KAPA shifted(.25w,.25h); +addto currentpicture also ENQ shifted(.15w,-.6h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x060.mf b/fonts/byzfonts/Alphabet/Witns/x060.mf new file mode 100644 index 0000000000..b50e6b780f --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x060.mf @@ -0,0 +1,4 @@ +beginchar(oct"060",.6em#,6cap#/7,2dth#); "Di Enarmonia Martiria"; +addto currentpicture also ThELTA shifted(.4w,.25h); +addto currentpicture also SLASH shifted(.15w,-.6h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x061.mf b/fonts/byzfonts/Alphabet/Witns/x061.mf new file mode 100644 index 0000000000..6a12dd71ef --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x061.mf @@ -0,0 +1,4 @@ +beginchar(oct"061",.6em#,6cap#/7,1.5dth#); "Ga Enarmonia Martiria"; +addto currentpicture also GAMA shifted(.45w,.25h); +addto currentpicture also BEL shifted(.15w,-.55h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x062.mf b/fonts/byzfonts/Alphabet/Witns/x062.mf new file mode 100644 index 0000000000..fefaa0481e --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x062.mf @@ -0,0 +1,4 @@ +beginchar(oct"062",.6em#,6cap#/7,2dth#); "Vou Enarmonia Martiria"; +addto currentpicture also BHTA shifted(.3w,.25h); +addto currentpicture also EOT shifted(.15w,-.55h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x063.mf b/fonts/byzfonts/Alphabet/Witns/x063.mf new file mode 100644 index 0000000000..552b2aa5cc --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x063.mf @@ -0,0 +1,4 @@ +beginchar(oct"063",.6em#,6cap#/7,2dth#); "Pa Enarmonia Martiria"; +addto currentpicture also PEE shifted(.3w,.25h); +addto currentpicture also SO shifted(.15w,-.6h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x064.mf b/fonts/byzfonts/Alphabet/Witns/x064.mf new file mode 100644 index 0000000000..a6e4c42619 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x064.mf @@ -0,0 +1,4 @@ +beginchar(oct"064",.6em#,6cap#/7,1.5dth#); "Ni Enarmonia Martiria"; +addto currentpicture also NH shifted(.3w,.25h); +addto currentpicture also BEL shifted(.15w,-.55h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x065.mf b/fonts/byzfonts/Alphabet/Witns/x065.mf new file mode 100644 index 0000000000..3150e297e3 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x065.mf @@ -0,0 +1,4 @@ +beginchar(oct"065",.6em#,6cap#/7,2dth#); "Ni Martiria Zigou"; +addto currentpicture also NH shifted(.3w,.25h); +addto currentpicture also SO shifted(.15w,-.6h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x066.mf b/fonts/byzfonts/Alphabet/Witns/x066.mf new file mode 100644 index 0000000000..fdc7543ff8 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x066.mf @@ -0,0 +1,4 @@ +beginchar(oct"066",.6em#,6cap#/7,1.5dth#); "Pa Martiria Zigou"; +addto currentpicture also PEE shifted(.25w,.25h); +addto currentpicture also STX shifted(.1w,-.55h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x067.mf b/fonts/byzfonts/Alphabet/Witns/x067.mf new file mode 100644 index 0000000000..72e6b00e0e --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x067.mf @@ -0,0 +1,4 @@ +beginchar(oct"067",.6em#,6cap#/7,2dth#); "Vou Martiria Zigou"; +addto currentpicture also BHTA shifted(.2w,.25h); +addto currentpicture also BS shifted(.15w,-.6h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x070.mf b/fonts/byzfonts/Alphabet/Witns/x070.mf new file mode 100644 index 0000000000..5e9e75e4b8 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x070.mf @@ -0,0 +1,4 @@ +beginchar(oct"070",.6em#,6cap#/7,1.5dth#); "Ga Martiria Zigou"; +addto currentpicture also GAMA shifted(.35w,.25h); +addto currentpicture also STX shifted(.1w,-.55h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x071.mf b/fonts/byzfonts/Alphabet/Witns/x071.mf new file mode 100644 index 0000000000..593e20d0ef --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x071.mf @@ -0,0 +1,4 @@ +beginchar(oct"071",.6em#,6cap#/7,2dth#); "Di Martiria Zigou"; +addto currentpicture also ThELTA shifted(.3w,.25h); +addto currentpicture also BS shifted(.15w,-.6h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x072.mf b/fonts/byzfonts/Alphabet/Witns/x072.mf new file mode 100644 index 0000000000..703f8b9381 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x072.mf @@ -0,0 +1,4 @@ +beginchar(oct"072",.6em#,6cap#/7,1.5dth#); "Di Martiria Klitou"; +addto currentpicture also ThELTA shifted(.3w,.25h); +addto currentpicture also BEL shifted(.15w,-.55h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x073.mf b/fonts/byzfonts/Alphabet/Witns/x073.mf new file mode 100644 index 0000000000..9203407a19 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x073.mf @@ -0,0 +1,4 @@ +beginchar(oct"073",.6em#,6cap#/7,2dth#); "Pa Martiria Klitou"; +addto currentpicture also PEE shifted(.3w,.25h); +addto currentpicture also SO shifted(.15w,-.6h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x074.mf b/fonts/byzfonts/Alphabet/Witns/x074.mf new file mode 100644 index 0000000000..8e8a32d8db --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x074.mf @@ -0,0 +1,4 @@ +beginchar(oct"074",.6em#,6cap#/7,2dth#); "Vou Martiria Klitou"; +addto currentpicture also BHTA shifted(.3w,.25h); +addto currentpicture also EOT shifted(.15w,-.55h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x075.mf b/fonts/byzfonts/Alphabet/Witns/x075.mf new file mode 100644 index 0000000000..0e2181f684 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x075.mf @@ -0,0 +1,4 @@ +beginchar(oct"075",.6em#,6cap#/7,2dth#); "Ga Mariria Klitou"; +addto currentpicture also GAMA shifted(.35w,.25h); +addto currentpicture also SI shifted(.15w,-.6h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x076.mf b/fonts/byzfonts/Alphabet/Witns/x076.mf new file mode 100644 index 0000000000..8143fafbb0 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x076.mf @@ -0,0 +1,4 @@ +beginchar(oct"076",.6em#,6cap#/7,1.5dth#); "Ga Mariria Spathis"; +addto currentpicture also GAMA shifted(.4w,.25h); +addto currentpicture also BEL shifted(.15w,-.55h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x077.mf b/fonts/byzfonts/Alphabet/Witns/x077.mf new file mode 100644 index 0000000000..5a92d94078 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x077.mf @@ -0,0 +1,4 @@ +beginchar(oct"077",.6em#,6cap#/7,1.5dth#); "Di Mariria Spathis"; +addto currentpicture also ThELTA shifted(.4w,.25h); +addto currentpicture also STX shifted(.1w,-.55h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x100.mf b/fonts/byzfonts/Alphabet/Witns/x100.mf new file mode 100644 index 0000000000..55c7b561c0 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x100.mf @@ -0,0 +1,4 @@ +beginchar(oct"100",.6em#,6cap#/7,2dth#); "Ke Mariria Spathis"; +addto currentpicture also KAPA shifted(.25w,.25h); +addto currentpicture also ENQ shifted(.15w,-.6h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x121.mf b/fonts/byzfonts/Alphabet/Witns/x121.mf new file mode 100644 index 0000000000..f8142065e1 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x121.mf @@ -0,0 +1,12 @@ +beginchar(oct"121",.6em#,6cap#/7,2dth#); +"Upper Di Enarmonia Martiria"; +save ww,hh; +ww = w/6; hh = h/6; + +z0 = (5.7ww,5.5hh); +z1 = (5.2ww,5hh); +pickup pencircle scaled .5ww; +draw z0--z1; +addto currentpicture also ThELTA shifted(.4w,.3h); +addto currentpicture also SLASH shifted(.15w,-.6h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x133.mf b/fonts/byzfonts/Alphabet/Witns/x133.mf new file mode 100644 index 0000000000..8bca5c6d52 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x133.mf @@ -0,0 +1,12 @@ +beginchar(oct"133",.6em#,6cap#/7,2dth#); +"Upper Ni Martiria Spathis"; +save ww,hh; +ww = w/6; hh = h/6; + +z0 = (5.7ww,5.5hh); +z1 = (5.2ww,5hh); +pickup pencircle scaled .5ww; +draw z0--z1; +addto currentpicture also NH shifted(.25w,.35h); +addto currentpicture also SLASH shifted(.15w,-.6h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x134.mf b/fonts/byzfonts/Alphabet/Witns/x134.mf new file mode 100644 index 0000000000..8cb89b7fa2 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x134.mf @@ -0,0 +1,4 @@ +beginchar(oct"134",.9em#,6cap#/7,1.5dth#); "Zo Diatoniki Martiria"; +addto currentpicture also ZHTA shifted(.35w,.4h); +addto currentpicture also ACK shifted(.05w,-.45h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x135.mf b/fonts/byzfonts/Alphabet/Witns/x135.mf new file mode 100644 index 0000000000..cea546e1a6 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x135.mf @@ -0,0 +1,5 @@ +beginchar(oct"135",.6em#,6cap#/7,1.5dth#); +"Lower Di Diatoniki Martiria"; +addto currentpicture also SO shifted(.15w,.25h); +addto currentpicture also ThELTA shifted(.35w,-.4h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x136.mf b/fonts/byzfonts/Alphabet/Witns/x136.mf new file mode 100644 index 0000000000..9863981d99 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x136.mf @@ -0,0 +1,5 @@ +beginchar(oct"136",.6em#,6cap#/7,1.5dth#); +"Lower Ke Diatoniki Martiria"; +addto currentpicture also EOT shifted(.15w,.25h); +addto currentpicture also KAPA shifted(.3w,-.5h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x137.mf b/fonts/byzfonts/Alphabet/Witns/x137.mf new file mode 100644 index 0000000000..45b9ba2bd1 --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x137.mf @@ -0,0 +1,12 @@ +beginchar(oct"137",.6em#,6cap#/7,1.5dth#); +"Upper Bou Diatoniki Martiria"; +save ww,hh; +ww = w/6; hh = h/6; + +z0 = (5.7ww,5.7hh); +z1 = (5.2ww,5.2hh); +pickup pencircle scaled .5ww; +draw z0--z1; +addto currentpicture also BHTA shifted(.25w,.25h); +addto currentpicture also SI shifted(.15w,-.5h); +endchar; diff --git a/fonts/byzfonts/Alphabet/Witns/x140.mf b/fonts/byzfonts/Alphabet/Witns/x140.mf new file mode 100644 index 0000000000..7d90796b6b --- /dev/null +++ b/fonts/byzfonts/Alphabet/Witns/x140.mf @@ -0,0 +1,12 @@ +beginchar(oct"140",.6em#,6cap#/7,1.5dth#); +"Upper Ga Diatoniki Martiria"; +save ww,hh; +ww = w/6; hh = h/6; + +z0 = (5.7ww,5.7hh); +z1 = (5.2ww,5.2hh); +pickup pencircle scaled .5ww; +draw z0--z1; +addto currentpicture also GAMA shifted(.45w,.2h); +addto currentpicture also BEL shifted(.15w,-.55h); +endchar; |