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