beginchar(oct"041",.3em#,4cap#/7,dth#); "KANONIKH XPONIKH AGOGI"; picture XPAH; 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 = y6 = -2dd; 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; XPAH = currentpicture; addto currentpicture also GOPGOAPGON shifted (-.1w,.45h); endchar;