% +AMDG This document was begun on 26 June 11EX, the % Commemoration of St. Paul and St. Peter, and it is humbly % dedicated to them and to the Immaculate Heart of Mary for % their prayers, and to the Sacred Heart of Jesus for His % mercy. def topcurl(suffix i,j,k) = top z.j = z.i shifted (-curlw,curlh); z.k = z.j shifted (-curlw/2,-curlh); penpos.j(thickl/2,90); penpos.k(thinl,180); enddef; def botcurl(suffix i,j,k) = bot z.j = z.i shifted (curlw,-curlh); z.k = z.j shifted (curlw/2,curlh); penpos.j(thickl/2,90); penpos.k(thinl,180); enddef; beginchar(oct"141",ex#+2ss#,ex#,0); "The letter alpha"; italcorr(ex#*slant); pickup pencircle scaled 1.5thinl; penpos0(thinl,90); bot z0 = (w-ss,0-o); penpos1(thinl,90); bot z1 = (w-ss-w/12,0-o); penpos2(thickl,45); z2r = z1r; penpos3(thickl,0); z3r = (x1r,h/2); penpos4(thinl,90); z4r = (w/2,h+o); penpos5(thickl,180); z5r = (ss,h/2); penpos6(thinl,270); z6r = (w/2,0-o); penpos7(thinl,270); z7l = (w-ss,h); penpos8(thickl,0); z8 = z3; penstroke z0e..z1e..z2e---z3e..z4e..z5e..z6e..{up}z8e{up}..{right}z7e; picture alpha; alpha := currentpicture; penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); endchar; beginchar(oct"142",ex#+2ss#,asch#,dep#); "The letter beta"; italcorr(ex#*slant); penpos0(thinl,0); z0l = (ss,-dep); penpos1(thickl,0); z1l = (ss+hair,0); penpos2(thickl,0); z2l = (ss+hair,3h/4); penpos3(thinl,-90); z3l = (w/2,h+o); penpos4(curvl,180); z4l = (w-ss-hair,y2); penpos5(thinl,90); z5 = (x2r,h/2); penpos6(curvl,0); z6r = (w-ss,h/4); penpos7(thinl,-90); z7r = z1r; penstroke z0e..z1e..z2e..z3e..z4e..{left}z5e;% penstroke z5e{right}..z6e..z7e; penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); endchar; beginchar(oct"147",1.2ex#+2ss#,ex#,dep#); "The letter gamma"; italcorr(ex#*slant); penpos0(thinl,0); z0l = (ss,3h/4); penpos1(thinl,-135); z1l = (w/4,h+o); penpos2(thickl,200); z2 = (w/2,0); penpos3(thickl,180); z3 = (w/3,-dep); penpos4(thinl,135); z4l = (w-ss,h); penpos5(thickl,135); z5 = z2; penstroke z0e..z1e{dir 0}..z2e..z3e;% penstroke z5e{dir 45}..z4e; penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); endchar; beginchar(oct"144",ex#+2ss#,asch#,0); "The letter delta"; italcorr(ex#*slant); penpos0(thickl,0); z0r = (w-ss,4h/5); penpos1(thinl,90); z1r = (w/2,h+o); penpos2(thickl,180); z2r = (w/4,4h/5); penpos3(curvl,180); z3l = (w-ss,h/4); penpos4(thinl,90); z4l = (w/2,0-o); penpos5(curvl,0); z5l = (ss,h/4); penpos6(thinl,-90); z6 = (w/2,h/2); penstroke z0e..z1e..z2e..{down}z3e..z4e..z5e..z6e..z3e; penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); endchar; beginchar(oct"145",0.8ex#+2ss#,ex#,0); "The letter epsilon"; italcorr(ex#*slant); penpos0(thinl,-90); z0l = (w-ss,h+o); penpos1(curvl,0); z1l = (ss,h/2); penpos2(thinl,90); z2l = (w-ss,0-o); penpos4(1.5thinl,45); z4 = z1; penpos3(1.5thinl,45); x3r = w-ss; y3r = y4r; penstroke z0e{left}..{down}z1e{down}..{right}z2e; penstroke z3e--z4e; penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); endchar; beginchar(oct"172",ex#+2ss#,asch#,dep#); "The letter zeta"; italcorr(ex#*slant); penpos0(thinl,0); z0 = (w/2,h+o); penpos1(1.5thinl,90); z1 = (3w/4,6h/8); penpos2(1.5thinl,180); z2l = (w-ss,7h/8); penpos3(1.5thinl,-90); z3 = (x1,15h/16); penpos4(curvl,0); z4l = (ss,h/2); penpos5(curvl,90); z5l = (w/2,0-o); penpos6(1.5thinl,0); z6r = (w-ss,-dep/3); penpos7(thickl,-90); z7r = (w/2,-dep); penstroke z0e..z1e..z2e..z3e{left}..z4e..{right}z5e{right}..z6e..z7e; penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); endchar; beginchar(oct"150",ex#+2ss#,ex#,dep#); "The letter eta"; italcorr(ex#*slant); penpos0(thinl,0); z0l = (ss,4h/5); penpos1(thinl,-90); z1l = (x0r+hair,h+o); penpos3(thickl,180); z3r = (x1r+hair,3h/4); penpos2(thickl,180); z2r = (x3r,0); penpos5(thickl,0); z5r = (w-ss,3h/4); penpos4(thinl,90); z4r = ((x3+x5)/2,h+o); penpos6(thickl,0); z6 = (x5,-dep); penstroke z0e..z1e..z3e---z2e; penstroke z2e---z3e..z4e..z5e---z6e; picture eta; eta := currentpicture; penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); endchar; beginchar(oct"152",ex#+2ss#,asch#,0); "The letter theta"; italcorr(ex#*slant); penpos0(curvl,0); z0l = (ss,h/2); penpos1(thinl,-90); z1l = (w/2,h+o); penpos2(curvl,180); z2l = (w-ss,h/2); penpos3(thinl,90); z3l = (w/2,0-o); penpos4(1.5thinl,90); z4 = z0; penpos5(1.5thinl,90); z5 = z2; penstroke z0e..z1e..z2e..z3e..cycle; penstroke z4e--z5e; penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); endchar; beginchar(oct"151",0.4ex#+2ss#,ex#,0); "The letter iota"; italcorr(ex#*slant); penpos0(thickl,0); z0l = (ss,h); penpos1(thickl,0); z1l = (ss,h/5); penpos2(thinl,90); z2l = (x1r+hair,0-o); penpos3(1.5thinl,180); z3r = (x2r+hair,y1); penstroke z0e---z1e..z2e..{up}z3e; picture iota; iota := currentpicture; penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); endchar; beginchar(oct"153",ex#+2ss#,ex#,0); "The letter kappa"; italcorr(ex#*slant); penpos0(thickl,0); z0l = (ss,h); penpos1(thickl,0); z1l = (ss,0); penpos3(1.5thinl,0); z3r = (w-ss-1.5thinl,h+o); penpos4(1.5thinl,-90); z4 = (x0r,h/2); penpos5(thickl,0); z5r = (3w/4,h/5); penpos6(1.5thinl,45); z6 = (w/2,h/2); penpos7(thinl,90); z7 = z4; penpos8(1.5thinl,90); z8l = (x5r+hair,0-o); penpos9(1.5thinl,180); z9l = (w-ss,h/5); penstroke z0e--z1e; penstroke z3e--z4e; penstroke z7e..z6e..z5e..z8e..z9e; penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); endchar; beginchar(oct"154",ex#+2ss#,asch#,0); "The letter lambda"; italcorr(ex#*slant); penpos0(1.5thinl,0); z0l = (ss,0); penpos1(1.5thinl,-45); z1 = (w/2,h/2); penpos2(thickl,0); z2l = (ss,h); penpos3(thickl,45); z3 = z1; penpos4(thickl,0); z4r = (w-ss,0); penstroke z2e{down}..z3e..z4e; penstroke z0e..z1e; penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); endchar; beginchar(oct"155",ex#+2ss#,ex#,dep#); "The letter mu"; italcorr(ex#*slant); penpos0(thickl,180); z0r = (ss,-dep); penpos1(thickl,180); z1r = (ss,h); penpos2(thickl,180); z2r = (ss,curlh); penpos4(thickl,0); z4l = (w-ss-2curlw,y2); penpos5(thickl,0); z5l = (w-ss-2curlw,h); penpos3(thinl,-90); z3r = ((x2+x4)/2,0-o); botcurl(4,6,7); penstroke z0e--z1e; penstroke z1e---z2e..z3e..z4e---z5e; penstroke z5e--z4e..z6e..z7e; penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); endchar; beginchar(oct"156",1.2ex#+2ss#,ex#,0); "The letter nu"; italcorr(ex#*slant); pickup pencircle yscaled thinl; penpos0(thickl,0); z0 = (ss+2curlw,h-curlh); topcurl(0,1,2); penpos3(1.5thinl,45); x3r = x0r; y3l = 0-o; penpos4(thickl,180); z4l = (w-ss,h-thinl); penpos5(1.5thinl,-90); z5r = z4r; penpos6(thinl,0); z6r = z5r; penpos7(thinl,90); z7r = z6r; penpos8(1.5thinl,45); z8r = z3r; penstroke z2e..z1e..z0e---z8e; penstroke z8e..z3e{right}..{up}z4e; penstroke z4e..z5e..z6e..z7e; penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); endchar; beginchar(oct"170",ex#+2ss#,asch#,dep#); "The letter xi"; italcorr(ex#*slant); penpos0(thinl,0); z0 = (w/2,h+o); penpos1(1.5thinl,90); z1 = (3w/4,6h/8); penpos2(1.5thinl,180); z2l = (w-ss,7h/8); penpos3(1.5thinl,-90); z3 = (x1,15h/16); penpos4(curvl,0); z4l = (ss,3h/4); penpos5(thinl,90); z5 = (w/2,h/2-thinl); penpos6(thinl,180); z6 = (w/2+thickl,h/2); penpos7(thinl,-90); z7 = (w/2,h/2+thinl); penpos8(curvl,0); z8l = (ss,h/4); penpos12(curvl,90); z12l = (w/2,0-o); penpos13(1.5thinl,0); z13r = (w-ss,-dep/3); penpos14(thickl,-90); z14r = (w/2,-dep); penstroke z0e..z1e..z2e..z3e{left}..z4e..z5e..z6e..z7e..z8e..{right}z12e{right}..z13e..z14e; penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); endchar; beginchar(oct"160",ex#+2ss#,ex#,0); "The letter pi"; italcorr(ex#*slant); penpos0(1.5thinl,0); z0 = (2w/3,h); penpos1(1.5thinl,0); z1 = (w/3,h); penpos2(thickl,0); z2 = (w/4,0); penpos3(thickl,0); z3 = (3w/4,0); penpos4(thinl,90); z4 = (ss,h-curlh); penpos5(thickl,90); z5r = (ss+curlw,h+o); penpos6(thickl,90); z6r = (w-ss,h+o); penstroke z4e..z5e---z6e; penstroke z1e{down}..z2e; penstroke z0e{down}..z3e; penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); endchar; beginchar(oct"162",ex#+2ss#,ex#,dep#); "The letter rho"; italcorr(ex#*slant); penpos0(thickl,0); z0l = (ss,-dep); penpos1(thickl,0); z1l = (ss,h/2); penpos2(thinl,-90); z2l = (w/2,h+o); penpos3(curvl,180); z3l = (w-ss,h/2); penpos4(thinl,90); z4l = (w/2,0-o); penstroke z0e---z1e..z2e..z3e..z4e..z1e; picture rho; rho := currentpicture; penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); endchar; beginchar(oct"163",ex#+2ss#,ex#,0); "The letter sigma"; italcorr(ex#*slant); penpos0(1.5thinl,-90); z0l = (w,h+o); penpos1(thickl,0); z1l = (ss,h/2); penpos2(thinl,-90); z2l = (w/2,h+o); penpos3(curvl,180); z3l = (w-ss,h/2); penpos4(thinl,90); z4l = (w/2,0-o); penpos5(1.5thinl,-90); z5l = z2l; penstroke z1e..z2e..z3e..z4e..cycle; penstroke z1e..z5e---z0e; penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); endchar; beginchar(oct"164",ex#+2ss#,ex#,0); "The letter tau"; italcorr(ex#*slant); penpos0(1.5thinl,0); z0 = (w/2,h); penpos1(1.5thinl,0); z1 = (w/2,0); penpos4(thinl,90); z4 = (ss,h-curlh); penpos5(thickl,90); z5r = (ss+curlw,h+o); penpos6(thickl,90); z6r = (w-ss,h+o); penstroke z4e..z5e---z6e; penstroke z0e{down}..z1e; penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); endchar; beginchar(oct"165",1.2ex#+2ss#,ex#,0); "The letter upsilon"; italcorr(ex#*slant); pickup pencircle yscaled thinl; penpos0(thickl,0); z0 = (ss+2curlw,h-curlh); topcurl(0,1,2); penpos3(1.5thinl,90); x3r = w/2; y3l = 0-o; penpos4(thickl,180); z4l = (w-ss,h-thinl); penpos5(1.5thinl,-90); z5r = z4r; penpos6(thinl,0); z6r = z5r; penpos7(thinl,90); z7r = z6r; penpos8(1.5thinl,90); z8r = z3r; penpos9(1.5thinl,0); z9 = (x0,curlh); penstroke z2e..z1e..z0e{down}..z9e..{right}z8e{right}..{up}z4e; penstroke z4e..z5e..z6e..z7e; picture upsilon; upsilon := currentpicture; penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); endchar; beginchar(oct"146",1.2ex#+2ss#,asch#,dep#); "The letter phi"; italcorr(ex#*slant); penpos1(thickl,0); z1l = (ss,ex/2); penpos2(thinl,-90); z2l = (w/2,ex+o); penpos3(curvl,180); z3l = (w-ss,ex/2); penpos4(thinl,90); z4l = (w/2,0-o); penstroke z1e..z2e..z3e..z4e..cycle; pickup pencircle scaled 1.5thinl; top rt z0 = (w-ss,h+o); bot lft z5 = (ss,-dep); draw z0--z5; penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); endchar; beginchar(oct"161",1.4ex#+2ss#,ex#,dep#); "The letter chi"; italcorr(ex#*slant); penpos0(thinl,90); z0r = (ss,h-curlh); penpos1(thickl,90); z1r = (ss+curlw,h); penpos2(thickl,0); z2 = (w/2,(h+dep)/2-dep); penpos3(thickl,90); z3l = (w-ss-curlw,-dep); penpos4(thinl,90); z4l = (w-ss,-dep+curlh); penpos5(thinl,-135); z5l = (w-ss,h-curlh/2); penpos6(thinl,-90); z6l = (w-ss-0.7curlw,h+o); penpos7(1.5thinl,0); z7 = z2; penpos8(thinl,-90); z8r = (ss+0.7curlw,-dep); penpos9(thinl,-135); z9r = (ss,-dep+curlh/2); penstroke z0e..z1e..z2e..z3e..z4e; penstroke z5e..z6e..tension 2.5..z7e; penstroke z9e..z8e..tension 2.5..z7e; penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); endchar; beginchar(oct"171",1.2ex#+2ss#,asch#,dep#); "The letter psi"; italcorr(ex#*slant); pickup pencircle yscaled thinl; penpos0(thickl,0); z0 = (ss+2curlw,ex-curlh); topcurl(0,1,2); penpos3(1.5thinl,90); x3r = w/2; y3l = 0-o; penpos4(thickl,180); z4l = (w-ss,ex-thinl); penpos5(1.5thinl,-90); z5r = z4r; penpos6(thinl,0); z6r = z5r; penpos7(thinl,90); z7r = z6r; penpos8(1.5thinl,90); z8r = z3r; penpos9(1.5thinl,0); z9 = (x0,curlh); penstroke z2e..z1e..z0e{down}..z9e..{right}z8e{right}..{up}z4e; penstroke z4e..z5e..z6e..z7e; pickup pencircle scaled 1.5thinl; top z10 = (w/2+1.5thinl,h+o); bot z11 = (w/2+1.5thinl,-dep); draw z10--z11; penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); endchar; beginchar(oct"167",1.5ex#+2ss#,ex#,0); "The letter omega"; italcorr(ex#*slant); penpos0(thinl,0); z0l = (ss+w/5,h); penpos1(curvl,0); z1l = (ss,h/2); penpos2(thinl,90); z2l = (w/3,0-o); penpos3(1.5thinl,180); z3 = (w/2,h/2); penpos4(thinl,-90); z4r = (2w/3,0-o); penpos5(curvl,0); z5r = (w-ss,h/2); penpos6(thinl,0); z6r = (w-ss-w/5,h); penstroke z0e..z1e..z2e{right}..z3e; penstroke z3e..{right}z4e..z5e..z6e; picture omlow; omlow := currentpicture; penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); endchar; beginchar(oct"145",0.8ex#+2ss#,ex#,0); "The letter varepsilon"; italcorr(ex#*slant); penpos0(1.5thinl,225); z0l = (w-ss,h-curlh); penpos1(thickl,0); z1l = (ss,3h/4); penpos2(thinl,135); z2l = (w-ss,curlh); penpos3(thickl,0); z3l = (ss,h/4); penpos4(thinl,90); z4 = (w/2-thinl,h/2-thinl); penpos5(thinl,-90); z5 = (w/2-thinl,h/2+thinl); penpos6(thinl,180); z6 = (w/2+thinl,h/2); penpos7(thinl,-90); z7l = (w/2,h+o); penpos8(thinl,90); z8l = (w/2,0-o); penstroke z0e..z7e..z1e..z4e..z6e..z5e..z3e..z8e..z2e; picture epsilon; epsilon := currentpicture; penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); endchar; beginchar(oct"152",1.2ex#+2ss#,asch#,0); "The letter vartheta"; italcorr(ex#*slant); penpos0(thinl,90); z0 = (w-ss,ex); penpos1(thinl,0); z1 = (w/4,ex+((h-ex)/2)); penpos2(thinl,-90); z2l = (w/2,h+o); penpos3(2thinl,180); z3 = (3w/4,y1); penpos4(thickl,180); z4 = (x3,2curlh); penpos6(thickl,0); z6l = (ss+1.5curlw,y4); penpos5(thinl,90); z5l = ((x6+x4)/2,0-o); penpos7(thickl,0); z7 = (x6,ex-1.5curlh); topcurl(7,8,9); penstroke z0e{left}..z1e..z2e..z3e---z4e..z5e..z6e---z7e..z8e..z9e; penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); endchar; beginchar(oct"255",1.5ex#+2ss#,ex#,0); "The letter varpi"; italcorr(ex#*slant); penpos0(thinl,0); z0l = (ss+2w/5,h); penpos1(curvl,0); z1l = (ss+hair,h/2); penpos2(thinl,90); z2l = (w/3,0-o); penpos3(1.5thinl,180); z3 = (w/2,h/2); penpos4(thinl,-90); z4r = (2w/3,0-o); penpos5(curvl,0); z5r = (w-ss-hair,h/2); penpos6(thinl,0); z6r = (w-ss-2w/5,h); penstroke z0e..z1e..z2e{right}..z3e; penstroke z3e..{right}z4e..z5e..z6e; penpos7(thinl,90); z7 = (ss,h-curlh); penpos8(thickl,90); z8r = (ss+curlw,h+o); penpos9(thickl,90); z9r = (w-ss,h+o); penstroke z7e..z8e---z9e; penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); endchar; beginchar(oct"143",ex#+2ss#,ex#,dep#); "The letter varsigma"; italcorr(ex#*slant); penpos0(thinl,0); z0r = (w-ss,h-curlh); penpos1(thinl,90); z1r = (w-ss-curlw,h+o); penpos2(1.5thinl,90); z2r = (ss+1.5curlw,h+o); penpos3(curvl,180); z3r = (ss,h/2); penpos4(1.5thinl,-90); z4r = (w/2,0-o); penpos5(1.5thinl,180); z5l = (w-ss,0-curlh); penpos6(thinl,90); z6l = (w/2,-dep); penstroke z0e{up}..z1e..z2e..{down}z3e{down}..z4e{right}..z5e..z6e; penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); endchar; beginchar(oct"146",1.2ex#+2ss#,ex#,dep#); "The letter varphi"; italcorr(ex#*slant); pickup pencircle yscaled thinl; penpos2(thickl,0); z2 = (ss+1.5curlw,h-curlh); topcurl(2,1,0); penpos3(thickl,180); z3l = (w-ss,3h/4); penpos4(thinl,90); z4l = ((x2+x3)/2,0-o); penpos5(thinl,-60); z5l = ((x4+x3)/2,h+o); penpos6(thickl,0); z6 = (x4,h/2); penpos7(thickl,0); z7 = (x6,-dep); penpos8(thickl,0); z8 = (x2,h/2); penpos9(thickl,180); z9 = (x3,h/2); penstroke z0e..z1e..z2e---z8e..z4e..z9e---z3e..z5e{left}..z6e---z7e; penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); endchar; beginchar(oct"157",ex#+2ss#,ex#,0); "The Letter omicron"; z0 = (w/2,h+o); z1 = (w/2,-o); z2 = (ss,h/2); z3 = (w-ss,h/2); z4 = z3 shifted (-curvl,0); z5 = z2 shifted (curvl,0); z6 = z0 shifted (0,-thinl); z7 = z1 shifted (0,thinl); fill z1..z3..z0..z2..cycle; unfill z4..z6..z5..z7..cycle; picture lowo; lowo := currentpicture; penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); endchar; beginchar(oct"032",ex#+2ss#,ex#,0); "schwa"; z0 = (w/2,h+o); z1 = (w/2,-o); z2 = (w-ss,h/2); z3 = (w-ss-hair,h/4); z4 = (ss,h/2); z9 = z0 shifted (0,-thinl); z10 = z4 shifted (curvl,0); z11 = z1 shifted (0,thinl); z12 = z3 shifted (0,hair/2); z13 = z12 shifted (-hair/2,0); z14 = z2 shifted (-curvl,thinl); z15 = z10 shifted (0,thinl); path lowepath; lowepath = z2{up}..{left}z0{left}..{down}z4{down}..{right}z1{right}..z3..z12..z13{dir -120}..{left}z11{left}..{up}z10{up}..z9..{down}z14--z15--z10--cycle; fill lowepath rotatedaround ((w/2,h/2),180); penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); endchar; beginchar(oct"223",ex#+2ss#,ex#,dep#); "Lowercase digamma"; italcorr(ex#*slant); penpos0(thickl,90); z0r = (w-ss,h+o); penpos1(thinl,135); x1r = w/6; y1r = h; penpos2(thickl,180); z2r = (w/6,-dep); penpos3(thinstroke,75); penpos4(1.5thinstroke,75); z5 = (w/2,(y1+y2)/2); z3l = (z5--(0,y5)) intersectionpoint (z0..tension 4..z1..tension 4..z2); z4r = (3w/4,y3r); penstroke z0e..tension 4..z1e..tension 4..z2e; penstroke z3e--z4e; penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); endchar;