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;